New windows don't redraw

2006-07-10 19:56:26 +00:00 · 2006-07-10 19:56:26 +00:00 · 2656621e9d
parent d1d2507d31
commit 2656621e9d
1 changed files with 2 additions and 1 deletions
--- a/library/ui/ui.factor
+++ b/library/ui/ui.factor
@ -73,7 +73,8 @@ C: titled-gadget ( gadget title -- )
    <world>
    dup pref-dim over set-gadget-dim
    dup world-gadget gadget-title over set-world-title
-    open-window* ;
+    dup open-window*
+    draw-world ;

 : open-titled-window ( gadget title -- )
    <model> <titled-gadget> open-window ;