1 ! Copyright (C) 2006, 2007 Slava Pestov
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.syntax kernel ;
12 TYPEDEF: NSRect _NSRect
13 TYPEDEF: NSRect CGRect
15 : <NSRect> ( x y w h -- rect )
20 [ set-NSRect-x ] keep ;
22 : NSRect-x-y ( alien -- origin-x origin-y )
23 [ NSRect-x ] keep NSRect-y ;
29 TYPEDEF: NSPoint _NSPoint
30 TYPEDEF: NSPoint CGPoint
32 : <NSPoint> ( x y -- point )
34 [ set-NSPoint-y ] keep
35 [ set-NSPoint-x ] keep ;
41 TYPEDEF: NSSize _NSSize
42 TYPEDEF: NSPoint CGPoint
44 : <NSSize> ( w h -- size )
47 [ set-NSSize-w ] keep ;
53 TYPEDEF: NSRange _NSRange
55 : <NSRange> ( length location -- size )
57 [ set-NSRange-length ] keep
58 [ set-NSRange-location ] keep ;
60 C-STRUCT: CGAffineTransform
68 C-STRUCT: NSFastEnumerationState
71 { "ulong*" "mutationsPtr" }
72 { "ulong[5]" "extra" } ;