view release on metacpan or  search on metacpan

lib/Gtk2/Ex/DbLinker/Form.pm  view on Meta::CPAN

);

my %getter = (
    'GtkEntry' => sub { my ( $self, $w ) = @_; return $w->get_text; },
    'GtkToggleButton' => sub {
        my ( $self, $w ) = @_;
        my $v = $w->get_active;
        return ( defined $v ? $v : 0 );
    },
    'GtkComboBox' =>,
    \&_get_combobox_firstvalue,
    'GtkComboBoxEntry' => \&_get_combobox_firstvalue,
    'GtkCheckButton'   => sub {
        my ( $self, $w ) = @_;
        my $v = $w->get_active;
        return ( defined $v && length($v) ? $v : 0 );
    },
    'GtkSpinButton' => sub {
        my ( $self, $w ) = @_;
        return $w->get_active;
    },
    'GtkTextView' => sub {

lib/Gtk2/Ex/DbLinker/Form.pm  view on Meta::CPAN

    }

}

sub _set_check {
    my ( $self, $w, $x ) = @_;
        my $id = id $self;
    $w->set_active( ( defined $x ? $x : 0 ) );
}

sub _get_combobox_firstvalue {
    my ( $self, $c ) = @_;
    my $id = id $self;
    
    #print "getter_cb\n";
    my $iter = $c->get_active_iter;
    unless ($iter) {
        $log{ $id }->debug( "iter undef row: " . $c->get_active );
    }
    return ( $iter ? $c->get_model->get( $iter, 0 ) : undef );
}