Sorry for delay in response I have been away.
I tried replacing Window with DialogBox which gave me
the message "Can't call method "ScaleWidth" on undefined value at
c:\......pl line 190"
$main = Win32::GUI::DialogBox->new( # line 35
-name => 'Main',
-text => 'Project Details',
-width => $totalWidth,
-height => $totalHeight,
-minSize => [$totalWidth, $totalHeight],
);
$ncw = $main->Width() - $main->ScaleWidth(); # line 43
$nch = $main->Height() - $main->ScaleHeight();
$w = $totalWidth+$ncw;
$h = $totalHeight+$nch;
sub Main_Resize
{
my $w = $main->ScaleWidth(); # line 190
my $h = $main->ScaleHeight();
}
The GUI still game up, settings were lost, it also did not seem to respond
to tab that is it did not move on to the next textfield.
> -----Original Message-----
> From: Anthony George [SMTP:[EMAIL PROTECTED]]
> Sent: Friday, 7 July 2000 22:24
> To: [EMAIL PROTECTED]
> Subject: Re: [perl-win32-gui] textfield, capturing keystrokes
>
>
>
> Ron LEVER wrote:
> >
> > Can anyone help.
> >
> > I created a textfield
> >
> > $win = Win32::GUI::Window->new(
> > -name => 'Main',
> > -text => 'Project Details',
> > -width => $totalWidth,
> > -height => $totalHeight,
> > -minSize => [$totalWidth, $totalHeight],
> > );
> >
> >
> > How do I get it to move around to the different text boxes when I have
> > finished my input??
> >
> use a DialogBox instead:
> $win = Win32::GUI::DialogBox->new(
> > -name => 'Main',
> > -text => 'Project Details',
> > -width => $totalWidth,
> > -height => $totalHeight,
> > -minSize => [$totalWidth, $totalHeight],
> > );
>
>