Re: [perl-win32-gui-users] Adding attributes to a Win32::GUI object (was: How to pass $_ to a subroutine)

[Robert M. <rm...@po...>]

Leif Andersson wrote:
>> But there is no GetName() method for the button object (or indeed any 
>> Win32::GUI object).  Slightly naughty, and I shouldn't be encouraging 
>> this [1], but the object's name is stored in it's '-name' hash slot,
> so 
>> you can replace:
>> 	print $self->GetName(), "\n";
>> with
>> 	print $self->{-name}, "\n";
> 
> A handful of the attributes used to define the object seems available in
> this (unrecommended) manner.
> 
> But is it possible to add attributes?

Not recommended: add your attributes to the object's hash.

$object->{-parent} = $whatever;


Recommended:  Use the UserData() method - this is exactly what this 
method is intended for:

$object->UserData($whatever); # store scalar with object
my $w = $object->UserData();  # retrieve previously stored scalar

Regards,
Rob.