Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk
Modified Files:
Button.pm
Added Files:
Alignment.pm
Log Message:
+ Adding table test
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Button.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -3 -r1.1 -r1.2
--- Button.pm 7 Jun 2006 11:58:33 -0000 1.1
+++ Button.pm 16 Jun 2006 18:41:16 -0000 1.2
@@ -9,8 +9,10 @@
my $self = $class->SUPER::new();
if(@_ == 1)
{
- # TODO: check if its a string or num and use label / stock respectively
- $self->{WIDGET} = Etk::etk_button_new_with_label(shift);
+ my $thing = shift;
+ $self->{WIDGET} = $thing + 0 eq $thing ?
+ Etk::etk_button_new_from_stock($thing) :
+ Etk::etk_button_new_with_label($thing);
}
else
{
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
