#!/usr/bin/perl -w
#
# This is the (re)generated UI construction class.
#
# DO NOT EDIT THIS FILE, ANY CHANGES THAT YOU MAKE WILL BE LOST WHEN
# THIS FILE WILL BE OVERWRITTEN BY THE NEXT RUN OF Glade::PerlGenerate
#
#==============================================================================
#=== This is the 'connect_dialog' class                              
#==============================================================================
package connect_dialog;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'connect_dialog' (version 0.01)
# 
# Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
# Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
#
## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /home/ivan/gtkdbi/gtkdbi.glade
# Thu Jan 10 08:02:21 PST 2002
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $PACKAGE
                 $VERSION
                 $AUTHOR
                 $DATE
                 $AUTOLOAD
                 $permitted_fields
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $PACKAGE = 'gtkdbi';
    $VERSION = '0.01';
    $AUTHOR  = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
    $DATE    = 'Tue Oct 23 01:49:12 PDT 2001';
    $permitted_fields = '_permitted_fields';             
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORM($new_value);      sets the value of FORM
    #    $current_value = $class->FORM; gets the current value of FORM
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'gtkdbi',
    VERSION  => '0.01',
    AUTHOR   => 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>',
    DATE     => 'Tue Oct 23 01:49:12 PDT 2001',
    INSTANCE => 'window1',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_abortconnect_button_clicked' => undef,
    'on_connect_button_clicked' => undef,
    'on_datasource_entry_changed' => undef,
    'on_deletesession_button_clicked' => undef,
    'on_password_entry_changed' => undef,
    'on_savesession_button_clicked' => undef,
    'on_username_entry_changed' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{$permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('gtkdbi');
    # You can use the line below to load a test .mo file before it is installed in 
    # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
#    $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
    Gtk->init;
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        $permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"connect_dialog-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'connect_dialog'
    $widgets->{'connect_dialog'} = new Gtk::Window;
    $widgets->{'connect_dialog'}->set_title(_('gtkdbi - Connect') );
    $widgets->{'connect_dialog'}->position('none' );
    $widgets->{'connect_dialog'}->set_policy(0, 1, 0 );
    $widgets->{'connect_dialog'}->set_modal(1 );
    $widgets->{'connect_dialog'}->realize;
    $forms->{'connect_dialog'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'connect_dialog'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'connect_dialog'}{'accelgroup'}->attach($widgets->{'connect_dialog'} );
    $forms->{'connect_dialog'}{'connect_dialog'} = $widgets->{'connect_dialog'};
	#
	# Construct a GtkVBox 'vbox4'
	$widgets->{'vbox4'} = new Gtk::VBox(0, 0 );
	$forms->{'connect_dialog'}{'connect_dialog'}->add($widgets->{'vbox4'} );
	$widgets->{'vbox4'}->show;
	$forms->{'connect_dialog'}{'vbox4'} = $widgets->{'vbox4'};
	    #
	    # Construct a GtkTable 'table2'
	    $widgets->{'table2'} = new Gtk::Table(4, 2, 0 );
	    $widgets->{'table2'}->set_row_spacings(0 );
	    $widgets->{'table2'}->set_col_spacings(0 );
	    $forms->{'connect_dialog'}{'vbox4'}->add($widgets->{'table2'} );
	    $widgets->{'table2'}->show;
	    $forms->{'connect_dialog'}{'table2'} = $widgets->{'table2'};
	    $forms->{'connect_dialog'}{'table2'}->border_width(4 );
		#
		# Construct a GtkEntry 'datasource_entry'
		$widgets->{'datasource_entry'} = new Gtk::Entry;
		$forms->{'connect_dialog'}{'table2'}->attach($widgets->{'datasource_entry'}, 1, 2, 1, 2, ['expand', 'fill'], [], 0, 0 );
		$widgets->{'datasource_entry'}->show;
		$forms->{'connect_dialog'}{'datasource_entry'} = $widgets->{'datasource_entry'};
		$forms->{'connect_dialog'}{'datasource_entry'}->can_focus(1 );
		$forms->{'connect_dialog'}{'datasource_entry'}->set_text(_('') );
		$forms->{'connect_dialog'}{'datasource_entry'}->set_max_length(0 );
		$forms->{'connect_dialog'}{'datasource_entry'}->set_visibility(1 );
		$forms->{'connect_dialog'}{'datasource_entry'}->set_editable(1 );
		#
		# Construct a GtkEntry 'username_entry'
		$widgets->{'username_entry'} = new Gtk::Entry;
		$forms->{'connect_dialog'}{'table2'}->attach($widgets->{'username_entry'}, 1, 2, 2, 3, ['expand', 'fill'], [], 0, 0 );
		$widgets->{'username_entry'}->show;
		$forms->{'connect_dialog'}{'username_entry'} = $widgets->{'username_entry'};
		$forms->{'connect_dialog'}{'username_entry'}->can_focus(1 );
		$forms->{'connect_dialog'}{'username_entry'}->set_text(_('') );
		$forms->{'connect_dialog'}{'username_entry'}->set_max_length(0 );
		$forms->{'connect_dialog'}{'username_entry'}->set_visibility(1 );
		$forms->{'connect_dialog'}{'username_entry'}->set_editable(1 );
		#
		# Construct a GtkEntry 'password_entry'
		$widgets->{'password_entry'} = new Gtk::Entry;
		$forms->{'connect_dialog'}{'table2'}->attach($widgets->{'password_entry'}, 1, 2, 3, 4, ['expand', 'fill'], [], 0, 0 );
		$widgets->{'password_entry'}->show;
		$forms->{'connect_dialog'}{'password_entry'} = $widgets->{'password_entry'};
		$forms->{'connect_dialog'}{'password_entry'}->can_focus(1 );
		$forms->{'connect_dialog'}{'password_entry'}->set_text(_('') );
		$forms->{'connect_dialog'}{'password_entry'}->set_max_length(0 );
		$forms->{'connect_dialog'}{'password_entry'}->set_visibility(1 );
		$forms->{'connect_dialog'}{'password_entry'}->set_editable(1 );
		#
		# Construct a GtkLabel 'datasource_label'
		$widgets->{'datasource_label'} = new Gtk::Label(_('Data Source'));
		$widgets->{'datasource_label'}->set_justify('right' );
		$widgets->{'datasource_label'}->set_line_wrap(0 );
		$forms->{'connect_dialog'}{'table2'}->attach($widgets->{'datasource_label'}, 0, 1, 1, 2, ['fill'], [], 0, 0 );
		$widgets->{'datasource_label'}->show;
		$forms->{'connect_dialog'}{'datasource_label'} = $widgets->{'datasource_label'};
		$forms->{'connect_dialog'}{'datasource_label'}->set_alignment(0, 0.5 );
		#
		# Construct a GtkLabel 'username_label'
		$widgets->{'username_label'} = new Gtk::Label(_('Username'));
		$widgets->{'username_label'}->set_justify('center' );
		$widgets->{'username_label'}->set_line_wrap(0 );
		$forms->{'connect_dialog'}{'table2'}->attach($widgets->{'username_label'}, 0, 1, 2, 3, ['fill'], [], 0, 0 );
		$widgets->{'username_label'}->show;
		$forms->{'connect_dialog'}{'username_label'} = $widgets->{'username_label'};
		$forms->{'connect_dialog'}{'username_label'}->set_alignment(0, 0.5 );
		#
		# Construct a GtkLabel 'password_label'
		$widgets->{'password_label'} = new Gtk::Label(_('Password'));
		$widgets->{'password_label'}->set_justify('center' );
		$widgets->{'password_label'}->set_line_wrap(0 );
		$forms->{'connect_dialog'}{'table2'}->attach($widgets->{'password_label'}, 0, 1, 3, 4, ['fill'], [], 0, 0 );
		$widgets->{'password_label'}->show;
		$forms->{'connect_dialog'}{'password_label'} = $widgets->{'password_label'};
		$forms->{'connect_dialog'}{'password_label'}->set_alignment(0, 0.5 );
		#
		# Construct a GtkLabel 'session_label'
		$widgets->{'session_label'} = new Gtk::Label(_('Session'));
		$widgets->{'session_label'}->set_justify('center' );
		$widgets->{'session_label'}->set_line_wrap(0 );
		$forms->{'connect_dialog'}{'table2'}->attach($widgets->{'session_label'}, 0, 1, 0, 1, ['fill'], [], 0, 0 );
		$widgets->{'session_label'}->show;
		$forms->{'connect_dialog'}{'session_label'} = $widgets->{'session_label'};
		$forms->{'connect_dialog'}{'session_label'}->set_alignment(0, 0.5 );
		#
		# Construct a GtkOptionMenu 'session_optionmenu'
		$widgets->{'session_optionmenu'} = new Gtk::OptionMenu;
		$forms->{'connect_dialog'}{'table2'}->attach($widgets->{'session_optionmenu'}, 1, 2, 0, 1, ['expand', 'fill'], [], 0, 0 );
		$widgets->{'session_optionmenu'}->show;
		$forms->{'connect_dialog'}{'session_optionmenu'} = $widgets->{'session_optionmenu'};
		$forms->{'connect_dialog'}{'session_optionmenu'}->set_usize(0, 32 );
		$forms->{'connect_dialog'}{'session_optionmenu'}->can_focus(1 );
		$widgets->{'session_optionmenu_menu'} = new Gtk::Menu;
		$forms->{'connect_dialog'}{'session_optionmenu'}->set_menu($widgets->{'session_optionmenu_menu'} );
		$forms->{'connect_dialog'}{'session_optionmenu_menu'} = $widgets->{'session_optionmenu_menu'};
		$forms->{'connect_dialog'}{'session_optionmenu'}->set_history( 0 );
	    $forms->{'connect_dialog'}{'vbox4'}->set_child_packing($forms->{'connect_dialog'}{'table2'}, 1, 1, 0, 'start' );
	    #
	    # Construct a GtkHSeparator 'hseparator1'
	    $widgets->{'hseparator1'} = new Gtk::HSeparator;
	    $forms->{'connect_dialog'}{'vbox4'}->add($widgets->{'hseparator1'} );
	    $widgets->{'hseparator1'}->show;
	    $forms->{'connect_dialog'}{'hseparator1'} = $widgets->{'hseparator1'};
	    $forms->{'connect_dialog'}{'vbox4'}->set_child_packing($forms->{'connect_dialog'}{'hseparator1'}, 1, 1, 0, 'start' );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox2'
	    $widgets->{'hbuttonbox2'} = new Gtk::HButtonBox;
	    $forms->{'connect_dialog'}{'vbox4'}->add($widgets->{'hbuttonbox2'} );
	    $widgets->{'hbuttonbox2'}->show;
	    $forms->{'connect_dialog'}{'hbuttonbox2'} = $widgets->{'hbuttonbox2'};
	    $forms->{'connect_dialog'}{'hbuttonbox2'}->set_layout('spread' );
	    $forms->{'connect_dialog'}{'hbuttonbox2'}->set_spacing(30 );
	    $forms->{'connect_dialog'}{'hbuttonbox2'}->set_child_size(85, 27 );
	    $forms->{'connect_dialog'}{'hbuttonbox2'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'savesession_button'
		$widgets->{'savesession_button'} = new Gtk::Button(_('Save Session'));
		$forms->{'connect_dialog'}{'hbuttonbox2'}->add($widgets->{'savesession_button'} );
		$widgets->{'savesession_button'}->show;
		$forms->{'connect_dialog'}{'savesession_button'} = $widgets->{'savesession_button'};
		$forms->{'connect_dialog'}{'savesession_button'}->can_default(1 );
		$forms->{'connect_dialog'}{'savesession_button'}->can_focus(1 );
		#
		# Construct a GtkButton 'deletesession_button'
		$widgets->{'deletesession_button'} = new Gtk::Button(_('Delete Session'));
		$forms->{'connect_dialog'}{'hbuttonbox2'}->add($widgets->{'deletesession_button'} );
		$widgets->{'deletesession_button'}->show;
		$forms->{'connect_dialog'}{'deletesession_button'} = $widgets->{'deletesession_button'};
		$forms->{'connect_dialog'}{'deletesession_button'}->can_default(1 );
		$forms->{'connect_dialog'}{'deletesession_button'}->can_focus(1 );
	    $forms->{'connect_dialog'}{'vbox4'}->set_child_packing($forms->{'connect_dialog'}{'hbuttonbox2'}, 1, 1, 0, 'start' );
	    #
	    # Construct a GtkHSeparator 'hseparator2'
	    $widgets->{'hseparator2'} = new Gtk::HSeparator;
	    $forms->{'connect_dialog'}{'vbox4'}->add($widgets->{'hseparator2'} );
	    $widgets->{'hseparator2'}->show;
	    $forms->{'connect_dialog'}{'hseparator2'} = $widgets->{'hseparator2'};
	    $forms->{'connect_dialog'}{'vbox4'}->set_child_packing($forms->{'connect_dialog'}{'hseparator2'}, 1, 1, 0, 'start' );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox3'
	    $widgets->{'hbuttonbox3'} = new Gtk::HButtonBox;
	    $forms->{'connect_dialog'}{'vbox4'}->add($widgets->{'hbuttonbox3'} );
	    $widgets->{'hbuttonbox3'}->show;
	    $forms->{'connect_dialog'}{'hbuttonbox3'} = $widgets->{'hbuttonbox3'};
	    $forms->{'connect_dialog'}{'hbuttonbox3'}->set_layout('edge' );
	    $forms->{'connect_dialog'}{'hbuttonbox3'}->set_spacing(30 );
	    $forms->{'connect_dialog'}{'hbuttonbox3'}->set_child_size(85, 27 );
	    $forms->{'connect_dialog'}{'hbuttonbox3'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'connect_button'
		$widgets->{'connect_button'} = new Gtk::Button(_('Connect'));
		$forms->{'connect_dialog'}{'hbuttonbox3'}->add($widgets->{'connect_button'} );
		$widgets->{'connect_button'}->show;
		$forms->{'connect_dialog'}{'connect_button'} = $widgets->{'connect_button'};
		$forms->{'connect_dialog'}{'connect_button'}->can_default(1 );
		$forms->{'connect_dialog'}{'connect_button'}->can_focus(1 );
		#
		# Construct a GtkButton 'abortconnect_button'
		$widgets->{'abortconnect_button'} = new Gtk::Button(_('Abort'));
		$forms->{'connect_dialog'}{'hbuttonbox3'}->add($widgets->{'abortconnect_button'} );
		$widgets->{'abortconnect_button'}->show;
		$forms->{'connect_dialog'}{'abortconnect_button'} = $widgets->{'abortconnect_button'};
		$forms->{'connect_dialog'}{'abortconnect_button'}->can_default(1 );
		$forms->{'connect_dialog'}{'abortconnect_button'}->can_focus(1 );
	    $forms->{'connect_dialog'}{'vbox4'}->set_child_packing($forms->{'connect_dialog'}{'hbuttonbox3'}, 1, 1, 0, 'start' );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'connect_dialog'}{'datasource_entry'}->signal_connect( 'changed', "$class\::on_datasource_entry_changed", '', 'datasource_entry', "connect_dialog-$instance" );
    $forms->{'connect_dialog'}{'username_entry'}->signal_connect( 'changed', "$class\::on_username_entry_changed", '', 'username_entry', "connect_dialog-$instance" );
    $forms->{'connect_dialog'}{'password_entry'}->signal_connect( 'changed', "$class\::on_password_entry_changed", '', 'password_entry', "connect_dialog-$instance" );
    $forms->{'connect_dialog'}{'savesession_button'}->signal_connect( 'clicked', "$class\::on_savesession_button_clicked", '', 'savesession_button', "connect_dialog-$instance" );
    $forms->{'connect_dialog'}{'deletesession_button'}->signal_connect( 'clicked', "$class\::on_deletesession_button_clicked", '', 'deletesession_button', "connect_dialog-$instance" );
    $forms->{'connect_dialog'}{'connect_button'}->signal_connect( 'clicked', "$class\::on_connect_button_clicked", '', 'connect_button', "connect_dialog-$instance" );
    $forms->{'connect_dialog'}{'abortconnect_button'}->signal_connect( 'clicked', "$class\::on_abortconnect_button_clicked", '', 'abortconnect_button', "connect_dialog-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'connect_dialog'});
    $self->TOPLEVEL($self->FORM->{'connect_dialog'});
    $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
    $self->INSTANCE("connect_dialog-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'quit_dialog' class                              
#==============================================================================
package quit_dialog;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'quit_dialog' (version 0.01)
# 
# Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
# Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
#
## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /home/ivan/gtkdbi/gtkdbi.glade
# Thu Jan 10 08:02:21 PST 2002
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $PACKAGE
                 $VERSION
                 $AUTHOR
                 $DATE
                 $AUTOLOAD
                 $permitted_fields
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $PACKAGE = 'gtkdbi';
    $VERSION = '0.01';
    $AUTHOR  = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
    $DATE    = 'Tue Oct 23 01:49:12 PDT 2001';
    $permitted_fields = '_permitted_fields';             
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORM($new_value);      sets the value of FORM
    #    $current_value = $class->FORM; gets the current value of FORM
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'gtkdbi',
    VERSION  => '0.01',
    AUTHOR   => 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>',
    DATE     => 'Tue Oct 23 01:49:12 PDT 2001',
    INSTANCE => 'window1',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_quit_no_clicked' => undef,
    'on_quit_yes_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{$permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('gtkdbi');
    # You can use the line below to load a test .mo file before it is installed in 
    # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
#    $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
    Gtk->init;
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        $permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"quit_dialog-$instance"}) {$instance++;}


    #
    # Construct a GtkDialog 'quit_dialog'
    $widgets->{'quit_dialog'} = new Gtk::Dialog;
    $widgets->{'quit_dialog'}->set_title(_('gtkdbi ') );
    $widgets->{'quit_dialog'}->position('center' );
    $widgets->{'quit_dialog'}->set_policy(1, 1, 0 );
    $widgets->{'quit_dialog'}->set_modal(1 );
    $widgets->{'quit_dialog'}->realize;
    $forms->{'quit_dialog'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'quit_dialog'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'quit_dialog'}{'accelgroup'}->attach($widgets->{'quit_dialog'} );
    $forms->{'quit_dialog'}{'quit_dialog'} = $widgets->{'quit_dialog'};
	#
	# Construct a GtkVBox 'dialog-vbox1'
	$widgets->{'dialog-vbox1'} = $forms->{'quit_dialog'}{'quit_dialog'}->vbox;
	$widgets->{'dialog-vbox1'}->show;
	$forms->{'quit_dialog'}{'dialog-vbox1'} = $widgets->{'dialog-vbox1'};
	    #
	    # Construct a GtkHBox 'dialog-action_area1'
	    $widgets->{'dialog-action_area1'} = $forms->{'quit_dialog'}{'quit_dialog'}->action_area;
	    $widgets->{'dialog-action_area1'}->show;
	    $forms->{'quit_dialog'}{'dialog-action_area1'} = $widgets->{'dialog-action_area1'};
	    $forms->{'quit_dialog'}{'dialog-action_area1'}->border_width(10 );
		#
		# Construct a GtkHButtonBox 'hbuttonbox1'
		$widgets->{'hbuttonbox1'} = new Gtk::HButtonBox;
		$forms->{'quit_dialog'}{'dialog-action_area1'}->add($widgets->{'hbuttonbox1'} );
		$widgets->{'hbuttonbox1'}->show;
		$forms->{'quit_dialog'}{'hbuttonbox1'} = $widgets->{'hbuttonbox1'};
		$forms->{'quit_dialog'}{'hbuttonbox1'}->set_layout('default_style' );
		$forms->{'quit_dialog'}{'hbuttonbox1'}->set_spacing(30 );
		$forms->{'quit_dialog'}{'hbuttonbox1'}->set_child_size(85, 27 );
		$forms->{'quit_dialog'}{'hbuttonbox1'}->set_child_ipadding(7, 0 );
		    #
		    # Construct a GtkButton 'quit_yes'
		    $widgets->{'quit_yes'} = new Gtk::Button(_('Yes'));
		    $forms->{'quit_dialog'}{'hbuttonbox1'}->add($widgets->{'quit_yes'} );
		    $widgets->{'quit_yes'}->show;
		    $forms->{'quit_dialog'}{'quit_yes'} = $widgets->{'quit_yes'};
		    $forms->{'quit_dialog'}{'quit_yes'}->can_default(1 );
		    $forms->{'quit_dialog'}{'quit_yes'}->can_focus(1 );
		    #
		    # Construct a GtkButton 'quit_no'
		    $widgets->{'quit_no'} = new Gtk::Button(_('No'));
		    $forms->{'quit_dialog'}{'hbuttonbox1'}->add($widgets->{'quit_no'} );
		    $widgets->{'quit_no'}->show;
		    $forms->{'quit_dialog'}{'quit_no'} = $widgets->{'quit_no'};
		    $forms->{'quit_dialog'}{'quit_no'}->can_default(1 );
		    $forms->{'quit_dialog'}{'quit_no'}->can_focus(1 );
		$forms->{'quit_dialog'}{'dialog-action_area1'}->set_child_packing($forms->{'quit_dialog'}{'hbuttonbox1'}, 1, 1, 0, 'start' );
	    $forms->{'quit_dialog'}{'dialog-vbox1'}->set_child_packing($forms->{'quit_dialog'}{'dialog-action_area1'}, 0, 1, 0, 'end' );
	    #
	    # Construct a GtkLabel 'label2'
	    $widgets->{'label2'} = new Gtk::Label(_('Really quit?'));
	    $widgets->{'label2'}->set_justify('center' );
	    $widgets->{'label2'}->set_line_wrap(0 );
	    $forms->{'quit_dialog'}{'dialog-vbox1'}->add($widgets->{'label2'} );
	    $widgets->{'label2'}->show;
	    $forms->{'quit_dialog'}{'label2'} = $widgets->{'label2'};
	    $forms->{'quit_dialog'}{'label2'}->set_alignment(0.5, 0.5 );
	    $forms->{'quit_dialog'}{'label2'}->set_padding(0, 4 );
	    $forms->{'quit_dialog'}{'dialog-vbox1'}->set_child_packing($forms->{'quit_dialog'}{'label2'}, 1, 0, 0, 'start' );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'quit_dialog'}{'quit_yes'}->signal_connect( 'clicked', "$class\::on_quit_yes_clicked", '', 'quit_yes', "quit_dialog-$instance" );
    $forms->{'quit_dialog'}{'quit_no'}->signal_connect( 'clicked', "$class\::on_quit_no_clicked", '', 'quit_no', "quit_dialog-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'quit_dialog'});
    $self->TOPLEVEL($self->FORM->{'quit_dialog'});
    $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
    $self->INSTANCE("quit_dialog-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'error_dialog' class                              
#==============================================================================
package error_dialog;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'error_dialog' (version 0.01)
# 
# Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
# Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
#
## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /home/ivan/gtkdbi/gtkdbi.glade
# Thu Jan 10 08:02:21 PST 2002
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $PACKAGE
                 $VERSION
                 $AUTHOR
                 $DATE
                 $AUTOLOAD
                 $permitted_fields
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $PACKAGE = 'gtkdbi';
    $VERSION = '0.01';
    $AUTHOR  = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
    $DATE    = 'Tue Oct 23 01:49:12 PDT 2001';
    $permitted_fields = '_permitted_fields';             
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORM($new_value);      sets the value of FORM
    #    $current_value = $class->FORM; gets the current value of FORM
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'gtkdbi',
    VERSION  => '0.01',
    AUTHOR   => 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>',
    DATE     => 'Tue Oct 23 01:49:12 PDT 2001',
    INSTANCE => 'window1',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_error_button_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{$permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('gtkdbi');
    # You can use the line below to load a test .mo file before it is installed in 
    # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
#    $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
    Gtk->init;
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        $permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"error_dialog-$instance"}) {$instance++;}


    #
    # Construct a GtkDialog 'error_dialog'
    $widgets->{'error_dialog'} = new Gtk::Dialog;
    $widgets->{'error_dialog'}->set_title(_('gtkdbi - Error') );
    $widgets->{'error_dialog'}->position('none' );
    $widgets->{'error_dialog'}->set_policy(1, 1, 0 );
    $widgets->{'error_dialog'}->set_modal(1 );
    $widgets->{'error_dialog'}->realize;
    $forms->{'error_dialog'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'error_dialog'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'error_dialog'}{'accelgroup'}->attach($widgets->{'error_dialog'} );
    $forms->{'error_dialog'}{'error_dialog'} = $widgets->{'error_dialog'};
	#
	# Construct a GtkVBox 'dialog-vbox3'
	$widgets->{'dialog-vbox3'} = $forms->{'error_dialog'}{'error_dialog'}->vbox;
	$widgets->{'dialog-vbox3'}->show;
	$forms->{'error_dialog'}{'dialog-vbox3'} = $widgets->{'dialog-vbox3'};
	    #
	    # Construct a GtkHBox 'dialog-action_area3'
	    $widgets->{'dialog-action_area3'} = $forms->{'error_dialog'}{'error_dialog'}->action_area;
	    $widgets->{'dialog-action_area3'}->show;
	    $forms->{'error_dialog'}{'dialog-action_area3'} = $widgets->{'dialog-action_area3'};
	    $forms->{'error_dialog'}{'dialog-action_area3'}->border_width(10 );
		#
		# Construct a GtkButton 'error_button'
		$widgets->{'error_button'} = new Gtk::Button(_('OK'));
		$forms->{'error_dialog'}{'dialog-action_area3'}->add($widgets->{'error_button'} );
		$widgets->{'error_button'}->show;
		$forms->{'error_dialog'}{'error_button'} = $widgets->{'error_button'};
		$forms->{'error_dialog'}{'error_button'}->can_focus(1 );
		$forms->{'error_dialog'}{'dialog-action_area3'}->set_child_packing($forms->{'error_dialog'}{'error_button'}, 0, 0, 0, 'start' );
	    $forms->{'error_dialog'}{'dialog-vbox3'}->set_child_packing($forms->{'error_dialog'}{'dialog-action_area3'}, 0, 1, 0, 'end' );
	    #
	    # Construct a GtkLabel 'error_label'
	    $widgets->{'error_label'} = new Gtk::Label(_('$ERROR'));
	    $widgets->{'error_label'}->set_justify('center' );
	    $widgets->{'error_label'}->set_line_wrap(0 );
	    $forms->{'error_dialog'}{'dialog-vbox3'}->add($widgets->{'error_label'} );
	    $widgets->{'error_label'}->show;
	    $forms->{'error_dialog'}{'error_label'} = $widgets->{'error_label'};
	    $forms->{'error_dialog'}{'error_label'}->set_alignment(0.5, 0.5 );
	    $forms->{'error_dialog'}{'dialog-vbox3'}->set_child_packing($forms->{'error_dialog'}{'error_label'}, 1, 0, 0, 'start' );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'error_dialog'}{'error_button'}->signal_connect( 'clicked', "$class\::on_error_button_clicked", '', 'error_button', "error_dialog-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'error_dialog'});
    $self->TOPLEVEL($self->FORM->{'error_dialog'});
    $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
    $self->INSTANCE("error_dialog-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'about_dialog' class                              
#==============================================================================
package about_dialog;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'about_dialog' (version 0.01)
# 
# Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
# Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
#
## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /home/ivan/gtkdbi/gtkdbi.glade
# Thu Jan 10 08:02:21 PST 2002
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $PACKAGE
                 $VERSION
                 $AUTHOR
                 $DATE
                 $AUTOLOAD
                 $permitted_fields
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $PACKAGE = 'gtkdbi';
    $VERSION = '0.01';
    $AUTHOR  = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
    $DATE    = 'Tue Oct 23 01:49:12 PDT 2001';
    $permitted_fields = '_permitted_fields';             
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORM($new_value);      sets the value of FORM
    #    $current_value = $class->FORM; gets the current value of FORM
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'gtkdbi',
    VERSION  => '0.01',
    AUTHOR   => 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>',
    DATE     => 'Tue Oct 23 01:49:12 PDT 2001',
    INSTANCE => 'window1',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_about_button_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{$permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('gtkdbi');
    # You can use the line below to load a test .mo file before it is installed in 
    # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
#    $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
    Gtk->init;
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        $permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"about_dialog-$instance"}) {$instance++;}


    #
    # Construct a GtkDialog 'about_dialog'
    $widgets->{'about_dialog'} = new Gtk::Dialog;
    $widgets->{'about_dialog'}->set_title(_('gtkdbi - About') );
    $widgets->{'about_dialog'}->position('center' );
    $widgets->{'about_dialog'}->set_policy(1, 1, 0 );
    $widgets->{'about_dialog'}->set_modal(1 );
    $widgets->{'about_dialog'}->realize;
    $forms->{'about_dialog'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'about_dialog'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'about_dialog'}{'accelgroup'}->attach($widgets->{'about_dialog'} );
    $forms->{'about_dialog'}{'about_dialog'} = $widgets->{'about_dialog'};
	#
	# Construct a GtkVBox 'dialog-vbox2'
	$widgets->{'dialog-vbox2'} = $forms->{'about_dialog'}{'about_dialog'}->vbox;
	$widgets->{'dialog-vbox2'}->show;
	$forms->{'about_dialog'}{'dialog-vbox2'} = $widgets->{'dialog-vbox2'};
	    #
	    # Construct a GtkHBox 'dialog-action_area2'
	    $widgets->{'dialog-action_area2'} = $forms->{'about_dialog'}{'about_dialog'}->action_area;
	    $widgets->{'dialog-action_area2'}->show;
	    $forms->{'about_dialog'}{'dialog-action_area2'} = $widgets->{'dialog-action_area2'};
	    $forms->{'about_dialog'}{'dialog-action_area2'}->border_width(10 );
		#
		# Construct a GtkButton 'about_button'
		$widgets->{'about_button'} = new Gtk::Button(_('Ok'));
		$forms->{'about_dialog'}{'dialog-action_area2'}->add($widgets->{'about_button'} );
		$widgets->{'about_button'}->show;
		$forms->{'about_dialog'}{'about_button'} = $widgets->{'about_button'};
		$forms->{'about_dialog'}{'about_button'}->can_focus(1 );
		$forms->{'about_dialog'}{'dialog-action_area2'}->set_child_packing($forms->{'about_dialog'}{'about_button'}, 0, 0, 0, 'start' );
	    $forms->{'about_dialog'}{'dialog-vbox2'}->set_child_packing($forms->{'about_dialog'}{'dialog-action_area2'}, 0, 1, 0, 'end' );
	    #
	    # Construct a GtkLabel 'about_label'
	    $widgets->{'about_label'} = new Gtk::Label(_('gtkdbi

A graphical interface to DBI data sources.

http://www.420.am/gtkdbi doesn\'t exist yet.

Ivan Kohler <ivan-gtkdbi@420.am>'));
	    $widgets->{'about_label'}->set_justify('center' );
	    $widgets->{'about_label'}->set_line_wrap(0 );
	    $forms->{'about_dialog'}{'dialog-vbox2'}->add($widgets->{'about_label'} );
	    $widgets->{'about_label'}->show;
	    $forms->{'about_dialog'}{'about_label'} = $widgets->{'about_label'};
	    $forms->{'about_dialog'}{'about_label'}->set_alignment(0.5, 0.5 );
	    $forms->{'about_dialog'}{'about_label'}->set_padding(4, 0 );
	    $forms->{'about_dialog'}{'dialog-vbox2'}->set_child_packing($forms->{'about_dialog'}{'about_label'}, 1, 0, 0, 'start' );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'about_dialog'}{'about_button'}->signal_connect( 'clicked', "$class\::on_about_button_clicked", '', 'about_button', "about_dialog-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'about_dialog'});
    $self->TOPLEVEL($self->FORM->{'about_dialog'});
    $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
    $self->INSTANCE("about_dialog-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'window1' class                              
#==============================================================================
package window1;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'window1' (version 0.01)
# 
# Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
# Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
#
## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /home/ivan/gtkdbi/gtkdbi.glade
# Thu Jan 10 08:02:21 PST 2002
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $PACKAGE
                 $VERSION
                 $AUTHOR
                 $DATE
                 $AUTOLOAD
                 $permitted_fields
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $PACKAGE = 'gtkdbi';
    $VERSION = '0.01';
    $AUTHOR  = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
    $DATE    = 'Tue Oct 23 01:49:12 PDT 2001';
    $permitted_fields = '_permitted_fields';             
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORM($new_value);      sets the value of FORM
    #    $current_value = $class->FORM; gets the current value of FORM
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'gtkdbi',
    VERSION  => '0.01',
    AUTHOR   => 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>',
    DATE     => 'Tue Oct 23 01:49:12 PDT 2001',
    INSTANCE => 'window1',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_about1_activate' => undef,
    'on_connect1_activate' => undef,
    'on_quit1_activate' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{$permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('gtkdbi');
    # You can use the line below to load a test .mo file before it is installed in 
    # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
#    $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
    Gtk->init;
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        $permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"window1-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'window1'
    $widgets->{'window1'} = new Gtk::Window;
    $widgets->{'window1'}->set_title(_('gtkdbi - Not Connected') );
    $widgets->{'window1'}->position('none' );
    $widgets->{'window1'}->set_policy(0, 1, 0 );
    $widgets->{'window1'}->set_modal(0 );
    $widgets->{'window1'}->realize;
    $forms->{'window1'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'window1'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'window1'}{'accelgroup'}->attach($widgets->{'window1'} );
    $forms->{'window1'}{'window1'} = $widgets->{'window1'};
	#
	# Construct a GtkVBox 'vbox1'
	$widgets->{'vbox1'} = new Gtk::VBox(0, 0 );
	$forms->{'window1'}{'window1'}->add($widgets->{'vbox1'} );
	$widgets->{'vbox1'}->show;
	$forms->{'window1'}{'vbox1'} = $widgets->{'vbox1'};
	    #
	    # Construct a GtkHandleBox 'handlebox1'
	    $widgets->{'handlebox1'} = new Gtk::HandleBox;
	    $widgets->{'handlebox1'}->set_handle_position('left' );
	    $widgets->{'handlebox1'}->set_shadow_type('out' );
	    $widgets->{'handlebox1'}->set_snap_edge('top' );
	    $forms->{'window1'}{'vbox1'}->add($widgets->{'handlebox1'} );
	    $widgets->{'handlebox1'}->show;
	    $forms->{'window1'}{'handlebox1'} = $widgets->{'handlebox1'};
		#
		# Construct a GtkMenuBar 'menubar3'
		$widgets->{'menubar3'} = new Gtk::MenuBar;
		$widgets->{'menubar3'}->set_shadow_type('out' );
		$forms->{'window1'}{'handlebox1'}->add($widgets->{'menubar3'} );
		$widgets->{'menubar3'}->show;
		$forms->{'window1'}{'menubar3'} = $widgets->{'menubar3'};
		    #
		    # Construct a GtkMenuItem 'file1'
		    $widgets->{'file1'} = new Gtk::MenuItem(_('File'));
		    $forms->{'window1'}{'menubar3'}->append($widgets->{'file1'} );
		    $widgets->{'file1'}->show;
		    $forms->{'window1'}{'file1'} = $widgets->{'file1'};
			#
			# Construct a GtkMenu 'file1_menu'
			$widgets->{'file1_menu'} = new Gtk::Menu;
			$forms->{'window1'}{'file1'}->set_submenu($widgets->{'file1_menu'} );
			$forms->{'window1'}{'file1_menu'} = $widgets->{'file1_menu'};
			    #
			    # Construct a GtkMenuItem 'connect1'
			    $widgets->{'connect1'} = new Gtk::MenuItem(_('Connect'));
			    $forms->{'window1'}{'file1_menu'}->append($widgets->{'connect1'} );
			    $widgets->{'connect1'}->show;
			    $forms->{'window1'}{'connect1'} = $widgets->{'connect1'};
			    #
			    # Construct a GtkMenuItem 'separator1'
			    $widgets->{'separator1'} = new Gtk::MenuItem;
			    $forms->{'window1'}{'file1_menu'}->append($widgets->{'separator1'} );
			    $widgets->{'separator1'}->show;
			    $forms->{'window1'}{'separator1'} = $widgets->{'separator1'};
			    #
			    # Construct a GtkMenuItem 'quit1'
			    $widgets->{'quit1'} = new Gtk::MenuItem(_('Quit'));
			    $forms->{'window1'}{'file1_menu'}->append($widgets->{'quit1'} );
			    $widgets->{'quit1'}->show;
			    $forms->{'window1'}{'quit1'} = $widgets->{'quit1'};
		    #
		    # Construct a GtkMenuItem 'help1'
		    $widgets->{'help1'} = new Gtk::MenuItem(_('Help'));
		    $widgets->{'help1'}->right_justify;
		    $forms->{'window1'}{'menubar3'}->append($widgets->{'help1'} );
		    $widgets->{'help1'}->show;
		    $forms->{'window1'}{'help1'} = $widgets->{'help1'};
			#
			# Construct a GtkMenu 'help1_menu'
			$widgets->{'help1_menu'} = new Gtk::Menu;
			$forms->{'window1'}{'help1'}->set_submenu($widgets->{'help1_menu'} );
			$forms->{'window1'}{'help1_menu'} = $widgets->{'help1_menu'};
			    #
			    # Construct a GtkMenuItem 'about1'
			    $widgets->{'about1'} = new Gtk::MenuItem(_('About'));
			    $forms->{'window1'}{'help1_menu'}->append($widgets->{'about1'} );
			    $widgets->{'about1'}->show;
			    $forms->{'window1'}{'about1'} = $widgets->{'about1'};
	    $forms->{'window1'}{'vbox1'}->set_child_packing($forms->{'window1'}{'handlebox1'}, 0, 1, 0, 'start' );
	    #
	    # Construct a GtkNotebook 'notebook1'
	    $widgets->{'notebook1'} = new Gtk::Notebook;
	    $forms->{'window1'}{'vbox1'}->add($widgets->{'notebook1'} );
	    $widgets->{'notebook1'}->show;
	    $forms->{'window1'}{'notebook1'} = $widgets->{'notebook1'};
	    $forms->{'window1'}{'notebook1'}->can_focus(1 );
	    $forms->{'window1'}{'notebook1'}->set_tab_pos('top' );
	    $forms->{'window1'}{'notebook1'}->set_show_tabs(1 );
	    $forms->{'window1'}{'notebook1'}->set_show_border(1 );
	    $forms->{'window1'}{'notebook1'}->set_scrollable(1 );
	    $forms->{'window1'}{'notebook1'}->set_tab_hborder(2 );
	    $forms->{'window1'}{'notebook1'}->set_tab_vborder(2 );
		#
		# Construct a GtkScrolledWindow 'scrolledwindow1'
		$widgets->{'scrolledwindow1'} = new Gtk::ScrolledWindow( undef, undef);
		$widgets->{'scrolledwindow1'}->set_policy('always', 'always' );
		$widgets->{'scrolledwindow1'}->border_width(0 );
		$widgets->{'scrolledwindow1'}->hscrollbar->set_update_policy('continuous' );
		$widgets->{'scrolledwindow1'}->vscrollbar->set_update_policy('continuous' );
		$widgets->{'scrolledwindow1'}->show;
		$forms->{'window1'}{'scrolledwindow1'} = $widgets->{'scrolledwindow1'};
		    #
		    # Construct a GtkViewport 'viewport1'
		    $widgets->{'viewport1'} = new Gtk::Viewport(new Gtk::Adjustment( 0.0, 0.0, 101.0, 0.1, 1.0, 1.0), new Gtk::Adjustment( 0.0, 0.0, 101.0, 0.1, 1.0, 1.0) );
		    $widgets->{'viewport1'}->set_shadow_type('in' );
		    $forms->{'window1'}{'scrolledwindow1'}->add_with_viewport($widgets->{'viewport1'} );
		    $widgets->{'viewport1'}->show;
		    $forms->{'window1'}{'viewport1'} = $widgets->{'viewport1'};
			#
			# Construct a GtkHBox 'hbox1'
			$widgets->{'hbox1'} = new Gtk::HBox(0, 0 );
			$forms->{'window1'}{'viewport1'}->add($widgets->{'hbox1'} );
			$widgets->{'hbox1'}->show;
			$forms->{'window1'}{'hbox1'} = $widgets->{'hbox1'};
			    #
			    # Construct a GtkVBox 'vbox2'
			    $widgets->{'vbox2'} = new Gtk::VBox(0, 0 );
			    $forms->{'window1'}{'hbox1'}->add($widgets->{'vbox2'} );
			    $widgets->{'vbox2'}->show;
			    $forms->{'window1'}{'vbox2'} = $widgets->{'vbox2'};
				#
				# Construct a GtkButton 'button1'
				$widgets->{'button1'} = new Gtk::Button(_('button1'));
				$forms->{'window1'}{'vbox2'}->add($widgets->{'button1'} );
				$widgets->{'button1'}->show;
				$forms->{'window1'}{'button1'} = $widgets->{'button1'};
				$forms->{'window1'}{'button1'}->can_focus(1 );
				$forms->{'window1'}{'vbox2'}->set_child_packing($forms->{'window1'}{'button1'}, 0, 0, 0, 'start' );
				#
				# Construct a GtkEntry 'entry2'
				$widgets->{'entry2'} = new Gtk::Entry;
				$forms->{'window1'}{'vbox2'}->add($widgets->{'entry2'} );
				$widgets->{'entry2'}->show;
				$forms->{'window1'}{'entry2'} = $widgets->{'entry2'};
				$forms->{'window1'}{'entry2'}->can_focus(1 );
				$forms->{'window1'}{'entry2'}->set_text(_('') );
				$forms->{'window1'}{'entry2'}->set_max_length(0 );
				$forms->{'window1'}{'entry2'}->set_visibility(1 );
				$forms->{'window1'}{'entry2'}->set_editable(1 );
				$forms->{'window1'}{'vbox2'}->set_child_packing($forms->{'window1'}{'entry2'}, 0, 0, 0, 'start' );
			    $forms->{'window1'}{'hbox1'}->set_child_packing($forms->{'window1'}{'vbox2'}, 1, 1, 0, 'start' );
			    #
			    # Construct a GtkVBox 'vbox3'
			    $widgets->{'vbox3'} = new Gtk::VBox(0, 0 );
			    $forms->{'window1'}{'hbox1'}->add($widgets->{'vbox3'} );
			    $widgets->{'vbox3'}->show;
			    $forms->{'window1'}{'vbox3'} = $widgets->{'vbox3'};
				#
				# Construct a GtkButton 'button2'
				$widgets->{'button2'} = new Gtk::Button(_('button2'));
				$forms->{'window1'}{'vbox3'}->add($widgets->{'button2'} );
				$widgets->{'button2'}->show;
				$forms->{'window1'}{'button2'} = $widgets->{'button2'};
				$forms->{'window1'}{'button2'}->can_focus(1 );
				$forms->{'window1'}{'vbox3'}->set_child_packing($forms->{'window1'}{'button2'}, 0, 0, 0, 'start' );
				#
				# Construct a GtkEntry 'entry3'
				$widgets->{'entry3'} = new Gtk::Entry;
				$forms->{'window1'}{'vbox3'}->add($widgets->{'entry3'} );
				$widgets->{'entry3'}->show;
				$forms->{'window1'}{'entry3'} = $widgets->{'entry3'};
				$forms->{'window1'}{'entry3'}->can_focus(1 );
				$forms->{'window1'}{'entry3'}->set_text(_('') );
				$forms->{'window1'}{'entry3'}->set_max_length(0 );
				$forms->{'window1'}{'entry3'}->set_visibility(1 );
				$forms->{'window1'}{'entry3'}->set_editable(1 );
				$forms->{'window1'}{'vbox3'}->set_child_packing($forms->{'window1'}{'entry3'}, 0, 0, 0, 'start' );
			    $forms->{'window1'}{'hbox1'}->set_child_packing($forms->{'window1'}{'vbox3'}, 1, 1, 0, 'start' );
		#
		# Construct a GtkLabel 'tablelabel1'
		$widgets->{'tablelabel1'} = new Gtk::Label(_('tabletable1'));
		$widgets->{'tablelabel1'}->set_justify('center' );
		$widgets->{'tablelabel1'}->set_line_wrap(0 );
		$forms->{'window1'}{'notebook1'}->append_page($forms->{'window1'}{'scrolledwindow1'}, $widgets->{'tablelabel1'} );
		$widgets->{'tablelabel1'}->show;
		$forms->{'window1'}{'tablelabel1'} = $widgets->{'tablelabel1'};
		$forms->{'window1'}{'tablelabel1'}->set_alignment(0.5, 0.5 );
	    $forms->{'window1'}{'vbox1'}->set_child_packing($forms->{'window1'}{'notebook1'}, 1, 1, 0, 'start' );
	    #
	    # Construct a GtkEntry 'entry1'
	    $widgets->{'entry1'} = new Gtk::Entry;
	    $forms->{'window1'}{'vbox1'}->add($widgets->{'entry1'} );
	    $widgets->{'entry1'}->show;
	    $forms->{'window1'}{'entry1'} = $widgets->{'entry1'};
	    $forms->{'window1'}{'entry1'}->can_focus(1 );
	    $forms->{'window1'}{'entry1'}->set_text(_('Not Connected') );
	    $forms->{'window1'}{'entry1'}->set_max_length(0 );
	    $forms->{'window1'}{'entry1'}->set_visibility(1 );
	    $forms->{'window1'}{'entry1'}->set_editable(1 );
	    $forms->{'window1'}{'vbox1'}->set_child_packing($forms->{'window1'}{'entry1'}, 0, 0, 0, 'end' );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'window1'}{'connect1'}->signal_connect( 'activate', "$class\::on_connect1_activate", '', 'connect1', "window1-$instance" );
    $forms->{'window1'}{'quit1'}->signal_connect( 'activate', "$class\::on_quit1_activate", '', 'quit1', "window1-$instance" );
    $forms->{'window1'}{'about1'}->signal_connect( 'activate', "$class\::on_about1_activate", '', 'about1', "window1-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'window1'});
    $self->TOPLEVEL($self->FORM->{'window1'});
    $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
    $self->INSTANCE("window1-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    
    return $self;
} # End of sub new










1;

__END__

#===============================================================================
#==== Documentation
#===============================================================================
=pod

=head1 NAME

gtkdbi - version 0.01 Tue Oct 23 01:49:12 PDT 2001

No description

=head1 SYNOPSIS

 use gtkdbi;

 To construct the window object and show it call
 
 Gtk->init;
 my $window = window1->new;
 $window->TOPLEVEL->show;
 Gtk->main;
 
 OR use the shorthand for the above calls
 
 window1->app_run;

=head1 DESCRIPTION

Unfortunately, the author has not yet written any documentation :-(

=head1 AUTHOR

Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>

=cut