view release on metacpan or  search on metacpan

lib/CLI/Gwrapper/wxGrid.pm  view on Meta::CPAN

            $button,
            1,              # proportion
            wxALIGN_CENTER | wxALIGN_CENTER_HORIZONTAL | wxALL,       # flags
            0,              # border
        );
    }

    return $grid;
}

# Button callbacks
sub onClick_Execute {
    my ($self, $button, $event) = @_;

    my @cmd_line = (
        $self->command->[0],    # the CLI command
    );
    if ($self->main_opt) {
        my $opt_string = $self->main_opt->retriever->();
        push @cmd_line, $opt_string if (defined $opt_string and $opt_string ne '');
    }