ui.backend.windows: explicate quotation parameters in add-wm-handler

2017-10-09 10:48:52 +03:00 · 2017-10-09 10:48:52 +03:00 · 9cdb209d01
parent d1d3a33617
commit 9cdb209d01
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@ -506,7 +506,7 @@ SYMBOL: wm-handlers

 H{ } clone wm-handlers set-global

-: add-wm-handler ( quot wm -- )
+: add-wm-handler ( quot: ( hWnd Msg wParam lParam -- LRESULT ) wm -- )
    dup array?
    [ [ execute( -- wm ) add-wm-handler ] with each ]
    [ wm-handlers get-global set-at ] if ;