// $Id: slider.cc 1.2 1997/07/14 04:23:37 dlorre Exp dlorre $

#include <libraries/gadtools.h>
#include <intuition/gadgetclass.h>
#include "gadgets/slider.h"
#include "gadgetlist.h"
#include <proto/gadtools.h>

// ========================================================================
// ==========================  SLIDER CLASS ===============================
// ========================================================================


slider::slider(gadgetlist *gl,
               void (window::*func)(gadget *, unsigned long, unsigned short),
               long min, long max, long level,
               long freedom,
               const char *text,
               const char *lformat,
               unsigned short mlen,
               long tplace,
               long lplace,
               long (*fdisp)(Gadget *, unsigned short)) : gadget(gl, func)
{
   gl->ng->ng_GadgetText = (UBYTE *)text ;
   underkey(text) ;
   gl->ng->ng_Flags = tplace ;
   vmin = min ;
   vmax = max ;
   gad = gl->gad = CreateGadget(SLIDER_KIND, gl->gad, gl->ng,
            GTSL_Min,           min,
            GTSL_Max,           max,
            GTSL_Level,         level,
            GTSL_LevelFormat,   lformat,
            GTSL_MaxLevelLen,   mlen,
            GTSL_LevelPlace,    lplace,
            GTSL_DispFunc,      fdisp,
            PGA_Freedom,        freedom,
            GT_Underscore,  '_',
            TAG_END) ;
}

void slider::set(long level, long min, long max)
{
    vmin = min ;
    vmax = max ;
    GT_SetGadgetAttrs(gad, w, NULL,
        (min != -1)?GTSL_Min:TAG_IGNORE, min,
        (max != -1)?GTSL_Max:TAG_IGNORE, max,
        (level != -1)?GTSL_Level:TAG_IGNORE, level,
        TAG_DONE) ;

}

void slider::action(unsigned long classe, unsigned short code)
{
    cursel = code ;
    gadget::action(classe, code) ;
}

void slider::keystroke(BOOL shifted)
{
    if (shifted) {
        if (cursel > vmin)
            cursel-- ;
    }
    else {
        if (cursel < vmax)
            cursel++ ;
    }
    gadget::action(NULL, cursel) ;
    GT_SetGadgetAttrs(gad, w, NULL, GTSL_Level, cursel, TAG_DONE) ;
}