diff --git a/funcext/tvclib/ugtkinterface.tsf b/funcext/tvclib/ugtkinterface.tsf index b60f4c4..957d974 100644 --- a/funcext/tvclib/ugtkinterface.tsf +++ b/funcext/tvclib/ugtkinterface.tsf @@ -8060,18 +8060,18 @@ type tgtk_ctl_scroll_window = class(tgtk_ctl_object) end return inherited; end - procedure do_drop(w:pointer;ctx:pointer;x:integer;y:integer;tm:integer);cdecl; + procedure do_drop(w:pointer;ctx:pointer;x:integer;y:integer;tm:integer;ud:pointer);cdecl; begin return true; end - procedure do_received(w:pointer;ctx:pointer;x:integer;y:integer;d:pointer;info:integer;tm:integer);cdecl; + procedure do_received(w:pointer;ctx:pointer;x:integer;y:integer;d:pointer;info:integer;tm:integer;ud:pointer);cdecl; begin global g_drage_file_file_names; g_drage_file_file_names := _wapi.gtk_selection_data_get_uris(d); _wapi.gtk_drag_finish(ctx,true,true,tm); AddMessageToGtkMessageQueue(w,_const.WM_DROPFILES,d,tm); end - function do_motion(w:pointer;c:pointer;x:integer;y:integer;tm:integer;d:pointer):bool;cdecl; + function do_motion(w:pointer;c:pointer;x:integer;y:integer;tm:integer;d:pointer):integer;cdecl; begin _wapi.gdk_drag_status(c,GDK_ACTION_COPY,tm); return true;