checking gtkdbi into cvsHEADSTARTmaster

1 files changed, 743 insertions, 0 deletions

diff --git a/src/Subgtkdbi.pm b/src/Subgtkdbi.pm
new file mode 100644
index 0000000..0c4a678
--- /dev/null
+++ b/src/Subgtkdbi.pm
@@ -0,0 +1,743 @@
+#!/usr/bin/perl -w
+#
+# This is an example of a subclass of the generated application
+#
+# You can safely edit this file, any changes that you make will be preserved
+# and this file will not be overwritten by the next run of Glade::PerlGenerate
+#
+#==============================================================================
+#=== This is the 'Subconnect_dialog' class                              
+#==============================================================================
+package Subconnect_dialog;
+require 5.000; use strict 'vars', 'refs', 'subs';
+# UI class 'Subconnect_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
+# Wed Jan  9 18:12:34 PST 2002
+#==============================================================================
+
+BEGIN {
+    use vars qw( 
+                 @ISA
+                 %fields
+                 $PACKAGE
+                 $VERSION
+                 $AUTHOR
+                 $DATE
+                 $permitted_fields
+             );
+    # Existing signal handler modules
+    use src::gtkdbi;
+    # Uncomment the line below to enable gettext checking
+#    use Glade::PerlSource;
+    # Tell interpreter who we are inheriting from
+    @ISA     = qw( connect_dialog );
+    # Uncomment the line below to enable gettext checking
+#    @ISA      = qw( connect_dialog Glade::PerlSource );
+    $PACKAGE = 'Subgtkdbi';
+    $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';             
+    # Inherit the AUTOLOAD dynamic methods from connect_dialog
+    *AUTOLOAD = \&connect_dialog::AUTOLOAD;
+} # End of sub BEGIN
+
+%fields = (
+# Insert any extra data access methods that you want to add to 
+#   our inherited super-constructor (or overload)
+    USERDATA    => undef,
+    VERSION     => '0.01',
+);
+
+sub DESTROY {
+    # This sub will be called on object destruction
+} # End of sub DESTROY
+
+#==============================================================================
+#=== Below are the overloaded class constructors
+#==============================================================================
+sub new {
+    my $that  = shift;
+    # Allow indirect constructor so that we can call eg. 
+    #   $window1 = BusFrame->new; $window2 = $window1->new;
+    my $class = ref($that) || $that;
+
+    # Call our super-class constructor to get an object and reconsecrate it
+    my $self = bless $that->SUPER::new(), $class;
+
+    # Add our own data access methods to the inherited constructor
+    my($element);
+    foreach $element (keys %fields) {
+        $self->{$permitted_fields}->{$element} = $fields{$element};
+    }
+    @{$self}{keys %fields} = values %fields;
+    return $self;
+} # End of sub new
+
+sub app_run {
+    my ($class) = @_;
+    Gtk->init;
+    # Uncomment the line below to enable gettext checking
+#    $class->check_gettext_strings;
+    my $window = $class->new;
+    # Insert your subclass user data key/value pairs 
+    $window->USERDATA({
+#        'Key1'   => 'Value1',
+#        'Key2'   => 'Value2',
+#        'Key3'   => 'Value3',
+    });
+    $window->TOPLEVEL->show;
+#    my $window2 = $window->new;
+#    $window2->TOPLEVEL->show;
+    Gtk->main;
+    # Uncomment the line below to enable gettext checking
+#    $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
+    $window->TOPLEVEL->destroy;
+
+    return $window;
+} # End of sub run
+#===============================================================================
+#=== Below are (overloaded) default signal handlers for 'connect_dialog' class 
+#===============================================================================
+sub about_Form {
+    my ($class) = @_;
+    my $gtkversion = 
+        Gtk->major_version.".".
+        Gtk->minor_version.".".
+        Gtk->micro_version;
+    my $name = $0;
+    my $message = 
+        __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
+        _("Written by")." $AUTHOR \n\n".
+        _("No description")." \n\n".
+        "Gtk ".     _("version").": $gtkversion\n".
+        "Gtk-Perl "._("version").": $Gtk::VERSION\n".
+        _("run from file").": $name";
+    __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
+        "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
+} # End of sub about_Form
+
+sub destroy_Form {
+    my ($class, $data, $object, $instance) = @_;
+    Gtk->main_quit; 
+} # End of sub destroy_Form
+
+sub toplevel_hide    { shift->get_toplevel->hide    }
+sub toplevel_close   { shift->get_toplevel->close   }
+sub toplevel_destroy { shift->get_toplevel->destroy }
+
+#==============================================================================
+#=== Below are (overloaded) signal handlers for 'connect_dialog' class 
+#==============================================================================
+sub on_abortconnect_button_clicked {
+    my ($class, $data, $object, $instance, $event) = @_;
+    my $me = __PACKAGE__."->on_abortconnect_button_clicked";
+    # Get ref to hash of all widgets on our form
+    my $form = $__PACKAGE__::all_forms->{$instance};
+
+    # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_abortconnect_button_clicked." is called
+#    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
+    shift->SUPER::on_abortconnect_button_clicked(@_);
+
+} # End of sub on_abortconnect_button_clicked
+
+sub on_connect_button_clicked {
+    my ($class, $data, $object, $instance, $event) = @_;
+    my $me = __PACKAGE__."->on_connect_button_clicked";
+    # Get ref to hash of all widgets on our form
+    my $form = $__PACKAGE__::all_forms->{$instance};
+
+    # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_connect_button_clicked." is called
+#    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
+    shift->SUPER::on_connect_button_clicked(@_);
+
+} # End of sub on_connect_button_clicked
+
+sub on_deletesession_button_clicked {
+    my ($class, $data, $object, $instance, $event) = @_;
+    my $me = __PACKAGE__."->on_deletesession_button_clicked";
+    # Get ref to hash of all widgets on our form
+    my $form = $__PACKAGE__::all_forms->{$instance};
+
+    # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_deletesession_button_clicked." is called
+#    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
+    shift->SUPER::on_deletesession_button_clicked(@_);
+
+} # End of sub on_deletesession_button_clicked
+
+sub on_savesession_button_clicked {
+    my ($class, $data, $object, $instance, $event) = @_;
+    my $me = __PACKAGE__."->on_savesession_button_clicked";
+    # Get ref to hash of all widgets on our form
+    my $form = $__PACKAGE__::all_forms->{$instance};
+
+    # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_savesession_button_clicked." is called
+#    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
+    shift->SUPER::on_savesession_button_clicked(@_);
+
+} # End of sub on_savesession_button_clicked
+
+
+
+
+
+
+
+
+
+
+#==============================================================================
+#=== This is the 'Subquit_dialog' class                              
+#==============================================================================
+package Subquit_dialog;
+require 5.000; use strict 'vars', 'refs', 'subs';
+# UI class 'Subquit_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
+# Wed Jan  9 18:12:34 PST 2002
+#==============================================================================
+
+BEGIN {
+    use vars qw( 
+                 @ISA
+                 %fields
+                 $PACKAGE
+                 $VERSION
+                 $AUTHOR
+                 $DATE
+                 $permitted_fields
+             );
+    # Existing signal handler modules
+    use src::gtkdbi;
+    # Uncomment the line below to enable gettext checking
+#    use Glade::PerlSource;
+    # Tell interpreter who we are inheriting from
+    @ISA     = qw( quit_dialog );
+    # Uncomment the line below to enable gettext checking
+#    @ISA      = qw( quit_dialog Glade::PerlSource );
+    $PACKAGE = 'Subgtkdbi';
+    $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';             
+    # Inherit the AUTOLOAD dynamic methods from quit_dialog
+    *AUTOLOAD = \&quit_dialog::AUTOLOAD;
+} # End of sub BEGIN
+
+%fields = (
+# Insert any extra data access methods that you want to add to 
+#   our inherited super-constructor (or overload)
+    USERDATA    => undef,
+    VERSION     => '0.01',
+);
+
+sub DESTROY {
+    # This sub will be called on object destruction
+} # End of sub DESTROY
+
+#==============================================================================
+#=== Below are the overloaded class constructors
+#==============================================================================
+sub new {
+    my $that  = shift;
+    # Allow indirect constructor so that we can call eg. 
+    #   $window1 = BusFrame->new; $window2 = $window1->new;
+    my $class = ref($that) || $that;
+
+    # Call our super-class constructor to get an object and reconsecrate it
+    my $self = bless $that->SUPER::new(), $class;
+
+    # Add our own data access methods to the inherited constructor
+    my($element);
+    foreach $element (keys %fields) {
+        $self->{$permitted_fields}->{$element} = $fields{$element};
+    }
+    @{$self}{keys %fields} = values %fields;
+    return $self;
+} # End of sub new
+
+sub app_run {
+    my ($class) = @_;
+    Gtk->init;
+    # Uncomment the line below to enable gettext checking
+#    $class->check_gettext_strings;
+    my $window = $class->new;
+    # Insert your subclass user data key/value pairs 
+    $window->USERDATA({
+#        'Key1'   => 'Value1',
+#        'Key2'   => 'Value2',
+#        'Key3'   => 'Value3',
+    });
+    $window->TOPLEVEL->show;
+#    my $window2 = $window->new;
+#    $window2->TOPLEVEL->show;
+    Gtk->main;
+    # Uncomment the line below to enable gettext checking
+#    $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
+    $window->TOPLEVEL->destroy;
+
+    return $window;
+} # End of sub run
+#===============================================================================
+#=== Below are (overloaded) default signal handlers for 'quit_dialog' class 
+#===============================================================================
+sub about_Form {
+    my ($class) = @_;
+    my $gtkversion = 
+        Gtk->major_version.".".
+        Gtk->minor_version.".".
+        Gtk->micro_version;
+    my $name = $0;
+    my $message = 
+        __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
+        _("Written by")." $AUTHOR \n\n".
+        _("No description")." \n\n".
+        "Gtk ".     _("version").": $gtkversion\n".
+        "Gtk-Perl "._("version").": $Gtk::VERSION\n".
+        _("run from file").": $name";
+    __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
+        "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
+} # End of sub about_Form
+
+sub destroy_Form {
+    my ($class, $data, $object, $instance) = @_;
+    Gtk->main_quit; 
+} # End of sub destroy_Form
+
+sub toplevel_hide    { shift->get_toplevel->hide    }
+sub toplevel_close   { shift->get_toplevel->close   }
+sub toplevel_destroy { shift->get_toplevel->destroy }
+
+#==============================================================================
+#=== Below are (overloaded) signal handlers for 'quit_dialog' class 
+#==============================================================================
+sub on_quit_no_clicked {
+    my ($class, $data, $object, $instance, $event) = @_;
+    my $me = __PACKAGE__."->on_quit_no_clicked";
+    # Get ref to hash of all widgets on our form
+    my $form = $__PACKAGE__::all_forms->{$instance};
+
+    # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_quit_no_clicked." is called
+#    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
+    shift->SUPER::on_quit_no_clicked(@_);
+
+} # End of sub on_quit_no_clicked
+
+sub on_quit_yes_clicked {
+    my ($class, $data, $object, $instance, $event) = @_;
+    my $me = __PACKAGE__."->on_quit_yes_clicked";
+    # Get ref to hash of all widgets on our form
+    my $form = $__PACKAGE__::all_forms->{$instance};
+
+    # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_quit_yes_clicked." is called
+#    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
+    shift->SUPER::on_quit_yes_clicked(@_);
+
+} # End of sub on_quit_yes_clicked
+
+
+
+
+
+
+
+
+
+
+#==============================================================================
+#=== This is the 'Subabout_dialog' class                              
+#==============================================================================
+package Subabout_dialog;
+require 5.000; use strict 'vars', 'refs', 'subs';
+# UI class 'Subabout_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
+# Wed Jan  9 18:12:34 PST 2002
+#==============================================================================
+
+BEGIN {
+    use vars qw( 
+                 @ISA
+                 %fields
+                 $PACKAGE
+                 $VERSION
+                 $AUTHOR
+                 $DATE
+                 $permitted_fields
+             );
+    # Existing signal handler modules
+    use src::gtkdbi;
+    # Uncomment the line below to enable gettext checking
+#    use Glade::PerlSource;
+    # Tell interpreter who we are inheriting from
+    @ISA     = qw( about_dialog );
+    # Uncomment the line below to enable gettext checking
+#    @ISA      = qw( about_dialog Glade::PerlSource );
+    $PACKAGE = 'Subgtkdbi';
+    $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';             
+    # Inherit the AUTOLOAD dynamic methods from about_dialog
+    *AUTOLOAD = \&about_dialog::AUTOLOAD;
+} # End of sub BEGIN
+
+%fields = (
+# Insert any extra data access methods that you want to add to 
+#   our inherited super-constructor (or overload)
+    USERDATA    => undef,
+    VERSION     => '0.01',
+);
+
+sub DESTROY {
+    # This sub will be called on object destruction
+} # End of sub DESTROY
+
+#==============================================================================
+#=== Below are the overloaded class constructors
+#==============================================================================
+sub new {
+    my $that  = shift;
+    # Allow indirect constructor so that we can call eg. 
+    #   $window1 = BusFrame->new; $window2 = $window1->new;
+    my $class = ref($that) || $that;
+
+    # Call our super-class constructor to get an object and reconsecrate it
+    my $self = bless $that->SUPER::new(), $class;
+
+    # Add our own data access methods to the inherited constructor
+    my($element);
+    foreach $element (keys %fields) {
+        $self->{$permitted_fields}->{$element} = $fields{$element};
+    }
+    @{$self}{keys %fields} = values %fields;
+    return $self;
+} # End of sub new
+
+sub app_run {
+    my ($class) = @_;
+    Gtk->init;
+    # Uncomment the line below to enable gettext checking
+#    $class->check_gettext_strings;
+    my $window = $class->new;
+    # Insert your subclass user data key/value pairs 
+    $window->USERDATA({
+#        'Key1'   => 'Value1',
+#        'Key2'   => 'Value2',
+#        'Key3'   => 'Value3',
+    });
+    $window->TOPLEVEL->show;
+#    my $window2 = $window->new;
+#    $window2->TOPLEVEL->show;
+    Gtk->main;
+    # Uncomment the line below to enable gettext checking
+#    $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
+    $window->TOPLEVEL->destroy;
+
+    return $window;
+} # End of sub run
+#===============================================================================
+#=== Below are (overloaded) default signal handlers for 'about_dialog' class 
+#===============================================================================
+sub about_Form {
+    my ($class) = @_;
+    my $gtkversion = 
+        Gtk->major_version.".".
+        Gtk->minor_version.".".
+        Gtk->micro_version;
+    my $name = $0;
+    my $message = 
+        __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
+        _("Written by")." $AUTHOR \n\n".
+        _("No description")." \n\n".
+        "Gtk ".     _("version").": $gtkversion\n".
+        "Gtk-Perl "._("version").": $Gtk::VERSION\n".
+        _("run from file").": $name";
+    __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
+        "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
+} # End of sub about_Form
+
+sub destroy_Form {
+    my ($class, $data, $object, $instance) = @_;
+    Gtk->main_quit; 
+} # End of sub destroy_Form
+
+sub toplevel_hide    { shift->get_toplevel->hide    }
+sub toplevel_close   { shift->get_toplevel->close   }
+sub toplevel_destroy { shift->get_toplevel->destroy }
+
+#==============================================================================
+#=== Below are (overloaded) signal handlers for 'about_dialog' class 
+#==============================================================================
+sub on_about_button_clicked {
+    my ($class, $data, $object, $instance, $event) = @_;
+    my $me = __PACKAGE__."->on_about_button_clicked";
+    # Get ref to hash of all widgets on our form
+    my $form = $__PACKAGE__::all_forms->{$instance};
+
+    # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_about_button_clicked." is called
+#    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
+    shift->SUPER::on_about_button_clicked(@_);
+
+} # End of sub on_about_button_clicked
+
+
+
+
+
+
+
+
+
+
+#==============================================================================
+#=== This is the 'Subwindow1' class                              
+#==============================================================================
+package Subwindow1;
+require 5.000; use strict 'vars', 'refs', 'subs';
+# UI class 'Subwindow1' (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
+# Wed Jan  9 18:12:34 PST 2002
+#==============================================================================
+
+BEGIN {
+    use vars qw( 
+                 @ISA
+                 %fields
+                 $PACKAGE
+                 $VERSION
+                 $AUTHOR
+                 $DATE
+                 $permitted_fields
+             );
+    # Existing signal handler modules
+    use src::gtkdbi;
+    # Uncomment the line below to enable gettext checking
+#    use Glade::PerlSource;
+    # Tell interpreter who we are inheriting from
+    @ISA     = qw( window1 );
+    # Uncomment the line below to enable gettext checking
+#    @ISA      = qw( window1 Glade::PerlSource );
+    $PACKAGE = 'Subgtkdbi';
+    $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';             
+    # Inherit the AUTOLOAD dynamic methods from window1
+    *AUTOLOAD = \&window1::AUTOLOAD;
+} # End of sub BEGIN
+
+%fields = (
+# Insert any extra data access methods that you want to add to 
+#   our inherited super-constructor (or overload)
+    USERDATA    => undef,
+    VERSION     => '0.01',
+);
+
+sub DESTROY {
+    # This sub will be called on object destruction
+} # End of sub DESTROY
+
+#==============================================================================
+#=== Below are the overloaded class constructors
+#==============================================================================
+sub new {
+    my $that  = shift;
+    # Allow indirect constructor so that we can call eg. 
+    #   $window1 = BusFrame->new; $window2 = $window1->new;
+    my $class = ref($that) || $that;
+
+    # Call our super-class constructor to get an object and reconsecrate it
+    my $self = bless $that->SUPER::new(), $class;
+
+    # Add our own data access methods to the inherited constructor
+    my($element);
+    foreach $element (keys %fields) {
+        $self->{$permitted_fields}->{$element} = $fields{$element};
+    }
+    @{$self}{keys %fields} = values %fields;
+    return $self;
+} # End of sub new
+
+sub app_run {
+    my ($class) = @_;
+    Gtk->init;
+    # Uncomment the line below to enable gettext checking
+#    $class->check_gettext_strings;
+    my $window = $class->new;
+    # Insert your subclass user data key/value pairs 
+    $window->USERDATA({
+#        'Key1'   => 'Value1',
+#        'Key2'   => 'Value2',
+#        'Key3'   => 'Value3',
+    });
+    $window->TOPLEVEL->show;
+#    my $window2 = $window->new;
+#    $window2->TOPLEVEL->show;
+    Gtk->main;
+    # Uncomment the line below to enable gettext checking
+#    $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
+    $window->TOPLEVEL->destroy;
+
+    return $window;
+} # End of sub run
+#===============================================================================
+#=== Below are (overloaded) default signal handlers for 'window1' class 
+#===============================================================================
+sub about_Form {
+    my ($class) = @_;
+    my $gtkversion = 
+        Gtk->major_version.".".
+        Gtk->minor_version.".".
+        Gtk->micro_version;
+    my $name = $0;
+    my $message = 
+        __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
+        _("Written by")." $AUTHOR \n\n".
+        _("No description")." \n\n".
+        "Gtk ".     _("version").": $gtkversion\n".
+        "Gtk-Perl "._("version").": $Gtk::VERSION\n".
+        _("run from file").": $name";
+    __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
+        "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
+} # End of sub about_Form
+
+sub destroy_Form {
+    my ($class, $data, $object, $instance) = @_;
+    Gtk->main_quit; 
+} # End of sub destroy_Form
+
+sub toplevel_hide    { shift->get_toplevel->hide    }
+sub toplevel_close   { shift->get_toplevel->close   }
+sub toplevel_destroy { shift->get_toplevel->destroy }
+
+#==============================================================================
+#=== Below are (overloaded) signal handlers for 'window1' class 
+#==============================================================================
+sub on_about1_activate {
+    my ($class, $data, $object, $instance, $event) = @_;
+    my $me = __PACKAGE__."->on_about1_activate";
+    # Get ref to hash of all widgets on our form
+    my $form = $__PACKAGE__::all_forms->{$instance};
+
+    # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_about1_activate." is called
+#    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
+    shift->SUPER::on_about1_activate(@_);
+
+} # End of sub on_about1_activate
+
+sub on_connect1_activate {
+    my ($class, $data, $object, $instance, $event) = @_;
+    my $me = __PACKAGE__."->on_connect1_activate";
+    # Get ref to hash of all widgets on our form
+    my $form = $__PACKAGE__::all_forms->{$instance};
+
+    # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_connect1_activate." is called
+#    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
+    shift->SUPER::on_connect1_activate(@_);
+
+} # End of sub on_connect1_activate
+
+sub on_quit1_activate {
+    my ($class, $data, $object, $instance, $event) = @_;
+    my $me = __PACKAGE__."->on_quit1_activate";
+    # Get ref to hash of all widgets on our form
+    my $form = $__PACKAGE__::all_forms->{$instance};
+
+    # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_quit1_activate." is called
+#    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
+    shift->SUPER::on_quit1_activate(@_);
+
+} # End of sub on_quit1_activate
+
+
+
+
+
+
+
+
+
+
+
+1;
+
+__END__
+
+#===============================================================================
+#==== Documentation
+#===============================================================================
+=pod
+
+=head1 NAME
+
+Subgtkdbi - version 0.01 Tue Oct 23 01:49:12 PDT 2001
+
+No description
+
+=head1 SYNOPSIS
+
+ use Subgtkdbi;
+
+ To construct the window object and show it call
+ 
+ Gtk->init;
+ my $window = Subwindow1->new;
+ $window->TOPLEVEL->show;
+ Gtk->main;
+ 
+ OR use the shorthand for the above calls
+ 
+ Subwindow1->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