jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-02 01:45:50 +03:00
Code Issues Projects Releases Wiki Activity

Rename draw function

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-17 09:44:18 -07:00
parent dd5148200b
commit 3445daade9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
programs/Main.hs
View File

@ -44,11 +44,11 @@ appEvent e st =
initialState :: St
initialState =
St { _stEditor = editor (Name "edit") ""
, _stList = newList (Name "list") listDraw [0..6]
, _stList = newList (Name "list") listDrawElem [0..6]
}
listDraw :: Bool -> Int -> Prim
listDraw sel i =
listDrawElem :: Bool -> Int -> Prim
listDrawElem sel i =
let selAttr = white `on` blue
p = hCentered (Txt $ "Number " <> show i)
in if sel