[perl-win32-gui-users] Statusbar example

[Chris Wearn]

Hi All

Having trouble with the new Statusbar additions:

tried different combinations of PARTS to start dividing, but no matter what
I've tried nothing seems to work. What order do the methods need to be
called?

I've had a look at MSDN Status Bars and read the notes that Steve posted on
announcing the enhancements. Confused in that MSDN says that Parts is
(nParts[array of widths])

I've tried $Window_Status->Parts([200,100,-1]);     and
Parts(3,[200,100,-1])

Can someone add a few of the methods to the example below.

Chris


# ============================

use Win32::GUI;

my $Window = new GUI::Window(
        -title  => "Statusbar example",
        -left           => 100,
        -top            => 100,
        -width  => 400,
        -height => 200,
        -name   => "Window",
        -events =>{
                Terminate => sub { return -1 },
         }
);

# Add a Status Bar
my $Window_Status = $Window->AddStatusBar(
        -name => "Window_Status",
        -text => "Panel 1"
);

$Window->Show;
Win32::GUI::Dialog;