Port concurrent-widgets.factor to 0.83

darcs
wayo.cavazos 2006-06-15 22:41:05 +00:00
parent a848718c86
commit 5e0161b15e
1 changed files with 2 additions and 2 deletions

View File

@ -1,5 +1,5 @@
USING: io namespaces kernel hashtables math generic threads concurrency
lists sequences arrays x11 x ;
sequences arrays x11 x ;
IN: concurrent-widgets
@ -215,7 +215,7 @@ TUPLE: menu item-width item-height space ;
refresh-menu ;
: modify-action-to-unmap ( action menu -- action )
[ unmap-window% ] cons append ;
[ unmap-window% ] curry append ;
: add-popup-menu-item ( text action menu -- )
tuck modify-action-to-unmap