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();