diff options
Diffstat (limited to 'src/gtkdbiSIGS.pm')
| -rw-r--r-- | src/gtkdbiSIGS.pm | 642 |
1 files changed, 642 insertions, 0 deletions
diff --git a/src/gtkdbiSIGS.pm b/src/gtkdbiSIGS.pm new file mode 100644 index 0000000..837e683 --- /dev/null +++ b/src/gtkdbiSIGS.pm @@ -0,0 +1,642 @@ +#!/usr/bin/perl -w +# +# This is the (re)generated signal handler class +# You can cut and paste the skeleton signal handler subs from this file +# into the relevant classes in your application or its subclasses +# +# 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 { + use src::gtkdbiUI; +} # End of sub BEGIN + +sub app_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; + + # Put any extra UI initialisation (eg signal_connect) calls here + + # Now let Gtk handle signals + Gtk->main; + + $window->TOPLEVEL->destroy; + + return $window; + +} # End of sub app_run + +#=============================================================================== +#=== Below are the 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 the 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 line 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"); + +} # 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 line 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"); + +} # End of sub on_connect_button_clicked + +sub on_datasource_entry_changed { + my ($class, $data, $object, $instance, $event) = @_; + my $me = __PACKAGE__."->on_datasource_entry_changed"; + # Get ref to hash of all widgets on our form + my $form = $__PACKAGE__::all_forms->{$instance}; + + # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_datasource_entry_changed." is called + __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm"); + +} # End of sub on_datasource_entry_changed + +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 line 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"); + +} # End of sub on_deletesession_button_clicked + +sub on_password_entry_changed { + my ($class, $data, $object, $instance, $event) = @_; + my $me = __PACKAGE__."->on_password_entry_changed"; + # Get ref to hash of all widgets on our form + my $form = $__PACKAGE__::all_forms->{$instance}; + + # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_password_entry_changed." is called + __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm"); + +} # End of sub on_password_entry_changed + +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 line 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"); + +} # End of sub on_savesession_button_clicked + +sub on_username_entry_changed { + my ($class, $data, $object, $instance, $event) = @_; + my $me = __PACKAGE__."->on_username_entry_changed"; + # Get ref to hash of all widgets on our form + my $form = $__PACKAGE__::all_forms->{$instance}; + + # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_username_entry_changed." is called + __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm"); + +} # End of sub on_username_entry_changed + + + + + + + + + + +#============================================================================== +#=== 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 { + use src::gtkdbiUI; +} # End of sub BEGIN + +sub app_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; + + # Put any extra UI initialisation (eg signal_connect) calls here + + # Now let Gtk handle signals + Gtk->main; + + $window->TOPLEVEL->destroy; + + return $window; + +} # End of sub app_run + +#=============================================================================== +#=== Below are the 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 the 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 line 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"); + +} # 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 line 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"); + +} # End of sub on_quit_yes_clicked + + + + + + + + + + +#============================================================================== +#=== 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 { + use src::gtkdbiUI; +} # End of sub BEGIN + +sub app_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; + + # Put any extra UI initialisation (eg signal_connect) calls here + + # Now let Gtk handle signals + Gtk->main; + + $window->TOPLEVEL->destroy; + + return $window; + +} # End of sub app_run + +#=============================================================================== +#=== Below are the default signal handlers for 'error_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 the signal handlers for 'error_dialog' class +#============================================================================== +sub on_error_button_clicked { + my ($class, $data, $object, $instance, $event) = @_; + my $me = __PACKAGE__."->on_error_button_clicked"; + # Get ref to hash of all widgets on our form + my $form = $__PACKAGE__::all_forms->{$instance}; + + # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_error_button_clicked." is called + __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm"); + +} # End of sub on_error_button_clicked + + + + + + + + + + +#============================================================================== +#=== 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 { + use src::gtkdbiUI; +} # End of sub BEGIN + +sub app_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; + + # Put any extra UI initialisation (eg signal_connect) calls here + + # Now let Gtk handle signals + Gtk->main; + + $window->TOPLEVEL->destroy; + + return $window; + +} # End of sub app_run + +#=============================================================================== +#=== Below are the 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 the 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 line 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"); + +} # End of sub on_about_button_clicked + + + + + + + + + + +#============================================================================== +#=== 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 { + use src::gtkdbiUI; +} # End of sub BEGIN + +sub app_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; + + # Put any extra UI initialisation (eg signal_connect) calls here + + # Now let Gtk handle signals + Gtk->main; + + $window->TOPLEVEL->destroy; + + return $window; + +} # End of sub app_run + +#=============================================================================== +#=== Below are the 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 the 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 line 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"); + +} # 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 line 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"); + +} # 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 line 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"); + +} # End of sub on_quit1_activate + + + + + + + + + + +1; + +__END__ + +#=============================================================================== +#==== Documentation +#=============================================================================== +=pod + +=head1 NAME + +gtkdbiSIGS - version 0.01 Tue Oct 23 01:49:12 PDT 2001 + +No description + +=head1 SYNOPSIS + + use gtkdbiSIGS; + + 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 |