jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-09-11 23:57:22 +03:00
Code Issues Projects Releases Wiki Activity

Dialog demo: improve dialog appearance

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-07-09 10:22:22 -07:00
parent 12d4cf705a
commit d2bcb98fb3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
programs/DialogDemo.hs
View File

@ -7,6 +7,7 @@ import Graphics.Vty hiding (translate)
import Brick.Main
import Brick.Widgets.Core
import Brick.Widgets.Dialog
import Brick.Widgets.Center
import Brick.AttrMap
import Brick.Util
import Brick.Types
@ -17,7 +18,7 @@ data Choice = Red | Blue | Green
drawUI :: Dialog Choice -> [Widget]
drawUI d = [ui]
where
ui = renderDialog d $ str "This is the dialog body."
ui = renderDialog d $ hCenter $ padAll (Pad 1) $ str "This is the dialog body."
appEvent :: Dialog Choice -> Event -> EventM (Next (Dialog Choice))
appEvent d ev =