2007-09-20 18:09:08 -04:00
|
|
|
! Copyright (C) 2006, 2007 Slava Pestov
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: arrays kernel math cocoa cocoa.messages cocoa.classes
|
2008-02-02 16:44:43 -05:00
|
|
|
sequences math.bitfields ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: cocoa.windows
|
|
|
|
|
|
|
|
|
|
: NSBorderlessWindowMask 0 ; inline
|
|
|
|
|
: NSTitledWindowMask 1 ; inline
|
|
|
|
|
: NSClosableWindowMask 2 ; inline
|
|
|
|
|
: NSMiniaturizableWindowMask 4 ; inline
|
|
|
|
|
: NSResizableWindowMask 8 ; inline
|
|
|
|
|
|
|
|
|
|
: NSBackingStoreRetained 0 ; inline
|
|
|
|
|
: NSBackingStoreNonretained 1 ; inline
|
|
|
|
|
: NSBackingStoreBuffered 2 ; inline
|
|
|
|
|
|
|
|
|
|
: standard-window-type
|
2008-02-02 14:29:09 -05:00
|
|
|
{
|
|
|
|
|
NSTitledWindowMask
|
|
|
|
|
NSClosableWindowMask
|
|
|
|
|
NSMiniaturizableWindowMask
|
|
|
|
|
NSResizableWindowMask
|
|
|
|
|
} flags ; inline
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
: <NSWindow> ( rect -- window )
|
|
|
|
|
NSWindow -> alloc swap
|
|
|
|
|
standard-window-type NSBackingStoreBuffered 1
|
|
|
|
|
-> initWithContentRect:styleMask:backing:defer: ;
|
|
|
|
|
|
|
|
|
|
: <ViewWindow> ( view rect -- window )
|
|
|
|
|
<NSWindow> [ swap -> setContentView: ] keep
|
|
|
|
|
dup dup -> contentView -> setInitialFirstResponder:
|
|
|
|
|
dup 1 -> setAcceptsMouseMovedEvents: ;
|
|
|
|
|
|
|
|
|
|
: window-content-rect ( window -- rect )
|
|
|
|
|
NSWindow over -> frame rot -> styleMask
|
|
|
|
|
-> contentRectForFrameRect:styleMask: ;
|
