summaryrefslogtreecommitdiff
path: root/src/Subgtkdbi.pm
diff options
context:
space:
mode:
Diffstat (limited to 'src/Subgtkdbi.pm')
-rw-r--r--src/Subgtkdbi.pm743
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
generated by cgit v1.2.1 (git 2.18.0) at 2025-06-15 04:38:40 +0000