From: Chris E. <ce...@mi...> - 2001-05-10 06:11:42
|
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(); |