[perl-win32-gui-users] RE: [perl-win32-gui-users]Why Do I have to use the Mouse???

[Eoin_Butler]

Can Anybody help here.
At the moment I have to click on the textbox to highlight it before I can
enter anything and then I have to use the mouse to click validate it....
All I want is, When the progran start's the first textbox is already
highlighted and to submit it all I have to do is press Enter,
I am driven soft that something so trivial is anything But !!!!
or is it the softness in the brain has brought me to a point in my existence
from where there is nowhere to progress.

here it is
    ||
    ||
    ||
    \/

use strict;
use Win32::GUI;

my $MWfont = Win32::GUI::Font->new(
        -name => "Arial", 
        -size => 16,
);

my $W = new Win32::GUI::Window(
    -name   => "W",
    -text   => "Work....Let You    !!!!!",
    -left   => 0,
    -top    => 0,
    -width  => 640,
    -height => 480,
        -font  => $MWfont,
);

$W->AddTextfield(
    -name   => "Input",
        -font => $MWfont,   
        -left   => 20,
    -top    => 40,
    -width  => 100,
    -height => 25,
    -text   => "",
        -prompt => [ "Enter ????  :  ", 100 ],
,
);


$W->AddButton(
    -text    => '&Validate',
    -name    => 'CmdValidate',
    -left    => 250,
    -top     => 40,
    -default => 1,
    -ok      => 1,
        -height => 25,
    -width   => 80,
);


$W->AddTextfield(
    -name      => "Display",
    -readonly  => 1,
    -multiline => 1,
    -left      => 40,
    -top       => 130,
    -width     => 540,
    -height    => 120,
    -text      => "I'm a placeholder",
        -foreground => [255,255,255],
        -background =>[0, 0, 255],
);

$W->AddStatusBar(
    -name => "Status",
    -text => "What Will I Look For Today  .",
);
$W ->Show;
Win32::GUI::Dialog();

sub MainWindow_Terminate {
    PostQuitMessage(1);
}


#=============
sub W_Resize {
#=============
    $W->Status->Move(0, $W->ScaleHeight-$W->Status->Height);
    $W->Status->Resize($W->ScaleWidth, $W->Status->Height);
    return 1;
}

#===============
sub Exit_Click {
#===============
    return -1;
}

#===============
sub CmdValidate_Click {
#===============
$W->Display->{-text} = 'Whaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
}


Rgds  Eoin:
EMF2 Test Engineering
mailto:[EMAIL PROTECTED]