2009-01-26 01:36:37 -05:00
|
|
|
IN: ui.backend.cocoa.views.tests
|
2009-02-05 04:28:41 -05:00
|
|
|
USING: ui.backend.cocoa.views tools.test kernel math.rectangles
|
2008-11-30 18:47:29 -05:00
|
|
|
namespaces ;
|
|
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
T{ rect
|
|
|
|
|
{ loc { 0 0 } }
|
|
|
|
|
{ dim { 1000 1000 } }
|
|
|
|
|
} "world" set
|
|
|
|
|
|
|
|
|
|
T{ rect
|
|
|
|
|
{ loc { 1.5 2.25 } }
|
|
|
|
|
{ dim { 13.0 14.0 } }
|
|
|
|
|
} dup "world" get rect>NSRect "world" get NSRect>rect =
|
|
|
|
|
] unit-test
|
