Add a remove-wm-handler word to windows ui backend

2010-06-10 16:06:38 -05:00 · 2010-06-10 16:06:38 -05:00 · 2e867e49a5
parent 4997489980
commit 2e867e49a5
1 changed files with 3 additions and 0 deletions
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@ -569,6 +569,9 @@ H{ } clone wm-handlers set-global
    [ [ execute( -- wm ) add-wm-handler ] with each ]
    [ wm-handlers get-global set-at ] if ;

+: remove-wm-handler ( wm -- )
+    wm-handlers get-global delete-at ;
+
 [ handle-wm-close 0                  ] WM_CLOSE add-wm-handler
 [ 4dup handle-wm-paint DefWindowProc ] WM_PAINT add-wm-handler