Chris Rogers wrote:
I have been trying to set an icon for an MDIFrame. I also need to set
different icons for the Child windows. I am using Win32::GUI 1.03 with
Activestate 5.8.7 along with Komodo and Perlapp. In the past, I could
never get the "-icon=>$icon" to work
There is, as far as I can see from the documentation and the source code
no such '-icon' option for windows.
so I had to use Win32::GUI::Class
to set the window icon and that seemed to work just fine.
That's one way to do it. $window->SetIcon($icon) is another (and in
this case probably simpler).
[snip]
*my $icon = new Win32::GUI::Icon("c:\\JS1G.ICO");
my $WC = new Win32::GUI::Class(-name => "mywindowclass", -icon =>
$icon,);*
You need to subclass the relevant widget class. This would work:
my $WC = WIn32::GUI::Class->new(
-name => "MyMDIFrameSubClass",
-icon => $icon
-widget => 'MDIFrame',
);
[ snip ]
In short: How do I set one icon for an MDIFrame and different icons for
MDIChild windows??
Here's the 2 ways to do it:
#!perl -w
use strict;
use warnings;
use Win32::GUI;
my $icon = new Win32::GUI::Icon("c:\\JS1G.ICO");
my $mw = Win32::GUI::MDIFrame->new(
-text => 'Main Window',
-width => 1024,
-height => 768,
) or die "frame creation failed: [EMAIL PROTECTED]";
$mw->SetIcon($icon);
my $mc = $mw->AddMDIClient(
-firstchild => 100,
) or die "client creation failed: [EMAIL PROTECTED]";
my $cw = $mc->AddMDIChild(
-name => 'window1',
-text => 'Window1',
-pos => [100, 100],
-size => [810, 610],
) or die "child creation failed: [EMAIL PROTECTED]";
$cw->SetIcon($icon);
$mw->Show();
Win32::GUI::Dialog();
exit(0);
__END__
#!perl -w
use strict;
use warnings;
use Win32::GUI;
my $icon = new Win32::GUI::Icon("c:\\JS1G.ICO");
my $frame_class = new Win32::GUI::Class(
-name => "mywindowclass",
-icon => $icon,
-widget => "MDIFrame", # use the MDIFrame windowproc
);
my $child_class = new Win32::GUI::Class(
-name => "mychildwindowclass",
-icon => $icon,
-widget => "MDIChild", # use the MDIChild windowproc
);
my $mw = Win32::GUI::MDIFrame->new(
-text => 'Main Window',
-size => [1024,768],
-class => $frame_class,
) or die "frame creation failed: [EMAIL PROTECTED]";
my $mc = $mw->AddMDIClient(
-firstchild => 100,
) or die "client creation failed: [EMAIL PROTECTED]";
my $cw = $mc->AddMDIChild(
-name => 'window1',
-text => 'Window1',
-pos => [100, 100],
-size => [810, 610],
-class => $child_class,
) or die "child creation failed: [EMAIL PROTECTED]";
$mw->Show();
Win32::GUI::Dialog();
exit(0);
__END__
As an aside a complete but minimal example showing your problem is
preferable so that it's quick and easy to run it, and so that we don't
have to work out what else we need to add in order to get your code to run.
Regards,
Rob.
--
Robert May
Win32::GUI, a perl extension for native Win32 applications
http://perl-win32-gui.sourceforge.net/
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
