[perl-win32-gui-users] weird textfield issue

[Chris Etzel]

Hello,

I am playing around with Win32::GUI trying to refresh my memory on Perl and
Win32::GUI, and:

I have written a test program that basically brings up a toolbar with a
button to open a launcher window that I can type a command in and launch
directly. Well, all works fine exept I can't see the text field. I even
tried to copy and paste from my working example directly to the new code,
but still no text field. Before I go insane, can someone look at this code
and tell me if I messed up somewhere? Thanks!

Chris

----------code below--------------

use Win32::GUI;
($DOS) = Win32::GUI::GetPerlWindow();
 Win32::GUI::Hide($DOS);

my $Toolbar=Win32::GUI::Window->new(
     -name=>'Toolbar',
     -size=>[600,75],
     -title=>"PEaRL ToolBar",
     );
my $launcher=$Toolbar->AddButton(
     -name=>'launcher',
     -pos=>[10,10],
     -text=>"Launcher",
     );
$Toolbar->launcher->Show();

 sub launcher_Click{
   my $Launcher=Win32::GUI::Window->new(
          -name=>'CommandLauncher',
          -size=>[300,75],
          -title=>"Launcher",
          );
   $Launcher->Show();

   my $runline=$Launcher->AddTextField(
           -name=>'CommandBox',                                   #Here is
where It should show the text field-but doesn't
           -background=>[255,255,255],
           -pos=>[10,10],
                  -size=>[150,22],
           -prompt=>'Enter Command:',
          );

   my $runButton-$Launcher->AddButton(
        -name=>'runbutton',
        -pos=>[160,10],
        -text=>'Run',
        -size=>[30,22],
        );
   $Launcher->runbutton->Show();
    sub runButton_Click{
     exec($textfield->Text);
    }

   }




$Toolbar->Show();
Win32::GUI::Dialog();