Save window positions, re-arrange source tree a bit

TODO.FACTOR.txt

@@ -1,19 +1,4 @@
-+ prettyprinter bug:
-
-IN: gadgets-listener SYMBOL: listener-gadget
-TUPLE: listener-gadget scroller stack ;
-IN: gadgets M: listener-gadget focusable-child* 
-    listener-gadget-pane ;
-IN: gadgets-layouts M: listener-gadget pref-dim* 
-    drop { 600 600 0 } ;
-IN: gadgets-listener M: listener-gadget 
-set-listener-gadget-scroller 4 set-slot ;
-IN: gadgets-listener M: listener-gadget listener-gadget-stack 
-    5 slot ;
-IN: gadgets-listener M: listener-gadget 
-set-listener-gadget-stack 5 set-slot ;
-IN: gadgets-listener M: listener-gadget 
-listener-gadget-scroller 4 slot ;
+- make-image in the UI leaks memory...
 
 + httpd:
   - outliners don't work
@@ -62,6 +47,10 @@ listener-gadget-scroller 4 slot ;
 
 + ui/help:
 
+- restore windows with the correct stacking order
+- if the listener is running a command when the image is saved, it
+  restores to an unresponsive gadget
+- save window positions on x11
 - roundoff is still not quite right with tracks
 - clearing pane with ^L leaves scrollbar a pixel off
 - new browser:
@@ -84,11 +73,11 @@ listener-gadget-scroller 4 slot ;
   - polish OS X menu bar code
   - dock menu
   - services do not launch if factor not running
+  - new syntax
 - when scrolling wheel, or moving mouse out of window, rollover is not
   updated
 - focus is not top-level window aware
 - display lists
-- saving the image should save window configuration
 - variable width word wrap
 
 + compiler/ffi:

library/bootstrap/boot-stage1.factor

@@ -163,45 +163,45 @@ vectors words ;
         ! This must be the last file of parsing words loaded
         "/library/syntax/parse-syntax.factor"
 
-        "/library/opengl/gl.factor"
-        "/library/opengl/glu.factor"
-        "/library/opengl/opengl-utils.factor"
+        "/library/ui/opengl/gl.factor"
+        "/library/ui/opengl/glu.factor"
+        "/library/ui/opengl/opengl-utils.factor"
 
-        "/library/freetype/freetype.factor"
-        "/library/freetype/freetype-gl.factor"
+        "/library/ui/freetype/freetype.factor"
+        "/library/ui/freetype/freetype-gl.factor"
 
         "/library/ui/backend.factor"
         "/library/ui/timers.factor"
         "/library/ui/gadgets.factor"
         "/library/ui/layouts.factor"
         "/library/ui/hierarchy.factor"
-        "/library/ui/frames.factor"
+        "/library/ui/gadgets/frames.factor"
         "/library/ui/world.factor"
         "/library/ui/paint.factor"
-        "/library/ui/theme.factor"
-        "/library/ui/labels.factor"
+        "/library/ui/gadgets/theme.factor"
+        "/library/ui/gadgets/labels.factor"
         "/library/ui/gestures.factor"
-        "/library/ui/borders.factor"
-        "/library/ui/buttons.factor"
-        "/library/ui/tiles.factor"
-        "/library/ui/line-editor.factor"
-        "/library/ui/sliders.factor"
-        "/library/ui/viewports.factor"
-        "/library/ui/scrolling.factor"
-        "/library/ui/editors.factor"
-        "/library/ui/tracks.factor"
-        "/library/ui/incremental.factor"
-        "/library/ui/paragraphs.factor"
-        "/library/ui/panes.factor"
-        "/library/ui/tabs.factor"
-        "/library/ui/outliner.factor"
-        "/library/ui/environment.factor"
-        "/library/ui/presentations.factor"
-        "/library/ui/listener.factor"
-        "/library/ui/browser.factor"
-        "/library/ui/apropos.factor"
-        "/library/ui/help.factor"
-        "/library/ui/launchpad.factor"
+        "/library/ui/gadgets/borders.factor"
+        "/library/ui/gadgets/buttons.factor"
+        "/library/ui/gadgets/tiles.factor"
+        "/library/ui/gadgets/line-editor.factor"
+        "/library/ui/gadgets/sliders.factor"
+        "/library/ui/gadgets/viewports.factor"
+        "/library/ui/gadgets/scrolling.factor"
+        "/library/ui/gadgets/editors.factor"
+        "/library/ui/gadgets/tracks.factor"
+        "/library/ui/gadgets/incremental.factor"
+        "/library/ui/gadgets/paragraphs.factor"
+        "/library/ui/gadgets/panes.factor"
+        "/library/ui/gadgets/tabs.factor"
+        "/library/ui/gadgets/outliner.factor"
+        "/library/ui/ui.factor"
+        "/library/ui/gadgets/presentations.factor"
+        "/library/ui/tools/listener.factor"
+        "/library/ui/tools/browser.factor"
+        "/library/ui/tools/apropos.factor"
+        "/library/ui/tools/help.factor"
+        "/library/ui/tools/launchpad.factor"
 
         "/library/continuations.facts"
         "/library/errors.facts"

