src/Subgtkdbi.pm

   1 #!/usr/bin/perl -w
   2 #
   3 # This is an example of a subclass of the generated application
   4 #
   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
   7 #
   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)
  14 #
  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>
  17 #
  18 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
  19 #
  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>
  24 #
  25 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
  26 # Wed Jan  9 18:12:34 PST 2002
  27 #==============================================================================
  28
  29 BEGIN {
  30     use vars qw(
  31                  @ISA
  32                  %fields
  33                  $PACKAGE
  34                  $VERSION
  35                  $AUTHOR
  36                  $DATE
  37                  $permitted_fields
  38              );
  39     # Existing signal handler modules
  40     use src::gtkdbi;
  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';
  48     $VERSION = '0.01';
  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;
  54 } # End of sub BEGIN
  55
  56 %fields = (
  57 # Insert any extra data access methods that you want to add to
  58 #   our inherited super-constructor (or overload)
  59     USERDATA    => undef,
  60     VERSION     => '0.01',
  61 );
  62
  63 sub DESTROY {
  64     # This sub will be called on object destruction
  65 } # End of sub DESTROY
  66
  67 #==============================================================================
  68 #=== Below are the overloaded class constructors
  69 #==============================================================================
  70 sub new {
  71     my $that  = shift;
  72     # Allow indirect constructor so that we can call eg.
  73     #   $window1 = BusFrame->new; $window2 = $window1->new;
  74     my $class = ref($that) || $that;
  75
  76     # Call our super-class constructor to get an object and reconsecrate it
  77     my $self = bless $that->SUPER::new(), $class;
  78
  79     # Add our own data access methods to the inherited constructor
  80     my($element);
  81     foreach $element (keys %fields) {
  82         $self->{$permitted_fields}->{$element} = $fields{$element};
  83     }
  84     @{$self}{keys %fields} = values %fields;
  85     return $self;
  86 } # End of sub new
  87
  88 sub app_run {
  89     my ($class) = @_;
  90     Gtk->init;
  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
  95     $window->USERDATA({
  96 #        'Key1'   => 'Value1',
  97 #        'Key2'   => 'Value2',
  98 #        'Key3'   => 'Value3',
  99     });
 100     $window->TOPLEVEL->show;
 101 #    my $window2 = $window->new;
 102 #    $window2->TOPLEVEL->show;
 103     Gtk->main;
 104     # Uncomment the line below to enable gettext checking
 105 #    $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
 106     $window->TOPLEVEL->destroy;
 107
 108     return $window;
 109 } # End of sub run
 110 #===============================================================================
 111 #=== Below are (overloaded) default signal handlers for 'connect_dialog' class
 112 #===============================================================================
 113 sub about_Form {
 114     my ($class) = @_;
 115     my $gtkversion =
 116         Gtk->major_version.".".
 117         Gtk->minor_version.".".
 118         Gtk->micro_version;
 119     my $name = $0;
 120     my $message =
 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
 130
 131 sub destroy_Form {
 132     my ($class, $data, $object, $instance) = @_;
 133     Gtk->main_quit;
 134 } # End of sub destroy_Form
 135
 136 sub toplevel_hide    { shift->get_toplevel->hide    }
 137 sub toplevel_close   { shift->get_toplevel->close   }
 138 sub toplevel_destroy { shift->get_toplevel->destroy }
 139
 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};
 148
 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(@_);
 152
 153 } # End of sub on_abortconnect_button_clicked
 154
 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};
 160
 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(@_);
 164
 165 } # End of sub on_connect_button_clicked
 166
 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};
 172
 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(@_);
 176
 177 } # End of sub on_deletesession_button_clicked
 178
 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};
 184
 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(@_);
 188
 189 } # End of sub on_savesession_button_clicked
 190
 191
 192
 193
 194
 195
 196
 197
 198
 199
 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)
 206 #
 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>
 209 #
 210 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 211 #
 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>
 216 #
 217 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
 218 # Wed Jan  9 18:12:34 PST 2002
 219 #==============================================================================
 220
 221 BEGIN {
 222     use vars qw(
 223                  @ISA
 224                  %fields
 225                  $PACKAGE
 226                  $VERSION
 227                  $AUTHOR
 228                  $DATE
 229                  $permitted_fields
 230              );
 231     # Existing signal handler modules
 232     use src::gtkdbi;
 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';
 240     $VERSION = '0.01';
 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;
 246 } # End of sub BEGIN
 247
 248 %fields = (
 249 # Insert any extra data access methods that you want to add to
 250 #   our inherited super-constructor (or overload)
 251     USERDATA    => undef,
 252     VERSION     => '0.01',
 253 );
 254
 255 sub DESTROY {
 256     # This sub will be called on object destruction
 257 } # End of sub DESTROY
 258
 259 #==============================================================================
 260 #=== Below are the overloaded class constructors
 261 #==============================================================================
 262 sub new {
 263     my $that  = shift;
 264     # Allow indirect constructor so that we can call eg.
 265     #   $window1 = BusFrame->new; $window2 = $window1->new;
 266     my $class = ref($that) || $that;
 267
 268     # Call our super-class constructor to get an object and reconsecrate it
 269     my $self = bless $that->SUPER::new(), $class;
 270
 271     # Add our own data access methods to the inherited constructor
 272     my($element);
 273     foreach $element (keys %fields) {
 274         $self->{$permitted_fields}->{$element} = $fields{$element};
 275     }
 276     @{$self}{keys %fields} = values %fields;
 277     return $self;
 278 } # End of sub new
 279
 280 sub app_run {
 281     my ($class) = @_;
 282     Gtk->init;
 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
 287     $window->USERDATA({
 288 #        'Key1'   => 'Value1',
 289 #        'Key2'   => 'Value2',
 290 #        'Key3'   => 'Value3',
 291     });
 292     $window->TOPLEVEL->show;
 293 #    my $window2 = $window->new;
 294 #    $window2->TOPLEVEL->show;
 295     Gtk->main;
 296     # Uncomment the line below to enable gettext checking
 297 #    $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
 298     $window->TOPLEVEL->destroy;
 299
 300     return $window;
 301 } # End of sub run
 302 #===============================================================================
 303 #=== Below are (overloaded) default signal handlers for 'quit_dialog' class
 304 #===============================================================================
 305 sub about_Form {
 306     my ($class) = @_;
 307     my $gtkversion =
 308         Gtk->major_version.".".
 309         Gtk->minor_version.".".
 310         Gtk->micro_version;
 311     my $name = $0;
 312     my $message =
 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
 322
 323 sub destroy_Form {
 324     my ($class, $data, $object, $instance) = @_;
 325     Gtk->main_quit;
 326 } # End of sub destroy_Form
 327
 328 sub toplevel_hide    { shift->get_toplevel->hide    }
 329 sub toplevel_close   { shift->get_toplevel->close   }
 330 sub toplevel_destroy { shift->get_toplevel->destroy }
 331
 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};
 340
 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(@_);
 344
 345 } # End of sub on_quit_no_clicked
 346
 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};
 352
 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(@_);
 356
 357 } # End of sub on_quit_yes_clicked
 358
 359
 360
 361
 362
 363
 364
 365
 366
 367
 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)
 374 #
 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>
 377 #
 378 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 379 #
 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>
 384 #
 385 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
 386 # Wed Jan  9 18:12:34 PST 2002
 387 #==============================================================================
 388
 389 BEGIN {
 390     use vars qw(
 391                  @ISA
 392                  %fields
 393                  $PACKAGE
 394                  $VERSION
 395                  $AUTHOR
 396                  $DATE
 397                  $permitted_fields
 398              );
 399     # Existing signal handler modules
 400     use src::gtkdbi;
 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';
 408     $VERSION = '0.01';
 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;
 414 } # End of sub BEGIN
 415
 416 %fields = (
 417 # Insert any extra data access methods that you want to add to
 418 #   our inherited super-constructor (or overload)
 419     USERDATA    => undef,
 420     VERSION     => '0.01',
 421 );
 422
 423 sub DESTROY {
 424     # This sub will be called on object destruction
 425 } # End of sub DESTROY
 426
 427 #==============================================================================
 428 #=== Below are the overloaded class constructors
 429 #==============================================================================
 430 sub new {
 431     my $that  = shift;
 432     # Allow indirect constructor so that we can call eg.
 433     #   $window1 = BusFrame->new; $window2 = $window1->new;
 434     my $class = ref($that) || $that;
 435
 436     # Call our super-class constructor to get an object and reconsecrate it
 437     my $self = bless $that->SUPER::new(), $class;
 438
 439     # Add our own data access methods to the inherited constructor
 440     my($element);
 441     foreach $element (keys %fields) {
 442         $self->{$permitted_fields}->{$element} = $fields{$element};
 443     }
 444     @{$self}{keys %fields} = values %fields;
 445     return $self;
 446 } # End of sub new
 447
 448 sub app_run {
 449     my ($class) = @_;
 450     Gtk->init;
 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
 455     $window->USERDATA({
 456 #        'Key1'   => 'Value1',
 457 #        'Key2'   => 'Value2',
 458 #        'Key3'   => 'Value3',
 459     });
 460     $window->TOPLEVEL->show;
 461 #    my $window2 = $window->new;
 462 #    $window2->TOPLEVEL->show;
 463     Gtk->main;
 464     # Uncomment the line below to enable gettext checking
 465 #    $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
 466     $window->TOPLEVEL->destroy;
 467
 468     return $window;
 469 } # End of sub run
 470 #===============================================================================
 471 #=== Below are (overloaded) default signal handlers for 'about_dialog' class
 472 #===============================================================================
 473 sub about_Form {
 474     my ($class) = @_;
 475     my $gtkversion =
 476         Gtk->major_version.".".
 477         Gtk->minor_version.".".
 478         Gtk->micro_version;
 479     my $name = $0;
 480     my $message =
 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
 490
 491 sub destroy_Form {
 492     my ($class, $data, $object, $instance) = @_;
 493     Gtk->main_quit;
 494 } # End of sub destroy_Form
 495
 496 sub toplevel_hide    { shift->get_toplevel->hide    }
 497 sub toplevel_close   { shift->get_toplevel->close   }
 498 sub toplevel_destroy { shift->get_toplevel->destroy }
 499
 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};
 508
 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(@_);
 512
 513 } # End of sub on_about_button_clicked
 514
 515
 516
 517
 518
 519
 520
 521
 522
 523
 524 #==============================================================================
 525 #=== This is the 'Subwindow1' class
 526 #==============================================================================
 527 package Subwindow1;
 528 require 5.000; use strict 'vars', 'refs', 'subs';
 529 # UI class 'Subwindow1' (version 0.01)
 530 #
 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>
 533 #
 534 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 535 #
 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>
 540 #
 541 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
 542 # Wed Jan  9 18:12:34 PST 2002
 543 #==============================================================================
 544
 545 BEGIN {
 546     use vars qw(
 547                  @ISA
 548                  %fields
 549                  $PACKAGE
 550                  $VERSION
 551                  $AUTHOR
 552                  $DATE
 553                  $permitted_fields
 554              );
 555     # Existing signal handler modules
 556     use src::gtkdbi;
 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';
 564     $VERSION = '0.01';
 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;
 570 } # End of sub BEGIN
 571
 572 %fields = (
 573 # Insert any extra data access methods that you want to add to
 574 #   our inherited super-constructor (or overload)
 575     USERDATA    => undef,
 576     VERSION     => '0.01',
 577 );
 578
 579 sub DESTROY {
 580     # This sub will be called on object destruction
 581 } # End of sub DESTROY
 582
 583 #==============================================================================
 584 #=== Below are the overloaded class constructors
 585 #==============================================================================
 586 sub new {
 587     my $that  = shift;
 588     # Allow indirect constructor so that we can call eg.
 589     #   $window1 = BusFrame->new; $window2 = $window1->new;
 590     my $class = ref($that) || $that;
 591
 592     # Call our super-class constructor to get an object and reconsecrate it
 593     my $self = bless $that->SUPER::new(), $class;
 594
 595     # Add our own data access methods to the inherited constructor
 596     my($element);
 597     foreach $element (keys %fields) {
 598         $self->{$permitted_fields}->{$element} = $fields{$element};
 599     }
 600     @{$self}{keys %fields} = values %fields;
 601     return $self;
 602 } # End of sub new
 603
 604 sub app_run {
 605     my ($class) = @_;
 606     Gtk->init;
 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
 611     $window->USERDATA({
 612 #        'Key1'   => 'Value1',
 613 #        'Key2'   => 'Value2',
 614 #        'Key3'   => 'Value3',
 615     });
 616     $window->TOPLEVEL->show;
 617 #    my $window2 = $window->new;
 618 #    $window2->TOPLEVEL->show;
 619     Gtk->main;
 620     # Uncomment the line below to enable gettext checking
 621 #    $window->write_gettext_strings("__", '/home/ivan/gtkdbi/src/gtkdbi.pot');
 622     $window->TOPLEVEL->destroy;
 623
 624     return $window;
 625 } # End of sub run
 626 #===============================================================================
 627 #=== Below are (overloaded) default signal handlers for 'window1' class
 628 #===============================================================================
 629 sub about_Form {
 630     my ($class) = @_;
 631     my $gtkversion =
 632         Gtk->major_version.".".
 633         Gtk->minor_version.".".
 634         Gtk->micro_version;
 635     my $name = $0;
 636     my $message =
 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
 646
 647 sub destroy_Form {
 648     my ($class, $data, $object, $instance) = @_;
 649     Gtk->main_quit;
 650 } # End of sub destroy_Form
 651
 652 sub toplevel_hide    { shift->get_toplevel->hide    }
 653 sub toplevel_close   { shift->get_toplevel->close   }
 654 sub toplevel_destroy { shift->get_toplevel->destroy }
 655
 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};
 664
 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(@_);
 668
 669 } # End of sub on_about1_activate
 670
 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};
 676
 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(@_);
 680
 681 } # End of sub on_connect1_activate
 682
 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};
 688
 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(@_);
 692
 693 } # End of sub on_quit1_activate
 694
 695
 696
 697
 698
 699
 700
 701
 702
 703
 704
 705 1;
 706
 707 __END__
 708
 709 #===============================================================================
 710 #==== Documentation
 711 #===============================================================================
 712 =pod
 713
 714 =head1 NAME
 715
 716 Subgtkdbi - version 0.01 Tue Oct 23 01:49:12 PDT 2001
 717
 718 No description
 719
 720 =head1 SYNOPSIS
 721
 722  use Subgtkdbi;
 723
 724  To construct the window object and show it call
 725
 726  Gtk->init;
 727  my $window = Subwindow1->new;
 728  $window->TOPLEVEL->show;
 729  Gtk->main;
 730
 731  OR use the shorthand for the above calls
 732
 733  Subwindow1->app_run;
 734
 735 =head1 DESCRIPTION
 736
 737 Unfortunately, the author has not yet written any documentation :-(
 738
 739 =head1 AUTHOR
 740
 741 Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 742
 743 =cut