hashirama/metabrush
1
0
Fork 0
mirror of https://gitlab.com/sheaf/metabrush.git synced 2024-11-05 06:43:37 +00:00
Code Issues Actions Projects Releases Wiki Activity

add header to warning dialog

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

6
assets/theme.css
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;
}

10
src/app/MetaBrush/Application/Action.hs
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
@ -453,8 +457,8 @@ instance HandleAction Close where
GTK.buttonSetLabel cancelButton "Cancel"
GTK.boxAppend buttonBox cancelButton
widgetAddClasses dialogWindow ["metabrush", "bg", "plain", "text", "dialog"]
for_ [closeButton, saveCloseButton, cancelButton] \ button ->
widgetAddClasses dialogWindow [ "metabrush", "bg", "plain", "text", "dialog" ]
for_ [ closeButton, saveCloseButton, cancelButton ] \ button ->
widgetAddClass button "dialogButton"
void $ GTK.onButtonClicked closeButton $ do