Block UI when opening remote locationv0.6.47

1 files changed, 3 insertions, 3 deletions

diff --git a/libgtk_kylix/GTKForms.pas b/libgtk_kylix/GTKForms.pas
index ba0e8b4..167db27 100644
--- a/libgtk_kylix/GTKForms.pas
+++ b/libgtk_kylix/GTKForms.pas
@@ -149,7 +149,7 @@ type    //  Some basic types
     procedure SetShowSeparator(Value: boolean);
     procedure SetModalResult(Value: TMessageButton);
     procedure SetDefaultButton(Value: TMessageButton);
-    procedure SetParentForm(Value: TGTKForm);
+    procedure SetParentForm(Value: TCustomGTKForm);
   public
     ClientArea: TGTKVBox;
     ActionArea: TGTKHBox;
@@ -164,7 +164,7 @@ type    //  Some basic types
     property DefaultButton: TMessageButton write SetDefaultButton;
     property Caption;
     property OnResponse: TGTKDialogResponseEvent read FOnResponse write FOnResponse;
-    property ParentForm: TGTKForm write SetParentForm;
+    property ParentForm: TCustomGTKForm write SetParentForm;
   end;
 
 (****************************************** TGTKAPPLICATION *********************************************************************)
@@ -853,7 +853,7 @@ begin
   gtk_dialog_set_response_sensitive(PGtkDialog(FWidget), ButtonID, Sensitive);
 end;
 
-procedure TGTKDialog.SetParentForm(Value: TGTKForm);
+procedure TGTKDialog.SetParentForm(Value: TCustomGTKForm);
 begin
   if Value <> nil then gtk_window_set_transient_for(PGtkWindow(FWidget), PGtkWindow(Value.FWidget));
 end;