library/bootstrap/boot-stage2.factor

@@ -41,11 +41,11 @@ H{ } clone help-graph set-global xref-articles
     "native-io" get [ init-io ] when
     
     "cocoa" get [
-        "/library/cocoa/load.factor" run-resource
+        "/library/ui/cocoa/load.factor" run-resource
     ] when
     
     "x11" get [
-        "/library/x11/load.factor" run-resource
+        "/library/ui/x11/load.factor" run-resource
     ] when
 
     windows? "native-io" get and [

library/cocoa/load.factor

@@ -1,24 +0,0 @@
-USING: compiler io parser sequences words ;
-
-{
-    "/library/cocoa/runtime.factor"
-    "/library/cocoa/utilities.factor"
-    "/library/cocoa/subclassing.factor"
-    "/library/cocoa/core-foundation.factor"
-    "/library/cocoa/types.factor"
-    "/library/cocoa/init-cocoa.factor"
-    "/library/cocoa/callback.factor"
-    "/library/cocoa/application-utils.factor"
-    "/library/cocoa/view-utils.factor"
-    "/library/cocoa/window-utils.factor"
-    "/library/cocoa/dialogs.factor"
-    "/library/cocoa/menu-bar.factor"
-    "/library/cocoa/pasteboard-utils.factor"
-    "/library/cocoa/services.factor"
-    "/library/cocoa/ui.factor"
-} [
-    run-resource
-] each
-
-"Compiling Cocoa bindings..." print
-vocabs [ "objc-" head? ] subset compile-vocabs

library/compiler/inference/inference.factor

@@ -88,6 +88,8 @@ M: wrapper apply-object wrapped apply-literal ;
 
 GENERIC: infer-quot
 
+M: f infer-quot ( f -- ) drop ;
+
 M: quotation infer-quot ( quot -- )
     #! Recursive calls to this word are made for nested
     #! quotations.

library/test/inference.factor

@@ -10,6 +10,7 @@ math math-internals namespaces parser sequences test vectors ;
 
 [ t ] [ [ [ ] [ ] if ] dataflow dup [ [ ] map-nodes ] with-node-iterator = ] unit-test
 
+[ { 0 0 } ] [ f infer ] unit-test
 [ { 0 2 } ] [ [ 2 "Hello" ] infer ] unit-test
 [ { 1 2 } ] [ [ dup ] infer ] unit-test
 
@@ -132,7 +133,7 @@ SYMBOL: sym-test
     dup [
         length
     ] [
-        not-a-number
+        "foo" throw
     ] if ;
 
 [ { 1 1 } ] [ [ terminator-branch ] infer ] unit-test

library/tools/memory.factor

@@ -82,7 +82,8 @@ M: object each-slot ( obj quot -- )
     pprint " instances" print ;
 
 : heap-stats. ( -- )
-    heap-stats dup hash-keys natural-sort [
+    heap-stats dup hash-keys
+    [ [ word-name ] 2apply <=> ] sort [
         ( hash hash key -- )
         [ [ pick hash ] keep pick hash ] keep heap-stat.
     ] each 2drop ;

library/ui/cocoa/init-cocoa.factor

@@ -15,6 +15,7 @@ USING: cocoa compiler io kernel objc sequences words ;
     "NSException"
     "NSMenu"
     "NSMenuItem"
+    "NSNotification"
     "NSNotificationCenter"
     "NSObject"
     "NSOpenGLContext"

library/ui/cocoa/load.factor

@@ -0,0 +1,24 @@
+USING: compiler io parser sequences words ;
+
+{
+    "/library/ui/cocoa/runtime.factor"
+    "/library/ui/cocoa/utilities.factor"
+    "/library/ui/cocoa/subclassing.factor"
+    "/library/ui/cocoa/core-foundation.factor"
+    "/library/ui/cocoa/types.factor"
+    "/library/ui/cocoa/init-cocoa.factor"
+    "/library/ui/cocoa/callback.factor"
+    "/library/ui/cocoa/application-utils.factor"
+    "/library/ui/cocoa/view-utils.factor"
+    "/library/ui/cocoa/window-utils.factor"
+    "/library/ui/cocoa/dialogs.factor"
+    "/library/ui/cocoa/menu-bar.factor"
+    "/library/ui/cocoa/pasteboard-utils.factor"
+    "/library/ui/cocoa/services.factor"
+    "/library/ui/cocoa/ui.factor"
+} [
+    run-resource
+] each
+
+"Compiling Cocoa bindings..." print
+vocabs [ "objc-" head? ] subset compile-vocabs

library/ui/cocoa/types.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2006 Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
 IN: cocoa
-USING: alien kernel math ;
+USING: alien gadgets kernel math sequences ;
 
 BEGIN-STRUCT: NSRect
     FIELD: float x
@@ -20,13 +20,13 @@ TYPEDEF: NSRect CGRect
     [ set-NSRect-y ] keep
     [ set-NSRect-x ] keep ;
 
-: NSRect-x-y ( rect -- origin-x origin-y )
+: NSRect-x-y ( alien -- origin-x origin-y )
     [ NSRect-x ] keep NSRect-y ;
 
-: NSRect-x-far-y ( rect -- origin-x far-y )
+: NSRect-x-far-y ( alien -- origin-x far-y )
     [ NSRect-x-y ] keep NSRect-h + ;
   
-: <far-y-NSRect> ( x y w h -- rect )
+: <far-y-NSRect> ( x y w h -- alien )
     tuck >r >r - r> r> <NSRect> ;
 
 BEGIN-STRUCT: NSPoint

library/ui/cocoa/ui.factor

@@ -5,8 +5,9 @@ IN: objc-FactorApplicationDelegate
 DEFER: FactorApplicationDelegate
 
 IN: cocoa
-USING: arrays gadgets gadgets-listener kernel objc
-objc-NSApplication objc-NSObject objc-NSWindow sequences ;
+USING: arrays gadgets gadgets-layouts gadgets-listener
+hashtables kernel namespaces objc objc-NSApplication
+objc-NSObject objc-NSWindow sequences ;
 
 : finder-run-files ( alien -- )
     CF>string-array listener-run-files
@@ -25,19 +26,21 @@ objc-NSApplication objc-NSObject objc-NSWindow sequences ;
     FactorApplicationDelegate [alloc] [init] [setDelegate:] ;
 
 : init-cocoa-ui ( -- )
-    reset-views
     reset-callbacks
     init-ui
     install-app-delegate
     register-services
     default-main-menu ;
 
+: rect>NSRect
+    dup world-loc first2 rot rect-dim first2 <NSRect> ;
+
 : gadget-window ( world -- )
     [
-        <FactorView>
-        dup <ViewWindow>
+        dup <FactorView>
+        dup rot rect>NSRect <ViewWindow>
         dup install-window-delegate
-        dup [contentView] [release]
+        over [release]
         2array
     ] keep set-world-handle ;
 
@@ -52,8 +55,8 @@ objc-NSOpenGLView objc-NSView ;
     world-handle second swap <NSString> [setTitle:] ;
 
 : open-window* ( world -- )
-    dup gadget-window dup add-notify
-    dup gadget-title over set-title
+    dup gadget-window
+    dup start-world
     world-handle second f [makeKeyAndOrderFront:] ;
 
 : select-gl-context ( handle -- )
@@ -62,6 +65,13 @@ objc-NSOpenGLView objc-NSView ;
 : flush-gl-context ( handle -- )
     first [openGLContext] [flushBuffer] ;
 
+: restore-windows ( -- )
+    views get hash-values reset-views
+    [ dup reset-world open-window* ] each ;
+
+: restore-windows? ( -- ? )
+    views get [ hash-empty? not ] [ f ] if* ;
+
 IN: shells
 
 : ui
@@ -71,7 +81,11 @@ IN: shells
     [
         [
             init-cocoa-ui
-            listener-window
+            restore-windows? [
+                restore-windows
+            ] [
+                listener-window
+            ] if
             finish-launching
             event-loop
         ] with-cocoa

library/ui/cocoa/view-utils.factor

@@ -18,21 +18,6 @@ sequences ;
 
 : view-dim [bounds] dup NSRect-w swap NSRect-h 0 3array ;
 
-: NSViewFrameDidChangeNotification
-    "NSViewFrameDidChangeNotification" <NSString> ;
-
-: add-resize-observer ( view selector -- )
-    NSViewFrameDidChangeNotification pick add-observer ;
-
-! Hash mapping aliens to gadgets
-SYMBOL: views
-
-: reset-views ( hash -- hash ) H{ } clone views set-global ;
-
-reset-views
-
-: view ( handle -- world ) views get hash ;
-
 : mouse-location ( view event -- loc )
     over >r
     [locationInWindow] f [convertPoint:fromView:]
@@ -101,6 +86,11 @@ reset-views
 : send-wheel$ ( view event -- )
     [ [deltaY] 0 > ] 2keep mouse-location rot view send-wheel ;
 
+: add-resize-observer ( observer object -- )
+    >r "updateFactorGadgetSize:"
+    "NSViewFrameDidChangeNotification" <NSString>
+    r> add-observer ;
+
 "NSOpenGLView" "FactorView" {
     { "drawRect:" "void" { "id" "SEL" "NSRect" }
         [ 2drop view draw-world ]
@@ -170,7 +160,7 @@ reset-views
         [
             rot drop
             SUPER-> [initWithFrame:pixelFormat:]
-            dup "updateFactorGadgetSize:" add-resize-observer
+            dup dup add-resize-observer
         ]
     }
     
@@ -178,7 +168,7 @@ reset-views
         [
             drop
             dup view close-world
-            dup views get remove-hash
+            dup unregister-view
             dup remove-observer
             SUPER-> [dealloc]
         ]
@@ -186,5 +176,4 @@ reset-views
 } { } define-objc-class
 
 : <FactorView> ( world -- view )
-    FactorView over rect-dim <GLView>
-    [ views get set-hash ] keep ;
+    FactorView over rect-dim <GLView> [ register-view ] keep ;

library/ui/cocoa/window-utils.factor

@@ -4,8 +4,9 @@ IN: objc-FactorWindowDelegate
 DEFER: FactorWindowDelegate
 
 IN: cocoa
-USING: gadgets gadgets-layouts kernel math objc objc-NSObject
-objc-NSView objc-NSWindow sequences ;
+USING: arrays gadgets gadgets-layouts kernel math objc
+objc-NSNotification objc-NSObject objc-NSView objc-NSWindow
+sequences ;
 
 : NSBorderlessWindowMask     0 ; inline
 : NSTitledWindowMask         1 ; inline
@@ -28,9 +29,8 @@ objc-NSView objc-NSWindow sequences ;
     standard-window-type NSBackingStoreBuffered 1
     [initWithContentRect:styleMask:backing:defer:] ;
 
-: <ViewWindow> ( view -- window )
-    dup [bounds] <NSWindow>
-    [ swap [setContentView:] ] keep
+: <ViewWindow> ( view bounds -- window )
+    <NSWindow> [ swap [setContentView:] ] keep
     dup dup [contentView] [setInitialFirstResponder:]
     dup 1 [setAcceptsMouseMovedEvents:] ;
 
@@ -55,6 +55,14 @@ objc-NSView objc-NSWindow sequences ;
             frame-content-rect
         ]
     }
+        
+    {
+        "windowDidMove:" "void" { "id" "SEL" "id" } [
+            2nip [object]
+            dup window-content-rect NSRect-x-y 0 3array
+            swap [contentView] view set-world-loc
+        ]
+    }
 } { } define-objc-class
 
 : install-window-delegate ( window -- )

