window-content-rect ( window -- rect )

Vocabulary

cocoa.windows

Inputs

window

an object

Outputs

rect

an object

Definition

USING: alien.c-types cocoa.messages cocoa.runtime cocoa.types
kernel ;

IN: cocoa.windows

: window-content-rect ( window -- rect )
    dup { Class { id SEL } } "class" send swap
    [ { NSRect { id SEL } } "frame" send ]
    [ { ulong { id SEL } } "styleMask" send ] bi
    { NSRect { id SEL NSRect ulong } }
    "contentRectForFrameRect:styleMask:" send ;