If an object is used in a string context it will return something like
Gtk2::Entry=HASH(0x12cfba8)
so you can use something like
if (substr($text, 0, 11) eq 'Gtk2::Entry') {
print "Entry!\n";
} elsif (substr($text, 0, 14) eq 'Gtk2::ComboBox') {
print "ComboBox!\n";
}
/Pelle
(sorry for double email rds, I first used reply instead of list-reply)
fre 2010-04-16 klockan 09:25 +0000 skrev l...@guenther-sohler.net:
> Its really a stupid question.
>
> If I write
>
> $text=Gtk2::Entry->new;
> or
> $text=Gtk2::ComboBoxEntry->new;
>
> how can I check later in the program if $text is an Entry or an
> ComboBoxEntry ?
>
> if($text->get_text != undef)
> {
> }
>
> does not help. It already tries to call an undefined function
>
>
> rds
>
> _______________________________________________
> gtk-perl-list mailing list
> gtk-perl-list@gnome.org
> http://mail.gnome.org/mailman/listinfo/gtk-perl-list
>
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@gnome.org
http://mail.gnome.org/mailman/listinfo/gtk-perl-list
