Can anyone help??

I created a textfield
 
$main = 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??

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, layout lost, it also did not seem to respond
to tab, that is, it did not move on to the next textfield.

Ron
 


Reply via email to