Fix some UI painting bugs

[factor.git] / library / ui / opengl / opengl-utils.factor

diff --git a/library/ui/opengl/opengl-utils.factor b/library/ui/opengl/opengl-utils.factor
index dabb4a24a308c1b6b1a8689fc4c2da3dc7eb8491..2b8858583cf68a1bbc59a77b687e4b1b411ecae9 100644 (file)
--- 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 ;