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

git-svn-id: branches/fixes_1_8@56198 -

lcl/interfaces/gtk2/gtk2callback.inc

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