main ( -- )

Vocabulary

tools.deploy.test.14

Inputs

None

Outputs

None

Definition

USING: alien.c-types classes.struct cocoa.classes cocoa.messages
cocoa.runtime cocoa.types core-graphics.types kernel ;

IN: tools.deploy.test.14

: main ( -- )
    Bar { id { id SEL } } "alloc" send
    { id { id SEL } } "init" send S{ CGRect
        { origin S{ CGPoint { x 1.0 } { y 2.0 } } }
        { size S{ CGSize { w 3.0 } { h 4.0 } } }
    } { float { id SEL NSRect } } "bar:" send 10.0 assert= ;