/*******************************************************************************/
/* Copyright (C) 2009 Jonathan Moore Liles                                     */
/*                                                                             */
/* This program is free software; you can redistribute it and/or modify it     */
/* under the terms of the GNU General Public License as published by the       */
/* Free Software Foundation; either version 2 of the License, or (at your      */
/* option) any later version.                                                  */
/*                                                                             */
/* This program is distributed in the hope that it will be useful, but WITHOUT */
/* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or       */
/* FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for   */
/* more details.                                                               */
/*                                                                             */
/* You should have received a copy of the GNU General Public License along     */
/* with This program; see the file COPYING.  If not,write to the Free Software */
/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
/*******************************************************************************/

/* just like an Fl_Value_Slider, except that it responds to mousewheel events */

#pragma once

#include <FL/Fl_Value_Slider.H>
#include <FL/Fl.H>
#include <math.h>

class Fl_Value_SliderX : public Fl_Value_Slider
{

public:

    Fl_Value_SliderX ( int X, int Y, int W, int H, const char *L = 0 )
        : Fl_Value_Slider( X, Y, W, H, L )
        {
        }

    virtual ~Fl_Value_SliderX() { }

    virtual int handle ( int m )
        {

            /* Fl_Value_Slider and friends should really handle mousewheel, but they don't in FTLK1 */


            switch ( m )
            {
                case FL_MOUSEWHEEL:
                {
                    if ( this != Fl::belowmouse() )
                        return 0;

                    int steps = 16;

                    if ( Fl::event_ctrl() )
                        steps = 128;

                    float step = fabs( maximum() - minimum() ) / (float)steps;

                    float d = ((float)Fl::event_dy()) * step;

                    double v = value() + d;

                    if ( maximum() > minimum() )
                    {
                        if ( v < minimum() )
                            v = minimum();
                        else if ( v > maximum() )
                            v = maximum();
                    }
                    else
                    {
                        if ( v > minimum() )
                            v = minimum();
                        else if ( v < maximum() )
                            v = maximum();
                    }

                    value( v );
                    do_callback();

                    return 1;
                }
            }

            return Fl_Value_Slider::handle( m );
        }
};