paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 21:56:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented transient windows for all cases

Browse Source 
git-svn-id: trunk@2574 -
This commit is contained in:
mattias 2002-08-17 23:41:29 +00:00
parent d137b270a6
commit ce8c04d10f
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkdef.pp
View File

@ -221,7 +221,6 @@ const
'TIMESTAMP', 'USER' 'TIMESTAMP', 'USER'
); );
function NewPGDIObject: PGDIObject; function NewPGDIObject: PGDIObject;
procedure DisposePGDIObject(GDIObject: PGdiObject); procedure DisposePGDIObject(GDIObject: PGdiObject);
@ -436,6 +435,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.33 2003/01/27 13:49:16 mattias
reduced speedbutton invalidates, added TCanvas.Frame reduced speedbutton invalidates, added TCanvas.Frame

7
lcl/interfaces/gtk/gtkglobals.pp
View File

@ -275,7 +275,14 @@ type
Realized: boolean; Realized: boolean;
end; end;
// modal windows
var
ModalWindows: TList; // list of PGtkWindow
implementation implementation
initialization
ModalWindows:=nil;
end. end.