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

clean-window-table word in concurrent-widgets

darcs
wayo.cavazos 2006-02-23 23:25:23 +00:00
parent 61d96bcad8
commit 5be4477fab
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,6 +28,11 @@ SYMBOL: window-table
: add-to-window-table ( <window> -- )
dup window-id window-table get set-hash ;
: clean-window-table ( -- )
window-table get
[ drop dup valid-window?+ [ drop ] [ window-table get remove-hash ] if ]
hash-each ;
! The window-table is keyed on window ids. If support is added for
! multiple displays, then perhaps there should be a window table for
! each open display.