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
|
