ui.tools.workspace: Add workspace-dim global variable

2008-01-30 01:59:46 -06:00 · 2008-01-30 01:59:46 -06:00 · b7191f3706
parent 28ee96af40
commit b7191f3706
1 changed files with 5 additions and 1 deletions
--- a/extra/ui/tools/workspace/workspace.factor
+++ b/extra/ui/tools/workspace/workspace.factor
@ -69,7 +69,11 @@ M: gadget tool-scroller drop f ;
    [ find-workspace hide-popup ] <debugger>
    "Error" show-titled-popup ;

-M: workspace pref-dim* drop { 600 700 } ;
+SYMBOL: workspace-dim
+
+{ 600 700 } workspace-dim set-global
+
+M: workspace pref-dim* drop workspace-dim get ;

 M: workspace focusable-child*
    dup workspace-popup [ ] [ workspace-listener ] ?if ;