I wanted to have a vertical slider with small numbers at the bottom and large numbers at the top. To this end I implemented a variant of 'vslider' that automatically inverses its direction, if the bottom value is smaller than the top value. You may like to replace the current 'vslider' implementation by this one (and the hslider accordingly).
wxSL_INVERSE :: Int wxSL_INVERSE = 0x1000 vslider :: WX.Window a -> Bool -> Int -> Int -> [WX.Prop (WX.Slider ())] -> IO (WX.Slider ()) vslider parentW showLabels top bottom props = let (minV, maxV, dirFlags) = if top<bottom then (top, bottom, 0) else (bottom, top, wxSL_INVERSE) in WX.sliderEx parentW minV maxV (WXCore.wxVERTICAL .+. dirFlags -- .+. wxSL_LEFT .+. wxSL_AUTOTICKS .+. (if showLabels then WXCore.wxSL_LABELS else 0)) props ------------------------------------------------------------------------------ WhatsUp Gold - Download Free Network Management Software The most intuitive, comprehensive, and cost-effective network management toolset available today. Delivers lowest initial acquisition cost and overall TCO of any competing solution. http://p.sf.net/sfu/whatsupgold-sd _______________________________________________ wxhaskell-users mailing list wxhaskell-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/wxhaskell-users