Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib
Modified Files:
Etk.pm
Log Message:
Hear Hear!!! This is a re-write of Etk-Perl
+ Everything is now in the XS file
+ etk_test needs porting (only the Button test works now)
+ some tests in t/Etk/*.t
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -3 -r1.11 -r1.12
--- Etk.pm 22 Jul 2006 20:06:08 -0000 1.11
+++ Etk.pm 30 Jul 2006 19:22:32 -0000 1.12
@@ -10,70 +10,15 @@
require XSLoader;
XSLoader::load('Etk', $VERSION);
-use Etk::Alignment;
-use Etk::Button;
-use Etk::Canvas;
-use Etk::CheckButton;
-use Etk::Clipboard;
-use Etk::Colorpicker;
-use Etk::Combobox;
-use Etk::Dialog;
-use Etk::Dnd;
-use Etk::Drag;
-use Etk::Entry;
-use Etk::Filechooser;
-use Etk::Frame;
-use Etk::HBox;
-use Etk::HPaned;
-use Etk::HSeparator;
-use Etk::HSlider;
-use Etk::Iconbox;
-use Etk::Image;
-use Etk::Label;
-use Etk::Menu;
-use Etk::MessageDialog;
-use Etk::Notebook;
-use Etk::Paned;
-use Etk::PopupWindow;
-use Etk::ProgressBar;
-use Etk::RadioButton;
-use Etk::Range;
-use Etk::ScrolledView;
-use Etk::Selection;
-use Etk::Separator;
-use Etk::StatusBar;
-use Etk::Table;
-use Etk::TextView;
-use Etk::Timer;
-use Etk::ToggleButton;
-use Etk::ToplevelWidget;
-use Etk::Tree;
-use Etk::VBox;
-use Etk::VPaned;
-use Etk::VSeparator;
-use Etk::VSlider;
-use Etk::Viewport;
-use Etk::Window;
-use Etk::Main;
-
-sub Init
-{
- Etk::etk_init();
-}
-
-sub Shutdown
-{
- Etk::etk_shutdown();
-}
+use Etk::Object;
# initialize Etk
-Etk::Init();
+Etk::init("ecore_evas_software_x11");
END {
- Etk::Shutdown();
+ Etk::shutdown();
}
-
1;
__END__
@@ -88,14 +33,6 @@
my $win = Etk::Window->new();
my $button = Etk::Button->new("Click me!");
$win->Add($button);
-
- # or
-
- my $win = Etk::Window->new();
- my $button = $win->AddButton("Click me!");
-
- #
-
$win->ShowAll();
$button->SignalConnect("clicked", \&clicked_cb);
@@ -105,7 +42,6 @@
print "button clicked!\n";
}
-
=head1 DESCRIPTION
This module allows the use of Etk from within Perl. You can use them in one
@@ -129,7 +65,7 @@
=head1 AUTHOR
-Hisham Mardam Bey, E<lt>[EMAIL PROTECTED]<gt>,
+Hisham Mardam Bey, E<lt>[EMAIL PROTECTED]<gt> -
Chady 'Leviathan' Kassouf, E<lt>[EMAIL PROTECTED]<gt>
=head1 COPYRIGHT AND LICENSE
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
