/
Fl_Group.bi
137 lines (101 loc) · 3.47 KB
/
Fl_Group.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
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
128
129
130
131
132
133
134
135
136
137
#include once "Fl.bi"
#include once "Fl_Widget.bi"
extern "c++"
type Fl_Group_ as Fl_Group
type Fl_Group extends Fl_Widget
private:
array_ as Fl_Widget ptr ptr
savedfocus_ as Fl_Widget ptr
resizable_ as Fl_Widget ptr
children_ as long
sizes_ as long ptr ' remembered initial sizes of children
declare function navigation(i as long) as long
static current_ as Fl_Group_ ptr
protected:
declare virtual sub draw()
declare const sub draw_child(byref widget as Fl_Widget)
declare sub draw_children()
declare const sub draw_outside_label(byref widget as const Fl_Widget)
declare const sub update_child(byref widget as Fl_Widget)
declare function sizes() as long ptr
public:
declare constructor (byref w as const Fl_Group)
declare operator let (byref w as const Fl_Group)
declare constructor(x as long, y as long, w as long, h as long, title as const zstring ptr=0)
declare virtual destructor()
declare virtual function handle(i as long) as long
declare sub begin()
declare sub end_ alias "end"()
declare static function current() as Fl_Group_ ptr
declare static sub current(g as Fl_Group_ ptr)
declare const function children() as long
declare const function child(n as long) as Fl_Widget ptr
declare const function find(as const Fl_Widget ptr) as long
declare const function find(byref f as const Fl_Widget) as long
declare const function array() as Fl_Widget ptr const ptr
declare virtual sub resize(x as long, y as long, x1 as long, y1 as long)
declare sub add(byref w as Fl_Widget)
declare sub add(w as Fl_Widget ptr)
declare sub insert(byref w as Fl_Widget, i as long)
declare sub insert(byref w as Fl_Widget, before as Fl_Widget ptr)
declare sub remove(index as long)
declare sub remove(byref w as Fl_Widget)
declare sub remove(w as Fl_Widget ptr)
declare sub clear()
declare sub resizable(byref o as Fl_Widget)
declare sub resizable(o as Fl_Widget ptr)
declare function resizable() as Fl_Widget ptr
declare sub add_resizable(byref o as Fl_Widget)
declare sub init_sizes()
declare sub clip_children(c as long)
declare function clip_children() as long
declare sub forms_end()
declare virtual function as_group() as Fl_Group_ ptr
end type
type Fl_End extends object
declare constructor ()
end type
end extern
private const function Fl_Group.children() as long
return this.children_
end function
private const function Fl_Group.child(n as long) as Fl_Widget ptr
return this.array()[n]
end function
private const function Fl_Group.find(byref o as const Fl_Widget) as long
return find(@o)
end function
private sub Fl_Group.add(w as Fl_Widget ptr)
this.add(*w)
end sub
private sub Fl_Group.insert(byref w as Fl_Widget, before as Fl_Widget ptr)
this.insert(w, this.find(before))
end sub
private sub Fl_Group.remove(w as Fl_Widget ptr)
this.remove(*w)
end sub
private sub Fl_Group.resizable(byref o as Fl_Widget)
this.resizable_=@o
end sub
private sub Fl_Group.resizable(o as Fl_Widget ptr)
this.resizable_=o
end sub
private function Fl_Group.resizable() as Fl_Widget ptr
return this.resizable_
end function
private sub Fl_Group.add_resizable(byref o as Fl_Widget)
this.resizable_=@o
this.add(o)
end sub
private sub Fl_Group.clip_children(c as long)
if c then this.flags_ or=2048 else this.flags_ and= not 2048
end sub
private function Fl_Group.clip_children() as long
return (this.flags_ and 2048) <>0
end function
private function Fl_Group.as_group() as Fl_Group_ ptr
return @this
end function
private constructor Fl_End
Fl_Group.current()->end_()
end constructor