From ce8c04d10f6c9dd2b1211c9f9f6e579dd7297e9c Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:41:29 +0000 Subject: [PATCH] implemented transient windows for all cases git-svn-id: trunk@2574 - --- lcl/interfaces/gtk/gtkdef.pp | 6 ++++-- lcl/interfaces/gtk/gtkglobals.pp | 7 +++++++ 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/gtk/gtkdef.pp b/lcl/interfaces/gtk/gtkdef.pp index 69548b99cb..3c14350a9a 100644 --- a/lcl/interfaces/gtk/gtkdef.pp +++ b/lcl/interfaces/gtk/gtkdef.pp @@ -213,7 +213,7 @@ type gfTIMESTAMP, gfUSER); TGtkClipboardFormats = set of TGtkClipboardFormat; - + const GtkClipboardFormatName: array[TGtkClipboardFormat] of string = ( 'CLASS', 'COMPOUND_TEXT', 'DELETE', 'FILE_NAME', 'HOST_NAME', 'LENGTH', @@ -221,7 +221,6 @@ const 'TIMESTAMP', 'USER' ); - function NewPGDIObject: PGDIObject; procedure DisposePGDIObject(GDIObject: PGdiObject); @@ -436,6 +435,9 @@ end. { ============================================================================= $Log$ + Revision 1.34 2003/03/15 18:32:38 mattias + implemented transient windows for all cases + Revision 1.33 2003/01/27 13:49:16 mattias reduced speedbutton invalidates, added TCanvas.Frame diff --git a/lcl/interfaces/gtk/gtkglobals.pp b/lcl/interfaces/gtk/gtkglobals.pp index c7c90dc569..d59914b4c0 100644 --- a/lcl/interfaces/gtk/gtkglobals.pp +++ b/lcl/interfaces/gtk/gtkglobals.pp @@ -274,8 +274,15 @@ type Signal: string; Realized: boolean; end; + + // modal windows +var + ModalWindows: TList; // list of PGtkWindow implementation +initialization + ModalWindows:=nil; + end.