Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk-perl
Modified Files:
test.pl
Log Message:
use new functions
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/test.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -3 -r1.2 -r1.3
--- test.pl 8 Jun 2006 21:58:33 -0000 1.2
+++ test.pl 9 Jun 2006 07:22:57 -0000 1.3
@@ -1,5 +1,6 @@
use strict;
use Etk;
+use Etk::Main;
use Etk::Window;
use Etk::Button;
use Etk::VBox;
@@ -8,7 +9,7 @@
use Etk::Tree::Model::ProgressBar;
use Etk::Tree::Col;
-Etk::etk_init();
+Etk::Init();
my $win = Etk::Window->new();
my $button1 = Etk::Button->new("click me!");
@@ -42,8 +43,8 @@
$button2->SignalConnect("clicked", \&click_cb2);
$win->SignalConnect("delete_event", \&quit_cb);
-Etk::etk_main();
-Etk::etk_shutdown();
+Etk::Main::Run();
+Etk::Shutdown();
sub click_cb1
{
@@ -61,5 +62,5 @@
sub quit_cb
{
print "quit!\n";
- Etk::etk_main_quit();
+ Etk::Main::Quit();
}
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
