diff options
Diffstat (limited to 'src/c_fl_value_slider.cpp')
-rw-r--r-- | src/c_fl_value_slider.cpp | 94 |
1 files changed, 0 insertions, 94 deletions
diff --git a/src/c_fl_value_slider.cpp b/src/c_fl_value_slider.cpp deleted file mode 100644 index b79d7f5..0000000 --- a/src/c_fl_value_slider.cpp +++ /dev/null @@ -1,94 +0,0 @@ - - -// Programmed by Jedidiah Barber -// Released into the public domain - - -#include <FL/Fl_Value_Slider.H> -#include "c_fl_value_slider.h" - - - - -// Exports from Ada - -extern "C" void widget_draw_hook(void * ud); -extern "C" int widget_handle_hook(void * ud, int e); - - - - -// Attaching all relevant hooks and friends - -class My_Value_Slider : public Fl_Value_Slider { -public: - using Fl_Value_Slider::Fl_Value_Slider; - - friend void fl_value_slider_draw(VALUESLIDER s); - friend int fl_value_slider_handle(VALUESLIDER s, int e); - - void draw(); - int handle(int e); -}; - -void My_Value_Slider::draw() { - widget_draw_hook(this->user_data()); -} - -int My_Value_Slider::handle(int e) { - return widget_handle_hook(this->user_data(), e); -} - - - - -// Flattened C API - -VALUESLIDER new_fl_value_slider(int x, int y, int w, int h, char* label) { - My_Value_Slider *s = new My_Value_Slider(x, y, w, h, label); - return s; -} - -void free_fl_value_slider(VALUESLIDER s) { - delete reinterpret_cast<My_Value_Slider*>(s); -} - - - - -unsigned int fl_value_slider_get_textcolor(VALUESLIDER s) { - return reinterpret_cast<Fl_Value_Slider*>(s)->textcolor(); -} - -void fl_value_slider_set_textcolor(VALUESLIDER s, unsigned int t) { - reinterpret_cast<Fl_Value_Slider*>(s)->textcolor(t); -} - -int fl_value_slider_get_textfont(VALUESLIDER s) { - return reinterpret_cast<Fl_Value_Slider*>(s)->textfont(); -} - -void fl_value_slider_set_textfont(VALUESLIDER s, int t) { - reinterpret_cast<Fl_Value_Slider*>(s)->textfont(t); -} - -int fl_value_slider_get_textsize(VALUESLIDER s) { - return reinterpret_cast<Fl_Value_Slider*>(s)->textsize(); -} - -void fl_value_slider_set_textsize(VALUESLIDER s, int t) { - reinterpret_cast<Fl_Value_Slider*>(s)->textsize(t); -} - - - - -void fl_value_slider_draw(VALUESLIDER s) { - reinterpret_cast<My_Value_Slider*>(s)->Fl_Value_Slider::draw(); -} - -int fl_value_slider_handle(VALUESLIDER s, int e) { - return reinterpret_cast<My_Value_Slider*>(s)->Fl_Value_Slider::handle(e); -} - - |