src/gtkdbiSIGS.pm

   1 #!/usr/bin/perl -w
   2 #
   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
   6 #
   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
   9 #
  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)
  16 #
  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>
  19 #
  20 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
  21 #
  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>
  26 #
  27 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
  28 # Thu Jan 10 08:02:21 PST 2002
  29 #==============================================================================
  30
  31 BEGIN {
  32     use src::gtkdbiUI;
  33 } # End of sub BEGIN
  34
  35 sub app_run {
  36     my ($class) = @_;
  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');
  41     Gtk->init;
  42     my $window = $class->new;
  43     $window->TOPLEVEL->show;
  44
  45     # Put any extra UI initialisation (eg signal_connect) calls here
  46
  47     # Now let Gtk handle signals
  48     Gtk->main;
  49
  50     $window->TOPLEVEL->destroy;
  51
  52     return $window;
  53
  54 } # End of sub app_run
  55
  56 #===============================================================================
  57 #=== Below are the default signal handlers for 'connect_dialog' class
  58 #===============================================================================
  59 sub about_Form {
  60     my ($class) = @_;
  61     my $gtkversion =
  62         Gtk->major_version.".".
  63         Gtk->minor_version.".".
  64         Gtk->micro_version;
  65     my $name = $0;
  66     my $message =
  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
  76
  77 sub destroy_Form {
  78     my ($class, $data, $object, $instance) = @_;
  79     Gtk->main_quit;
  80 } # End of sub destroy_Form
  81
  82 sub toplevel_hide    { shift->get_toplevel->hide    }
  83 sub toplevel_close   { shift->get_toplevel->close   }
  84 sub toplevel_destroy { shift->get_toplevel->destroy }
  85
  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};
  94
  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");
  97
  98 } # End of sub on_abortconnect_button_clicked
  99
 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};
 105
 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");
 108
 109 } # End of sub on_connect_button_clicked
 110
 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};
 116
 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");
 119
 120 } # End of sub on_datasource_entry_changed
 121
 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};
 127
 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");
 130
 131 } # End of sub on_deletesession_button_clicked
 132
 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};
 138
 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");
 141
 142 } # End of sub on_password_entry_changed
 143
 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};
 149
 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");
 152
 153 } # End of sub on_savesession_button_clicked
 154
 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};
 160
 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");
 163
 164 } # End of sub on_username_entry_changed
 165
 166
 167
 168
 169
 170
 171
 172
 173
 174
 175 #==============================================================================
 176 #=== This is the 'quit_dialog' class
 177 #==============================================================================
 178 package quit_dialog;
 179 require 5.000; use strict 'vars', 'refs', 'subs';
 180 # UI class 'quit_dialog' (version 0.01)
 181 #
 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>
 184 #
 185 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 186 #
 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>
 191 #
 192 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
 193 # Thu Jan 10 08:02:21 PST 2002
 194 #==============================================================================
 195
 196 BEGIN {
 197     use src::gtkdbiUI;
 198 } # End of sub BEGIN
 199
 200 sub app_run {
 201     my ($class) = @_;
 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');
 206     Gtk->init;
 207     my $window = $class->new;
 208     $window->TOPLEVEL->show;
 209
 210     # Put any extra UI initialisation (eg signal_connect) calls here
 211
 212     # Now let Gtk handle signals
 213     Gtk->main;
 214
 215     $window->TOPLEVEL->destroy;
 216
 217     return $window;
 218
 219 } # End of sub app_run
 220
 221 #===============================================================================
 222 #=== Below are the default signal handlers for 'quit_dialog' class
 223 #===============================================================================
 224 sub about_Form {
 225     my ($class) = @_;
 226     my $gtkversion =
 227         Gtk->major_version.".".
 228         Gtk->minor_version.".".
 229         Gtk->micro_version;
 230     my $name = $0;
 231     my $message =
 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
 241
 242 sub destroy_Form {
 243     my ($class, $data, $object, $instance) = @_;
 244     Gtk->main_quit;
 245 } # End of sub destroy_Form
 246
 247 sub toplevel_hide    { shift->get_toplevel->hide    }
 248 sub toplevel_close   { shift->get_toplevel->close   }
 249 sub toplevel_destroy { shift->get_toplevel->destroy }
 250
 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};
 259
 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");
 262
 263 } # End of sub on_quit_no_clicked
 264
 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};
 270
 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");
 273
 274 } # End of sub on_quit_yes_clicked
 275
 276
 277
 278
 279
 280
 281
 282
 283
 284
 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)
 291 #
 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>
 294 #
 295 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 296 #
 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>
 301 #
 302 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
 303 # Thu Jan 10 08:02:21 PST 2002
 304 #==============================================================================
 305
 306 BEGIN {
 307     use src::gtkdbiUI;
 308 } # End of sub BEGIN
 309
 310 sub app_run {
 311     my ($class) = @_;
 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');
 316     Gtk->init;
 317     my $window = $class->new;
 318     $window->TOPLEVEL->show;
 319
 320     # Put any extra UI initialisation (eg signal_connect) calls here
 321
 322     # Now let Gtk handle signals
 323     Gtk->main;
 324
 325     $window->TOPLEVEL->destroy;
 326
 327     return $window;
 328
 329 } # End of sub app_run
 330
 331 #===============================================================================
 332 #=== Below are the default signal handlers for 'error_dialog' class
 333 #===============================================================================
 334 sub about_Form {
 335     my ($class) = @_;
 336     my $gtkversion =
 337         Gtk->major_version.".".
 338         Gtk->minor_version.".".
 339         Gtk->micro_version;
 340     my $name = $0;
 341     my $message =
 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
 351
 352 sub destroy_Form {
 353     my ($class, $data, $object, $instance) = @_;
 354     Gtk->main_quit;
 355 } # End of sub destroy_Form
 356
 357 sub toplevel_hide    { shift->get_toplevel->hide    }
 358 sub toplevel_close   { shift->get_toplevel->close   }
 359 sub toplevel_destroy { shift->get_toplevel->destroy }
 360
 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};
 369
 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");
 372
 373 } # End of sub on_error_button_clicked
 374
 375
 376
 377
 378
 379
 380
 381
 382
 383
 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)
 390 #
 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>
 393 #
 394 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 395 #
 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>
 400 #
 401 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
 402 # Thu Jan 10 08:02:21 PST 2002
 403 #==============================================================================
 404
 405 BEGIN {
 406     use src::gtkdbiUI;
 407 } # End of sub BEGIN
 408
 409 sub app_run {
 410     my ($class) = @_;
 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');
 415     Gtk->init;
 416     my $window = $class->new;
 417     $window->TOPLEVEL->show;
 418
 419     # Put any extra UI initialisation (eg signal_connect) calls here
 420
 421     # Now let Gtk handle signals
 422     Gtk->main;
 423
 424     $window->TOPLEVEL->destroy;
 425
 426     return $window;
 427
 428 } # End of sub app_run
 429
 430 #===============================================================================
 431 #=== Below are the default signal handlers for 'about_dialog' class
 432 #===============================================================================
 433 sub about_Form {
 434     my ($class) = @_;
 435     my $gtkversion =
 436         Gtk->major_version.".".
 437         Gtk->minor_version.".".
 438         Gtk->micro_version;
 439     my $name = $0;
 440     my $message =
 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
 450
 451 sub destroy_Form {
 452     my ($class, $data, $object, $instance) = @_;
 453     Gtk->main_quit;
 454 } # End of sub destroy_Form
 455
 456 sub toplevel_hide    { shift->get_toplevel->hide    }
 457 sub toplevel_close   { shift->get_toplevel->close   }
 458 sub toplevel_destroy { shift->get_toplevel->destroy }
 459
 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};
 468
 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");
 471
 472 } # End of sub on_about_button_clicked
 473
 474
 475
 476
 477
 478
 479
 480
 481
 482
 483 #==============================================================================
 484 #=== This is the 'window1' class
 485 #==============================================================================
 486 package window1;
 487 require 5.000; use strict 'vars', 'refs', 'subs';
 488 # UI class 'window1' (version 0.01)
 489 #
 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>
 492 #
 493 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 494 #
 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>
 499 #
 500 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
 501 # Thu Jan 10 08:02:21 PST 2002
 502 #==============================================================================
 503
 504 BEGIN {
 505     use src::gtkdbiUI;
 506 } # End of sub BEGIN
 507
 508 sub app_run {
 509     my ($class) = @_;
 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');
 514     Gtk->init;
 515     my $window = $class->new;
 516     $window->TOPLEVEL->show;
 517
 518     # Put any extra UI initialisation (eg signal_connect) calls here
 519
 520     # Now let Gtk handle signals
 521     Gtk->main;
 522
 523     $window->TOPLEVEL->destroy;
 524
 525     return $window;
 526
 527 } # End of sub app_run
 528
 529 #===============================================================================
 530 #=== Below are the default signal handlers for 'window1' class
 531 #===============================================================================
 532 sub about_Form {
 533     my ($class) = @_;
 534     my $gtkversion =
 535         Gtk->major_version.".".
 536         Gtk->minor_version.".".
 537         Gtk->micro_version;
 538     my $name = $0;
 539     my $message =
 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
 549
 550 sub destroy_Form {
 551     my ($class, $data, $object, $instance) = @_;
 552     Gtk->main_quit;
 553 } # End of sub destroy_Form
 554
 555 sub toplevel_hide    { shift->get_toplevel->hide    }
 556 sub toplevel_close   { shift->get_toplevel->close   }
 557 sub toplevel_destroy { shift->get_toplevel->destroy }
 558
 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};
 567
 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");
 570
 571 } # End of sub on_about1_activate
 572
 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};
 578
 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");
 581
 582 } # End of sub on_connect1_activate
 583
 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};
 589
 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");
 592
 593 } # End of sub on_quit1_activate
 594
 595
 596
 597
 598
 599
 600
 601
 602
 603
 604 1;
 605
 606 __END__
 607
 608 #===============================================================================
 609 #==== Documentation
 610 #===============================================================================
 611 =pod
 612
 613 =head1 NAME
 614
 615 gtkdbiSIGS - version 0.01 Tue Oct 23 01:49:12 PDT 2001
 616
 617 No description
 618
 619 =head1 SYNOPSIS
 620
 621  use gtkdbiSIGS;
 622
 623  To construct the window object and show it call
 624
 625  Gtk->init;
 626  my $window = window1->new;
 627  $window->TOPLEVEL->show;
 628  Gtk->main;
 629
 630  OR use the shorthand for the above calls
 631
 632  window1->app_run;
 633
 634 =head1 DESCRIPTION
 635
 636 Unfortunately, the author has not yet written any documentation :-(
 637
 638 =head1 AUTHOR
 639
 640 Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 641
 642 =cut