#!/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 # ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 # #============================================================================== # 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 # # 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 '; $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 # ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 # #============================================================================== # 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 # # 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 '; $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 # ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 # #============================================================================== # 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 # # 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 '; $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 # ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 # #============================================================================== # 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 # # 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 '; $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 =cut