3 # This is an example of a subclass of the generated application
5 # You can safely edit this file, any changes that you make will be preserved
6 # and this file will not be overwritten by the next run of Glade::PerlGenerate
8 #==============================================================================
9 #=== This is the 'Subconnect_dialog' class
10 #==============================================================================
11 package Subconnect_dialog;
12 require 5.000; use strict 'vars', 'refs', 'subs';
13 # UI class 'Subconnect_dialog' (version 0.01)
15 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
16 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
18 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
20 #==============================================================================
21 # This perl source file was automatically generated by
22 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
23 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
25 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
26 # Wed Jan 9 18:12:34 PST 2002
27 #==============================================================================
39 # Existing signal handler modules
41 # Uncomment the line below to enable gettext checking
42 # use Glade::PerlSource;
43 # Tell interpreter who we are inheriting from
44 @ISA = qw( connect_dialog );
45 # Uncomment the line below to enable gettext checking
46 # @ISA = qw( connect_dialog Glade::PerlSource );
47 $PACKAGE = 'Subgtkdbi';
49 $AUTHOR = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
50 $DATE = 'Tue Oct 23 01:49:12 PDT 2001';
51 $permitted_fields = '_permitted_fields';
52 # Inherit the AUTOLOAD dynamic methods from connect_dialog
53 *AUTOLOAD = \&connect_dialog::AUTOLOAD;
57 # Insert any extra data access methods that you want to add to
58 # our inherited super-constructor (or overload)
64 # This sub will be called on object destruction
65 } # End of sub DESTROY
67 #==============================================================================
68 #=== Below are the overloaded class constructors
69 #==============================================================================
72 # Allow indirect constructor so that we can call eg.
73 # $window1 = BusFrame->new; $window2 = $window1->new;
74 my $class = ref($that) || $that;
76 # Call our super-class constructor to get an object and reconsecrate it
77 my $self = bless $that->SUPER::new(), $class;
79 # Add our own data access methods to the inherited constructor
81 foreach $element (keys %fields) {
82 $self->{$permitted_fields}->{$element} = $fields{$element};
84 @{$self}{keys %fields} = values %fields;
91 # Uncomment the line below to enable gettext checking
92 # $class->check_gettext_strings;
93 my $window = $class->new;
94 # Insert your subclass user data key/value pairs
100 $window->TOPLEVEL->show;
101 # my $window2 = $window->new;
102 # $window2->TOPLEVEL->show;
104 # Uncomment the line below to enable gettext checking
105 # $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
106 $window->TOPLEVEL->destroy;
110 #===============================================================================
111 #=== Below are (overloaded) default signal handlers for 'connect_dialog' class
112 #===============================================================================
116 Gtk->major_version.".".
117 Gtk->minor_version.".".
121 __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
122 _("Written by")." $AUTHOR \n\n".
123 _("No description")." \n\n".
124 "Gtk ". _("version").": $gtkversion\n".
125 "Gtk-Perl "._("version").": $Gtk::VERSION\n".
126 _("run from file").": $name";
127 __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
128 "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
129 } # End of sub about_Form
132 my ($class, $data, $object, $instance) = @_;
134 } # End of sub destroy_Form
136 sub toplevel_hide { shift->get_toplevel->hide }
137 sub toplevel_close { shift->get_toplevel->close }
138 sub toplevel_destroy { shift->get_toplevel->destroy }
140 #==============================================================================
141 #=== Below are (overloaded) signal handlers for 'connect_dialog' class
142 #==============================================================================
143 sub on_abortconnect_button_clicked {
144 my ($class, $data, $object, $instance, $event) = @_;
145 my $me = __PACKAGE__."->on_abortconnect_button_clicked";
146 # Get ref to hash of all widgets on our form
147 my $form = $__PACKAGE__::all_forms->{$instance};
149 # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_abortconnect_button_clicked." is called
150 # __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
151 shift->SUPER::on_abortconnect_button_clicked(@_);
153 } # End of sub on_abortconnect_button_clicked
155 sub on_connect_button_clicked {
156 my ($class, $data, $object, $instance, $event) = @_;
157 my $me = __PACKAGE__."->on_connect_button_clicked";
158 # Get ref to hash of all widgets on our form
159 my $form = $__PACKAGE__::all_forms->{$instance};
161 # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_connect_button_clicked." is called
162 # __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
163 shift->SUPER::on_connect_button_clicked(@_);
165 } # End of sub on_connect_button_clicked
167 sub on_deletesession_button_clicked {
168 my ($class, $data, $object, $instance, $event) = @_;
169 my $me = __PACKAGE__."->on_deletesession_button_clicked";
170 # Get ref to hash of all widgets on our form
171 my $form = $__PACKAGE__::all_forms->{$instance};
173 # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_deletesession_button_clicked." is called
174 # __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
175 shift->SUPER::on_deletesession_button_clicked(@_);
177 } # End of sub on_deletesession_button_clicked
179 sub on_savesession_button_clicked {
180 my ($class, $data, $object, $instance, $event) = @_;
181 my $me = __PACKAGE__."->on_savesession_button_clicked";
182 # Get ref to hash of all widgets on our form
183 my $form = $__PACKAGE__::all_forms->{$instance};
185 # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_savesession_button_clicked." is called
186 # __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
187 shift->SUPER::on_savesession_button_clicked(@_);
189 } # End of sub on_savesession_button_clicked
200 #==============================================================================
201 #=== This is the 'Subquit_dialog' class
202 #==============================================================================
203 package Subquit_dialog;
204 require 5.000; use strict 'vars', 'refs', 'subs';
205 # UI class 'Subquit_dialog' (version 0.01)
207 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
208 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
210 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
212 #==============================================================================
213 # This perl source file was automatically generated by
214 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
215 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
217 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
218 # Wed Jan 9 18:12:34 PST 2002
219 #==============================================================================
231 # Existing signal handler modules
233 # Uncomment the line below to enable gettext checking
234 # use Glade::PerlSource;
235 # Tell interpreter who we are inheriting from
236 @ISA = qw( quit_dialog );
237 # Uncomment the line below to enable gettext checking
238 # @ISA = qw( quit_dialog Glade::PerlSource );
239 $PACKAGE = 'Subgtkdbi';
241 $AUTHOR = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
242 $DATE = 'Tue Oct 23 01:49:12 PDT 2001';
243 $permitted_fields = '_permitted_fields';
244 # Inherit the AUTOLOAD dynamic methods from quit_dialog
245 *AUTOLOAD = \&quit_dialog::AUTOLOAD;
249 # Insert any extra data access methods that you want to add to
250 # our inherited super-constructor (or overload)
256 # This sub will be called on object destruction
257 } # End of sub DESTROY
259 #==============================================================================
260 #=== Below are the overloaded class constructors
261 #==============================================================================
264 # Allow indirect constructor so that we can call eg.
265 # $window1 = BusFrame->new; $window2 = $window1->new;
266 my $class = ref($that) || $that;
268 # Call our super-class constructor to get an object and reconsecrate it
269 my $self = bless $that->SUPER::new(), $class;
271 # Add our own data access methods to the inherited constructor
273 foreach $element (keys %fields) {
274 $self->{$permitted_fields}->{$element} = $fields{$element};
276 @{$self}{keys %fields} = values %fields;
283 # Uncomment the line below to enable gettext checking
284 # $class->check_gettext_strings;
285 my $window = $class->new;
286 # Insert your subclass user data key/value pairs
288 # 'Key1' => 'Value1',
289 # 'Key2' => 'Value2',
290 # 'Key3' => 'Value3',
292 $window->TOPLEVEL->show;
293 # my $window2 = $window->new;
294 # $window2->TOPLEVEL->show;
296 # Uncomment the line below to enable gettext checking
297 # $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
298 $window->TOPLEVEL->destroy;
302 #===============================================================================
303 #=== Below are (overloaded) default signal handlers for 'quit_dialog' class
304 #===============================================================================
308 Gtk->major_version.".".
309 Gtk->minor_version.".".
313 __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
314 _("Written by")." $AUTHOR \n\n".
315 _("No description")." \n\n".
316 "Gtk ". _("version").": $gtkversion\n".
317 "Gtk-Perl "._("version").": $Gtk::VERSION\n".
318 _("run from file").": $name";
319 __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
320 "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
321 } # End of sub about_Form
324 my ($class, $data, $object, $instance) = @_;
326 } # End of sub destroy_Form
328 sub toplevel_hide { shift->get_toplevel->hide }
329 sub toplevel_close { shift->get_toplevel->close }
330 sub toplevel_destroy { shift->get_toplevel->destroy }
332 #==============================================================================
333 #=== Below are (overloaded) signal handlers for 'quit_dialog' class
334 #==============================================================================
335 sub on_quit_no_clicked {
336 my ($class, $data, $object, $instance, $event) = @_;
337 my $me = __PACKAGE__."->on_quit_no_clicked";
338 # Get ref to hash of all widgets on our form
339 my $form = $__PACKAGE__::all_forms->{$instance};
341 # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_quit_no_clicked." is called
342 # __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
343 shift->SUPER::on_quit_no_clicked(@_);
345 } # End of sub on_quit_no_clicked
347 sub on_quit_yes_clicked {
348 my ($class, $data, $object, $instance, $event) = @_;
349 my $me = __PACKAGE__."->on_quit_yes_clicked";
350 # Get ref to hash of all widgets on our form
351 my $form = $__PACKAGE__::all_forms->{$instance};
353 # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_quit_yes_clicked." is called
354 # __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
355 shift->SUPER::on_quit_yes_clicked(@_);
357 } # End of sub on_quit_yes_clicked
368 #==============================================================================
369 #=== This is the 'Subabout_dialog' class
370 #==============================================================================
371 package Subabout_dialog;
372 require 5.000; use strict 'vars', 'refs', 'subs';
373 # UI class 'Subabout_dialog' (version 0.01)
375 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
376 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
378 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
380 #==============================================================================
381 # This perl source file was automatically generated by
382 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
383 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
385 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
386 # Wed Jan 9 18:12:34 PST 2002
387 #==============================================================================
399 # Existing signal handler modules
401 # Uncomment the line below to enable gettext checking
402 # use Glade::PerlSource;
403 # Tell interpreter who we are inheriting from
404 @ISA = qw( about_dialog );
405 # Uncomment the line below to enable gettext checking
406 # @ISA = qw( about_dialog Glade::PerlSource );
407 $PACKAGE = 'Subgtkdbi';
409 $AUTHOR = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
410 $DATE = 'Tue Oct 23 01:49:12 PDT 2001';
411 $permitted_fields = '_permitted_fields';
412 # Inherit the AUTOLOAD dynamic methods from about_dialog
413 *AUTOLOAD = \&about_dialog::AUTOLOAD;
417 # Insert any extra data access methods that you want to add to
418 # our inherited super-constructor (or overload)
424 # This sub will be called on object destruction
425 } # End of sub DESTROY
427 #==============================================================================
428 #=== Below are the overloaded class constructors
429 #==============================================================================
432 # Allow indirect constructor so that we can call eg.
433 # $window1 = BusFrame->new; $window2 = $window1->new;
434 my $class = ref($that) || $that;
436 # Call our super-class constructor to get an object and reconsecrate it
437 my $self = bless $that->SUPER::new(), $class;
439 # Add our own data access methods to the inherited constructor
441 foreach $element (keys %fields) {
442 $self->{$permitted_fields}->{$element} = $fields{$element};
444 @{$self}{keys %fields} = values %fields;
451 # Uncomment the line below to enable gettext checking
452 # $class->check_gettext_strings;
453 my $window = $class->new;
454 # Insert your subclass user data key/value pairs
456 # 'Key1' => 'Value1',
457 # 'Key2' => 'Value2',
458 # 'Key3' => 'Value3',
460 $window->TOPLEVEL->show;
461 # my $window2 = $window->new;
462 # $window2->TOPLEVEL->show;
464 # Uncomment the line below to enable gettext checking
465 # $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
466 $window->TOPLEVEL->destroy;
470 #===============================================================================
471 #=== Below are (overloaded) default signal handlers for 'about_dialog' class
472 #===============================================================================
476 Gtk->major_version.".".
477 Gtk->minor_version.".".
481 __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
482 _("Written by")." $AUTHOR \n\n".
483 _("No description")." \n\n".
484 "Gtk ". _("version").": $gtkversion\n".
485 "Gtk-Perl "._("version").": $Gtk::VERSION\n".
486 _("run from file").": $name";
487 __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
488 "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
489 } # End of sub about_Form
492 my ($class, $data, $object, $instance) = @_;
494 } # End of sub destroy_Form
496 sub toplevel_hide { shift->get_toplevel->hide }
497 sub toplevel_close { shift->get_toplevel->close }
498 sub toplevel_destroy { shift->get_toplevel->destroy }
500 #==============================================================================
501 #=== Below are (overloaded) signal handlers for 'about_dialog' class
502 #==============================================================================
503 sub on_about_button_clicked {
504 my ($class, $data, $object, $instance, $event) = @_;
505 my $me = __PACKAGE__."->on_about_button_clicked";
506 # Get ref to hash of all widgets on our form
507 my $form = $__PACKAGE__::all_forms->{$instance};
509 # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_about_button_clicked." is called
510 # __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
511 shift->SUPER::on_about_button_clicked(@_);
513 } # End of sub on_about_button_clicked
524 #==============================================================================
525 #=== This is the 'Subwindow1' class
526 #==============================================================================
528 require 5.000; use strict 'vars', 'refs', 'subs';
529 # UI class 'Subwindow1' (version 0.01)
531 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
532 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
534 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
536 #==============================================================================
537 # This perl source file was automatically generated by
538 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
539 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
541 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
542 # Wed Jan 9 18:12:34 PST 2002
543 #==============================================================================
555 # Existing signal handler modules
557 # Uncomment the line below to enable gettext checking
558 # use Glade::PerlSource;
559 # Tell interpreter who we are inheriting from
560 @ISA = qw( window1 );
561 # Uncomment the line below to enable gettext checking
562 # @ISA = qw( window1 Glade::PerlSource );
563 $PACKAGE = 'Subgtkdbi';
565 $AUTHOR = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
566 $DATE = 'Tue Oct 23 01:49:12 PDT 2001';
567 $permitted_fields = '_permitted_fields';
568 # Inherit the AUTOLOAD dynamic methods from window1
569 *AUTOLOAD = \&window1::AUTOLOAD;
573 # Insert any extra data access methods that you want to add to
574 # our inherited super-constructor (or overload)
580 # This sub will be called on object destruction
581 } # End of sub DESTROY
583 #==============================================================================
584 #=== Below are the overloaded class constructors
585 #==============================================================================
588 # Allow indirect constructor so that we can call eg.
589 # $window1 = BusFrame->new; $window2 = $window1->new;
590 my $class = ref($that) || $that;
592 # Call our super-class constructor to get an object and reconsecrate it
593 my $self = bless $that->SUPER::new(), $class;
595 # Add our own data access methods to the inherited constructor
597 foreach $element (keys %fields) {
598 $self->{$permitted_fields}->{$element} = $fields{$element};
600 @{$self}{keys %fields} = values %fields;
607 # Uncomment the line below to enable gettext checking
608 # $class->check_gettext_strings;
609 my $window = $class->new;
610 # Insert your subclass user data key/value pairs
612 # 'Key1' => 'Value1',
613 # 'Key2' => 'Value2',
614 # 'Key3' => 'Value3',
616 $window->TOPLEVEL->show;
617 # my $window2 = $window->new;
618 # $window2->TOPLEVEL->show;
620 # Uncomment the line below to enable gettext checking
621 # $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
622 $window->TOPLEVEL->destroy;
626 #===============================================================================
627 #=== Below are (overloaded) default signal handlers for 'window1' class
628 #===============================================================================
632 Gtk->major_version.".".
633 Gtk->minor_version.".".
637 __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
638 _("Written by")." $AUTHOR \n\n".
639 _("No description")." \n\n".
640 "Gtk ". _("version").": $gtkversion\n".
641 "Gtk-Perl "._("version").": $Gtk::VERSION\n".
642 _("run from file").": $name";
643 __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
644 "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
645 } # End of sub about_Form
648 my ($class, $data, $object, $instance) = @_;
650 } # End of sub destroy_Form
652 sub toplevel_hide { shift->get_toplevel->hide }
653 sub toplevel_close { shift->get_toplevel->close }
654 sub toplevel_destroy { shift->get_toplevel->destroy }
656 #==============================================================================
657 #=== Below are (overloaded) signal handlers for 'window1' class
658 #==============================================================================
659 sub on_about1_activate {
660 my ($class, $data, $object, $instance, $event) = @_;
661 my $me = __PACKAGE__."->on_about1_activate";
662 # Get ref to hash of all widgets on our form
663 my $form = $__PACKAGE__::all_forms->{$instance};
665 # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_about1_activate." is called
666 # __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
667 shift->SUPER::on_about1_activate(@_);
669 } # End of sub on_about1_activate
671 sub on_connect1_activate {
672 my ($class, $data, $object, $instance, $event) = @_;
673 my $me = __PACKAGE__."->on_connect1_activate";
674 # Get ref to hash of all widgets on our form
675 my $form = $__PACKAGE__::all_forms->{$instance};
677 # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_connect1_activate." is called
678 # __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
679 shift->SUPER::on_connect1_activate(@_);
681 } # End of sub on_connect1_activate
683 sub on_quit1_activate {
684 my ($class, $data, $object, $instance, $event) = @_;
685 my $me = __PACKAGE__."->on_quit1_activate";
686 # Get ref to hash of all widgets on our form
687 my $form = $__PACKAGE__::all_forms->{$instance};
689 # REPLACE the lines below with the actions to be taken when __PACKAGE__."->on_quit1_activate." is called
690 # __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
691 shift->SUPER::on_quit1_activate(@_);
693 } # End of sub on_quit1_activate
709 #===============================================================================
711 #===============================================================================
716 Subgtkdbi - version 0.01 Tue Oct 23 01:49:12 PDT 2001
724 To construct the window object and show it call
727 my $window = Subwindow1->new;
728 $window->TOPLEVEL->show;
731 OR use the shorthand for the above calls
737 Unfortunately, the author has not yet written any documentation :-(
741 Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>