Hello ,
I want to implement a subroutine which return caller's text value (caller
maybe a Label control, Button control...etc)
the following is the code :
$W1->AddLabel(
-name => "Label1",
-text => "label 1",
-notify => 1,
-font => $font,
-pos
I got the solution as following
sub show_text {
my $obj = shift;
my $obj_name = $obj->{-name};
print $obj_name;
}
--
View this message in context:
http://www.nabble.com/return-the-text-of-an-object-tf4625127.html#a13502387
Sent from the perl-win32-gui-users mailing list arc
2 matches
Mail list logo