mirror of
https://gitlab.com/sheaf/metabrush.git
synced 2024-11-23 15:34:06 +00:00
add header to warning dialog
This commit is contained in:
parent
23cc439ff2
commit
264e04555b
|
@ -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;
|
||||
}
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue