fix styling on dialog windows

This commit is contained in:
sheaf 2021-04-25 15:22:10 +02:00
parent c3bcce58a7
commit 2ee0cbbfc0
2 changed files with 11 additions and 15 deletions

View file

@ -225,6 +225,7 @@ tooltip {
border-radius: 6px;
}
/* dialog button */
.dialogButton {
background-color: rgb(72,70,61);
border: 1px solid black;
@ -278,7 +279,10 @@ tooltip {
}
/* Submenus without separators */
.menu item > popover > contents > stack > box > box > modelbutton {
.menu item > popover > contents > stack > box > box > modelbutton,
/* Submenus with separators */
.menu item > popover > contents > stack > box > box > box > box > modelbutton
{
background-color: rgb(41, 40, 40);
color: rgb(72,70,61);
border-top: 0px;
@ -286,14 +290,6 @@ tooltip {
padding: 2px 10px 6px 10px;
}
/* Submenus with separators */
.menu item > popover > contents > stack > box > box > box > box > modelbutton {
background-color: rgb(41, 40, 40);
color: rgb(72,70,61);
border-top: 0px;
border-left: 2px solid rgb(41, 40, 40);
padding: 2px 10px 6px 10px;
}
.menu item > popover > contents > stack > box > box > box > separator,
.menu item > popover > contents > stack > box > box > box > separator :hover {
@ -302,7 +298,6 @@ tooltip {
}
.accelLabel {
padding: 2px 8px 2px 0px;
}

View file

@ -243,8 +243,8 @@ warningDialog window filePath errMess = do
GTK.setWindowDecorated dialog False
GTK.windowSetTransientFor dialog ( Just window )
GTK.windowSetModal dialog True
widgetAddClasses dialog [ "bg", "plain", "text", "dialog" ]
closeButton <- GTK.dialogAddButton dialog "OK" 1
widgetAddClasses dialog [ "metabrush", "bg", "plain", "text", "dialog" ]
closeButton <- GTK.dialogAddButton dialog "OK" 1
widgetAddClass closeButton "dialogButton"
GTK.widgetShow dialog
void $ GTK.afterDialogResponse dialog \ _ -> do
@ -396,12 +396,13 @@ instance HandleAction Close where
GTK.setWindowDecorated dialog False
GTK.windowSetTransientFor dialog ( Just window )
GTK.windowSetModal dialog True
widgetAddClasses dialog [ "bg", "plain", "text", "dialog" ]
widgetAddClasses dialog [ "metabrush", "bg", "plain", "text", "dialog" ]
closeButton <- GTK.dialogAddButton dialog "Close" JustClose
saveButton <- GTK.dialogAddButton dialog "Save and close" SaveAndClose
cancelButton <- GTK.dialogAddButton dialog "Cancel" CancelClose
GTK.dialogSetDefaultResponse dialog 1
for_ [ closeButton, saveButton, cancelButton ] \ button -> widgetAddClass button "dialogButton"
GTK.dialogSetDefaultResponse dialog JustClose
for_ [ closeButton, saveButton, cancelButton ]
( `widgetAddClass` "dialogButton" )
GTK.widgetShow dialog
void $ GTK.onDialogResponse dialog \ choice -> do
case choice of