Fix typo
parent
6addf44ad0
commit
98d3c78525
|
@ -23,7 +23,8 @@ M: world button-up-event ( event world -- )
|
||||||
drop XButtonEvent-button send-button-up ;
|
drop XButtonEvent-button send-button-up ;
|
||||||
|
|
||||||
M: world wheel-event ( event world -- )
|
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 -- )
|
M: world motion-event ( event world -- )
|
||||||
>r dup XMotionEvent-x swap XMotionEvent-y 0 3array r>
|
>r dup XMotionEvent-x swap XMotionEvent-y 0 3array r>
|
||||||
|
|
Loading…
Reference in New Issue