[wxhaskell-devel] [ wxhaskell-Feature Requests-3286608 ] vslider with inverse direction

[SourceForge.net <no...@so...>]

Feature Requests item #3286608, was opened at 2011-04-14 14:56
Message generated for change (Tracker Item Submitted) made by amigalemming
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=536848&aid=3286608&group_id=73133

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
Status: Open
Priority: 5
Private: No
Submitted By: Amiga Lemming (amigalemming)
Assigned to: Nobody/Anonymous (nobody)
Summary: vslider with inverse direction

Initial Comment:
I propose to extend vslider (and hslider) to reverse the value direction, if minimum and maximum value are swapped.

wxSL_INVERSE :: Int
wxSL_INVERSE = 0x1000

vslider ::
   Window a -> Bool -> Int -> Int -> [Prop (Slider ())] -> IO (Slider ())
vslider parentW showLabels top bottom props =
   let (minV, maxV, dirFlags) =
          if top<bottom
            then (top, bottom, 0)
            else (bottom, top, wxSL_INVERSE)
   in  sliderEx parentW minV maxV
          (wxVERTICAL .+. dirFlags
            .+. (if showLabels then wxSL_LABELS else 0))
          props


At least, wxSL_INVERSE should be defined.


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=536848&aid=3286608&group_id=73133