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



Reply via email to