Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib
Modified Files:
Etk.pm
Log Message:
- TODO--
- cleanups
- start of simplifying the usage with some AUTOLOAD-foo
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -3 -r1.5 -r1.6
--- Etk.pm 14 Jul 2006 23:53:11 -0000 1.5
+++ Etk.pm 15 Jul 2006 19:19:05 -0000 1.6
@@ -28,6 +28,17 @@
our $VERSION = '0.01';
+
+sub Init
+{
+ Etk::etk_init();
+}
+
+sub Shutdown
+{
+ Etk::etk_shutdown();
+}
+
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
# XS function.
@@ -78,15 +89,13 @@
use Etk;
-Etk::etk_init();
-
my $win = Etk::Window->new();
my $button = Etk::Button->new("Click me!");
$win->Add($button);
$win->ShowAll();
-$button->SignalAttach("clicked", \&clicked_cb);
+$button->SignalConnect("clicked", \&clicked_cb);
sub clicked_cb
{
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
