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
|
package Curses::UI;
our @ISA = qw();
sub new { my ($_class, %_userargs) = @_ }
sub leave_curses { my ($_this) = @_ }
sub mainloop { my ($_this) = @_ }
sub modalfocus { my ($_this) = @_ }
sub nostatus { my ($_this) = @_ }
sub reset_curses { my ($_this) = @_ }
package Curses::UI::Widget;
our @ISA = qw();
sub draw { my ($_this, $_b_no_doupdate) = @_ }
sub focus { my ($_this) = @_ }
sub focusable { my ($_this, $_b_focusable) = @_ }
sub intellidraw { my ($_this) = @_ }
sub set_binding { my ($_this, $_routine, $_key, @_other_keys) = @_ }
package Curses::UI::Listbox;
our @ISA = qw(Curses::UI::Widget);
sub id { my ($_this) = @_ }
sub get { my ($_this) = @_ }
sub get_active_id { my ($_this) = @_ }
sub set_active_id { my ($_this, $_id) = @_ }
sub set_selection { my ($_this, $_id) = @_ }
package Curses::UI::TextEditor;
our @ISA = qw(Curses::UI::Widget);
sub get { my ($_this) = @_ }
sub text { my ($_this, $_o_text) = @_ }
package Curses::UI::Buttonbox;
our @ISA = qw(Curses::UI::Widget);
sub get { my ($_this) = @_ }
sub set_label { my ($_this, $_id, $_text) = @_ }
package Curses::UI::Container;
our @ISA = qw(Curses::UI::Widget);
sub add { my ($_this, $_name, $_type, %_para) = @_ }
sub delete_object { my ($_this, $_object) = @_ }
sub focus { my ($_this, $_focus_to, $_b_forced, $_b_direction) = @_ }
package Curses::UI::Window;
our @ISA = qw(Curses::UI::Container);
package Curses::UI::Dialog::Progress;
our @ISA = qw(Curses::UI::Window);
sub pos { my ($_this, $_pos) = @_ }
sub message { my ($_this, $_msg) = @_ }
package Curses;
sub KEY_LEFT() {}
sub KEY_RIGHT() {}
|
