ui :: Widget
ui =
    hBox borderDemos
    <=> B.hBorder
    <=> colorDemo
    <=> B.hBorderWithLabel "horizontal border label"
    <=> (C.center "Left of vertical border"
         <+> B.vBorder
         <+> C.center "Right of vertical border")
ui :: Widget
ui =
    hBox borderDemos
    <=> B.hBorder
    <=> colorDemo
    <=> B.hBorderWithLabel "horizontal border label"
    <=> (C.center "Left of vertical border"
         <+> B.vBorder
         <+> C.center "Right of vertical border")
ui =
    hBox borderDemos
    <=> B.hBorder
    <=> colorDemo
    <=> B.hBorderWithLabel "horizontal border label"
    <=> (C.center "Left of vertical border"
         <+> B.vBorder
         <+> C.center "Right of vertical border")