summaryrefslogtreecommitdiff
path: root/src/c_fl_wizard.cpp
blob: d826ca6ef24cdb6448be7c8145bbf66695f2bdf2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106


//  Programmed by Jedidiah Barber
//  Released into the public domain


#include <FL/Fl_Wizard.H>
#include "c_fl_wizard.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_Wizard : public Fl_Wizard {
public:
    using Fl_Wizard::Fl_Wizard;

    friend void fl_wizard_draw(WIZARD w);
    friend int fl_wizard_handle(WIZARD w, int e);

    void draw();
    void real_draw();
    int handle(int e);
};

void My_Wizard::draw() {
    widget_draw_hook(this->user_data());
}

void My_Wizard::real_draw() {
    // required because of Fl_Wizard::draw() being private
    // probably a bug in FLTK?
    Fl_Widget *kid = value();
    if (damage() & FL_DAMAGE_ALL) {
        if (kid) {
            draw_box(box(), x(), y(), w(), h(), kid->color());
            draw_child(*kid);
        } else {
            draw_box(box(), x(), y(), w(), h(), color());
        }
    } else if (kid) {
        update_child(*kid);
    }
}

int My_Wizard::handle(int e) {
    return widget_handle_hook(this->user_data(), e);
}




//  Flattened C API

WIZARD new_fl_wizard(int x, int y, int w, int h, char* label) {
    My_Wizard *g = new My_Wizard(x, y, w, h, label);
    return g;
}

void free_fl_wizard(WIZARD w) {
    delete reinterpret_cast<My_Wizard*>(w);
}




void fl_wizard_next(WIZARD w) {
    reinterpret_cast<Fl_Wizard*>(w)->next();
}

void fl_wizard_prev(WIZARD w) {
    reinterpret_cast<Fl_Wizard*>(w)->prev();
}




void * fl_wizard_get_visible(WIZARD w) {
    return reinterpret_cast<Fl_Wizard*>(w)->value();
}

void fl_wizard_set_visible(WIZARD w, void * i) {
    reinterpret_cast<Fl_Wizard*>(w)->value(reinterpret_cast<Fl_Widget*>(i));
}




void fl_wizard_draw(WIZARD w) {
    reinterpret_cast<My_Wizard*>(w)->real_draw();
}

int fl_wizard_handle(WIZARD w, int e) {
    return reinterpret_cast<My_Wizard*>(w)->Fl_Wizard::handle(e);
}