Remove debug messages

slava 2006-10-07 06:25:29 +00:00
parent f044b47e96
commit 93c3dcf19b
2 changed files with 4 additions and 2 deletions

View File

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

View File

@ -51,8 +51,8 @@ M: presentation ungraft* ( presentation -- )
presentation H{ presentation H{
{ T{ button-up } [ [ invoke-presentation ] if-clicked ] } { T{ button-up } [ [ invoke-presentation ] if-clicked ] }
{ T{ button-down f f 3 } [ [ operations-menu ] 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-leave } [ dup hide-mouse-help button-update ] }
{ T{ mouse-enter } [ global [ dup short. flush ] bind dup show-mouse-help button-update ] } { T{ mouse-enter } [ dup show-mouse-help button-update ] }
} set-gestures } set-gestures
! Presentation help bar ! Presentation help bar