slava 2006-03-23 21:02:14 +00:00
parent 6addf44ad0
commit 98d3c78525
1 changed files with 2 additions and 1 deletions

View File

@ -23,7 +23,8 @@ M: world button-up-event ( event world -- )
drop XButtonEvent-button send-button-up ;
M: world wheel-event ( event world -- )
drop XButtonEvent-button H{ { 4 -1 } { 5 1 } } send-wheel ;
drop XButtonEvent-button
H{ { 4 -1 } { 5 1 } } hash send-wheel ;
M: world motion-event ( event world -- )
>r dup XMotionEvent-x swap XMotionEvent-y 0 3array r>