Fix stack underflow with menus

slava 2006-10-21 20:13:23 +00:00
parent 16860a8ef1
commit 6fd71edd85
2 changed files with 3 additions and 4 deletions

View File

@ -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:

View File

@ -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 ;