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

fixed transient windows

Browse Source 
git-svn-id: trunk@2276 -
This commit is contained in:
mattias 2002-08-17 23:41:12 +00:00
parent 626e79293c
commit a105dce7ce
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkproc.inc
View File

@ -1023,8 +1023,9 @@ var
AFilterEntry: PFileSelFilterEntry;
i: integer;
begin
if (ADialog=nil) or (ADialog.Handle=0) then exit;
if (ADialog=nil) or (not ADialog.HandleAllocated) then exit;
DlgWindow:=PGtkWidget(ADialog.Handle);
gtk_window_set_transient_for(PGtkWindow(DlgWindow),nil);
if ADialog is TOpenDialog then begin
// free history
@ -3992,6 +3993,9 @@ end;
{ =============================================================================
$Log$
Revision 1.162 2003/03/15 09:42:50 mattias
fixed transient windows
Revision 1.161 2003/03/09 21:13:32 mattias
localized gtk interface