3 # This is the (re)generated signal handler class
4 # You can cut and paste the skeleton signal handler subs from this file
5 # into the relevant classes in your application or its subclasses
7 # DO NOT EDIT THIS FILE, ANY CHANGES THAT YOU MAKE WILL BE LOST WHEN
8 # THIS FILE WILL BE OVERWRITTEN BY THE NEXT RUN OF Glade::PerlGenerate
10 #==============================================================================
11 #=== This is the 'connect_dialog' class
12 #==============================================================================
13 package connect_dialog;
14 require 5.000; use strict 'vars', 'refs', 'subs';
15 # UI class 'connect_dialog' (version 0.01)
17 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
18 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
20 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
22 #==============================================================================
23 # This perl source file was automatically generated by
24 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
25 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
27 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
28 # Thu Jan 10 08:02:21 PST 2002
29 #==============================================================================
37 $class->load_translations('gtkdbi');
38 # You can use the line below to load a test .mo file before it is installed in
39 # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
40 # $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
42 my $window = $class->new;
43 $window->TOPLEVEL->show;
45 # Put any extra UI initialisation (eg signal_connect) calls here
47 # Now let Gtk handle signals
50 $window->TOPLEVEL->destroy;
54 } # End of sub app_run
56 #===============================================================================
57 #=== Below are the default signal handlers for 'connect_dialog' class
58 #===============================================================================
62 Gtk->major_version.".".
63 Gtk->minor_version.".".
67 __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
68 _("Written by")." $AUTHOR \n\n".
69 _("No description")." \n\n".
70 "Gtk ". _("version").": $gtkversion\n".
71 "Gtk-Perl "._("version").": $Gtk::VERSION\n".
72 _("run from file").": $name";
73 __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
74 "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
75 } # End of sub about_Form
78 my ($class, $data, $object, $instance) = @_;
80 } # End of sub destroy_Form
82 sub toplevel_hide { shift->get_toplevel->hide }
83 sub toplevel_close { shift->get_toplevel->close }
84 sub toplevel_destroy { shift->get_toplevel->destroy }
86 #==============================================================================
87 #=== Below are the signal handlers for 'connect_dialog' class
88 #==============================================================================
89 sub on_abortconnect_button_clicked {
90 my ($class, $data, $object, $instance, $event) = @_;
91 my $me = __PACKAGE__."->on_abortconnect_button_clicked";
92 # Get ref to hash of all widgets on our form
93 my $form = $__PACKAGE__::all_forms->{$instance};
95 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_abortconnect_button_clicked." is called
96 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
98 } # End of sub on_abortconnect_button_clicked
100 sub on_connect_button_clicked {
101 my ($class, $data, $object, $instance, $event) = @_;
102 my $me = __PACKAGE__."->on_connect_button_clicked";
103 # Get ref to hash of all widgets on our form
104 my $form = $__PACKAGE__::all_forms->{$instance};
106 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_connect_button_clicked." is called
107 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
109 } # End of sub on_connect_button_clicked
111 sub on_datasource_entry_changed {
112 my ($class, $data, $object, $instance, $event) = @_;
113 my $me = __PACKAGE__."->on_datasource_entry_changed";
114 # Get ref to hash of all widgets on our form
115 my $form = $__PACKAGE__::all_forms->{$instance};
117 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_datasource_entry_changed." is called
118 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
120 } # End of sub on_datasource_entry_changed
122 sub on_deletesession_button_clicked {
123 my ($class, $data, $object, $instance, $event) = @_;
124 my $me = __PACKAGE__."->on_deletesession_button_clicked";
125 # Get ref to hash of all widgets on our form
126 my $form = $__PACKAGE__::all_forms->{$instance};
128 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_deletesession_button_clicked." is called
129 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
131 } # End of sub on_deletesession_button_clicked
133 sub on_password_entry_changed {
134 my ($class, $data, $object, $instance, $event) = @_;
135 my $me = __PACKAGE__."->on_password_entry_changed";
136 # Get ref to hash of all widgets on our form
137 my $form = $__PACKAGE__::all_forms->{$instance};
139 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_password_entry_changed." is called
140 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
142 } # End of sub on_password_entry_changed
144 sub on_savesession_button_clicked {
145 my ($class, $data, $object, $instance, $event) = @_;
146 my $me = __PACKAGE__."->on_savesession_button_clicked";
147 # Get ref to hash of all widgets on our form
148 my $form = $__PACKAGE__::all_forms->{$instance};
150 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_savesession_button_clicked." is called
151 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
153 } # End of sub on_savesession_button_clicked
155 sub on_username_entry_changed {
156 my ($class, $data, $object, $instance, $event) = @_;
157 my $me = __PACKAGE__."->on_username_entry_changed";
158 # Get ref to hash of all widgets on our form
159 my $form = $__PACKAGE__::all_forms->{$instance};
161 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_username_entry_changed." is called
162 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
164 } # End of sub on_username_entry_changed
175 #==============================================================================
176 #=== This is the 'quit_dialog' class
177 #==============================================================================
179 require 5.000; use strict 'vars', 'refs', 'subs';
180 # UI class 'quit_dialog' (version 0.01)
182 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
183 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
185 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
187 #==============================================================================
188 # This perl source file was automatically generated by
189 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
190 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
192 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
193 # Thu Jan 10 08:02:21 PST 2002
194 #==============================================================================
202 $class->load_translations('gtkdbi');
203 # You can use the line below to load a test .mo file before it is installed in
204 # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
205 # $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
207 my $window = $class->new;
208 $window->TOPLEVEL->show;
210 # Put any extra UI initialisation (eg signal_connect) calls here
212 # Now let Gtk handle signals
215 $window->TOPLEVEL->destroy;
219 } # End of sub app_run
221 #===============================================================================
222 #=== Below are the default signal handlers for 'quit_dialog' class
223 #===============================================================================
227 Gtk->major_version.".".
228 Gtk->minor_version.".".
232 __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
233 _("Written by")." $AUTHOR \n\n".
234 _("No description")." \n\n".
235 "Gtk ". _("version").": $gtkversion\n".
236 "Gtk-Perl "._("version").": $Gtk::VERSION\n".
237 _("run from file").": $name";
238 __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
239 "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
240 } # End of sub about_Form
243 my ($class, $data, $object, $instance) = @_;
245 } # End of sub destroy_Form
247 sub toplevel_hide { shift->get_toplevel->hide }
248 sub toplevel_close { shift->get_toplevel->close }
249 sub toplevel_destroy { shift->get_toplevel->destroy }
251 #==============================================================================
252 #=== Below are the signal handlers for 'quit_dialog' class
253 #==============================================================================
254 sub on_quit_no_clicked {
255 my ($class, $data, $object, $instance, $event) = @_;
256 my $me = __PACKAGE__."->on_quit_no_clicked";
257 # Get ref to hash of all widgets on our form
258 my $form = $__PACKAGE__::all_forms->{$instance};
260 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_quit_no_clicked." is called
261 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
263 } # End of sub on_quit_no_clicked
265 sub on_quit_yes_clicked {
266 my ($class, $data, $object, $instance, $event) = @_;
267 my $me = __PACKAGE__."->on_quit_yes_clicked";
268 # Get ref to hash of all widgets on our form
269 my $form = $__PACKAGE__::all_forms->{$instance};
271 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_quit_yes_clicked." is called
272 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
274 } # End of sub on_quit_yes_clicked
285 #==============================================================================
286 #=== This is the 'error_dialog' class
287 #==============================================================================
288 package error_dialog;
289 require 5.000; use strict 'vars', 'refs', 'subs';
290 # UI class 'error_dialog' (version 0.01)
292 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
293 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
295 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
297 #==============================================================================
298 # This perl source file was automatically generated by
299 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
300 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
302 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
303 # Thu Jan 10 08:02:21 PST 2002
304 #==============================================================================
312 $class->load_translations('gtkdbi');
313 # You can use the line below to load a test .mo file before it is installed in
314 # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
315 # $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
317 my $window = $class->new;
318 $window->TOPLEVEL->show;
320 # Put any extra UI initialisation (eg signal_connect) calls here
322 # Now let Gtk handle signals
325 $window->TOPLEVEL->destroy;
329 } # End of sub app_run
331 #===============================================================================
332 #=== Below are the default signal handlers for 'error_dialog' class
333 #===============================================================================
337 Gtk->major_version.".".
338 Gtk->minor_version.".".
342 __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
343 _("Written by")." $AUTHOR \n\n".
344 _("No description")." \n\n".
345 "Gtk ". _("version").": $gtkversion\n".
346 "Gtk-Perl "._("version").": $Gtk::VERSION\n".
347 _("run from file").": $name";
348 __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
349 "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
350 } # End of sub about_Form
353 my ($class, $data, $object, $instance) = @_;
355 } # End of sub destroy_Form
357 sub toplevel_hide { shift->get_toplevel->hide }
358 sub toplevel_close { shift->get_toplevel->close }
359 sub toplevel_destroy { shift->get_toplevel->destroy }
361 #==============================================================================
362 #=== Below are the signal handlers for 'error_dialog' class
363 #==============================================================================
364 sub on_error_button_clicked {
365 my ($class, $data, $object, $instance, $event) = @_;
366 my $me = __PACKAGE__."->on_error_button_clicked";
367 # Get ref to hash of all widgets on our form
368 my $form = $__PACKAGE__::all_forms->{$instance};
370 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_error_button_clicked." is called
371 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
373 } # End of sub on_error_button_clicked
384 #==============================================================================
385 #=== This is the 'about_dialog' class
386 #==============================================================================
387 package about_dialog;
388 require 5.000; use strict 'vars', 'refs', 'subs';
389 # UI class 'about_dialog' (version 0.01)
391 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
392 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
394 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
396 #==============================================================================
397 # This perl source file was automatically generated by
398 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
399 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
401 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
402 # Thu Jan 10 08:02:21 PST 2002
403 #==============================================================================
411 $class->load_translations('gtkdbi');
412 # You can use the line below to load a test .mo file before it is installed in
413 # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
414 # $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
416 my $window = $class->new;
417 $window->TOPLEVEL->show;
419 # Put any extra UI initialisation (eg signal_connect) calls here
421 # Now let Gtk handle signals
424 $window->TOPLEVEL->destroy;
428 } # End of sub app_run
430 #===============================================================================
431 #=== Below are the default signal handlers for 'about_dialog' class
432 #===============================================================================
436 Gtk->major_version.".".
437 Gtk->minor_version.".".
441 __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
442 _("Written by")." $AUTHOR \n\n".
443 _("No description")." \n\n".
444 "Gtk ". _("version").": $gtkversion\n".
445 "Gtk-Perl "._("version").": $Gtk::VERSION\n".
446 _("run from file").": $name";
447 __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
448 "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
449 } # End of sub about_Form
452 my ($class, $data, $object, $instance) = @_;
454 } # End of sub destroy_Form
456 sub toplevel_hide { shift->get_toplevel->hide }
457 sub toplevel_close { shift->get_toplevel->close }
458 sub toplevel_destroy { shift->get_toplevel->destroy }
460 #==============================================================================
461 #=== Below are the signal handlers for 'about_dialog' class
462 #==============================================================================
463 sub on_about_button_clicked {
464 my ($class, $data, $object, $instance, $event) = @_;
465 my $me = __PACKAGE__."->on_about_button_clicked";
466 # Get ref to hash of all widgets on our form
467 my $form = $__PACKAGE__::all_forms->{$instance};
469 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_about_button_clicked." is called
470 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
472 } # End of sub on_about_button_clicked
483 #==============================================================================
484 #=== This is the 'window1' class
485 #==============================================================================
487 require 5.000; use strict 'vars', 'refs', 'subs';
488 # UI class 'window1' (version 0.01)
490 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
491 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
493 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
495 #==============================================================================
496 # This perl source file was automatically generated by
497 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
498 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
500 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
501 # Thu Jan 10 08:02:21 PST 2002
502 #==============================================================================
510 $class->load_translations('gtkdbi');
511 # You can use the line below to load a test .mo file before it is installed in
512 # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
513 # $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
515 my $window = $class->new;
516 $window->TOPLEVEL->show;
518 # Put any extra UI initialisation (eg signal_connect) calls here
520 # Now let Gtk handle signals
523 $window->TOPLEVEL->destroy;
527 } # End of sub app_run
529 #===============================================================================
530 #=== Below are the default signal handlers for 'window1' class
531 #===============================================================================
535 Gtk->major_version.".".
536 Gtk->minor_version.".".
540 __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
541 _("Written by")." $AUTHOR \n\n".
542 _("No description")." \n\n".
543 "Gtk ". _("version").": $gtkversion\n".
544 "Gtk-Perl "._("version").": $Gtk::VERSION\n".
545 _("run from file").": $name";
546 __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
547 "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm", 'left' );
548 } # End of sub about_Form
551 my ($class, $data, $object, $instance) = @_;
553 } # End of sub destroy_Form
555 sub toplevel_hide { shift->get_toplevel->hide }
556 sub toplevel_close { shift->get_toplevel->close }
557 sub toplevel_destroy { shift->get_toplevel->destroy }
559 #==============================================================================
560 #=== Below are the signal handlers for 'window1' class
561 #==============================================================================
562 sub on_about1_activate {
563 my ($class, $data, $object, $instance, $event) = @_;
564 my $me = __PACKAGE__."->on_about1_activate";
565 # Get ref to hash of all widgets on our form
566 my $form = $__PACKAGE__::all_forms->{$instance};
568 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_about1_activate." is called
569 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
571 } # End of sub on_about1_activate
573 sub on_connect1_activate {
574 my ($class, $data, $object, $instance, $event) = @_;
575 my $me = __PACKAGE__."->on_connect1_activate";
576 # Get ref to hash of all widgets on our form
577 my $form = $__PACKAGE__::all_forms->{$instance};
579 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_connect1_activate." is called
580 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
582 } # End of sub on_connect1_activate
584 sub on_quit1_activate {
585 my ($class, $data, $object, $instance, $event) = @_;
586 my $me = __PACKAGE__."->on_quit1_activate";
587 # Get ref to hash of all widgets on our form
588 my $form = $__PACKAGE__::all_forms->{$instance};
590 # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_quit1_activate." is called
591 __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm");
593 } # End of sub on_quit1_activate
608 #===============================================================================
610 #===============================================================================
615 gtkdbiSIGS - version 0.01 Tue Oct 23 01:49:12 PDT 2001
623 To construct the window object and show it call
626 my $window = window1->new;
627 $window->TOPLEVEL->show;
630 OR use the shorthand for the above calls
636 Unfortunately, the author has not yet written any documentation :-(
640 Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>