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

Fix alt-click and control-click to simulate middle and right mouse button clicks

db4
Slava Pestov 2008-11-22 02:23:43 -06:00
parent 0b8cbc7d67
commit fa56d2849b
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/ui/gadgets/worlds/worlds.factor
View File

@ -117,12 +117,14 @@ PREDICATE: specific-drag < drag #>> ;
clone f >># button-gesture ;
M: world handle-gesture ( gesture gadget -- ? )
{
{ [ over specific-button-up? ] [ drop generalize-gesture t ] }
{ [ over specific-button-down? ] [ drop generalize-gesture t ] }
{ [ over specific-drag? ] [ drop generalize-gesture t ] }
[ call-next-method ]
} cond ;
2dup call-next-method [
{
{ [ over specific-button-up? ] [ drop generalize-gesture f ] }
{ [ over specific-button-down? ] [ drop generalize-gesture f ] }
{ [ over specific-drag? ] [ drop generalize-gesture f ] }
[ 2drop t ]
} cond
] [ 2drop f ] if ;
: close-global ( world global -- )
dup get-global find-world rot eq?