ui.tools.common: reuse code.

diff --git a/basis/ui/tools/common/common.factor b/basis/ui/tools/common/common.factor
index bdf81fd9c982e389e0bcb6bfe6b4a2cb898d453d..03b1eeb783c4ac624bc88d5afd3387b835e5f786 100644 (file)
--- a/basis/ui/tools/common/common.factor
+++ b/basis/ui/tools/common/common.factor
@@ -9,18 +9,22 @@ SYMBOL: tool-dims
 
 tool-dims [ H{ } clone ] initialize
 
+: set-tool-dim ( dim class -- )
+    tool-dims get-global set-at ;
+
+: get-tool-dim ( class -- dim )
+    tool-dims get-global at ;
+
 TUPLE: tool < track ;
 
 M: tool pref-dim*
-    { [ class-of tool-dims get-global at ] [ call-next-method ] } 1|| ;
+    { [ class-of get-tool-dim ] [ call-next-method ] } 1|| ;
 
 M: tool layout*
     [ call-next-method ]
-    [ [ dim>> ] [ class-of ] bi tool-dims get-global set-at ]
+    [ [ dim>> ] [ class-of ] bi set-tool-dim ]
     bi ;
 
-: set-tool-dim ( dim class -- ) tool-dims get-global set-at ;
-
 SLOT: scroller
 
 : com-page-up ( tool -- )