diff --git a/extra/webkit-demo/webkit-demo.factor b/extra/webkit-demo/webkit-demo.factor index 728764226e..e6178a55c3 100644 --- a/extra/webkit-demo/webkit-demo.factor +++ b/extra/webkit-demo/webkit-demo.factor @@ -1,12 +1,7 @@ ! Copyright (C) 2008, 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: kernel -cocoa -cocoa.application -cocoa.types -cocoa.classes -cocoa.windows -core-graphics.types ; +USING: cocoa cocoa.application cocoa.types cocoa.classes cocoa.windows +core-graphics.types kernel math.bitwise ; IN: webkit-demo FRAMEWORK: /System/Library/Frameworks/WebKit.framework @@ -18,8 +13,16 @@ IMPORT: WebView WebView -> alloc rect f f -> initWithFrame:frameName:groupName: ; +: window-style ( -- n ) + { + NSClosableWindowMask + NSMiniaturizableWindowMask + NSResizableWindowMask + NSTitledWindowMask + } flags ; + : ( -- id ) - rect ; + rect window-style ; : load-url ( window url -- ) [ -> contentView ] [ ] bi* -> setMainFrameURL: ;