steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.gadgets.buttons: don't show 'Shortcut' message if there is a gesture but its not a key gesture

db4
Slava Pestov 2009-09-23 22:50:52 -05:00
parent cceae875ad
commit d662acb299
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/buttons/buttons.factor
View File

@ -233,7 +233,7 @@ PRIVATE>
'[ _ _ invoke-command ] ; '[ _ _ invoke-command ] ;
: gesture>tooltip ( gesture -- str/f ) : gesture>tooltip ( gesture -- str/f )
dup [ gesture>string "Shortcut: " prepend ] when ; gesture>string dup [ "Shortcut: " prepend ] when ;
: <command-button> ( target gesture command -- button ) : <command-button> ( target gesture command -- button )
swapd [ command-name swap ] keep command-button-quot swapd [ command-name swap ] keep command-button-quot