urn $self->{mw};
> }
>
> 1
>
> And use this package as follows:
>
> use strict;
> use warnings;
> use Win32::GUI();
> use Testing;
>
>
> my $testing = Testing->new();
> my $mw = $testing->getMW();
> $mw->Show();
> Win32::GUI::Dialog();
>
-onClick => sub {print "DOWN\n";},
);
$self->{mw}->Down_Arrow->SetImage($IMG2);
bless ($self, $class);
return $self;
}
sub getMW
{
my $self = shift;
return $self->{mw};
}
1
And use this package as follows:
u
the application.
Looking at the documentation, it appeared that I could use the -pushstyle of
-addstyle option when creating the window. However, the window has a border
when either of these options is used.
Can anyone point out the error of my ways? Actual code is below.
Thanks, Ken Slater
use
t the error of my ways? Actual code is below.
Thanks, Ken Slater
use strict;
use warnings;
use File::Basename;
use Getopt::Long;
use Win32::API;
use Win32::GUI();
use Win32::GUI::Constants;
use Win32::OLE('in');
my ( $runDir );
BEGIN
{
$runDir = Win32::GetFullPath
4 matches
Mail list logo
