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 ...@@ -170,12 +170,10 @@ topBarCpt = R.hooksComponent "G.C.A.topBar" cpt
[ H.div { className: "container-fluid" } [ H.div { className: "container-fluid" }
[ H.div { className: "navbar-inner" } [ H.div { className: "navbar-inner" }
[ logo [ logo
, H.div { className: "collapse navbar-collapse" } [ , H.div { className: "collapse navbar-collapse" }
H.ul { className: "nav navbar-nav" } [ [ H.ul { className: "nav navbar-nav" } [divDropdownLeft]
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 }]
, handedChooser { handed } ]
]
]
] ]
] ]
] ]
...@@ -199,7 +197,7 @@ handedChooserCpt = R.hooksComponent "G.C.A.handedChooser" cpt ...@@ -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" handedClass (GT.RightHanded /\ _) = "fa fa-hand-o-right"
onClick (_ /\ setHanded) = setHanded $ \h -> case h of onClick (_ /\ setHanded) = setHanded $ \h -> case h of
...@@ -209,11 +207,12 @@ handedChooserCpt = R.hooksComponent "G.C.A.handedChooser" cpt ...@@ -209,11 +207,12 @@ handedChooserCpt = R.hooksComponent "G.C.A.handedChooser" cpt
logo :: R.Element logo :: R.Element
logo = logo =
H.a { className, href: "#/" } H.a { className, href: "#/" }
[ H.img { src, title, width: "30", height: "28" } ] [ H.img { src, title, width: "30", height: "28" }
]
where where
className = "navbar-brand logoSmall" className = "navbar-brand logoSmall"
src = "images/logoSmall.png" src = "images/logoSmall.png"
title = "Back to home." title = "Back to home."
divDropdownLeft :: R.Element divDropdownLeft :: R.Element
divDropdownLeft = divDropdownLeft =
......
...@@ -68,7 +68,8 @@ plus handed showLogin = H.div {className: if handed == RightHanded ...@@ -68,7 +68,8 @@ plus handed showLogin = H.div {className: if handed == RightHanded
then "flex-start" -- TODO we should use lefthanded SASS class here then "flex-start" -- TODO we should use lefthanded SASS class here
else "flex-end" else "flex-end"
} [ } [
H.button { on: {click} H.button { title: "Add or remove connections to the server(s)."
, on: {click}
, className: "btn btn-default" , className: "btn btn-default"
} }
[ H.div { "type": "" [ 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