Remove debug messages

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index acb61aaba2771a8419ea90b440941705f2e80e8d..c29dfcbf54f492f6b9c37a7dccf53464758c0cb5 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -4,6 +4,7 @@
 - maybe simplify list into displaying list a sequence of strings
 - nested presentation mouse over is not right
 - ui quick start doc
+- document the UI workspace entirely!
 - x11: scroll up/down wiggles caret
 - slider needs to be modelized
 - some way of intercepting all gestures
@@ -12,6 +13,7 @@
 - help search looks funny
 - menus should not require mouse to be held
 - tab completion: add a USE: if necessary
+- reloading buttons.factor fails
 
 + ui:
 

diff --git a/library/ui/gadgets/presentations.factor b/library/ui/gadgets/presentations.factor
index 9c173db248b76546b156634a7463ad5b7674b9ba..1a2a7d82f5b54ebc5325ee01ec74047d5b317805 100644 (file)
--- a/library/ui/gadgets/presentations.factor
+++ b/library/ui/gadgets/presentations.factor
@@ -51,8 +51,8 @@ M: presentation ungraft* ( presentation -- )
 presentation H{
     { T{ button-up } [ [ invoke-presentation ] if-clicked ] }
     { T{ button-down f f 3 } [ [ operations-menu ] if-clicked ] }
-    { T{ mouse-leave } [ global [ dup short. flush ] bind  dup hide-mouse-help button-update ] }
-    { T{ mouse-enter } [ global [ dup short. flush ] bind  dup show-mouse-help button-update ] }
+    { T{ mouse-leave } [ dup hide-mouse-help button-update ] }
+    { T{ mouse-enter } [ dup show-mouse-help button-update ] }
 } set-gestures
 
 ! Presentation help bar