Try adding a height to your textfield. 20 would be a good value.
> -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of Dax T. Games > Sent: Monday, May 03, 2004 10:00 AM > To: Perl-Win32-GUI-Users@lists.sourceforge.net > Subject: [perl-win32-gui-users] Textfield Strangeness? > > When I run the code below I get no errors but the textfield > is not added to the window. > > Why? > > Dax > > use Win32::GUI; > > my $GS_Icon = new Win32::GUI::Icon("Effects.ico"); > > $GAA_Objects{'winMainClass'} = new Win32::GUI::Class( > -name => "Window Background Color", > -icon => $GS_Icon, > -color => 16, > ); > > $GAA_Objects{'winMain'} = new GUI::DialogBox( > -title => $GS_AppName, > -class => $GAA_Objects{'winMainClass'}, > -left => 100, > -top => 100, > -width => 365, > -height => 328, > -style => 1024 | WS_BORDER | WS_SYSMENU, > -name => "Window", > ) or print_and_die("new Window"); > > $GAA_Objects{'winMain'}->AddGroupbox( > -name => "GroupboxUserConfig", > -left => 2, > -top => 4, > -width => 355, > -height => 68, > -text => "User Configuration", > ); > > $GAA_Objects{'lbl5110'} = $GAA_Objects{'winMain'}->AddLabel( > -name => "lbl5110", > -top => 19, > -left => 8, > -width => 70, > -text => "\# of AMX5110", > ); > > $GAA_Objects{'tf5110'} = $GAA_Objects{'winMain'}->AddTextfield( > -name => "tf5110", > -top => 19, > -left => 100, > -width => 50, > -text => 0, > -tabstop => $GAA_Config{'Tabstop'} + 1, > ); > > $GAA_Objects{'winMain'}->Show; > > Win32::GUI::Dialog(); > > > > > ------------------------------------------------------- > This SF.Net email is sponsored by: Oracle 10g Get certified > on the hottest thing ever to hit the market... Oracle 10g. > Take an Oracle 10g class now, and we'll give you the exam FREE. > http://ads.osdn.com/?ad_id149&alloc_id66&op,ick > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Perl-Win32-GUI-Users@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > >
