Robert May wrote:
> 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
Thank you very much.
UserData() seems to be the way t
> 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
Thank you Robert,
Your explanation makes sense to me.
I will search the archives for your work-arounds.
And, by the way, the reason my posted code didn't work as advertised is
that the first line of mainw.gui should read:
$mainW = new Win32::GUI::DialogBox(
Thanks again for the time and efforts
I had the, maybe bad, idea of putting up a kind of "framework", so I
could manage my windows definitions in external separate files.
In its simplest form it works as expected:
#!/usr/bin/perl -w
use strict;
use Win32::GUI qw(WS_SYSMENU);
my $handle = do 'mainw.gui' ;
$handle->Show;
Win32::GUI::D
4 matches
Mail list logo