paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 11:49:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: gtk2: fixed error handling in GtkDragDataReceived, bug #32611, patch from C Western

Browse Source 
git-svn-id: branches/fixes_1_8@56198 -
This commit is contained in:
mattias 2017-10-25 20:21:28 +00:00
parent 99aa0481e5
commit 86165e04d5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -3435,7 +3435,7 @@ begin
Result := False; Result := False;
if selection_data^.data <> nil then // data is list of uri if selection_data^.data <> nil then // data is list of uri
begin try
SetLength(Files, 0); SetLength(Files, 0);
S := TStringList.Create; S := TStringList.Create;
try try
@ -3481,6 +3481,8 @@ begin
Result := True; Result := True;
end; end;
except
Application.HandleException(nil);
end; end;
gtk_drag_finish(Context, Result, false, time); gtk_drag_finish(Context, Result, false, time);