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

------------------------------------------------------------------------------
Benefiting from Server Virtualization: Beyond Initial Workload 
Consolidation -- Increasing the use of server virtualization is a top
priority.Virtualization can reduce costs, simplify management, and improve 
application availability and disaster protection. Learn more about boosting 
the value of server virtualization. http://p.sf.net/sfu/vmware-sfdev2dev
_______________________________________________
wxhaskell-devel mailing list
wxhaskell-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/wxhaskell-devel

Reply via email to