From 5dc802a8d45e77bc496f11e4417b95cfdd9ddc29 Mon Sep 17 00:00:00 2001
From: "wayo.cavazos" <wayo.cavazos@gmail.com>
Date: Thu, 23 Feb 2006 23:29:40 +0000
Subject: [PATCH] Minor fixes in contrib/factory

---
 contrib/factory/factory.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/contrib/factory/factory.factor b/contrib/factory/factory.factor
index d09fdbac2d..fe0b6a34fd 100644
--- a/contrib/factory/factory.factor
+++ b/contrib/factory/factory.factor
@@ -13,6 +13,8 @@ DEFER: window-list
 DEFER: refresh-window-list
 DEFER: layout-frame
 DEFER: mapped-windows
+DEFER: workspace-1 DEFER: workspace-2 DEFER: workspace-3 DEFER: workspace-4
+DEFER: switch-to
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -550,7 +552,7 @@ window-table get hash-values [ wm-frame? ] subset [ invalid-frame? ] subset
 SYMBOL: window-list
 
 : setup-window-list ( -- )
-  create-menu window-list set
+  create-menu window-list set-global
   "black" lookup-color window-list get set-window-background% ;
 
 : not-transient? ( frame -- ? ) wm-frame-child get-transient-for-hint% not ;