Here's what I'm using:
# -- define window layout -------------
my $W = new GUI::Window(
-name => "MainDialog",
-title => "Marjolein's XML DTD Parser v0.0.1",
-left => $xposinit,
-top => $yposinit,
-width => $winwidth,
-height => $winheight,
-minsize => $minsize,
);
my $w = $W->ScaleWidth;
my $h = $W->ScaleHeight;
# -- set window icon ------------------
my $I = new Win32::GUI::Icon("hsh.ico");
$W->SetIcon($I);
# Main window -------------------------
my $SB = $W->AddStatusBar(
-name => "Status",
-text => "Ready"
);
my $statheight = $SB->Height;
[... and later on ...]
# NOTE: this is always called on init of a resizable window!
sub MainDialog_Resize {
$w = $W->ScaleWidth;
$h = $W->ScaleHeight;
$SB->Move(0, $h - $statheight);
$SB->Resize($w, $statheight);
[...]
}
At 12:00 2001-05-08 -0400, you wrote:
>Thanks for the help in understanding the issue. Now on to testing and
>learning how use this module...
>
>[snip]
>| -----Original Message-----
>| From: Bullock, Howard A. [mailto:[EMAIL PROTECTED]
>[...]
>| The line shown below causes a fatal error and Perl closes.
>|
>| $Status = new GUI::StatusBar($W,
>| -text => " ",
>| -width => $W->ScaleWidth,
>| );
Cheers,
Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools
