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

Fix ui.commands unit test on non-Mac platfrms

db4
Slava Pestov 2009-03-08 01:52:05 -06:00
parent cc9e81f27c
commit 43dd93d1fa
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/ui/gestures/gestures.factor
View File

@ -306,12 +306,18 @@ M: macosx modifiers>string
M: object modifiers>string M: object modifiers>string
[ name>> ] map "" join ; [ name>> ] map "" join ;
HOOK: keysym>string os ( keysym -- string )
M: macosx keysym>string >upper ;
M: object keysym>string ;
M: key-down gesture>string M: key-down gesture>string
[ mods>> ] [ sym>> ] bi [ mods>> ] [ sym>> ] bi
{ {
{ [ dup { [ length 1 = ] [ first LETTER? ] } 1&& ] [ [ S+ prefix ] dip ] } { [ dup { [ length 1 = ] [ first LETTER? ] } 1&& ] [ [ S+ prefix ] dip ] }
{ [ dup " " = ] [ drop "SPACE" ] } { [ dup " " = ] [ drop "SPACE" ] }
[ >upper ] [ keysym>string ]
} cond } cond
[ modifiers>string ] dip append ; [ modifiers>string ] dip append ;