2 USING: cocoa cocoa.messages cocoa.subclassing cocoa.types
3 compiler kernel namespaces cocoa.classes tools.test memory
7 { +superclass+ "NSObject" }
12 { "id" "SEL" "NSRect" }
18 dup 1.0 2.0 101.0 102.0 <NSRect> -> foo:
23 [ 1 ] [ "x" get NSRect-x ] unit-test
24 [ 2 ] [ "x" get NSRect-y ] unit-test
25 [ 101 ] [ "x" get NSRect-w ] unit-test
26 [ 102 ] [ "x" get NSRect-h ] unit-test
29 { +superclass+ "NSObject" }
35 [ 2drop test-foo "x" get ]
44 [ 1 ] [ "x" get NSRect-x ] unit-test
45 [ 2 ] [ "x" get NSRect-y ] unit-test
46 [ 101 ] [ "x" get NSRect-w ] unit-test
47 [ 102 ] [ "x" get NSRect-h ] unit-test