library/ui/gadgets/editors.factor

@@ -92,7 +92,6 @@ M: editor gadget-gestures
         { T{ key-down f f "HOME" } [ [ T{ document-elt } prev-elt ] with-editor ] }
         { T{ key-down f f "END" } [ [ T{ document-elt } next-elt ] with-editor ] }
         { T{ key-down f { C+ } "k" } [ [ line-clear ] with-editor ] }
-        { T{ key-down f f "TAB" } [ do-completion ] }
     } ;
 
 C: editor ( text -- )

library/ui/gadgets/panes.factor

@@ -42,8 +42,7 @@ SYMBOL: structured-input
     "\"structured-input\" \"gadgets-panes\" lookup get-global call"
     r> pane-eval ;
 
-: replace-input ( string pane -- )
-    pane-input set-editor-text ;
+: replace-input ( string pane -- ) pane-input set-editor-text ;
 
 : print-input ( string pane -- )
     [

library/ui/tools/listener.factor

@@ -52,7 +52,8 @@ C: listener-gadget ( -- gadget )
         { [ <input-pane> <scroller> ] set-listener-gadget-scroller @center }
     } make-frame* dup start-listener ;
 
-M: listener-gadget pref-dim* drop { 600 600 0 } ;
+M: listener-gadget pref-dim*
+    delegate pref-dim* { 600 600 0 } vmax ;
 
 M: listener-gadget focusable-child* ( listener -- gadget )
     listener-gadget-pane ;

