From faba122522064f0447bd7e300d45127f16581e17 Mon Sep 17 00:00:00 2001
From: "wayo.cavazos" <wayo.cavazos@gmail.com>
Date: Mon, 6 Feb 2006 20:55:26 +0000
Subject: [PATCH] port to 0.80

---
 contrib/factory/README         | 50 ++++++++++++++++++++++++++++++++++
 contrib/factory/factory.factor | 17 ++++++------
 2 files changed, 58 insertions(+), 9 deletions(-)
 create mode 100644 contrib/factory/README

diff --git a/contrib/factory/README b/contrib/factory/README
new file mode 100644
index 0000000000..dbacb06114
--- /dev/null
+++ b/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)
diff --git a/contrib/factory/factory.factor b/contrib/factory/factory.factor
index 4fc67b3183..4db8f56c12 100644
--- a/contrib/factory/factory.factor
+++ b/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
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!