[perl-win32-gui-users] Default in Button Definition

[Jonathan S. <jso...@al...>]

Another problem I am having.  I would like the user to press enter in a 
Textfield object and append the results to a RichEdit object.  I have done 
this before but for some reason it is not working now.  Here is my code:

    $ChatBox = $GameWindow->AddRichEdit(
         -name    => "ChatBox",
         -left    => 400,
         -top     => 5,
         -width   => 230,
         -height  => 330,
         -disabled=> 1,
         -addstyle=> WS_CHILD | WS_VISIBLE | WS_VSCROLL | ES_LEFT | 
ES_MULTILINE | ES_AUTOVSCROLL | ES_READONLY | ES_WANTRETURN,
         -addexstyle=> WS_EX_CLIENTEDGE,
    );
    $ChatText = $GameWindow->AddTextfield(
         -name   => "ChatText",
         -top    => 345,
         -left   => 400,
         -width  => 175,
         -height => 25,
         -disabled=> 1,
         -tabstop=> 1,
    );
    $Send = $GameWindow->AddButton(
         -name   => "SendText",
         -text   => "Send",
         -top    => 345,
         -left   => 580,
         -height => 25,
         -width  => 50,
         -tabstop=> 1,
         -default=> 1,
         -ok     => 1,
         -disabled=> 1,
    );

and the subroutine for the button event:

sub SendText_Click {
    if ($ChatText->Text() eq "") {
       return;
    }
    my $OldText = $ChatBox->Text();
    my $NewText = $ChatText->Text();
    if ($OldText eq "") {
       $ChatBox->Text("<$YourNick> $NewText");
    } else {
       $ChatBox->Text("$OldText\n<$YourNick> $NewText");
    }
    $ChatText->Text("");
    $ChatText->SetFocus();
    return;
}



Am I doing something wrong?



Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755