library/ui/ui.factor

@@ -5,6 +5,17 @@ USING: gadgets gadgets-labels gadgets-layouts gadgets-theme
 gadgets-viewports hashtables kernel math namespaces queues
 sequences threads ;
 
+! Hash mapping aliens to gadgets
+SYMBOL: windows
+
+: reset-windows ( hash -- hash ) H{ } clone windows set-global ;
+
+: view ( handle -- world ) windows get hash ;
+
+: register-view ( world handle -- ) windows get set-hash ;
+
+: unregister-view ( handle -- ) windows get remove-hash ;
+
 : layout-queued ( -- )
     invalid dup queue-empty? [
         drop
@@ -24,16 +35,6 @@ sequences threads ;
     [ dup world-handle [ draw-world ] [ drop ] if ] each
     10 sleep ;
 
-: close-global ( world global -- )
-    dup get-global find-world rot eq?
-    [ f swap set-global ] [ drop ] if ;
-
-: close-world ( world -- )
-    dup hand-clicked close-global
-    dup hand-gadget close-global
-    f over request-focus* dup remove-notify
-    dup free-fonts f swap set-world-handle ;
-
 : <status-bar> ( -- gadget ) "" <label> dup highlight-theme ;
 
 GENERIC: gadget-title ( gadget -- string )
@@ -66,6 +67,13 @@ C: titled-gadget ( gadget title -- )
 : open-titled-window ( gadget title -- )
     <titled-gadget> open-window ;
 
+: restore-windows ( -- )
+    windows get hash-values reset-windows
+    [ dup reset-world open-window* ] each ;
+
+: restore-windows? ( -- ? )
+    windows get [ hash-empty? not ] [ f ] if* ;
+
 : (open-tool) ( arg cons setter -- )
     >r call tuck r> call open-window ; inline
 
@@ -78,3 +86,21 @@ C: titled-gadget ( gadget title -- )
     ] [
         drop r> r> (open-tool)
     ] if ;
