port to 0.80

contrib/factory/README

@@ -0,0 +1,50 @@
+
+----------------------------------------------------------------------
+simple-error-handler
+----------------------------------------------------------------------
+
+Before compiling and using factory, setup the error handler:
+
+  $ make-simple-error-handler
+
+Then startup factor, load the error handler word, and save the image:
+
+  "simple-error-handler.factor" run-file save
+
+----------------------------------------------------------------------
+Loading factory
+----------------------------------------------------------------------
+
+Putting factory into your image is as simple as this:
+
+  "factory.factor" run-file save
+
+----------------------------------------------------------------------
+Running factory in Xnest
+----------------------------------------------------------------------
+
+In a terminal, run Xnest using an unused display number. Usually you
+can use 2 or greater.
+
+  $ Xnest -auth /dev/null :2
+
+Start factor and launch factory on the appropriate display:
+
+  USE: factory ":2" start-factory
+
+In a terminal, start an application on the appropriate display:
+
+  $ DISPLAY=:2 xterm
+
+----------------------------------------------------------------------
+The mouse functions
+----------------------------------------------------------------------
+
+Root window
+Mouse-1		Toggle root menu
+Mouse-2		Toggle window list
+
+Window border
+Mouse-1		Drag to move window
+Mouse-2		Drag to resize window (specify bottom right corner)
+Mouse-3		Hide window (use window list to get it back)

contrib/factory/factory.factor

@@ -1,10 +1,9 @@
-
-IN: factory
-
 USING: kernel namespaces generic math sequences hashtables io arrays words
        prettyprint lists concurrency
        xlib x concurrent-widgets simple-error-handler ;
 
+IN: factory
+
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 DEFER: workspace-menu
@@ -480,19 +479,19 @@ M: workspace switch-to ( workspace -- )
   mapped-windows dup current-workspace get set-workspace-windows
   [ unmap-window+ ] each
   dup workspace-windows [ map-window+ ] each
-  current-workspace set ;
+  current-workspace set-global ;
 
 SYMBOL: workspace-1
 SYMBOL: workspace-2
 SYMBOL: workspace-3
 SYMBOL: workspace-4
 
-create-workspace workspace-1 set
-create-workspace workspace-2 set
-create-workspace workspace-3 set
-create-workspace workspace-4 set
+create-workspace workspace-1 set-global
+create-workspace workspace-2 set-global
+create-workspace workspace-3 set-global
+create-workspace workspace-4 set-global
 
-workspace-1 get current-workspace set
+workspace-1 get current-workspace set-global
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!