1 files changed, 77 insertions, 0 deletions
diff --git a/fake_packages/Curses/UI.pm b/fake_packages/Curses/UI.pm
new file mode 100644
index 0000000..d9530a3
--- /dev/null
+++ b/fake_packages/Curses/UI.pm
@@ -0,0 +1,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() {}