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

Fix string>gesture for gestures involving SPACE

db4
Slava Pestov 2009-03-05 16:33:20 -06:00
parent 4e8280be63
commit a2befabfe1
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/gestures/gestures.factor
View File

@ -309,7 +309,7 @@ M: object modifiers>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 ] [ >upper ]
} cond } cond