Thank you for your replies.
I tried the DESTROY solution and it did indeed work, so thank you very
much :)
As far as the button hang goes, the below code has the same problems,
however, when you remove the StatusBar it doesnt. Its very odd and i'm
not sure how to go about debugging it. I tried to remove the StatusBar
from my main program, but that did not solve the issue, so I dont think it
has to do with the StatusBar, but something is obviously tripping it up
there.
The reason I use TabFrame is because I am familiar with it, and because I
cannot find any examples on how to work with TabStrip (for example, I
created a TabStrip script, but could not figure out how to add widgets to
it). I did find one example by searching the mailing list for
"AddTabStrip", however from the example it looks like I have to hide each
individual widget when changing tabs. Is this correct? I must confess
though, I have spent very little time looking for TabStrip code, so I may
be missing something entirely :)
Anyway, if anyone has any suggestions as to what may be causing my
problems, or how I could go about debugging it, they would be greatly
appreciated.
Thanks for all the help.
Len
--------------------------[ Begin Code ]-------------------------------
use strict;
use warnings;
use Win32::GUI;
use Win32::GUI::TabFrame;
my $mainwindow;
create_mainwindow();
$mainwindow -> Show;
Win32::GUI::Dialog();
sub create_mainwindow {
my $windowheight = 400;
my $windowwidth = 700;
my $windowmenu;
$windowmenu = Win32::GUI::MakeMenu (
"Item &1" => "",
" > SubItem &1" =>
"Item1SubItem1",
" > SubItem &2" =>
"Item1SubItem2",
" > SubItem &3" =>
"Item1SubItem3",
" > -" => 0,
" > E&xit" => "AppExit",
"Item &2" => "",
" > SubItem &1" =>
"Item2SubItem1",
);
$mainwindow = Win32::GUI::Window -> new (
-name => "Main",
-width => $windowwidth,
-height => $windowheight,
-title => "Main Window",
-menu => $windowmenu,
);
$mainwindow -> AddStatusBar (
-name => "StatusBar"
);
$mainwindow -> AddTabFrame (
-name => "TabFrame",
-panel => "TabPage",
-tabstop => 1,
);
$mainwindow -> TabFrame -> InsertItem (
-text => "Tab1",
-border => 1,
);
$mainwindow -> TabFrame -> InsertItem (
-text => "Tab2",
-border => 1,
);
$mainwindow -> TabFrame -> TabPage1 -> AddListView (
-name => "ListView1",
-style => WS_CHILD | WS_VISIBLE | WS_VSCROLL | 1,
-fullrowselect => 1,
);
$mainwindow -> TabFrame -> TabPage1 -> ListView1 -> InsertColumn (
-index => 0,
-width => 220,
-text => "Column 1",
);
$mainwindow -> TabFrame -> TabPage1 -> ListView1 -> InsertColumn (
-index => 1,
-width => 220,
-text => "Column 2",
);
$mainwindow -> TabFrame -> TabPage1 -> AddButton (
-name => "Button1",
-text => "Button 1",
-default => 1,
-tabstop => 1,
);
$mainwindow -> TabFrame -> TabPage1 -> AddButton (
-name => "Button2",
-text => "Button 2",
-tabstop => 1,
);
$mainwindow -> {-dialogui} = 1;
}
sub Button1_Click {
print "DEBUG - Button 1 was Clicked\n";
}
sub Button2_Click {
print "DEBUG - Button 2 was Clicked\n";
}
sub AppExit_Click {
Main_Terminate();
}
sub Main_Terminate {
$mainwindow -> Hide();
exit 0;
}
sub Main_Resize {
my $windowheight = $mainwindow -> ScaleHeight();
my $windowwidth = $mainwindow -> ScaleWidth();
my $statusbar_height = $mainwindow -> StatusBar -> Height();
$mainwindow -> TabFrame -> Move (0, 0);
$mainwindow -> TabFrame -> Resize ($windowwidth, $windowheight -
$statusbar_height);
$mainwindow -> TabFrame -> TabPage1 -> ListView1 -> Move (0, 0);
$mainwindow -> TabFrame -> TabPage1 -> ListView1 -> Resize
($mainwindow -> TabFrame -> TabPage1 -> ScaleWidth, $mainwindow ->
TabFrame -> TabPage1 -> ScaleHeight - 40 );
$mainwindow -> TabFrame -> TabPage1 -> Button1 -> Move
($mainwindow -> TabFrame -> TabPage1 -> ScaleWidth / 2 - 70, $mainwindow
-> TabFrame -> TabPage1 -> ScaleHeight - 30);
$mainwindow -> TabFrame -> TabPage1 -> Button2 -> Move
($mainwindow -> TabFrame -> TabPage1 -> ScaleWidth / 2 , $mainwindow ->
TabFrame -> TabPage1 -> ScaleHeight - 30);
$mainwindow -> StatusBar -> Move (0, $windowheight - $mainwindow
-> StatusBar -> Height);
$mainwindow -> StatusBar -> Resize ($windowwidth, $mainwindow ->
StatusBar -> Height);
}
--------------------------[ End Code ]-------------------------------
"Jez White" <[EMAIL PROTECTED]>
05/11/2005 03:24 AM
To
[email protected], [EMAIL PROTECTED]
cc
Subject
Re: [perl-win32-gui-users] Button and RichEdit issues
Ok - Ariel's solution (calling DESTROY) on the richedit controls before
exit solves the crash for your example:)
I must admit I'm a bit stumped at the button hang - I was able to
reproduce it. It must be something to do with TabFrame (probably a scoping
issue) since if the buttons are created directly on the tab strip they
work fine. I'm not to sure what to suggest - other than don't use the
TabFrame package:)
Cheers,
jez.
------------------------------------------------------------------------------
Electronic Privacy Notice. This e-mail, and any attachments, contains
information that is, or may be, covered by electronic communications privacy
laws, and is also confidential and proprietary in nature. If you are not the
intended recipient, please be advised that you are legally prohibited from
retaining, using, copying, distributing, or otherwise disclosing this
information in any manner. Instead, please reply to the sender that you have
received this communication in error, and then immediately delete it. Thank you
in advance for your cooperation.
==============================================================================
