Re: [perl-win32-gui-users] Using Win32::GUI events within a class or a package?

[Jeremy W. <jez...@ho...>]

>oh no! what i meant was something like this:
>
>sub StartClick
>{
>       my $self = shift;
>       #Here $self is the button that was clicked.
>       #How do I access the window that this button is part of?
>       #I want to change certain parts of the window when the
>       #button Start is clicked.
>}
>
>One way I figured out was declaring $window as a global variable. Then all
>subroutines have access to it.
>
>Is there any other way? If the sub StartClick does not have access to the
>$window variable, is it possible to work back upwards from the button $self
>and retrieve the window? And then modify parts of the window?

Yes, there is another way, but...

You'll either have to wait for the next version of win32-gui (which should 
be soon), or build your own from CVS. There is a new method which can be 
called on controls to return the parent window: GetParent, and a useful 
associated method: UserData. So:

sub StartClick
{
       my $self = shift;
       my $win = $self->GetParent; #returns a win32::gui window
       $win->somecontrol->Text("Some string");
}

The UserData method is really useful as it allows you to assocate data to a 
window of control, allowing you to create an object from the window, with 
instance data stored within the window.

Cheers,

jez.