Hello .
I can not setup rows in wxAUI. Please tell me what i do wrong.
Alien-wxWidgets: 0.39
WxPerl: 0.89.1
OS: Windows 7
perl: ActivePerl 5.10.1 Build 1006
=============================Code======================================
use strict;
use warnings;
use Wx::MDI;
use Wx::AUI;
use Wx qw(:misc :textctrl :window :frame wxID_CLOSE);
use Wx::Event qw(EVT_MENU EVT_CLOSE EVT_SIZE);
my $MyApp = Wx::SimpleApp->new();
my $MainFrame = Wx::MDIParentFrame->new(undef, -1, 'title', [0,0],
[540,360]);
my $AUIm = Wx::AuiManager->new();
$AUIm->SetManagedWindow( $MainFrame );
$AUIm->AddPane( CallTextCTRL($MainFrame),
Wx::AuiPaneInfo->new->Name( "text_control1"
)->CenterPane->BottomDockable->Floatable->Movable->PinButton->Caption(
"Floating" )->CaptionVisible->Row(0));
$AUIm->AddPane( CallTextCTRL01($MainFrame),
Wx::AuiPaneInfo->new->Name( "text_control2"
)->CenterPane->BottomDockable->Floatable->Movable->PinButton->Caption(
"Floating1" )->CaptionVisible->Row(1));
$AUIm->Update;
$MainFrame->Show(1);
$MyApp->MainLoop();
sub CallTextCTRL {
my( $self ) = @_;
my $TextCtrl = Wx::TextCtrl->new( $self, -1, "hi", [0, 0], [150, 90],
wxNO_BORDER | wxTE_MULTILINE );
return $TextCtrl;
}
sub CallTextCTRL01 {
my( $self ) = @_;
my $TextCtrl = Wx::TextCtrl->new( $self, -1, "hi1", [0, 0], [150, 90],
wxNO_BORDER | wxTE_MULTILINE );
return $TextCtrl;
}
=============================Code======================================
