Absolutely wonderful !!!!
I removed that line from my program and all of a sudden the buttons work
and everything is fine =D
Thank you very much, I greatly appreciate it. I have no idea what that
option does, I think its just something i've been using since pre .588
Thanks again for everyone's help
Len.
"Jez White" <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]
05/12/2005 04:41 AM
To
[EMAIL PROTECTED]
cc
perl-win32-gui-users@lists.sourceforge.net
Subject
Re: [perl-win32-gui-users] Button and RichEdit issues
Ok - this might be a simple solution:)
Comment out the line "$mainwindow -> {-dialogui} = 1;" and it works...
I dont know what this option does, so I'm not sure it this would be a good
solution for you.
Cheers,
jez.
----- Original Message -----
From: [EMAIL PROTECTED]
To: Jez White
Cc: perl-win32-gui-users@lists.sourceforge.net
Sent: Wednesday, May 11, 2005 4:31 PM
Subject: Re: [perl-win32-gui-users] Button and RichEdit issues
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
perl-win32-gui-users@lists.sourceforge.net, [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.
==============================================================================
------------------------------------------------------------------------------
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.
==============================================================================
