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: leonard.jacobsen@usbank.com
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" <jez@jezwhite.eclipse.co.uk>

05/11/2005 03:24 AM

To
perl-win32-gui-users@lists.sourceforge.net, leonard.jacobsen@usbank.com
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.
==============================================================================