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

gesture>string: S+C+z not S+C+Z

db4
Slava Pestov 2009-05-01 07:36:31 -05:00
parent a1d28c8243
commit cc5655a557
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -310,16 +310,16 @@ HOOK: keysym>string os ( keysym -- string )
M: macosx keysym>string >upper ; M: macosx keysym>string >upper ;
M: object keysym>string ; M: object keysym>string dup length 1 = [ >lower ] when ;
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" ] }
[ keysym>string ] [ ]
} cond } cond
[ modifiers>string ] dip append ; [ modifiers>string ] [ keysym>string ] bi* append ;
M: button-up gesture>string M: button-up gesture>string
[ [