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

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

Never mind I figured it out!  I needed the:

$Window->{-dialogue} = 1;


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



At 11/8/2001 01:41 PM, Jonathan Southwick wrote:
>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
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users