UI cleanup: make some ui.gadgets words private, give labels a virtual slot instead...

[factor.git] / basis / ui / gadgets / grid-lines / grid-lines.factor

diff --git a/basis/ui/gadgets/grid-lines/grid-lines.factor b/basis/ui/gadgets/grid-lines/grid-lines.factor
index 4552fcdd5dd11e2b2b113dc1e7a455b314e73b76..a28f21c3ad52dc11b2af9f86ae6b1dfb231515bb 100755 (executable)
--- a/basis/ui/gadgets/grid-lines/grid-lines.factor
+++ b/basis/ui/gadgets/grid-lines/grid-lines.factor
@@ -19,14 +19,14 @@ SYMBOL: grid-dim
     [ [ grid-dim get ] 2dip set-axis ] 2bi ;
 
 : draw-grid-lines ( gaps orientation -- )
-    [ grid get swap grid-positions grid get rect-dim suffix ] dip
+    [ grid get swap grid-positions grid get dim>> suffix ] dip
     [ '[ _ v- ] map ] keep
     '[ _ swap grid-line-from/to gl-line ] each ;
 
 M: grid-lines draw-boundary
     color>> gl-color [
         [ grid set ]
-        [ rect-dim half-gap v- grid-dim set ]
+        [ dim>> half-gap v- grid-dim set ]
         [ compute-grid ] tri
         [ { 1 0 } draw-grid-lines ]
         [ { 0 1 } draw-grid-lines ]