Enlightenment CVS committal
Author : leviathan
Project : e17
Module : libs/etk-perl
Dir : e17/libs/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
signal callbacks must return a value now.
any value other than 0 is accepted as true.
===================================================================
RCS file: /cvs/e/e17/libs/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -3 -r1.54 -r1.55
--- etk_test.pl 29 Jul 2007 07:56:12 -0000 1.54
+++ etk_test.pl 30 Sep 2007 11:23:02 -0000 1.55
@@ -493,7 +493,7 @@
$row->Delete();
}
}
- Etk::Signal::Stop();
+ return 0;
}
});
@@ -827,7 +827,7 @@
return unless $event->{flags} & MouseDoubleClick;
my $icon = $iconbox->IconGetAtXy($event->{"canvas.x"},
$event->{"canvas.y"}, 0, 1, 1);
- return if($icon == undef);
+ return unless $icon;
if (-d $_iconbox_folder."/".$icon->LabelGet())
{
_iconbox_folder_set($iconbox, $icon->LabelGet());
@@ -999,6 +999,7 @@
"<b><font color=#a82f2f>David P:</font></b> "
);
my $num_messages = 0;
+
$editor_view->SignalConnect("key-down", sub {
my $self = shift->TextblockGet();
my $event = shift;
@@ -1016,8 +1017,9 @@
$num_messages++;
}
$iter->free();
- Etk::Signal::Stop();
+ return 0;
}
+ return 1;
}, $message_view);
@@ -1026,6 +1028,7 @@
$vbox->Append($button);
$win->ShowAll();
+
}
sub table_window_show
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
