Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/etk_test
Modified Files:
etk_test.pl
Log Message:
- more fixes to the signals, now modifiers work and there are constants for them
- iconbox now works too
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/etk_test/etk_test.pl,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -3 -r1.37 -r1.38
--- etk_test.pl 19 Aug 2006 10:42:19 -0000 1.37
+++ etk_test.pl 26 Aug 2006 17:54:09 -0000 1.38
@@ -825,6 +825,7 @@
my $win = Etk::Window->new();
$win->TitleSet("Etk-Perl Iconbox Test");
$win->SizeRequestSet(100, 100);
+ $win->Resize(600, 330);
$_iconbox_folder = "";
my $iconbox = Etk::Iconbox->new();
@@ -833,12 +834,13 @@
$model->IconGeometrySet(20, 0, 130, 16, 0.0, 0.5);
_iconbox_folder_set($iconbox, "");
- $iconbox->SignalConnect("mouse_up",
+ $iconbox->SignalConnect("mouse_down",
sub {
my $self = shift;
my $event = shift;
- my $icon = $iconbox->IconGetAtXy($event->{canvas_x},
- $event->{canvas_y}, 0, 1, 1);
+ return unless $event->{flags} & MouseDoubleClick;
+ my $icon = $iconbox->IconGetAtXy($event->{"canvas.x"},
+ $event->{"canvas.y"}, 0, 1, 1);
return if($icon == undef);
if (-d $_iconbox_folder."/".$icon->LabelGet())
{
-------------------------------------------------------------------------
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
