From: slava <slava@factorcode.org>
Date: Thu, 12 Oct 2006 22:09:30 +0000 (+0000)
Subject: Fix some UI painting bugs
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=15df9ddddb186ad3cda1ca4dab07ef1d8f9fd8c4

Fix some UI painting bugs
---

diff --git a/library/ui/gadgets/labels.factor b/library/ui/gadgets/labels.factor
index 3ceba9e69f..aa4e58f70f 100644
--- a/library/ui/gadgets/labels.factor
+++ b/library/ui/gadgets/labels.factor
@@ -13,18 +13,14 @@ C: label ( text -- label )
     [ set-label-text ] keep
     dup label-theme ;
 
-: label-size ( gadget -- dim )
+M: label pref-dim*
     dup label-font lookup-font dup font-height >r
     swap label-text string-width r> 2array ;
 
-M: label pref-dim* label-size ;
-
-: draw-label ( label -- )
+M: label draw-gadget*
     dup label-color gl-color
     dup label-font swap label-text
     origin get draw-string ;
 
-M: label draw-gadget* draw-label ;
-
 : <label-control> ( model -- gadget )
     "" <label> [ set-label-text ] <control> ;
diff --git a/library/ui/gadgets/outliner.factor b/library/ui/gadgets/outliner.factor
index 9364b54a0c..98889688f8 100644
--- a/library/ui/gadgets/outliner.factor
+++ b/library/ui/gadgets/outliner.factor
@@ -3,18 +3,22 @@
 IN: gadgets-outliner
 USING: arrays gadgets gadgets-borders gadgets-buttons
 gadgets-frames gadgets-grids gadgets-labels gadgets-panes
-gadgets-theme generic io kernel math opengl sequences styles ;
+gadgets-theme generic io kernel math opengl sequences styles
+namespaces ;
 
 ! Vertical line.
 TUPLE: guide color ;
 
 M: guide draw-interior
     guide-color gl-color
-    rect-dim dup { 0.5 0 0 } v* swap { 0.5 1 0 } v* gl-line ;
+    rect-dim dup { 0.5 0 0 } v* origin get v+
+    swap { 0.5 1 0 } v* origin get v+ gl-line ;
+
+: guide-theme ( gadget -- )
+    T{ guide f { 0.5 0.5 0.5 1.0 } } swap set-gadget-interior ;
 
 : <guide-gadget> ( -- gadget )
-    <gadget>
-    T{ guide f { 0.5 0.5 0.5 1.0 } } over set-gadget-interior ;
+    <gadget> dup guide-theme ;
 
 ! Outliner gadget.
 TUPLE: outliner quot ;
diff --git a/library/ui/opengl/opengl-utils.factor b/library/ui/opengl/opengl-utils.factor
index dabb4a24a3..2b8858583c 100644
--- a/library/ui/opengl/opengl-utils.factor
+++ b/library/ui/opengl/opengl-utils.factor
@@ -33,7 +33,7 @@ sequences ;
 : gl-rect ( loc dim -- )
     #! Draws a two-dimensional box.
     GL_FRONT_AND_BACK GL_LINE glPolygonMode
-    gl-fill-rect
+    >r { 0.5 0.5 } v+ r> { 0.5 0.5 } v- gl-fill-rect
     GL_FRONT_AND_BACK GL_FILL glPolygonMode ;
 
 : (gl-poly) [ [ gl-vertex ] each ] do-state ;
diff --git a/library/ui/paint.factor b/library/ui/paint.factor
index 64e216fbab..b2c786d8b0 100644
--- a/library/ui/paint.factor
+++ b/library/ui/paint.factor
@@ -38,11 +38,10 @@ DEFER: draw-gadget
 : (draw-gadget) ( gadget -- )
     [
         dup rect-loc translate
-        ! dup dup gadget-interior draw-interior
+        dup dup gadget-interior draw-interior
         dup draw-gadget*
         dup visible-children [ draw-gadget ] each
-        ! dup gadget-boundary draw-boundary
-        drop
+        dup gadget-boundary draw-boundary
     ] with-scope ;
 
 : change-clip ( gadget -- )
@@ -82,7 +81,8 @@ M: f draw-boundary 2drop ;
 TUPLE: solid color ;
 
 ! Solid pen
-: (solid) solid-color gl-color rect-dim >r origin get r> ;
+: (solid)
+    solid-color gl-color rect-dim >r origin get dup r> v+ ;
 
 M: solid draw-interior (solid) gl-fill-rect ;
 
@@ -103,8 +103,9 @@ M: gradient draw-interior
 TUPLE: polygon color points ;
 
 : draw-polygon ( polygon quot -- )
-    >r dup polygon-color gl-color polygon-points r> each ;
-    inline
+    origin get [
+        >r dup polygon-color gl-color polygon-points r> call
+    ] with-translation ; inline
 
 M: polygon draw-boundary
     [ gl-poly ] draw-polygon drop ;
@@ -112,12 +113,12 @@ M: polygon draw-boundary
 M: polygon draw-interior
     [ gl-fill-poly ] draw-polygon drop ;
 
-: arrow-up    { { { 3 0 } { 6 6 } { 0 6 } } } ;
-: arrow-right { { { 0 0 } { 6 3 } { 0 6 } } } ;
-: arrow-down  { { { 0 0 } { 6 0 } { 3 6 } } } ;
-: arrow-left  { { { 0 3 } { 6 0 } { 6 6 } } } ;
+: arrow-up    { { 3 0 } { 6 6 } { 0 6 } } ;
+: arrow-right { { 0 0 } { 6 3 } { 0 6 } } ;
+: arrow-down  { { 0 0 } { 6 0 } { 3 6 } } ;
+: arrow-left  { { 0 3 } { 6 0 } { 6 6 } } ;
 
 : <polygon-gadget> ( color points -- gadget )
-    dup { 0 0 } [ max-dim vmax ] reduce
+    dup max-dim
     >r <polygon> <gadget> r> over set-rect-dim
     [ set-gadget-interior ] keep ;
diff --git a/library/ui/tools/dataflow.factor b/library/ui/tools/dataflow.factor
index 9851fd5a9a..50811f0709 100644
--- a/library/ui/tools/dataflow.factor
+++ b/library/ui/tools/dataflow.factor
@@ -34,8 +34,10 @@ C: shuffle-gadget ( node -- gadget )
     [ 2array ] 2map ;
 
 : draw-shuffle ( gadget seq seq -- )
-    >r >r rect-dim first2 r> r> shuffled-endpoints
-    [ first2 gl-line ] each ;
+    origin get [
+        >r >r rect-dim first2 r> r> shuffled-endpoints
+        [ first2 gl-line ] each
+    ] with-translation ;
 
 M: shuffle-gadget draw-gadget*
     { 0 0 0 1 } gl-color