windows.dragdrop-listener: replace construct-boa with boa

modern-harvey2
Alexander Iljin 2017-08-12 16:36:06 +03:00
parent d6c7a7437f
commit 111d73a901
1 changed files with 1 additions and 1 deletions

View File

@ -33,7 +33,7 @@ IN: windows.dragdrop-listener
TUPLE: listener-dragdrop hWnd last-drop-effect ;
: <listener-dragdrop> ( hWnd -- object )
DROPEFFECT_NONE listener-dragdrop construct-boa ;
DROPEFFECT_NONE listener-dragdrop boa ;
SYMBOL: +listener-dragdrop-wrapper+
{