1

我能够找到的非常稀疏的 wxPerl 文档说它是受支持的，而且果然，我可以创建它的一个实例。 

my $layout = new Wx::GridBagSizer(5,5);

但我不能让它工作。具体来说，我无法将小部件添加到 $layout。有人做过吗？

当我谈到这个主题时，有没有人找到任何关于 wxPerl 的好文档？

4

2 回答 2

2

ikegami 让我朝着正确的方向前进。Wx::Demo 非常有用（如果有人熟悉 PerlTk 的小部件，则该工具非常有用）。但是 Wx::GridBagSizer 没有被明确讨论，所以它需要一些试验和错误才能最终到达那里。这是我想做的事情：

sub new 
{
    my( $class, $parent ) = @_;
    my $self = $class->SUPER::new
    (
        undef, 
        -1, 
        "Wx::GridBagSizer",
        wxDefaultPosition, wxDefaultSize,
        wxDEFAULT_FRAME_STYLE|wxRESIZE_BORDER|wxMAXIMIZE_BOX
    );

    my $Grid = Wx::GridBagSizer->new(1,1);
    $Grid->Add(Wx::Button->new($self, -1, 'Button 1'), Wx::GBPosition->new(0, 0), Wx::GBSpan->new(1, 1), wxGROW|wxALL, 1);
    $Grid->Add(Wx::Button->new($self, -1, 'Button 2'), Wx::GBPosition->new(0, 1), Wx::GBSpan->new(1, 1), wxGROW|wxALL, 1);
    $Grid->Add(Wx::Button->new($self, -1, 'Button 3'), Wx::GBPosition->new(1, 0), Wx::GBSpan->new(1, 2), wxGROW|wxALL, 1);
    $Grid->Add(Wx::Button->new($self, -1, 'Button 4'), Wx::GBPosition->new(2, 0), Wx::GBSpan->new(2, 1), wxGROW|wxALL, 1);
    $Grid->Add(Wx::Button->new($self, -1, 'Button 5'), Wx::GBPosition->new(2, 1), Wx::GBSpan->new(1, 1), wxGROW|wxALL, 1);
    $Grid->Add(Wx::Button->new($self, -1, 'Button 6'), Wx::GBPosition->new(3, 1), Wx::GBSpan->new(1, 1), wxGROW|wxALL, 1);
    $Grid->AddGrowableRow(1);
    $Grid->AddGrowableCol(1);

    $self->SetAutoLayout( 1 );
    $self->SetSizer( $Grid );
    $self->CenterOnScreen(wxBOTH);
    return $self;
}
于 2011-10-12T21:19:37.467 回答
2

首先，查看Wx::Demo以获取几乎每个类的示例。

您应该使用它的Add方法添加小部件。

$sizer->Add($widget, Wx::GBPosition->new($row, $col));

有可能

$sizer->Add($widget, [ $row, $col ]);
于 2011-10-11T22:07:24.053 回答