save-position ( world window -- )

Vocabulary

ui.backend.cocoa.views

Inputs

world	an object
window	an object

Outputs

None

Definition

USING: accessors arrays cocoa.messages cocoa.runtime cocoa.types
core-graphics.types kernel ;

IN: ui.backend.cocoa.views

: save-position ( world window -- )
    { NSRect { id SEL } } "frame" send CGRect-top-left 2array
    >>window-loc drop ;