windows.dragdrop-listener: Fix compilation bug.
parent
6c965dbe21
commit
cfed04a373
|
@ -47,9 +47,11 @@ TUPLE: listener-dragdrop hWnd last-drop-effect ;
|
||||||
: <listener-dragdrop> ( hWnd -- object )
|
: <listener-dragdrop> ( hWnd -- object )
|
||||||
DROPEFFECT_NONE listener-dragdrop boa ;
|
DROPEFFECT_NONE listener-dragdrop boa ;
|
||||||
|
|
||||||
|
<<
|
||||||
|
|
||||||
SYMBOL: +listener-dragdrop-wrapper+
|
SYMBOL: +listener-dragdrop-wrapper+
|
||||||
|
|
||||||
<<
|
>>
|
||||||
|
|
||||||
{
|
{
|
||||||
{ IDropTarget {
|
{ IDropTarget {
|
||||||
|
@ -81,8 +83,6 @@ SYMBOL: +listener-dragdrop-wrapper+
|
||||||
} }
|
} }
|
||||||
} <com-wrapper> +listener-dragdrop-wrapper+ set-global
|
} <com-wrapper> +listener-dragdrop-wrapper+ set-global
|
||||||
|
|
||||||
>>
|
|
||||||
|
|
||||||
: dragdrop-listener-window ( -- )
|
: dragdrop-listener-window ( -- )
|
||||||
world get handle>> hWnd>> dup <listener-dragdrop>
|
world get handle>> hWnd>> dup <listener-dragdrop>
|
||||||
+listener-dragdrop-wrapper+ get-global com-wrap
|
+listener-dragdrop-wrapper+ get-global com-wrap
|
||||||
|
|
Loading…
Reference in New Issue