From f37d7371879e2b1e2d923ec12762430b3d1937fc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 25 Apr 2007 15:16:22 +0000
Subject: re-sync after the big svn loss

---
 fake_packages/Curses/UI.pm | 77 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 fake_packages/Curses/UI.pm

(limited to 'fake_packages/Curses')

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() {}
-- 
cgit v1.2.1