+
+: start-world ( world -- )
+    dup add-notify
+    dup gadget-title over set-title
+    dup relayout
+    world-gadget request-focus ;
+
+: close-global ( world global -- )
+    dup get-global find-world rot eq?
+    [ f swap set-global ] [ drop ] if ;
+
+: close-world ( world -- )
+    dup hand-clicked close-global
+    dup hand-gadget close-global
+    f over request-focus*
+    dup remove-notify
+    dup free-fonts
+    reset-world ;

library/ui/world.factor

@@ -5,16 +5,20 @@ USING: errors freetype gadgets-layouts generic hashtables kernel
 math namespaces opengl sequences ;
 
 ! The world gadget is the top level gadget that all (visible)
-! gadgets are contained in.
+! gadgets are contained in. There is one world per top-level
+! native window.
 
 ! fonts: mapping font tuples to sprite vectors
 ! handle: native resource
-TUPLE: world gadget status focus fonts handle ;
+! loc: location of native window on the screen.
+!   we don't store this in the world's rect-loc, since the
+!   co-ordinate system might be different, and generally the
+!   UI code assumes that everything starts at { 0 0 0 }.
+TUPLE: world gadget status focus fonts handle loc ;
 
 : free-fonts ( world -- )
     dup world-handle select-gl-context
-    world-fonts dup hash-values [ free-sprites ] each
-    clear-hash ;
+    world-fonts hash-values [ free-sprites ] each ;
 
 : font-sprites ( font world -- sprites )
     world-fonts [ drop V{ } clone ] cache ;
@@ -28,7 +32,8 @@ C: world ( gadget status -- world )
     } make-frame*
     t over set-gadget-root?
     H{ } clone over set-world-fonts
-    dup world-gadget request-focus ;
+    dup world-gadget request-focus
+    { 0 0 0 } over set-world-loc ;
 
 : find-world [ world? ] find-parent ;
 
