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 {
|
.newFileButton, .header, .paned, .panel, .tabs, .frame {
|
||||||
all: unset;
|
all: unset;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
windowcontrols {
|
||||||
|
all: unset;
|
||||||
|
}
|
||||||
|
|
||||||
.reorderable-page {
|
.reorderable-page {
|
||||||
all: unset;
|
all: unset;
|
||||||
}
|
}
|
||||||
|
|
|
@ -426,7 +426,11 @@ instance HandleAction Close where
|
||||||
| unsavedChanges documentContent
|
| unsavedChanges documentContent
|
||||||
-> do
|
-> do
|
||||||
dialogWindow <- GTK.windowNew
|
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 )
|
GTK.windowSetTransientFor dialogWindow ( Just window )
|
||||||
|
|
||||||
contentBox <- GTK.boxNew GTK.OrientationVertical 30
|
contentBox <- GTK.boxNew GTK.OrientationVertical 30
|
||||||
|
|
Loading…
Reference in a new issue