view release on metacpan or  search on metacpan

bin/cvs_wxlog  view on Meta::CPAN

sub new {
    my $class = shift;
    my $model = shift;
    my $self = $class->SUPER::new(@_);
    $self->{model} = $model;

    $self->CreateStatusBar(1);
    $self->SetBackgroundColour(wxLIGHT_GREY);
    $self->SetIcon(Wx::GetWxPerlIcon());

    $self->CreateMyMenuBar();
    $self->CreateMyTreeCtrl();

    my $rightsizer = Wx::BoxSizer->new(wxVERTICAL);
    my $bottomsizer = Wx::BoxSizer->new(wxHORIZONTAL);
    my $topsizer = Wx::BoxSizer->new(wxHORIZONTAL);

    if (scalar(@{$model->{tags}}) >= 2) {
        my $b_audit = Wx::Button->new($self, -1, 'Audit :');

        my @tags_from = @{$model->{tags}};

bin/cvs_wxlog  view on Meta::CPAN

    EVT_TREE_SEL_CHANGED($self, $self->{tree}, \&OnSelChange);

    $self->SetSizer($topsizer);
    $self->SetAutoLayout(1);
    $topsizer->Fit($self);
    $topsizer->SetSizeHints($self);

    return $self;
}

sub CreateMyMenuBar {
    my $self = shift;

    my $bar = Wx::MenuBar->new();

    my $file = Wx::Menu->new();
    $file->Append(ID_QUIT, 'E&xit');

    $bar->Append($file, '&File');

    $self->SetMenuBar($bar);
}

sub CreateMyImageList {
    my $self = shift;

    my $imagelist = Wx::ImageList->new(16, 16, 3);

    my $xpm_open_folder = [
        # columns rows colors chars-per-pixel
        '32 32 7 1',