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

ui.gadgets.buttons: don't show message if no shortcut assigned

db4
Slava Pestov 2009-09-08 14:46:16 -05:00
parent 6d1e4947e8
commit c4c6c6b986
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -229,8 +229,8 @@ PRIVATE>
: command-button-quot ( target command -- quot ) : command-button-quot ( target command -- quot )
'[ _ _ invoke-command ] ; '[ _ _ invoke-command ] ;
: gesture>tooltip ( gesture -- str ) : gesture>tooltip ( gesture -- str/f )
[ gesture>string "Shortcut: " prepend ] [ "Shortcut Unassigned" ] if* ; dup [ gesture>string "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