Enlightenment CVS committal
Author : codewarrior
Project : e17
Module : proto
Dir : e17/proto/etk_server/examples
Modified Files:
etk.pl
Log Message:
add a callback to the perl demo
===================================================================
RCS file: /cvsroot/enlightenment/e17/proto/etk_server/examples/etk.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- etk.pl 19 Mar 2006 19:02:49 -0000 1.1
+++ etk.pl 19 Mar 2006 19:06:15 -0000 1.2
@@ -22,21 +22,27 @@
my $win = etk "etk_window_new";
-my $button = etk "etk_button_new_with_label \"Perl Rules\"";
+my $button1 = etk "etk_button_new_with_label \"Perl Rules\"";
my $vbox = etk "etk_vbox_new 0 0";
-etk "etk_box_pack_start $vbox $button 1 1 0";
+etk "etk_box_pack_start $vbox $button1 1 1 0";
-etk "etk_container_add $win var3";
+etk "etk_container_add $win $vbox";
etk "etk_widget_show_all $win";
+etk "etk_server_signal_connect \"clicked\" $button1 \"button_1_click\"";
etk "etk_server_signal_connect \"delete_event\" $win \"win_delete\"";
$event = "";
while ( $event ne "win_delete" )
{
$event = etk "etk_server_callback";
+
+ if($event eq "button_1_click")
+ {
+ print "button 1 clicked!\n";
+ }
}
etk "etk_main_quit";
-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
