+/* $Id$
+
+This file is part of libmspgltk
+Copyright © 2007 Mikko Rasa, Mikkosoft Productions
+Distributed under the LGPL
+*/
+
+#include <msp/gl/matrix.h>
+#include <msp/gl/transform.h>
+#include "graphic.h"
+#include "part.h"
+#include "style.h"
+#include "vslider.h"
+
+namespace Msp {
+namespace GLtk {
+
+VSlider::VSlider(const Resources &r):
+ Slider(r),
+ dragging(false)
+{
+ update_style();
+}
+
+void VSlider::button_press(int x, int y, unsigned btn)
+{
+ if(geom.is_inside(x, y))
+ {
+ int sh=get_slider_height();
+ int sy=geom.y+static_cast<int>((geom.h-sh)*(value-min)/(max-min));
+ if(btn==1 && y>=sy && y<sy+sh)
+ {
+ dragging=true;
+ state=ACTIVE;
+ drag_start_y=y;
+ drag_start_value=value;
+ }
+ }
+}
+
+void VSlider::button_release(int, int, unsigned btn)
+{
+ if(btn==1)
+ {
+ dragging=false;
+ state=NORMAL;
+ }
+}
+
+void VSlider::pointer_motion(int, int y)
+{
+ if(dragging)
+ {
+ set_value(drag_start_value+(y-drag_start_y)*(max-min)/(geom.h-get_slider_height()));
+ }
+}
+
+void VSlider::render_special(const Part &part) const
+{
+ if(part.get_name()=="slider")
+ {
+ Alignment align=part.get_alignment();
+ align.y=(value-min)/(max-min);
+
+ Geometry pgeom=part.get_geometry();
+ align.apply(pgeom, geom, part.get_margin());
+
+ GL::push_matrix();
+ GL::translate(pgeom.x, pgeom.y, 0);
+ part.get_graphic(state)->render(pgeom.w, pgeom.h);
+ GL::pop_matrix();
+ }
+}
+
+unsigned VSlider::get_slider_height() const
+{
+ for(PartSeq::const_iterator i=style->get_parts().begin(); i!=style->get_parts().end(); ++i)
+ if(i->get_name()=="slider")
+ return i->get_geometry().h;
+
+ return 0;
+}
+
+} // namespace GLtk
+} // namespace Msp
+