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: [email protected]
> 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
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
