paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 02:57:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: make prompt dialogs really modal.

Browse Source
This commit is contained in:
zeljan1 2025-03-25 14:13:52 +01:00
parent 394a1bd2d0
commit 6f6c363f07
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk3/gtk3boxes.pas
View File

@ -62,7 +62,7 @@ type
implementation implementation
uses gtk3int;
// fake GTK button responses // fake GTK button responses
const const
GTK_RESPONSE_LCL_ALL = TGtkResponseType(-15); GTK_RESPONSE_LCL_ALL = TGtkResponseType(-15);
@ -422,7 +422,8 @@ begin
idDialogConfirm : Title := rsMtConfirmation; idDialogConfirm : Title := rsMtConfirmation;
end; end;
end; end;
if Assigned(Gtk3WidgetSet.Gtk3Application) then
gtk_window_set_transient_for(PGtkWindow(Dialog), Gtk3WidgetSet.Gtk3Application^.get_active_window);
gtk_window_set_title(PGtkWindow(Dialog), PGChar(Title)); gtk_window_set_title(PGtkWindow(Dialog), PGChar(Title));
gtk_dialog_run(Dialog); gtk_dialog_run(Dialog);
end; end;