factor/basis/cocoa/windows/windows.factor

! Copyright (C) 2006, 2007 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel math cocoa cocoa.messages cocoa.classes
sequences math.bitwise ;
IN: cocoa.windows

! Window styles
CONSTANT: NSBorderlessWindowMask     0
CONSTANT: NSTitledWindowMask         1
CONSTANT: NSClosableWindowMask       2
CONSTANT: NSMiniaturizableWindowMask 4
CONSTANT: NSResizableWindowMask      8

! Additional panel-only styles 
CONSTANT: NSUtilityWindowMask       16
CONSTANT: NSDocModalWindowMask      64
CONSTANT: NSNonactivatingPanelMask 128
CONSTANT: NSHUDWindowMask    HEX: 1000

CONSTANT: NSBackingStoreRetained    0
CONSTANT: NSBackingStoreNonretained 1
CONSTANT: NSBackingStoreBuffered    2

: <NSWindow> ( rect style class -- window )
    [ -> alloc ] curry 2dip NSBackingStoreBuffered 1
    -> initWithContentRect:styleMask:backing:defer: ;

: class-for-style ( style -- NSWindow/NSPanel )
    HEX: 1ff0 bitand zero? NSWindow NSPanel ? ;

: <ViewWindow> ( view rect style -- window )
    dup class-for-style <NSWindow> [ swap -> setContentView: ] keep
    dup dup -> contentView -> setInitialFirstResponder:
    dup 1 -> setAcceptsMouseMovedEvents:
    dup 0 -> setReleasedWhenClosed: ;

: window-content-rect ( window -- rect )
    dup -> class swap
    [ -> frame ] [ -> styleMask ] bi
    -> contentRectForFrameRect:styleMask: ;