view release on metacpan or  search on metacpan

lib/Wx/Perl/DbLinker/Wxform.pm  view on Meta::CPAN

    'Wx::ListBox'     => \&_set_combo,

);

my %getter = (
    'Wx::TextCtrl' => sub { my ( $self, $w, $id ) = @_; return $w->GetValue; },
    'Wx::ToggleButton' =>
      sub { my ( $self, $w, $id ) = @_; return $w->GetValue; },
    'Wx::ComboBox' => sub {
        my ( $self, $w, $id ) = @_;
        return $self->_get_combobox_selectedvalue($id);
    },
    'Wx::ListBox' => sub {
        my ( $self, $w, $id ) = @_;
        return $self->_get_combobox_selectedvalue($id);
    },
    'Wx::CheckBox' => sub {
        my ( $self, $w, $id ) = @_;
        return $w->IsChecked;
    },
    'Wx::SpinButton' => sub {
        my ( $self, $w, $id ) = @_;
        return $w->IsChecked;
    },
    'Wx::ListCtrl' => sub {
        my ( $self, $w, $id ) = @_;
        $self->_get_combobox_selectedvalue($id);
    },

);

private log => my %log;
private event => my %events;
# private states => my %states;
private widgets => my %widgets;
private fields_with_event => my %ecols;
private is_with_event => my %is_ecols;

lib/Wx/Perl/DbLinker/Wxform.pm  view on Meta::CPAN

    $self->add_combo(
        {
            data_manager => $dman,
            fields       => $href->{fields},
            id           => $comboid,
            init         => 0
        }
    );
}

sub _get_combobox_selectedvalue {
    my ( $self, $id ) = @_;
     my $ido = id $self;
    confess($log{$id }->error("id undef")) unless ( defined $id );
   
    my $w    = $self->_datawidgets( $id );
    my $name = $self->_datawidgetsName( $id );
    my $x;

    if ( $name eq "Wx::ListCtrl" ) {
        $x =

lib/Wx/Perl/DbLinker/Wxform.pm  view on Meta::CPAN

        #die ((($pos == wxNOT_FOUND) ? "not": "") . " found");
        #$log{ $id }->debug ("id : ", $id, " pos ", $pos);
        #$log{ $id }->debug(  $self->{datawidgetsValue}->{$id}->{$pos});

        $x =
          ( $pos == wxNOT_FOUND )
          ? undef
          : $datawidgets_value{ $ido }->{$id}->{$pos};

    }
    $log{ $ido }->debug( "_get_combobox_selectedvalue: found "
          . ( defined $x ? $x : " undef" ) );
    return $x;
}

sub _set_spinbutton {
    my ( $self, $w, $x ) = @_;
     my $id = id $self;
=for comment
    if ( $self->getID($w) eq $self->getID( $widgets{ $id }->{rec_spinner} ) ) {
        $log{ $id }->debug("Found record_spinner... leaving");