Fix gesture logger bug which was breaking UI

2008-09-03 04:02:18 -05:00 · 2008-09-03 04:02:18 -05:00 · 1756e94824
parent 0f9a707c55
commit 1756e94824
1 changed files with 3 additions and 1 deletions
--- a/basis/ui/gadgets/worlds/worlds.factor
+++ b/basis/ui/gadgets/worlds/worlds.factor
@ -16,7 +16,9 @@ window-loc ;
 : find-world ( gadget -- world/f ) [ world? ] find-parent ;

 : show-status ( string/f gadget -- )
-    find-world dup [ status>> set-model ] [ 2drop ] if ;
+    find-world dup [
+        status>> dup [ set-model ] [ 2drop ] if
+    ] [ 2drop ] if ;

 : hide-status ( gadget -- ) f swap show-status ;