X-Git-Url: http://git.tdb.fi/?a=blobdiff_plain;ds=sidebyside;f=source%2Fslider.cpp;h=7a0029e05b79e430839bf560d5ff1fe7757c33ba;hb=26364157167e38a93d93c7912769d4362c52d387;hp=52a4b4d3b97ccf11d4209b767619018aec3d8674;hpb=c2635c5a3dca6a6cea5562fd387beb0662b18cf0;p=libs%2Fgltk.git

diff --git a/source/slider.cpp b/source/slider.cpp
index 52a4b4d..7a0029e 100644
--- a/source/slider.cpp
+++ b/source/slider.cpp
@@ -1,35 +1,29 @@
-/* $Id$
-
-This file is part of libmspgltk
-Copyright © 2007  Mikko Rasa, Mikkosoft Productions
-Distributed under the LGPL
-*/
-
 #include "slider.h"
 
 namespace Msp {
 namespace GLtk {
 
-Slider::Slider(const Resources &r):
-	Widget(r),
+Slider::Slider():
 	min(0),
 	max(1),
 	value(0),
-	step(0.1)
+	step(0.1),
+	dragging(false),
+	drag_area_size(0)
 { }
 
 void Slider::set_value(double v)
 {
-	double old_value=value;
+	double old_value = value;
 
 	if(v<min)
-		value=min;
+		value = min;
 	else if(v>max)
-		value=max;
+		value = max;
 	else
 	{
-		unsigned steps=static_cast<unsigned>((v-min)/step+0.5);
-		value=min+steps*step;
+		unsigned steps = static_cast<unsigned>((v-min)/step+0.5);
+		value = min+steps*step;
 	}
 
 	if(value!=old_value)
@@ -38,16 +32,50 @@ void Slider::set_value(double v)
 
 void Slider::set_range(double a, double b)
 {
-	min=a;
-	max=b;
+	min = a;
+	max = b;
 	set_value(value);
 }
 
 void Slider::set_step(double s)
 {
-	step=s;
+	step = s;
 	set_value(value);
 }
 
+void Slider::start_drag(int p)
+{
+	dragging = true;
+	drag_start_pos = p;
+	drag_start_value = value;
+	state |= ACTIVE;
+}
+
+void Slider::drag(int p)
+{
+	if(max>min)
+		set_value(drag_start_value+(p-drag_start_pos)*(max-min)/drag_area_size);
+}
+
+void Slider::end_drag()
+{
+	dragging = false;
+	state &= ~ACTIVE;
+}
+
+
+Slider::Loader::Loader(Slider &s):
+	Widget::Loader(s)
+{
+	add("range", &Slider::min, &Slider::max);
+	add("step",  &Slider::step);
+	add("value", &Slider::value);
+}
+
+Slider &Slider::Loader::get_object() const
+{
+	return static_cast<Slider &>(obj);
+}
+
 } // namespace GLtk
 } // namespace Msp