2006-02-09 20:36:11 -05:00
|
|
|
! Copyright (C) 2006 Slava Pestov
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
IN: cocoa
|
|
|
|
USING: kernel math objc-NSObject objc-NSWindow ;
|
|
|
|
|
|
|
|
: 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
|
|
|
|
NSTitledWindowMask
|
|
|
|
NSClosableWindowMask bitor
|
|
|
|
NSMiniaturizableWindowMask bitor
|
|
|
|
NSResizableWindowMask bitor ; inline
|
|
|
|
|
2006-02-09 22:11:22 -05:00
|
|
|
: <NSWindow> ( title rect -- window )
|
|
|
|
NSWindow [alloc] swap
|
|
|
|
standard-window-type NSBackingStoreBuffered 1
|
2006-02-09 20:36:11 -05:00
|
|
|
[initWithContentRect:styleMask:backing:defer:]
|
|
|
|
[ swap <NSString> [setTitle:] ] keep ;
|