Gtk2-Ex-DbLinker

 view release on metacpan or  search on metacpan

examples/Forms/Dnav2.pm  view on Meta::CPAN

package Forms::Dnav2;
use strict;
use warnings;
use Carp qw( carp croak confess);
use Data::Dumper;
use Gtk2::Ex::DbLinker::Datasheet;
use Scalar::Util qw( weaken );
my %refs = map { $_, 1 }
    qw(Gtk2::Ex::Datasheet::DBI Linker::Datasheet Gtk2::Ex::DbLinker::Datasheet);
my %ref_form =
    map { $_, 1 } qw(Gtk2::Ex::DBI Linker::Form Gtk2::Ex::DbLinker::Form);

sub new {
    my $class = shift;
    my %def   = ( ismain => 1 );
    my %arg   = ( %def, @_ );
    my $self  = \%arg;

examples/Forms/Dnav2.pm  view on Meta::CPAN

    }

}

sub test { my $self = shift; print $self->{msg}, " in dnav.pm\n"; }

sub gtk_main_quit {
    my ( $w, $self ) = @_;

    # print Dumper @_;
    weaken $self->{mibuilder};
    Gtk2->main_quit;
}

1;
__END__

=head1 NAME

Package Forms::Dnav

examples/Forms/Langues2.pm  view on Meta::CPAN

package Forms::Langues2;

use strict;
use warnings;
use Gtk2::Ex::DbLinker::Form;
use Gtk2::Ex::DbLinker::Datasheet;
use Log::Log4perl;
use Forms::Dnav2;
use Forms::Sflang2;
# use Data::Dumper;
use Scalar::Util qw(weaken);

sub new {

    my ( $class, $href ) = @_;
    my $self = {
        gladefolder => $$href{gladefolder},
        data_broker     => $$href{data_broker},
    };
    $self->{dnav} = Forms::Dnav2->new(
        dbh => $self->{data_broker}->get_dbh,

examples/Forms/Langues2.pm  view on Meta::CPAN

        $self->{sf}->on_countryid_changed($value);
        my $rc = $self->{linker}->get_data_manager->row_count;
        $self->{log}->debug("rc ", $rc);
        if ( $rc == 0 ) {
            $self->{dnav}->widgets_set_sensitivity(0);
        }
        else {
            $self->{dnav}->widgets_set_sensitivity(1);
        }
        $self->{sf}->on_countryid_changed($value);
        weaken $self->{sf};
    }
    else {
        $self->{dnav}->widgets_set_sensitivity(0);
    }
}

sub on_delete_clicked {

    my ( $b, $self ) = @_;
    $self->{linker}->delete;

examples/runexample2_dbc.pl  view on Meta::CPAN

   $f = Forms::Langues2->new(
        { gladefolder => "./gladefiles", data_broker => $data  } );

}

&load_main_w;
Gtk2->main;

#find_cycle($f);
#print "Weakened\n";
#find_weakened_cycle;

examples/runexample2_dbi.pl  view on Meta::CPAN

    $f = Forms::Langues2->new(
        { gladefolder => "./gladefiles", data_broker => $data } );

}

&load_main_w;
Gtk2->main;

#find_cycle($f);
#print "Weakened\n";
#find_weakened_cycle($f);

examples/runexample2_rdb.pl  view on Meta::CPAN

  
    $f = Forms::Langues2->new( { gladefolder => "./gladefiles", data_broker => $data } );

}

&load_main_w;
Gtk2->main;

#find_cycle($f);
#print "Weakened\n";
#find_weakened_cycle($f);

examples/runexample2_sqla.pl  view on Meta::CPAN

    $f = Forms::Langues2->new( { gladefolder => "./gladefiles", data_broker => $data } );
    #find_cycle($f);

}

&load_main_w;
Gtk2->main;

#find_cycle($f);
#print "Weakened\n";
#find_weakened_cycle($f);