#!c:\perl\bin\wperl.exe
use strict;
use Win32::GUI;
use Win32::GUI::TabFrame;

my $mainform;

$mainform = Win32::GUI::Window->new(-name=>'main',-text=>'tabframe test',-width=>800,-height=>600,-dialogui=>1);

$mainform->AddTabFrame(-name=>"tab",-panel=>"Page",-width=>770,-height=>550,-left=>10,-top=>10,-addstyle=>WS_TABSTOP);

$mainform->tab->InsertItem(-text=>" Tab1 ",-border=>0,top=>10,-addstyle=>WS_TABSTOP);
$mainform->tab->Page0->AddTextfield(-name=>'tab0_text1', -text=>'tab0_text1', -left=>200, -top=>10, -height=>24, -width=>80,-tabstop=>1);
$mainform->tab->Page0->AddTextfield(-name=>'tab0_text2', -text=>'tab0_text2', -left=>200, -top=>40, -height=>24, -width=>80,-tabstop=>1);
$mainform->tab->Page0->AddTextfield(-name=>'tab0_text3', -text=>'tab0_text3', -left=>200, -top=>70, -height=>24, -width=>80,-tabstop=>1);

$mainform->tab->InsertItem(-text=>" Tab2 ",-border=>0,top=>10,-addstyle=>WS_TABSTOP);
$mainform->tab->Page1->AddTextfield(-name=>'tab1_text1', -text=>'tab1_text1', -left=>200, -top=>10, -height=>24, -width=>80,-tabstop=>1);
$mainform->tab->Page1->AddTextfield(-name=>'tab1_text2', -text=>'tab1_text2', -left=>200, -top=>40, -height=>24, -width=>80,-tabstop=>1);
$mainform->tab->Page1->AddTextfield(-name=>'tab1_text3', -text=>'tab1_text3', -left=>200, -top=>70, -height=>24, -width=>80,-tabstop=>1);

$mainform->tab->InsertItem(-text=>" Tab3 ",-border=>0,top=>10,-addstyle=>WS_TABSTOP);
$mainform->tab->Page2->AddTextfield(-name=>'tab2_text1', -text=>'tab2_text1', -left=>200, -top=>10, -height=>24, -width=>80,-tabstop=>1);
$mainform->tab->Page2->AddTextfield(-name=>'tab2_text2', -text=>'tab2_text2', -left=>200, -top=>40, -height=>24, -width=>80,-tabstop=>1);
$mainform->tab->Page2->AddTextfield(-name=>'tab2_text3', -text=>'tab2_text3', -left=>200, -top=>70, -height=>24, -width=>80,-tabstop=>1);

$mainform->Show();
Win32::GUI::Dialog();

exit;

main_Terminate
{
    $mainform->Hide();
    return -1;
}