data Gauge
tickGroup :: [(Picture,a)]
-> Component (Gauge [(a,Int)], DisplayHandle)
constrainedTickGroup :: ( (a,Int) -> Bool -> [(a,Int)] -> Bool)
-> [(Picture,a)]
-> Component (Gauge [(a,Int)], DisplayHandle)