libscroll 0.1.0

Scrollview event handling library
Documentation 
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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

#include <caml/mlvalues.h>
#include "libtouch.h>

extern "C" {
    namespace ScrollView {
        CAMLPrim value rlscroll_create_scrollview() {
            return lscroll_create_scrollview();
        }

        CAMLPrim value rlscroll_destroy_scrollview(value handle) {
            lscroll_destroy_scrollview((lscroll_scrollview*)handle);
            return Val_unit;
        }
    }

    namespace Source {
        CAMLPrim value rlscroll_set_source_undefined(value handle) {
            lscroll_set_input_source((lscroll_scrollview*)handle, LSCROLL_SOURCE_UNDEFINED);
            return Val_unit;
        }

        CAMLPrim value rlscroll_set_source_touchscreen(value handle) {
            lscroll_set_input_source((lscroll_scrollview*)handle, LSCROLL_SOURCE_TOUCHSCREEN);
            return Val_unit;
        }

        CAMLPrim value rlscroll_set_source_touchpad(value handle) {
            lscroll_set_input_source((lscroll_scrollview*)handle, LSCROLL_SOURCE_TOUCHPAD);
            return Val_unit;
        }

        CAMLPrim value rlscroll_set_source_mousewheel(value handle) {
            lscroll_set_input_source((lscroll_scrollview*)handle, LSCROLL_SOURCE_MOUSEWHEEL);
            return Val_unit;
        }

        CAMLPrim value rlscroll_set_source_mousewheel_precise(value handle) {
            lscroll_set_input_source((lscroll_scrollview*)handle, LSCROLL_SOURCE_MOUSEWHEEL_PRECISE);
            return Val_unit;
        }

        CAMLPrim value rlscroll_set_source_passthrough(value handle) {
            lscroll_set_input_source((lscroll_scrollview*)handle, LSCROLL_SOURCE_PASSTHROUGH);
            return Val_unit;
        }

        CAMLPrim value rlscroll_set_source_passthrough_kinetic(value handle) {
            lscroll_set_input_source((lscroll_scrollview*)handle, LSCROLL_SOURCE_PASSTHROUGH_KINETIC);
            return Val_unit;
        }
    }

    namespace Events {
        CAMLPrim value rlscroll_signal_pan_x(value handle, value pan_x) {
            lscroll_add_scroll_x(
                    (lscroll_scrollview*)handle,
                    Int_val(pan_x)
            );
            return Val_unit;
        }

        CAMLPrim value rlscroll_signal_pan_y(value handle, value pan_y) {
            lscroll_add_scroll_y(
                    (lscroll_scrollview*)handle,
                    Int_val(pan_y)
            );
            return Val_unit;
        }

        CAMLPrim value rlscroll_signal_interrupt(value handle) {
            lscroll_add_scroll_interrupt((lscroll_scrollview*)handle);
            return Val_unit;
        }

        CAMLPrim value rlscroll_signal_release(value handle) {
            lscroll_add_scroll_release((lscroll_scrollview*)handle);
            return Val_unit;
        }
    }

    namespace Output {
        CAMLPrim value rlscroll_get_pan_x(value handle) {
            int64_t r = lscroll_get_pan_x((lscroll_scrollview*)handle);
            return CAMLreturn(Val_int(r));
        }

        CAMLPrim value rlscroll_get_pan_y(value handle) {
            int64_t r = lscroll_get_pan_y((lscroll_scrollview*)handle);
            return CAMLreturn(Val_int(r));
        }

        CAMLPrim value rlscroll_get_pos_x(value handle) {
            int64_t r = lscroll_get_pan_x((lscroll_scrollview*)handle);
            return CAMLreturn(Val_int(r));
        }

        CAMLPrim value rlscroll_get_pos_y(value handle) {
            int64_t r = lscroll_get_pan_y((lscroll_scrollview*)handle);
            return CAMLreturn(Val_int(r));
        }

        CAMLPrim value rlscroll_scrollview_active(value handle) {
            bool r = lscroll_query_pan_active((lscroll_scrollview*)handle);
            return CAMLreturn(Val_bool(r));
        }
    }

    namespace Manual {
        CAMLPrim value rlscroll_force_pan(value handle, value pan_x, value pan_y) {
            lscroll_force_pan(
                    (lscroll_scrollview*)handle,
                    Int_val(pan_x),
                    Int_val(pan_y)
            );
            return Val_unit;
        }

        CAMLPrim value rlscroll_force_jump(value handle, value pan_x, value pan_y) {
            lscroll_force_jump(
                    (lscroll_scrollview*)handle,
                    Int_val(pan_x),
                    Int_val(pan_y)
            );
            return Val_unit;
        }
    }
}