diff options
| author | Tomas Bzatek <tbzatek@tbzatek.englab.brq.redhat.com> | 2008-09-02 17:06:27 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@tbzatek.englab.brq.redhat.com> | 2008-09-02 17:06:27 +0200 |
| commit | 7a2696850bf538fff83cc4e208287f96168a7e3c (patch) | |
| tree | d50bacf1a8d09d1b1c9598de8d8074574da65f16 /libgtk_kylix/GTKForms.pas | |
| parent | 14c2d4bbee1f217402af5b7830562d899e234216 (diff) | |
| download | tuxcmd-7a2696850bf538fff83cc4e208287f96168a7e3c.tar.xz | |
Block UI when opening remote locationv0.6.47
Diffstat (limited to 'libgtk_kylix/GTKForms.pas')
| -rw-r--r-- | libgtk_kylix/GTKForms.pas | 6 |
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; |