extra/webkit-demo/webkit-demo.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel
   4 cocoa
   5 cocoa.application
   6 cocoa.types
   7 cocoa.classes
   8 cocoa.windows ;
   9 IN: webkit-demo
  10
  11 FRAMEWORK: /System/Library/Frameworks/WebKit.framework
  12 IMPORT: WebView
  13
  14 : rect ( -- rect ) 0 0 700 500 <NSRect> ;
  15
  16 : <WebView> ( -- id )
  17     WebView -> alloc
  18     rect f f -> initWithFrame:frameName:groupName: ;
  19
  20 : <WebWindow> ( -- id )
  21     <WebView> rect <ViewWindow> ;
  22
  23 : load-url ( window url -- )
  24     [ -> contentView ] [ <NSString> ] bi* -> setMainFrameURL: ;
  25
  26 : webkit-demo ( -- )
  27     <WebWindow>
  28     [ -> center ]
  29     [ f -> makeKeyAndOrderFront: ]
  30     [ "http://factorcode.org" load-url ] tri ;
  31
  32 : run-webkit-demo ( -- )
  33     [ webkit-demo ] cocoa-app ;
  34
  35 MAIN: run-webkit-demo