slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ui: color help dialog like the borders, make it pop

Browse Source
This commit is contained in:
Simon Michael 2018-10-23 05:43:42 -07:00
parent f10f9b6a17
commit 3ef8d9fc82
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-ui/Hledger/UI/UIUtils.hs
View File

@ -54,6 +54,7 @@ helpDialog _copts =
Widget Fixed Fixed $ do Widget Fixed Fixed $ do
c <- getContext c <- getContext
render $ render $
withDefAttr borderAttr $ -- color help dialog like the borders
renderDialog (dialog (Just "Help (?/LEFT/ESC to close)") Nothing (c^.availWidthL)) $ -- (Just (0,[("ok",())])) renderDialog (dialog (Just "Help (?/LEFT/ESC to close)") Nothing (c^.availWidthL)) $ -- (Just (0,[("ok",())]))
padAll 1 $ padAll 1 $
vBox [ vBox [