Permalink
Browse files

Aplly hCentered to a map and a map title.

  • Loading branch information...
1 parent 4fe74e3 commit e16000a133c202a62a1c54d6fa31f808df8e8572 @napthats committed Aug 3, 2013
Showing with 2 additions and 4 deletions.
  1. +2 −4 PhiVty/UI.hs
View
@@ -68,12 +68,10 @@ initialPhiUI soc cdod = do
mes_plain <- plainText (T.pack "hi")
mes <- centered mes_plain
titletest <- plainText (T.pack " ")
--- title <- centered titletest
- let title = titletest
+ title <- hCentered titletest
maptext <- plainText (T.pack $ makeMapString initialMapList [((3, 3), "m")])
maptext `onKeyPressed` \_ key mod_list -> do {mapHandler soc key mod_list cdod; return True}
--- mp <- bordered maptext >>= centered
- mp <- bordered maptext
+ mp <- bordered maptext >>= hCentered
main_box <- (((return title <--> return mp) >>= centered) <++> return mes) <--> (return e)
fg <- newFocusGroup
_ <- addToFocusGroup fg e

0 comments on commit e16000a

Please sign in to comment.