From 2656621e9d8053e22a96bf93534362e170733db9 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 10 Jul 2006 19:56:26 +0000
Subject: [PATCH] New windows don't redraw

---
 library/ui/ui.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/library/ui/ui.factor b/library/ui/ui.factor
index efb5fa2bd8..595f60756d 100644
--- 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 ;