-
Notifications
You must be signed in to change notification settings - Fork 0
/
Fl_Counter.bi
82 lines (63 loc) · 1.79 KB
/
Fl_Counter.bi
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
#include once "Fl_Valuator.bi"
extern "c++"
type Fl_Counter extends Fl_Valuator
private:
textfont_ as Fl_Font
textsize_ as Fl_Fontsize
textcolor_ as Fl_Color
lstep_ as double
mouseobj as unsigned byte
declare static sub repeat_callback(as any ptr)
declare function calc_mouseobj() as long
declare sub increment_cb()
protected:
declare constructor (byref b as const Fl_Counter)
declare operator let (byref b as const Fl_Counter)
declare sub draw()
public:
declare function handle(as long) as long
declare constructor(X as long, Y as long, W as long, H as long, L as const zstring ptr=0)
declare destructor
declare sub lstep(a as double)
declare sub step_(a as double, b as double)
declare sub step_(a as double)
declare const function step_() as double
declare const function textfont() as Fl_Font
declare sub textfont(f as Fl_Font)
declare const function textsize() as Fl_Fontsize
declare sub textsize(s as Fl_Fontsize)
declare const function textcolor() as Fl_Color
declare sub textcolor(c as Fl_Color)
end type
end extern
private sub Fl_Counter.lstep(a as double)
lstep_ = a
end sub
private sub Fl_Counter.step_(a as double, b as double)
base.step_(a)
lstep_ = b
end sub
private sub Fl_Counter.step_(a as double)
base.step_(a)
end sub
private function Fl_Counter.step_() as double
return base.step_()
end function
private function Fl_Counter.textfont() as Fl_Font
return textfont_
end function
private sub Fl_Counter.textfont(f as Fl_Font)
textfont_ = f
end sub
private function Fl_Counter.textsize() as Fl_Fontsize
return textsize_
end function
private sub Fl_Counter.textsize(s as Fl_Fontsize)
textsize_ = s
end sub
private function Fl_Counter.textcolor() as Fl_Color
return textcolor_
end function
private sub Fl_Counter.textcolor(c as Fl_Color)
textcolor_ = c
end sub