@@ -40,3 +45,8 @@ M: world pref-dim* ( world -- dim )
 
 : draw-string ( open-fonts string -- )
     >r dup world get font-sprites r> (draw-string) ;
+
+: reset-world ( world -- )
+    f over set-world-focus
+    f over set-world-handle
+    world-fonts clear-hash ;

library/ui/x11/events.factor

@@ -56,8 +56,8 @@ GENERIC: client-event ( event window -- )
     } cond ;
 
 : event-loop ( -- )
-    windows get hash-empty? [
-        wait-event dup XAnyEvent-window windows get hash dup
+    views get hash-empty? [
+        wait-event dup XAnyEvent-window views get hash dup
         [ handle-event ] [ 2drop ] if event-loop
     ] unless ;
 

library/ui/x11/load.factor

@@ -0,0 +1,16 @@
+! Copyright (C) 2005, 2006 Eduardo Cavazos
+! See http://factorcode.org/license.txt for BSD license.
+USING: kernel parser words compiler sequences ;
+
+{
+    "/library/ui/x11/xlib.factor"
+    "/library/ui/x11/glx.factor"
+    "/library/ui/x11/constants.factor"
+    "/library/ui/x11/utilities.factor"
+    "/library/ui/x11/events.factor"
+    "/library/ui/x11/glx-utils.factor"
+    "/library/ui/x11/windows.factor"
+    "/library/ui/x11/ui.factor"
+} [ run-resource ] each
+
+{ "x11" } compile-vocabs

library/ui/x11/ui.factor

@@ -134,8 +134,12 @@ IN: shells
     [
         f [
             init-ui
-            launchpad-window
-            listener-window
+            restore-windows? [
+                restore-windows
+            ] [
+                launchpad-window
+                listener-window
+            ] if
             event-loop
         ] with-x
     ] with-freetype ;

library/ui/x11/utilities.factor

@@ -4,10 +4,6 @@ IN: x11
 USING: alien arrays errors gadgets hashtables io kernel math
 namespaces prettyprint sequences threads ;
 
-! Global variable; maps X11 window handles to objects responding
-! to the event protocol in /library/x11/events.factor
-SYMBOL: windows
-
 SYMBOL: dpy
 SYMBOL: scr
 SYMBOL: root
@@ -30,7 +26,7 @@ SYMBOL: root
     
 : with-x ( display-string quot -- )
     [
-        H{ } clone windows set
+        reset-views
         swap initialize-x
         [ close-x ] cleanup
     ] with-scope ;

library/ui/x11/windows.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2005, 2006 Eduardo Cavazos and Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
 IN: x11
-USING: alien hashtables kernel math namespaces sequences ;
+USING: alien gadgets hashtables kernel math namespaces sequences ;
 
 : create-window-mask ( -- n )
     CWBackPixel CWBorderPixel bitor
@@ -41,7 +41,7 @@ USING: alien hashtables kernel math namespaces sequences ;
     dpy get swap XDestroyWindow drop ;
 
 : destroy-window* ( win context -- )
-    destroy-context dup windows get remove-hash destroy-window ;
+    destroy-context dup views get remove-hash destroy-window ;
 
 : set-closable ( win -- )
     dpy get swap "WM_DELETE_WINDOW" x-atom <Atom> 1
@@ -52,6 +52,6 @@ USING: alien hashtables kernel math namespaces sequences ;
 : map-window* ( world win -- ) dup set-closable map-window ;
 
 : glx-window* ( world dim -- win context )
-    glx-window >r [ windows get set-hash ] keep r> ;
+    glx-window >r [ views get set-hash ] keep r> ;
 
 : unmap-window ( win -- ) dpy get swap XUnmapWindow drop ;

library/x11/load.factor

@@ -1,16 +0,0 @@
-! Copyright (C) 2005, 2006 Eduardo Cavazos
-! See http://factorcode.org/license.txt for BSD license.
-USING: kernel parser words compiler sequences ;
-
-{
-    "/library/x11/xlib.factor"
-    "/library/x11/glx.factor"
-    "/library/x11/constants.factor"
-    "/library/x11/utilities.factor"
-    "/library/x11/events.factor"
-    "/library/x11/glx-utils.factor"
-    "/library/x11/windows.factor"
-    "/library/x11/ui.factor"
-} [ run-resource ] each
-
-{ "x11" } compile-vocabs