steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/x11/concurrent-widgets.factor
View File

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