Enlightenment CVS committal Author : codewarrior Project : e17 Module : proto
Dir : e17/proto/etk-perl/lib/Etk Modified Files: Iconbox.pm Log Message: - implement first event structure, "mouse_up" - fixes to Etk::Iconbox - finish iconbox test - misc cleanups =================================================================== RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Iconbox.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -3 -r1.1 -r1.2 --- Iconbox.pm 7 Jun 2006 11:58:33 -0000 1.1 +++ Iconbox.pm 13 Jun 2006 00:13:45 -0000 1.2 @@ -75,6 +75,7 @@ my $icon = Etk::Iconbox::Icon->new(); $icon->{WIDGET} = Etk::etk_iconbox_icon_get_at_xy($self->{WIDGET}, $x, $y, $over_cell, $over_icon, $over_label); + return undef if($icon->{WIDGET} == undef); return $icon; } _______________________________________________ enlightenment-cvs mailing list enlightenment-cvs@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs