add header to warning dialog

This commit is contained in:
sheaf 2024-09-28 00:38:32 +02:00
parent 23cc439ff2
commit 264e04555b
2 changed files with 12 additions and 4 deletions

View file

@ -5,11 +5,15 @@
}
*/
.toggle, .dialogButton, .titleBar, .windowIcon, .fileBarCloseButton,
.toggle, .dialogButton, .titlebar, .titleBar, .windowIcon, .fileBarCloseButton,
.newFileButton, .header, .paned, .panel, .tabs, .frame {
all: unset;
}
windowcontrols {
all: unset;
}
.reorderable-page {
all: unset;
}

View file

@ -426,7 +426,11 @@ instance HandleAction Close where
| unsavedChanges documentContent
-> do
dialogWindow <- GTK.windowNew
GTK.setWindowDecorated dialogWindow False
-- Show a header, but not a "X" close button.
GTK.setWindowDecorated dialogWindow True
GTK.windowSetDeletable dialogWindow False
GTK.windowSetTitle dialogWindow ( Just "Warning" )
GTK.windowSetTransientFor dialogWindow ( Just window )
contentBox <- GTK.boxNew GTK.OrientationVertical 30