[perl-win32-gui-users] Adding controls to tab strip items.

[Brian Fredette]

Hi all,
Here's another (probably dumb) newbie question.  How do I add controls to a
tab strip item?  Logically it seems I would have to assign a parent to the
control I'm creating ... but that doesn't seem to work:


use Win32::GUI;

my $main_window=new Win32::GUI::Window(
        -name=>"main_window",
        -title=>"main window",
        -pos=>[100,50],
        -size=>[500,500],
        -helpbutton=>1,
        -maximizebox=>0,
        -minimizebox=>0,
);

$main_window->AddTabStrip(
        -justify=>1,
        -name=>"tabs",
        -pos=>[0,0],
        -helpId=>10,
        -size=>[400,500]
);

$main_window->tabs->InsertItem(-index =>0, -text=>"General");

my $lbltest = $main_window->AddLabel(
        -parent => $main_window->tabs->Select(0),
        -name => 'lbltest',
        -pos=>[15,15],
        -width => 100,
        -height => 30,
        -text => "Test label:",
);

$main_window->Show();
Win32::GUI::Dialog();
exit;


sub main_window_Terminate {
 return -1;
}
I've tried different variations of parent and AddLabel to no avail.

Any help will be appreciated.

Brian