Fix stack underflow with menus
parent
16860a8ef1
commit
6fd71edd85
|
@ -15,7 +15,6 @@
|
||||||
- growable data heap
|
- growable data heap
|
||||||
- more compact relocation info
|
- more compact relocation info
|
||||||
- update module system docs
|
- update module system docs
|
||||||
- cocoa: close item disabled
|
|
||||||
|
|
||||||
+ ui:
|
+ ui:
|
||||||
|
|
||||||
|
|
|
@ -166,8 +166,7 @@ SYMBOL: double-click-timeout
|
||||||
] if
|
] if
|
||||||
] bind ;
|
] bind ;
|
||||||
|
|
||||||
: update-clicked ( button -- )
|
: update-clicked ( -- )
|
||||||
hand-last-button set-global
|
|
||||||
hand-gadget get-global hand-clicked set-global
|
hand-gadget get-global hand-clicked set-global
|
||||||
hand-loc get-global hand-click-loc set-global
|
hand-loc get-global hand-click-loc set-global
|
||||||
millis hand-last-time set-global ;
|
millis hand-last-time set-global ;
|
||||||
|
@ -188,7 +187,8 @@ SYMBOL: double-click-timeout
|
||||||
move-hand
|
move-hand
|
||||||
dup button-down-#
|
dup button-down-#
|
||||||
dup update-click#
|
dup update-click#
|
||||||
dup update-clicked
|
dup hand-last-button set-global
|
||||||
|
update-clicked
|
||||||
hand-buttons get-global push
|
hand-buttons get-global push
|
||||||
button-gesture ;
|
button-gesture ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue