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

git-svn-id: trunk@56193 -

components/codetools/tests/testcompreaderwriterpas.pas

@@ -21,15 +21,12 @@ Working:
 - reference foreign root, reference foreign component
 - create components before setting properties to avoid having to set references
   later
-- inline component, csInline, call SetInline
+- inline component, csInline, call SetInline, inherited inline, inline on inherited
 
 ToDo:
 - enum: add unit, avoid nameclash with-do
 - custom integer TColor, add unit, avoid nameclash with-do
 - method, avoid nameclash with-do
-- inline with ancestor
-- ancestor with inline
-- inline in inline
 - TComponent.Left/Right
 - DefineProperties
 - tkInterface

lcl/interfaces/gtk2/gtk2callback.inc

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