From 7a2696850bf538fff83cc4e208287f96168a7e3c Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 2 Sep 2008 17:06:27 +0200 Subject: Block UI when opening remote location --- libgtk_kylix/GTKForms.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'libgtk_kylix/GTKForms.pas') 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; -- cgit v1.2.3