Commit bf0aede1 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[DOC] tips on buttons

parent 28929fe4
......@@ -170,12 +170,10 @@ topBarCpt = R.hooksComponent "G.C.A.topBar" cpt
[ H.div { className: "container-fluid" }
[ H.div { className: "navbar-inner" }
[ logo
, H.div { className: "collapse navbar-collapse" } [
H.ul { className: "nav navbar-nav" } [
divDropdownLeft
, handedChooser { handed }
]
]
, H.div { className: "collapse navbar-collapse" }
[ H.ul { className: "nav navbar-nav" } [divDropdownLeft]
, H.ul { title: "If you are Left Handed you can change the interface by clicking on me. Click again to come back to previous state.", className: "nav navbar-nav" } [handedChooser { handed }]
]
]
]
]
......@@ -199,7 +197,7 @@ handedChooserCpt = R.hooksComponent "G.C.A.handedChooser" cpt
]
]
handedClass (GT.LeftHanded /\ _) = "fa fa-hand-o-left"
handedClass (GT.LeftHanded /\ _) = "fa fa-hand-o-left"
handedClass (GT.RightHanded /\ _) = "fa fa-hand-o-right"
onClick (_ /\ setHanded) = setHanded $ \h -> case h of
......@@ -209,11 +207,12 @@ handedChooserCpt = R.hooksComponent "G.C.A.handedChooser" cpt
logo :: R.Element
logo =
H.a { className, href: "#/" }
[ H.img { src, title, width: "30", height: "28" } ]
[ H.img { src, title, width: "30", height: "28" }
]
where
className = "navbar-brand logoSmall"
src = "images/logoSmall.png"
title = "Back to home."
src = "images/logoSmall.png"
title = "Back to home."
divDropdownLeft :: R.Element
divDropdownLeft =
......
......@@ -68,7 +68,8 @@ plus handed showLogin = H.div {className: if handed == RightHanded
then "flex-start" -- TODO we should use lefthanded SASS class here
else "flex-end"
} [
H.button { on: {click}
H.button { title: "Add or remove connections to the server(s)."
, on: {click}
, className: "btn btn-default"
}
[ H.div { "type": ""
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment