From ac761c9890e7e5e162c0a7c6c722470dad1aa02f Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:41:16 +0000 Subject: [PATCH] improved but not fixed transient windows git-svn-id: trunk@2328 - --- lcl/interfaces/gtk/gtkproc.pp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lcl/interfaces/gtk/gtkproc.pp b/lcl/interfaces/gtk/gtkproc.pp index 55564f1ac0..845d067854 100644 --- a/lcl/interfaces/gtk/gtkproc.pp +++ b/lcl/interfaces/gtk/gtkproc.pp @@ -204,10 +204,8 @@ function gtkLVEndSelection(AList: PGTKCList; AData: gPointer): GBoolean; cdecl; function gtkComboBoxShowCB(widget: PGtkWidget; data: gPointer): GBoolean; cdecl; function gtkComboBoxHideCB(widget: PGtkWidget; data: gPointer): GBoolean; cdecl; -(* moved from TGTKObject.CreateComponent *) procedure Set_RC_Name(Sender : TObject; AWidget: PGtkWidget); -(* GTKProc.inc headers *) procedure RaiseException(const Msg: string); function CreatePChar(const s: string): PChar; function ComparePChar(P1, P2: PChar): boolean; @@ -278,6 +276,7 @@ function TranslateGdkPointToClientArea(SourceWindow: PGdkWindow; procedure ReleaseMouseCapture(OnlyIfCapturedByLCL: boolean); procedure UpdateMouseCaptureControl; procedure SetCursor(AWinControl : TWinControl; Data: Pointer); +function GtkWindowIsModal(GtkWindow: PGtkWindow): boolean; type TConnectSignalFlag = (