src/gtkdbiUI.pm

   1 #!/usr/bin/perl -w
   2 #
   3 # This is the (re)generated UI construction class.
   4 #
   5 # DO NOT EDIT THIS FILE, ANY CHANGES THAT YOU MAKE WILL BE LOST WHEN
   6 # THIS FILE WILL BE OVERWRITTEN BY THE NEXT RUN OF Glade::PerlGenerate
   7 #
   8 #==============================================================================
   9 #=== This is the 'connect_dialog' class
  10 #==============================================================================
  11 package connect_dialog;
  12 require 5.000; use strict 'vars', 'refs', 'subs';
  13 # UI class 'connect_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 # Thu Jan 10 08:02:21 PST 2002
  27 #==============================================================================
  28
  29 BEGIN {
  30     # Run-time utilities and vars
  31     use Glade::PerlRun;
  32     # Existing signal handler modules
  33     use vars qw(
  34                  @ISA
  35                  %fields
  36                  %stubs
  37                  $PACKAGE
  38                  $VERSION
  39                  $AUTHOR
  40                  $DATE
  41                  $AUTOLOAD
  42                  $permitted_fields
  43              );
  44     # Tell interpreter who we are inheriting from
  45     @ISA     = qw( Glade::PerlRun );
  46     $PACKAGE = 'gtkdbi';
  47     $VERSION = '0.01';
  48     $AUTHOR  = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
  49     $DATE    = 'Tue Oct 23 01:49:12 PDT 2001';
  50     $permitted_fields = '_permitted_fields';
  51 } # End of sub BEGIN
  52
  53     $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';
  54
  55 %fields = (
  56     # These are the data fields that you can set/get using the dynamic
  57     # calls provided by AUTOLOAD (and their initial values).
  58     # eg $class->FORM($new_value);      sets the value of FORM
  59     #    $current_value = $class->FORM; gets the current value of FORM
  60     TOPLEVEL => undef,
  61     FORM     => undef,
  62     PACKAGE  => 'gtkdbi',
  63     VERSION  => '0.01',
  64     AUTHOR   => 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>',
  65     DATE     => 'Tue Oct 23 01:49:12 PDT 2001',
  66     INSTANCE => 'window1',
  67     CLASS_HIERARCHY => undef,
  68     WIDGET_HIERARCHY => undef,
  69 );
  70
  71 %stubs = (
  72     # These are signal handlers that will cause a message_box to be
  73     # displayed by AUTOLOAD if there is not already a sub of that name
  74     # in any module specified in 'use_modules'.
  75
  76     'on_abortconnect_button_clicked' => undef,
  77     'on_connect_button_clicked' => undef,
  78     'on_datasource_entry_changed' => undef,
  79     'on_deletesession_button_clicked' => undef,
  80     'on_password_entry_changed' => undef,
  81     'on_savesession_button_clicked' => undef,
  82     'on_username_entry_changed' => undef,
  83 );
  84
  85 sub AUTOLOAD {
  86     my $self = shift;
  87     my $type = ref($self)
  88         or die "$self is not an object so we cannot '$AUTOLOAD'\n",
  89             "We were called from ".join(", ", caller)."\n\n";
  90     my $name = $AUTOLOAD;
  91     $name =~ s/.*://;       # strip fully-qualified portion
  92
  93     if (exists $self->{$permitted_fields}->{$name} ) {
  94         # This allows dynamic data methods - see hash fields above
  95         # eg $class->UI('new_value');
  96         # or $current_value = $class->UI;
  97         if (@_) {
  98             return $self->{$name} = shift;
  99         } else {
 100             return $self->{$name};
 101         }
 102
 103     } elsif (exists $stubs{$name} ) {
 104         # This shows dynamic signal handler stub message_box - see hash stubs above
 105         __PACKAGE__->show_skeleton_message(
 106             $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")",
 107             [$self, @_],
 108             __PACKAGE__,
 109             'glade2perl_logo.xpm');
 110
 111     } else {
 112         die "Can't access method `$name' in class $type\n".
 113             "We were called from ".join(", ", caller)."\n\n";
 114
 115     }
 116 } # End of sub AUTOLOAD
 117
 118 sub run {
 119     my ($class) = @_;
 120     $class->load_translations('gtkdbi');
 121     # You can use the line below to load a test .mo file before it is installed in
 122     # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
 123 #    $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
 124     Gtk->init;
 125     my $window = $class->new;
 126     $window->TOPLEVEL->show;
 127     Gtk->main;
 128 } # End of sub run
 129
 130 sub DESTROY {
 131     # This sub will be called on object destruction
 132 } # End of sub DESTROY
 133
 134 sub new {
 135 #
 136 # This sub will create the UI window
 137     my $that  = shift;
 138     my $class = ref($that) || $that;
 139     my $self  = {
 140         $permitted_fields   => \%fields, %fields,
 141         _permitted_stubs    => \%stubs,  %stubs,
 142     };
 143     my ($forms, $widgets, $data, $work);
 144     my $instance = 1;
 145     # Get a unique toplevel widget structure
 146     while (defined $__PACKAGE__::all_forms->{"connect_dialog-$instance"}) {$instance++;}
 147
 148
 149     #
 150     # Construct a GtkWindow 'connect_dialog'
 151     $widgets->{'connect_dialog'} = new Gtk::Window;
 152     $widgets->{'connect_dialog'}->set_title(_('gtkdbi - Connect') );
 153     $widgets->{'connect_dialog'}->position('none' );
 154     $widgets->{'connect_dialog'}->set_policy(0, 1, 0 );
 155     $widgets->{'connect_dialog'}->set_modal(1 );
 156     $widgets->{'connect_dialog'}->realize;
 157     $forms->{'connect_dialog'}{'tooltips'} = new Gtk::Tooltips;
 158     $forms->{'connect_dialog'}{'accelgroup'} = new Gtk::AccelGroup;
 159     $forms->{'connect_dialog'}{'accelgroup'}->attach($widgets->{'connect_dialog'} );
 160     $forms->{'connect_dialog'}{'connect_dialog'} = $widgets->{'connect_dialog'};
 161         #
 162         # Construct a GtkVBox 'vbox4'
 163         $widgets->{'vbox4'} = new Gtk::VBox(0, 0 );
 164         $forms->{'connect_dialog'}{'connect_dialog'}->add($widgets->{'vbox4'} );
 165         $widgets->{'vbox4'}->show;
 166         $forms->{'connect_dialog'}{'vbox4'} = $widgets->{'vbox4'};
 167             #
 168             # Construct a GtkTable 'table2'
 169             $widgets->{'table2'} = new Gtk::Table(4, 2, 0 );
 170             $widgets->{'table2'}->set_row_spacings(0 );
 171             $widgets->{'table2'}->set_col_spacings(0 );
 172             $forms->{'connect_dialog'}{'vbox4'}->add($widgets->{'table2'} );
 173             $widgets->{'table2'}->show;
 174             $forms->{'connect_dialog'}{'table2'} = $widgets->{'table2'};
 175             $forms->{'connect_dialog'}{'table2'}->border_width(4 );
 176                 #
 177                 # Construct a GtkEntry 'datasource_entry'
 178                 $widgets->{'datasource_entry'} = new Gtk::Entry;
 179                 $forms->{'connect_dialog'}{'table2'}->attach($widgets->{'datasource_entry'}, 1, 2, 1, 2, ['expand', 'fill'], [], 0, 0 );
 180                 $widgets->{'datasource_entry'}->show;
 181                 $forms->{'connect_dialog'}{'datasource_entry'} = $widgets->{'datasource_entry'};
 182                 $forms->{'connect_dialog'}{'datasource_entry'}->can_focus(1 );
 183                 $forms->{'connect_dialog'}{'datasource_entry'}->set_text(_('') );
 184                 $forms->{'connect_dialog'}{'datasource_entry'}->set_max_length(0 );
 185                 $forms->{'connect_dialog'}{'datasource_entry'}->set_visibility(1 );
 186                 $forms->{'connect_dialog'}{'datasource_entry'}->set_editable(1 );
 187                 #
 188                 # Construct a GtkEntry 'username_entry'
 189                 $widgets->{'username_entry'} = new Gtk::Entry;
 190                 $forms->{'connect_dialog'}{'table2'}->attach($widgets->{'username_entry'}, 1, 2, 2, 3, ['expand', 'fill'], [], 0, 0 );
 191                 $widgets->{'username_entry'}->show;
 192                 $forms->{'connect_dialog'}{'username_entry'} = $widgets->{'username_entry'};
 193                 $forms->{'connect_dialog'}{'username_entry'}->can_focus(1 );
 194                 $forms->{'connect_dialog'}{'username_entry'}->set_text(_('') );
 195                 $forms->{'connect_dialog'}{'username_entry'}->set_max_length(0 );
 196                 $forms->{'connect_dialog'}{'username_entry'}->set_visibility(1 );
 197                 $forms->{'connect_dialog'}{'username_entry'}->set_editable(1 );
 198                 #
 199                 # Construct a GtkEntry 'password_entry'
 200                 $widgets->{'password_entry'} = new Gtk::Entry;
 201                 $forms->{'connect_dialog'}{'table2'}->attach($widgets->{'password_entry'}, 1, 2, 3, 4, ['expand', 'fill'], [], 0, 0 );
 202                 $widgets->{'password_entry'}->show;
 203                 $forms->{'connect_dialog'}{'password_entry'} = $widgets->{'password_entry'};
 204                 $forms->{'connect_dialog'}{'password_entry'}->can_focus(1 );
 205                 $forms->{'connect_dialog'}{'password_entry'}->set_text(_('') );
 206                 $forms->{'connect_dialog'}{'password_entry'}->set_max_length(0 );
 207                 $forms->{'connect_dialog'}{'password_entry'}->set_visibility(1 );
 208                 $forms->{'connect_dialog'}{'password_entry'}->set_editable(1 );
 209                 #
 210                 # Construct a GtkLabel 'datasource_label'
 211                 $widgets->{'datasource_label'} = new Gtk::Label(_('Data Source'));
 212                 $widgets->{'datasource_label'}->set_justify('right' );
 213                 $widgets->{'datasource_label'}->set_line_wrap(0 );
 214                 $forms->{'connect_dialog'}{'table2'}->attach($widgets->{'datasource_label'}, 0, 1, 1, 2, ['fill'], [], 0, 0 );
 215                 $widgets->{'datasource_label'}->show;
 216                 $forms->{'connect_dialog'}{'datasource_label'} = $widgets->{'datasource_label'};
 217                 $forms->{'connect_dialog'}{'datasource_label'}->set_alignment(0, 0.5 );
 218                 #
 219                 # Construct a GtkLabel 'username_label'
 220                 $widgets->{'username_label'} = new Gtk::Label(_('Username'));
 221                 $widgets->{'username_label'}->set_justify('center' );
 222                 $widgets->{'username_label'}->set_line_wrap(0 );
 223                 $forms->{'connect_dialog'}{'table2'}->attach($widgets->{'username_label'}, 0, 1, 2, 3, ['fill'], [], 0, 0 );
 224                 $widgets->{'username_label'}->show;
 225                 $forms->{'connect_dialog'}{'username_label'} = $widgets->{'username_label'};
 226                 $forms->{'connect_dialog'}{'username_label'}->set_alignment(0, 0.5 );
 227                 #
 228                 # Construct a GtkLabel 'password_label'
 229                 $widgets->{'password_label'} = new Gtk::Label(_('Password'));
 230                 $widgets->{'password_label'}->set_justify('center' );
 231                 $widgets->{'password_label'}->set_line_wrap(0 );
 232                 $forms->{'connect_dialog'}{'table2'}->attach($widgets->{'password_label'}, 0, 1, 3, 4, ['fill'], [], 0, 0 );
 233                 $widgets->{'password_label'}->show;
 234                 $forms->{'connect_dialog'}{'password_label'} = $widgets->{'password_label'};
 235                 $forms->{'connect_dialog'}{'password_label'}->set_alignment(0, 0.5 );
 236                 #
 237                 # Construct a GtkLabel 'session_label'
 238                 $widgets->{'session_label'} = new Gtk::Label(_('Session'));
 239                 $widgets->{'session_label'}->set_justify('center' );
 240                 $widgets->{'session_label'}->set_line_wrap(0 );
 241                 $forms->{'connect_dialog'}{'table2'}->attach($widgets->{'session_label'}, 0, 1, 0, 1, ['fill'], [], 0, 0 );
 242                 $widgets->{'session_label'}->show;
 243                 $forms->{'connect_dialog'}{'session_label'} = $widgets->{'session_label'};
 244                 $forms->{'connect_dialog'}{'session_label'}->set_alignment(0, 0.5 );
 245                 #
 246                 # Construct a GtkOptionMenu 'session_optionmenu'
 247                 $widgets->{'session_optionmenu'} = new Gtk::OptionMenu;
 248                 $forms->{'connect_dialog'}{'table2'}->attach($widgets->{'session_optionmenu'}, 1, 2, 0, 1, ['expand', 'fill'], [], 0, 0 );
 249                 $widgets->{'session_optionmenu'}->show;
 250                 $forms->{'connect_dialog'}{'session_optionmenu'} = $widgets->{'session_optionmenu'};
 251                 $forms->{'connect_dialog'}{'session_optionmenu'}->set_usize(0, 32 );
 252                 $forms->{'connect_dialog'}{'session_optionmenu'}->can_focus(1 );
 253                 $widgets->{'session_optionmenu_menu'} = new Gtk::Menu;
 254                 $forms->{'connect_dialog'}{'session_optionmenu'}->set_menu($widgets->{'session_optionmenu_menu'} );
 255                 $forms->{'connect_dialog'}{'session_optionmenu_menu'} = $widgets->{'session_optionmenu_menu'};
 256                 $forms->{'connect_dialog'}{'session_optionmenu'}->set_history( 0 );
 257             $forms->{'connect_dialog'}{'vbox4'}->set_child_packing($forms->{'connect_dialog'}{'table2'}, 1, 1, 0, 'start' );
 258             #
 259             # Construct a GtkHSeparator 'hseparator1'
 260             $widgets->{'hseparator1'} = new Gtk::HSeparator;
 261             $forms->{'connect_dialog'}{'vbox4'}->add($widgets->{'hseparator1'} );
 262             $widgets->{'hseparator1'}->show;
 263             $forms->{'connect_dialog'}{'hseparator1'} = $widgets->{'hseparator1'};
 264             $forms->{'connect_dialog'}{'vbox4'}->set_child_packing($forms->{'connect_dialog'}{'hseparator1'}, 1, 1, 0, 'start' );
 265             #
 266             # Construct a GtkHButtonBox 'hbuttonbox2'
 267             $widgets->{'hbuttonbox2'} = new Gtk::HButtonBox;
 268             $forms->{'connect_dialog'}{'vbox4'}->add($widgets->{'hbuttonbox2'} );
 269             $widgets->{'hbuttonbox2'}->show;
 270             $forms->{'connect_dialog'}{'hbuttonbox2'} = $widgets->{'hbuttonbox2'};
 271             $forms->{'connect_dialog'}{'hbuttonbox2'}->set_layout('spread' );
 272             $forms->{'connect_dialog'}{'hbuttonbox2'}->set_spacing(30 );
 273             $forms->{'connect_dialog'}{'hbuttonbox2'}->set_child_size(85, 27 );
 274             $forms->{'connect_dialog'}{'hbuttonbox2'}->set_child_ipadding(7, 0 );
 275                 #
 276                 # Construct a GtkButton 'savesession_button'
 277                 $widgets->{'savesession_button'} = new Gtk::Button(_('Save Session'));
 278                 $forms->{'connect_dialog'}{'hbuttonbox2'}->add($widgets->{'savesession_button'} );
 279                 $widgets->{'savesession_button'}->show;
 280                 $forms->{'connect_dialog'}{'savesession_button'} = $widgets->{'savesession_button'};
 281                 $forms->{'connect_dialog'}{'savesession_button'}->can_default(1 );
 282                 $forms->{'connect_dialog'}{'savesession_button'}->can_focus(1 );
 283                 #
 284                 # Construct a GtkButton 'deletesession_button'
 285                 $widgets->{'deletesession_button'} = new Gtk::Button(_('Delete Session'));
 286                 $forms->{'connect_dialog'}{'hbuttonbox2'}->add($widgets->{'deletesession_button'} );
 287                 $widgets->{'deletesession_button'}->show;
 288                 $forms->{'connect_dialog'}{'deletesession_button'} = $widgets->{'deletesession_button'};
 289                 $forms->{'connect_dialog'}{'deletesession_button'}->can_default(1 );
 290                 $forms->{'connect_dialog'}{'deletesession_button'}->can_focus(1 );
 291             $forms->{'connect_dialog'}{'vbox4'}->set_child_packing($forms->{'connect_dialog'}{'hbuttonbox2'}, 1, 1, 0, 'start' );
 292             #
 293             # Construct a GtkHSeparator 'hseparator2'
 294             $widgets->{'hseparator2'} = new Gtk::HSeparator;
 295             $forms->{'connect_dialog'}{'vbox4'}->add($widgets->{'hseparator2'} );
 296             $widgets->{'hseparator2'}->show;
 297             $forms->{'connect_dialog'}{'hseparator2'} = $widgets->{'hseparator2'};
 298             $forms->{'connect_dialog'}{'vbox4'}->set_child_packing($forms->{'connect_dialog'}{'hseparator2'}, 1, 1, 0, 'start' );
 299             #
 300             # Construct a GtkHButtonBox 'hbuttonbox3'
 301             $widgets->{'hbuttonbox3'} = new Gtk::HButtonBox;
 302             $forms->{'connect_dialog'}{'vbox4'}->add($widgets->{'hbuttonbox3'} );
 303             $widgets->{'hbuttonbox3'}->show;
 304             $forms->{'connect_dialog'}{'hbuttonbox3'} = $widgets->{'hbuttonbox3'};
 305             $forms->{'connect_dialog'}{'hbuttonbox3'}->set_layout('edge' );
 306             $forms->{'connect_dialog'}{'hbuttonbox3'}->set_spacing(30 );
 307             $forms->{'connect_dialog'}{'hbuttonbox3'}->set_child_size(85, 27 );
 308             $forms->{'connect_dialog'}{'hbuttonbox3'}->set_child_ipadding(7, 0 );
 309                 #
 310                 # Construct a GtkButton 'connect_button'
 311                 $widgets->{'connect_button'} = new Gtk::Button(_('Connect'));
 312                 $forms->{'connect_dialog'}{'hbuttonbox3'}->add($widgets->{'connect_button'} );
 313                 $widgets->{'connect_button'}->show;
 314                 $forms->{'connect_dialog'}{'connect_button'} = $widgets->{'connect_button'};
 315                 $forms->{'connect_dialog'}{'connect_button'}->can_default(1 );
 316                 $forms->{'connect_dialog'}{'connect_button'}->can_focus(1 );
 317                 #
 318                 # Construct a GtkButton 'abortconnect_button'
 319                 $widgets->{'abortconnect_button'} = new Gtk::Button(_('Abort'));
 320                 $forms->{'connect_dialog'}{'hbuttonbox3'}->add($widgets->{'abortconnect_button'} );
 321                 $widgets->{'abortconnect_button'}->show;
 322                 $forms->{'connect_dialog'}{'abortconnect_button'} = $widgets->{'abortconnect_button'};
 323                 $forms->{'connect_dialog'}{'abortconnect_button'}->can_default(1 );
 324                 $forms->{'connect_dialog'}{'abortconnect_button'}->can_focus(1 );
 325             $forms->{'connect_dialog'}{'vbox4'}->set_child_packing($forms->{'connect_dialog'}{'hbuttonbox3'}, 1, 1, 0, 'start' );
 326     #
 327     # Connect all signals now that widgets are constructed
 328     $forms->{'connect_dialog'}{'datasource_entry'}->signal_connect( 'changed', "$class\::on_datasource_entry_changed", '', 'datasource_entry', "connect_dialog-$instance" );
 329     $forms->{'connect_dialog'}{'username_entry'}->signal_connect( 'changed', "$class\::on_username_entry_changed", '', 'username_entry', "connect_dialog-$instance" );
 330     $forms->{'connect_dialog'}{'password_entry'}->signal_connect( 'changed', "$class\::on_password_entry_changed", '', 'password_entry', "connect_dialog-$instance" );
 331     $forms->{'connect_dialog'}{'savesession_button'}->signal_connect( 'clicked', "$class\::on_savesession_button_clicked", '', 'savesession_button', "connect_dialog-$instance" );
 332     $forms->{'connect_dialog'}{'deletesession_button'}->signal_connect( 'clicked', "$class\::on_deletesession_button_clicked", '', 'deletesession_button', "connect_dialog-$instance" );
 333     $forms->{'connect_dialog'}{'connect_button'}->signal_connect( 'clicked', "$class\::on_connect_button_clicked", '', 'connect_button', "connect_dialog-$instance" );
 334     $forms->{'connect_dialog'}{'abortconnect_button'}->signal_connect( 'clicked', "$class\::on_abortconnect_button_clicked", '', 'abortconnect_button', "connect_dialog-$instance" );
 335
 336
 337     #
 338     # Return the constructed UI
 339     bless $self, $class;
 340     $self->FORM($forms->{'connect_dialog'});
 341     $self->TOPLEVEL($self->FORM->{'connect_dialog'});
 342     $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
 343     $self->INSTANCE("connect_dialog-$instance");
 344     $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
 345     $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
 346     $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
 347
 348     return $self;
 349 } # End of sub new
 350
 351
 352
 353
 354
 355
 356
 357
 358
 359 #==============================================================================
 360 #=== This is the 'quit_dialog' class
 361 #==============================================================================
 362 package quit_dialog;
 363 require 5.000; use strict 'vars', 'refs', 'subs';
 364 # UI class 'quit_dialog' (version 0.01)
 365 #
 366 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
 367 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 368 #
 369 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 370 #
 371 #==============================================================================
 372 # This perl source file was automatically generated by
 373 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
 374 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
 375 #
 376 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
 377 # Thu Jan 10 08:02:21 PST 2002
 378 #==============================================================================
 379
 380 BEGIN {
 381     # Run-time utilities and vars
 382     use Glade::PerlRun;
 383     # Existing signal handler modules
 384     use vars qw(
 385                  @ISA
 386                  %fields
 387                  %stubs
 388                  $PACKAGE
 389                  $VERSION
 390                  $AUTHOR
 391                  $DATE
 392                  $AUTOLOAD
 393                  $permitted_fields
 394              );
 395     # Tell interpreter who we are inheriting from
 396     @ISA     = qw( Glade::PerlRun );
 397     $PACKAGE = 'gtkdbi';
 398     $VERSION = '0.01';
 399     $AUTHOR  = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
 400     $DATE    = 'Tue Oct 23 01:49:12 PDT 2001';
 401     $permitted_fields = '_permitted_fields';
 402 } # End of sub BEGIN
 403
 404     $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';
 405
 406 %fields = (
 407     # These are the data fields that you can set/get using the dynamic
 408     # calls provided by AUTOLOAD (and their initial values).
 409     # eg $class->FORM($new_value);      sets the value of FORM
 410     #    $current_value = $class->FORM; gets the current value of FORM
 411     TOPLEVEL => undef,
 412     FORM     => undef,
 413     PACKAGE  => 'gtkdbi',
 414     VERSION  => '0.01',
 415     AUTHOR   => 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>',
 416     DATE     => 'Tue Oct 23 01:49:12 PDT 2001',
 417     INSTANCE => 'window1',
 418     CLASS_HIERARCHY => undef,
 419     WIDGET_HIERARCHY => undef,
 420 );
 421
 422 %stubs = (
 423     # These are signal handlers that will cause a message_box to be
 424     # displayed by AUTOLOAD if there is not already a sub of that name
 425     # in any module specified in 'use_modules'.
 426
 427     'on_quit_no_clicked' => undef,
 428     'on_quit_yes_clicked' => undef,
 429 );
 430
 431 sub AUTOLOAD {
 432     my $self = shift;
 433     my $type = ref($self)
 434         or die "$self is not an object so we cannot '$AUTOLOAD'\n",
 435             "We were called from ".join(", ", caller)."\n\n";
 436     my $name = $AUTOLOAD;
 437     $name =~ s/.*://;       # strip fully-qualified portion
 438
 439     if (exists $self->{$permitted_fields}->{$name} ) {
 440         # This allows dynamic data methods - see hash fields above
 441         # eg $class->UI('new_value');
 442         # or $current_value = $class->UI;
 443         if (@_) {
 444             return $self->{$name} = shift;
 445         } else {
 446             return $self->{$name};
 447         }
 448
 449     } elsif (exists $stubs{$name} ) {
 450         # This shows dynamic signal handler stub message_box - see hash stubs above
 451         __PACKAGE__->show_skeleton_message(
 452             $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")",
 453             [$self, @_],
 454             __PACKAGE__,
 455             'glade2perl_logo.xpm');
 456
 457     } else {
 458         die "Can't access method `$name' in class $type\n".
 459             "We were called from ".join(", ", caller)."\n\n";
 460
 461     }
 462 } # End of sub AUTOLOAD
 463
 464 sub run {
 465     my ($class) = @_;
 466     $class->load_translations('gtkdbi');
 467     # You can use the line below to load a test .mo file before it is installed in
 468     # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
 469 #    $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
 470     Gtk->init;
 471     my $window = $class->new;
 472     $window->TOPLEVEL->show;
 473     Gtk->main;
 474 } # End of sub run
 475
 476 sub DESTROY {
 477     # This sub will be called on object destruction
 478 } # End of sub DESTROY
 479
 480 sub new {
 481 #
 482 # This sub will create the UI window
 483     my $that  = shift;
 484     my $class = ref($that) || $that;
 485     my $self  = {
 486         $permitted_fields   => \%fields, %fields,
 487         _permitted_stubs    => \%stubs,  %stubs,
 488     };
 489     my ($forms, $widgets, $data, $work);
 490     my $instance = 1;
 491     # Get a unique toplevel widget structure
 492     while (defined $__PACKAGE__::all_forms->{"quit_dialog-$instance"}) {$instance++;}
 493
 494
 495     #
 496     # Construct a GtkDialog 'quit_dialog'
 497     $widgets->{'quit_dialog'} = new Gtk::Dialog;
 498     $widgets->{'quit_dialog'}->set_title(_('gtkdbi ') );
 499     $widgets->{'quit_dialog'}->position('center' );
 500     $widgets->{'quit_dialog'}->set_policy(1, 1, 0 );
 501     $widgets->{'quit_dialog'}->set_modal(1 );
 502     $widgets->{'quit_dialog'}->realize;
 503     $forms->{'quit_dialog'}{'tooltips'} = new Gtk::Tooltips;
 504     $forms->{'quit_dialog'}{'accelgroup'} = new Gtk::AccelGroup;
 505     $forms->{'quit_dialog'}{'accelgroup'}->attach($widgets->{'quit_dialog'} );
 506     $forms->{'quit_dialog'}{'quit_dialog'} = $widgets->{'quit_dialog'};
 507         #
 508         # Construct a GtkVBox 'dialog-vbox1'
 509         $widgets->{'dialog-vbox1'} = $forms->{'quit_dialog'}{'quit_dialog'}->vbox;
 510         $widgets->{'dialog-vbox1'}->show;
 511         $forms->{'quit_dialog'}{'dialog-vbox1'} = $widgets->{'dialog-vbox1'};
 512             #
 513             # Construct a GtkHBox 'dialog-action_area1'
 514             $widgets->{'dialog-action_area1'} = $forms->{'quit_dialog'}{'quit_dialog'}->action_area;
 515             $widgets->{'dialog-action_area1'}->show;
 516             $forms->{'quit_dialog'}{'dialog-action_area1'} = $widgets->{'dialog-action_area1'};
 517             $forms->{'quit_dialog'}{'dialog-action_area1'}->border_width(10 );
 518                 #
 519                 # Construct a GtkHButtonBox 'hbuttonbox1'
 520                 $widgets->{'hbuttonbox1'} = new Gtk::HButtonBox;
 521                 $forms->{'quit_dialog'}{'dialog-action_area1'}->add($widgets->{'hbuttonbox1'} );
 522                 $widgets->{'hbuttonbox1'}->show;
 523                 $forms->{'quit_dialog'}{'hbuttonbox1'} = $widgets->{'hbuttonbox1'};
 524                 $forms->{'quit_dialog'}{'hbuttonbox1'}->set_layout('default_style' );
 525                 $forms->{'quit_dialog'}{'hbuttonbox1'}->set_spacing(30 );
 526                 $forms->{'quit_dialog'}{'hbuttonbox1'}->set_child_size(85, 27 );
 527                 $forms->{'quit_dialog'}{'hbuttonbox1'}->set_child_ipadding(7, 0 );
 528                     #
 529                     # Construct a GtkButton 'quit_yes'
 530                     $widgets->{'quit_yes'} = new Gtk::Button(_('Yes'));
 531                     $forms->{'quit_dialog'}{'hbuttonbox1'}->add($widgets->{'quit_yes'} );
 532                     $widgets->{'quit_yes'}->show;
 533                     $forms->{'quit_dialog'}{'quit_yes'} = $widgets->{'quit_yes'};
 534                     $forms->{'quit_dialog'}{'quit_yes'}->can_default(1 );
 535                     $forms->{'quit_dialog'}{'quit_yes'}->can_focus(1 );
 536                     #
 537                     # Construct a GtkButton 'quit_no'
 538                     $widgets->{'quit_no'} = new Gtk::Button(_('No'));
 539                     $forms->{'quit_dialog'}{'hbuttonbox1'}->add($widgets->{'quit_no'} );
 540                     $widgets->{'quit_no'}->show;
 541                     $forms->{'quit_dialog'}{'quit_no'} = $widgets->{'quit_no'};
 542                     $forms->{'quit_dialog'}{'quit_no'}->can_default(1 );
 543                     $forms->{'quit_dialog'}{'quit_no'}->can_focus(1 );
 544                 $forms->{'quit_dialog'}{'dialog-action_area1'}->set_child_packing($forms->{'quit_dialog'}{'hbuttonbox1'}, 1, 1, 0, 'start' );
 545             $forms->{'quit_dialog'}{'dialog-vbox1'}->set_child_packing($forms->{'quit_dialog'}{'dialog-action_area1'}, 0, 1, 0, 'end' );
 546             #
 547             # Construct a GtkLabel 'label2'
 548             $widgets->{'label2'} = new Gtk::Label(_('Really quit?'));
 549             $widgets->{'label2'}->set_justify('center' );
 550             $widgets->{'label2'}->set_line_wrap(0 );
 551             $forms->{'quit_dialog'}{'dialog-vbox1'}->add($widgets->{'label2'} );
 552             $widgets->{'label2'}->show;
 553             $forms->{'quit_dialog'}{'label2'} = $widgets->{'label2'};
 554             $forms->{'quit_dialog'}{'label2'}->set_alignment(0.5, 0.5 );
 555             $forms->{'quit_dialog'}{'label2'}->set_padding(0, 4 );
 556             $forms->{'quit_dialog'}{'dialog-vbox1'}->set_child_packing($forms->{'quit_dialog'}{'label2'}, 1, 0, 0, 'start' );
 557     #
 558     # Connect all signals now that widgets are constructed
 559     $forms->{'quit_dialog'}{'quit_yes'}->signal_connect( 'clicked', "$class\::on_quit_yes_clicked", '', 'quit_yes', "quit_dialog-$instance" );
 560     $forms->{'quit_dialog'}{'quit_no'}->signal_connect( 'clicked', "$class\::on_quit_no_clicked", '', 'quit_no', "quit_dialog-$instance" );
 561
 562
 563     #
 564     # Return the constructed UI
 565     bless $self, $class;
 566     $self->FORM($forms->{'quit_dialog'});
 567     $self->TOPLEVEL($self->FORM->{'quit_dialog'});
 568     $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
 569     $self->INSTANCE("quit_dialog-$instance");
 570     $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
 571     $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
 572     $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
 573
 574     return $self;
 575 } # End of sub new
 576
 577
 578
 579
 580
 581
 582
 583
 584
 585 #==============================================================================
 586 #=== This is the 'error_dialog' class
 587 #==============================================================================
 588 package error_dialog;
 589 require 5.000; use strict 'vars', 'refs', 'subs';
 590 # UI class 'error_dialog' (version 0.01)
 591 #
 592 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
 593 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 594 #
 595 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 596 #
 597 #==============================================================================
 598 # This perl source file was automatically generated by
 599 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
 600 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
 601 #
 602 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
 603 # Thu Jan 10 08:02:21 PST 2002
 604 #==============================================================================
 605
 606 BEGIN {
 607     # Run-time utilities and vars
 608     use Glade::PerlRun;
 609     # Existing signal handler modules
 610     use vars qw(
 611                  @ISA
 612                  %fields
 613                  %stubs
 614                  $PACKAGE
 615                  $VERSION
 616                  $AUTHOR
 617                  $DATE
 618                  $AUTOLOAD
 619                  $permitted_fields
 620              );
 621     # Tell interpreter who we are inheriting from
 622     @ISA     = qw( Glade::PerlRun );
 623     $PACKAGE = 'gtkdbi';
 624     $VERSION = '0.01';
 625     $AUTHOR  = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
 626     $DATE    = 'Tue Oct 23 01:49:12 PDT 2001';
 627     $permitted_fields = '_permitted_fields';
 628 } # End of sub BEGIN
 629
 630     $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';
 631
 632 %fields = (
 633     # These are the data fields that you can set/get using the dynamic
 634     # calls provided by AUTOLOAD (and their initial values).
 635     # eg $class->FORM($new_value);      sets the value of FORM
 636     #    $current_value = $class->FORM; gets the current value of FORM
 637     TOPLEVEL => undef,
 638     FORM     => undef,
 639     PACKAGE  => 'gtkdbi',
 640     VERSION  => '0.01',
 641     AUTHOR   => 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>',
 642     DATE     => 'Tue Oct 23 01:49:12 PDT 2001',
 643     INSTANCE => 'window1',
 644     CLASS_HIERARCHY => undef,
 645     WIDGET_HIERARCHY => undef,
 646 );
 647
 648 %stubs = (
 649     # These are signal handlers that will cause a message_box to be
 650     # displayed by AUTOLOAD if there is not already a sub of that name
 651     # in any module specified in 'use_modules'.
 652
 653     'on_error_button_clicked' => undef,
 654 );
 655
 656 sub AUTOLOAD {
 657     my $self = shift;
 658     my $type = ref($self)
 659         or die "$self is not an object so we cannot '$AUTOLOAD'\n",
 660             "We were called from ".join(", ", caller)."\n\n";
 661     my $name = $AUTOLOAD;
 662     $name =~ s/.*://;       # strip fully-qualified portion
 663
 664     if (exists $self->{$permitted_fields}->{$name} ) {
 665         # This allows dynamic data methods - see hash fields above
 666         # eg $class->UI('new_value');
 667         # or $current_value = $class->UI;
 668         if (@_) {
 669             return $self->{$name} = shift;
 670         } else {
 671             return $self->{$name};
 672         }
 673
 674     } elsif (exists $stubs{$name} ) {
 675         # This shows dynamic signal handler stub message_box - see hash stubs above
 676         __PACKAGE__->show_skeleton_message(
 677             $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")",
 678             [$self, @_],
 679             __PACKAGE__,
 680             'glade2perl_logo.xpm');
 681
 682     } else {
 683         die "Can't access method `$name' in class $type\n".
 684             "We were called from ".join(", ", caller)."\n\n";
 685
 686     }
 687 } # End of sub AUTOLOAD
 688
 689 sub run {
 690     my ($class) = @_;
 691     $class->load_translations('gtkdbi');
 692     # You can use the line below to load a test .mo file before it is installed in
 693     # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
 694 #    $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
 695     Gtk->init;
 696     my $window = $class->new;
 697     $window->TOPLEVEL->show;
 698     Gtk->main;
 699 } # End of sub run
 700
 701 sub DESTROY {
 702     # This sub will be called on object destruction
 703 } # End of sub DESTROY
 704
 705 sub new {
 706 #
 707 # This sub will create the UI window
 708     my $that  = shift;
 709     my $class = ref($that) || $that;
 710     my $self  = {
 711         $permitted_fields   => \%fields, %fields,
 712         _permitted_stubs    => \%stubs,  %stubs,
 713     };
 714     my ($forms, $widgets, $data, $work);
 715     my $instance = 1;
 716     # Get a unique toplevel widget structure
 717     while (defined $__PACKAGE__::all_forms->{"error_dialog-$instance"}) {$instance++;}
 718
 719
 720     #
 721     # Construct a GtkDialog 'error_dialog'
 722     $widgets->{'error_dialog'} = new Gtk::Dialog;
 723     $widgets->{'error_dialog'}->set_title(_('gtkdbi - Error') );
 724     $widgets->{'error_dialog'}->position('none' );
 725     $widgets->{'error_dialog'}->set_policy(1, 1, 0 );
 726     $widgets->{'error_dialog'}->set_modal(1 );
 727     $widgets->{'error_dialog'}->realize;
 728     $forms->{'error_dialog'}{'tooltips'} = new Gtk::Tooltips;
 729     $forms->{'error_dialog'}{'accelgroup'} = new Gtk::AccelGroup;
 730     $forms->{'error_dialog'}{'accelgroup'}->attach($widgets->{'error_dialog'} );
 731     $forms->{'error_dialog'}{'error_dialog'} = $widgets->{'error_dialog'};
 732         #
 733         # Construct a GtkVBox 'dialog-vbox3'
 734         $widgets->{'dialog-vbox3'} = $forms->{'error_dialog'}{'error_dialog'}->vbox;
 735         $widgets->{'dialog-vbox3'}->show;
 736         $forms->{'error_dialog'}{'dialog-vbox3'} = $widgets->{'dialog-vbox3'};
 737             #
 738             # Construct a GtkHBox 'dialog-action_area3'
 739             $widgets->{'dialog-action_area3'} = $forms->{'error_dialog'}{'error_dialog'}->action_area;
 740             $widgets->{'dialog-action_area3'}->show;
 741             $forms->{'error_dialog'}{'dialog-action_area3'} = $widgets->{'dialog-action_area3'};
 742             $forms->{'error_dialog'}{'dialog-action_area3'}->border_width(10 );
 743                 #
 744                 # Construct a GtkButton 'error_button'
 745                 $widgets->{'error_button'} = new Gtk::Button(_('OK'));
 746                 $forms->{'error_dialog'}{'dialog-action_area3'}->add($widgets->{'error_button'} );
 747                 $widgets->{'error_button'}->show;
 748                 $forms->{'error_dialog'}{'error_button'} = $widgets->{'error_button'};
 749                 $forms->{'error_dialog'}{'error_button'}->can_focus(1 );
 750                 $forms->{'error_dialog'}{'dialog-action_area3'}->set_child_packing($forms->{'error_dialog'}{'error_button'}, 0, 0, 0, 'start' );
 751             $forms->{'error_dialog'}{'dialog-vbox3'}->set_child_packing($forms->{'error_dialog'}{'dialog-action_area3'}, 0, 1, 0, 'end' );
 752             #
 753             # Construct a GtkLabel 'error_label'
 754             $widgets->{'error_label'} = new Gtk::Label(_('$ERROR'));
 755             $widgets->{'error_label'}->set_justify('center' );
 756             $widgets->{'error_label'}->set_line_wrap(0 );
 757             $forms->{'error_dialog'}{'dialog-vbox3'}->add($widgets->{'error_label'} );
 758             $widgets->{'error_label'}->show;
 759             $forms->{'error_dialog'}{'error_label'} = $widgets->{'error_label'};
 760             $forms->{'error_dialog'}{'error_label'}->set_alignment(0.5, 0.5 );
 761             $forms->{'error_dialog'}{'dialog-vbox3'}->set_child_packing($forms->{'error_dialog'}{'error_label'}, 1, 0, 0, 'start' );
 762     #
 763     # Connect all signals now that widgets are constructed
 764     $forms->{'error_dialog'}{'error_button'}->signal_connect( 'clicked', "$class\::on_error_button_clicked", '', 'error_button', "error_dialog-$instance" );
 765
 766
 767     #
 768     # Return the constructed UI
 769     bless $self, $class;
 770     $self->FORM($forms->{'error_dialog'});
 771     $self->TOPLEVEL($self->FORM->{'error_dialog'});
 772     $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
 773     $self->INSTANCE("error_dialog-$instance");
 774     $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
 775     $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
 776     $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
 777
 778     return $self;
 779 } # End of sub new
 780
 781
 782
 783
 784
 785
 786
 787
 788
 789 #==============================================================================
 790 #=== This is the 'about_dialog' class
 791 #==============================================================================
 792 package about_dialog;
 793 require 5.000; use strict 'vars', 'refs', 'subs';
 794 # UI class 'about_dialog' (version 0.01)
 795 #
 796 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
 797 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 798 #
 799 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
 800 #
 801 #==============================================================================
 802 # This perl source file was automatically generated by
 803 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
 804 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
 805 #
 806 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
 807 # Thu Jan 10 08:02:21 PST 2002
 808 #==============================================================================
 809
 810 BEGIN {
 811     # Run-time utilities and vars
 812     use Glade::PerlRun;
 813     # Existing signal handler modules
 814     use vars qw(
 815                  @ISA
 816                  %fields
 817                  %stubs
 818                  $PACKAGE
 819                  $VERSION
 820                  $AUTHOR
 821                  $DATE
 822                  $AUTOLOAD
 823                  $permitted_fields
 824              );
 825     # Tell interpreter who we are inheriting from
 826     @ISA     = qw( Glade::PerlRun );
 827     $PACKAGE = 'gtkdbi';
 828     $VERSION = '0.01';
 829     $AUTHOR  = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
 830     $DATE    = 'Tue Oct 23 01:49:12 PDT 2001';
 831     $permitted_fields = '_permitted_fields';
 832 } # End of sub BEGIN
 833
 834     $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';
 835
 836 %fields = (
 837     # These are the data fields that you can set/get using the dynamic
 838     # calls provided by AUTOLOAD (and their initial values).
 839     # eg $class->FORM($new_value);      sets the value of FORM
 840     #    $current_value = $class->FORM; gets the current value of FORM
 841     TOPLEVEL => undef,
 842     FORM     => undef,
 843     PACKAGE  => 'gtkdbi',
 844     VERSION  => '0.01',
 845     AUTHOR   => 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>',
 846     DATE     => 'Tue Oct 23 01:49:12 PDT 2001',
 847     INSTANCE => 'window1',
 848     CLASS_HIERARCHY => undef,
 849     WIDGET_HIERARCHY => undef,
 850 );
 851
 852 %stubs = (
 853     # These are signal handlers that will cause a message_box to be
 854     # displayed by AUTOLOAD if there is not already a sub of that name
 855     # in any module specified in 'use_modules'.
 856
 857     'on_about_button_clicked' => undef,
 858 );
 859
 860 sub AUTOLOAD {
 861     my $self = shift;
 862     my $type = ref($self)
 863         or die "$self is not an object so we cannot '$AUTOLOAD'\n",
 864             "We were called from ".join(", ", caller)."\n\n";
 865     my $name = $AUTOLOAD;
 866     $name =~ s/.*://;       # strip fully-qualified portion
 867
 868     if (exists $self->{$permitted_fields}->{$name} ) {
 869         # This allows dynamic data methods - see hash fields above
 870         # eg $class->UI('new_value');
 871         # or $current_value = $class->UI;
 872         if (@_) {
 873             return $self->{$name} = shift;
 874         } else {
 875             return $self->{$name};
 876         }
 877
 878     } elsif (exists $stubs{$name} ) {
 879         # This shows dynamic signal handler stub message_box - see hash stubs above
 880         __PACKAGE__->show_skeleton_message(
 881             $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")",
 882             [$self, @_],
 883             __PACKAGE__,
 884             'glade2perl_logo.xpm');
 885
 886     } else {
 887         die "Can't access method `$name' in class $type\n".
 888             "We were called from ".join(", ", caller)."\n\n";
 889
 890     }
 891 } # End of sub AUTOLOAD
 892
 893 sub run {
 894     my ($class) = @_;
 895     $class->load_translations('gtkdbi');
 896     # You can use the line below to load a test .mo file before it is installed in
 897     # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
 898 #    $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
 899     Gtk->init;
 900     my $window = $class->new;
 901     $window->TOPLEVEL->show;
 902     Gtk->main;
 903 } # End of sub run
 904
 905 sub DESTROY {
 906     # This sub will be called on object destruction
 907 } # End of sub DESTROY
 908
 909 sub new {
 910 #
 911 # This sub will create the UI window
 912     my $that  = shift;
 913     my $class = ref($that) || $that;
 914     my $self  = {
 915         $permitted_fields   => \%fields, %fields,
 916         _permitted_stubs    => \%stubs,  %stubs,
 917     };
 918     my ($forms, $widgets, $data, $work);
 919     my $instance = 1;
 920     # Get a unique toplevel widget structure
 921     while (defined $__PACKAGE__::all_forms->{"about_dialog-$instance"}) {$instance++;}
 922
 923
 924     #
 925     # Construct a GtkDialog 'about_dialog'
 926     $widgets->{'about_dialog'} = new Gtk::Dialog;
 927     $widgets->{'about_dialog'}->set_title(_('gtkdbi - About') );
 928     $widgets->{'about_dialog'}->position('center' );
 929     $widgets->{'about_dialog'}->set_policy(1, 1, 0 );
 930     $widgets->{'about_dialog'}->set_modal(1 );
 931     $widgets->{'about_dialog'}->realize;
 932     $forms->{'about_dialog'}{'tooltips'} = new Gtk::Tooltips;
 933     $forms->{'about_dialog'}{'accelgroup'} = new Gtk::AccelGroup;
 934     $forms->{'about_dialog'}{'accelgroup'}->attach($widgets->{'about_dialog'} );
 935     $forms->{'about_dialog'}{'about_dialog'} = $widgets->{'about_dialog'};
 936         #
 937         # Construct a GtkVBox 'dialog-vbox2'
 938         $widgets->{'dialog-vbox2'} = $forms->{'about_dialog'}{'about_dialog'}->vbox;
 939         $widgets->{'dialog-vbox2'}->show;
 940         $forms->{'about_dialog'}{'dialog-vbox2'} = $widgets->{'dialog-vbox2'};
 941             #
 942             # Construct a GtkHBox 'dialog-action_area2'
 943             $widgets->{'dialog-action_area2'} = $forms->{'about_dialog'}{'about_dialog'}->action_area;
 944             $widgets->{'dialog-action_area2'}->show;
 945             $forms->{'about_dialog'}{'dialog-action_area2'} = $widgets->{'dialog-action_area2'};
 946             $forms->{'about_dialog'}{'dialog-action_area2'}->border_width(10 );
 947                 #
 948                 # Construct a GtkButton 'about_button'
 949                 $widgets->{'about_button'} = new Gtk::Button(_('Ok'));
 950                 $forms->{'about_dialog'}{'dialog-action_area2'}->add($widgets->{'about_button'} );
 951                 $widgets->{'about_button'}->show;
 952                 $forms->{'about_dialog'}{'about_button'} = $widgets->{'about_button'};
 953                 $forms->{'about_dialog'}{'about_button'}->can_focus(1 );
 954                 $forms->{'about_dialog'}{'dialog-action_area2'}->set_child_packing($forms->{'about_dialog'}{'about_button'}, 0, 0, 0, 'start' );
 955             $forms->{'about_dialog'}{'dialog-vbox2'}->set_child_packing($forms->{'about_dialog'}{'dialog-action_area2'}, 0, 1, 0, 'end' );
 956             #
 957             # Construct a GtkLabel 'about_label'
 958             $widgets->{'about_label'} = new Gtk::Label(_('gtkdbi
 959
 960 A graphical interface to DBI data sources.
 961
 962 http://www.420.am/gtkdbi doesn\'t exist yet.
 963
 964 Ivan Kohler <ivan-gtkdbi@420.am>'));
 965             $widgets->{'about_label'}->set_justify('center' );
 966             $widgets->{'about_label'}->set_line_wrap(0 );
 967             $forms->{'about_dialog'}{'dialog-vbox2'}->add($widgets->{'about_label'} );
 968             $widgets->{'about_label'}->show;
 969             $forms->{'about_dialog'}{'about_label'} = $widgets->{'about_label'};
 970             $forms->{'about_dialog'}{'about_label'}->set_alignment(0.5, 0.5 );
 971             $forms->{'about_dialog'}{'about_label'}->set_padding(4, 0 );
 972             $forms->{'about_dialog'}{'dialog-vbox2'}->set_child_packing($forms->{'about_dialog'}{'about_label'}, 1, 0, 0, 'start' );
 973     #
 974     # Connect all signals now that widgets are constructed
 975     $forms->{'about_dialog'}{'about_button'}->signal_connect( 'clicked', "$class\::on_about_button_clicked", '', 'about_button', "about_dialog-$instance" );
 976
 977
 978     #
 979     # Return the constructed UI
 980     bless $self, $class;
 981     $self->FORM($forms->{'about_dialog'});
 982     $self->TOPLEVEL($self->FORM->{'about_dialog'});
 983     $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
 984     $self->INSTANCE("about_dialog-$instance");
 985     $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
 986     $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
 987     $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
 988
 989     return $self;
 990 } # End of sub new
 991
 992
 993
 994
 995
 996
 997
 998
 999
1000 #==============================================================================
1001 #=== This is the 'window1' class
1002 #==============================================================================
1003 package window1;
1004 require 5.000; use strict 'vars', 'refs', 'subs';
1005 # UI class 'window1' (version 0.01)
1006 #
1007 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
1008 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
1009 #
1010 ## Unspecified copying policy, please contact the author\n#  Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
1011 #
1012 #==============================================================================
1013 # This perl source file was automatically generated by
1014 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
1015 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
1016 #
1017 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
1018 # Thu Jan 10 08:02:21 PST 2002
1019 #==============================================================================
1020
1021 BEGIN {
1022     # Run-time utilities and vars
1023     use Glade::PerlRun;
1024     # Existing signal handler modules
1025     use vars qw(
1026                  @ISA
1027                  %fields
1028                  %stubs
1029                  $PACKAGE
1030                  $VERSION
1031                  $AUTHOR
1032                  $DATE
1033                  $AUTOLOAD
1034                  $permitted_fields
1035              );
1036     # Tell interpreter who we are inheriting from
1037     @ISA     = qw( Glade::PerlRun );
1038     $PACKAGE = 'gtkdbi';
1039     $VERSION = '0.01';
1040     $AUTHOR  = 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>';
1041     $DATE    = 'Tue Oct 23 01:49:12 PDT 2001';
1042     $permitted_fields = '_permitted_fields';
1043 } # End of sub BEGIN
1044
1045     $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';
1046
1047 %fields = (
1048     # These are the data fields that you can set/get using the dynamic
1049     # calls provided by AUTOLOAD (and their initial values).
1050     # eg $class->FORM($new_value);      sets the value of FORM
1051     #    $current_value = $class->FORM; gets the current value of FORM
1052     TOPLEVEL => undef,
1053     FORM     => undef,
1054     PACKAGE  => 'gtkdbi',
1055     VERSION  => '0.01',
1056     AUTHOR   => 'Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>',
1057     DATE     => 'Tue Oct 23 01:49:12 PDT 2001',
1058     INSTANCE => 'window1',
1059     CLASS_HIERARCHY => undef,
1060     WIDGET_HIERARCHY => undef,
1061 );
1062
1063 %stubs = (
1064     # These are signal handlers that will cause a message_box to be
1065     # displayed by AUTOLOAD if there is not already a sub of that name
1066     # in any module specified in 'use_modules'.
1067
1068     'on_about1_activate' => undef,
1069     'on_connect1_activate' => undef,
1070     'on_quit1_activate' => undef,
1071 );
1072
1073 sub AUTOLOAD {
1074     my $self = shift;
1075     my $type = ref($self)
1076         or die "$self is not an object so we cannot '$AUTOLOAD'\n",
1077             "We were called from ".join(", ", caller)."\n\n";
1078     my $name = $AUTOLOAD;
1079     $name =~ s/.*://;       # strip fully-qualified portion
1080
1081     if (exists $self->{$permitted_fields}->{$name} ) {
1082         # This allows dynamic data methods - see hash fields above
1083         # eg $class->UI('new_value');
1084         # or $current_value = $class->UI;
1085         if (@_) {
1086             return $self->{$name} = shift;
1087         } else {
1088             return $self->{$name};
1089         }
1090
1091     } elsif (exists $stubs{$name} ) {
1092         # This shows dynamic signal handler stub message_box - see hash stubs above
1093         __PACKAGE__->show_skeleton_message(
1094             $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")",
1095             [$self, @_],
1096             __PACKAGE__,
1097             'glade2perl_logo.xpm');
1098
1099     } else {
1100         die "Can't access method `$name' in class $type\n".
1101             "We were called from ".join(", ", caller)."\n\n";
1102
1103     }
1104 } # End of sub AUTOLOAD
1105
1106 sub run {
1107     my ($class) = @_;
1108     $class->load_translations('gtkdbi');
1109     # You can use the line below to load a test .mo file before it is installed in
1110     # the normal place (eg /usr/local/share/locale/C/LC_MESSAGES/gtkdbi.mo)
1111 #    $class->load_translations('gtkdbi', 'test', undef, '/home/ivan/gtkdbi/ppo/gtkdbi.mo');
1112     Gtk->init;
1113     my $window = $class->new;
1114     $window->TOPLEVEL->show;
1115     Gtk->main;
1116 } # End of sub run
1117
1118 sub DESTROY {
1119     # This sub will be called on object destruction
1120 } # End of sub DESTROY
1121
1122 sub new {
1123 #
1124 # This sub will create the UI window
1125     my $that  = shift;
1126     my $class = ref($that) || $that;
1127     my $self  = {
1128         $permitted_fields   => \%fields, %fields,
1129         _permitted_stubs    => \%stubs,  %stubs,
1130     };
1131     my ($forms, $widgets, $data, $work);
1132     my $instance = 1;
1133     # Get a unique toplevel widget structure
1134     while (defined $__PACKAGE__::all_forms->{"window1-$instance"}) {$instance++;}
1135
1136
1137     #
1138     # Construct a GtkWindow 'window1'
1139     $widgets->{'window1'} = new Gtk::Window;
1140     $widgets->{'window1'}->set_title(_('gtkdbi - Not Connected') );
1141     $widgets->{'window1'}->position('none' );
1142     $widgets->{'window1'}->set_policy(0, 1, 0 );
1143     $widgets->{'window1'}->set_modal(0 );
1144     $widgets->{'window1'}->realize;
1145     $forms->{'window1'}{'tooltips'} = new Gtk::Tooltips;
1146     $forms->{'window1'}{'accelgroup'} = new Gtk::AccelGroup;
1147     $forms->{'window1'}{'accelgroup'}->attach($widgets->{'window1'} );
1148     $forms->{'window1'}{'window1'} = $widgets->{'window1'};
1149         #
1150         # Construct a GtkVBox 'vbox1'
1151         $widgets->{'vbox1'} = new Gtk::VBox(0, 0 );
1152         $forms->{'window1'}{'window1'}->add($widgets->{'vbox1'} );
1153         $widgets->{'vbox1'}->show;
1154         $forms->{'window1'}{'vbox1'} = $widgets->{'vbox1'};
1155             #
1156             # Construct a GtkHandleBox 'handlebox1'
1157             $widgets->{'handlebox1'} = new Gtk::HandleBox;
1158             $widgets->{'handlebox1'}->set_handle_position('left' );
1159             $widgets->{'handlebox1'}->set_shadow_type('out' );
1160             $widgets->{'handlebox1'}->set_snap_edge('top' );
1161             $forms->{'window1'}{'vbox1'}->add($widgets->{'handlebox1'} );
1162             $widgets->{'handlebox1'}->show;
1163             $forms->{'window1'}{'handlebox1'} = $widgets->{'handlebox1'};
1164                 #
1165                 # Construct a GtkMenuBar 'menubar3'
1166                 $widgets->{'menubar3'} = new Gtk::MenuBar;
1167                 $widgets->{'menubar3'}->set_shadow_type('out' );
1168                 $forms->{'window1'}{'handlebox1'}->add($widgets->{'menubar3'} );
1169                 $widgets->{'menubar3'}->show;
1170                 $forms->{'window1'}{'menubar3'} = $widgets->{'menubar3'};
1171                     #
1172                     # Construct a GtkMenuItem 'file1'
1173                     $widgets->{'file1'} = new Gtk::MenuItem(_('File'));
1174                     $forms->{'window1'}{'menubar3'}->append($widgets->{'file1'} );
1175                     $widgets->{'file1'}->show;
1176                     $forms->{'window1'}{'file1'} = $widgets->{'file1'};
1177                         #
1178                         # Construct a GtkMenu 'file1_menu'
1179                         $widgets->{'file1_menu'} = new Gtk::Menu;
1180                         $forms->{'window1'}{'file1'}->set_submenu($widgets->{'file1_menu'} );
1181                         $forms->{'window1'}{'file1_menu'} = $widgets->{'file1_menu'};
1182                             #
1183                             # Construct a GtkMenuItem 'connect1'
1184                             $widgets->{'connect1'} = new Gtk::MenuItem(_('Connect'));
1185                             $forms->{'window1'}{'file1_menu'}->append($widgets->{'connect1'} );
1186                             $widgets->{'connect1'}->show;
1187                             $forms->{'window1'}{'connect1'} = $widgets->{'connect1'};
1188                             #
1189                             # Construct a GtkMenuItem 'separator1'
1190                             $widgets->{'separator1'} = new Gtk::MenuItem;
1191                             $forms->{'window1'}{'file1_menu'}->append($widgets->{'separator1'} );
1192                             $widgets->{'separator1'}->show;
1193                             $forms->{'window1'}{'separator1'} = $widgets->{'separator1'};
1194                             #
1195                             # Construct a GtkMenuItem 'quit1'
1196                             $widgets->{'quit1'} = new Gtk::MenuItem(_('Quit'));
1197                             $forms->{'window1'}{'file1_menu'}->append($widgets->{'quit1'} );
1198                             $widgets->{'quit1'}->show;
1199                             $forms->{'window1'}{'quit1'} = $widgets->{'quit1'};
1200                     #
1201                     # Construct a GtkMenuItem 'help1'
1202                     $widgets->{'help1'} = new Gtk::MenuItem(_('Help'));
1203                     $widgets->{'help1'}->right_justify;
1204                     $forms->{'window1'}{'menubar3'}->append($widgets->{'help1'} );
1205                     $widgets->{'help1'}->show;
1206                     $forms->{'window1'}{'help1'} = $widgets->{'help1'};
1207                         #
1208                         # Construct a GtkMenu 'help1_menu'
1209                         $widgets->{'help1_menu'} = new Gtk::Menu;
1210                         $forms->{'window1'}{'help1'}->set_submenu($widgets->{'help1_menu'} );
1211                         $forms->{'window1'}{'help1_menu'} = $widgets->{'help1_menu'};
1212                             #
1213                             # Construct a GtkMenuItem 'about1'
1214                             $widgets->{'about1'} = new Gtk::MenuItem(_('About'));
1215                             $forms->{'window1'}{'help1_menu'}->append($widgets->{'about1'} );
1216                             $widgets->{'about1'}->show;
1217                             $forms->{'window1'}{'about1'} = $widgets->{'about1'};
1218             $forms->{'window1'}{'vbox1'}->set_child_packing($forms->{'window1'}{'handlebox1'}, 0, 1, 0, 'start' );
1219             #
1220             # Construct a GtkNotebook 'notebook1'
1221             $widgets->{'notebook1'} = new Gtk::Notebook;
1222             $forms->{'window1'}{'vbox1'}->add($widgets->{'notebook1'} );
1223             $widgets->{'notebook1'}->show;
1224             $forms->{'window1'}{'notebook1'} = $widgets->{'notebook1'};
1225             $forms->{'window1'}{'notebook1'}->can_focus(1 );
1226             $forms->{'window1'}{'notebook1'}->set_tab_pos('top' );
1227             $forms->{'window1'}{'notebook1'}->set_show_tabs(1 );
1228             $forms->{'window1'}{'notebook1'}->set_show_border(1 );
1229             $forms->{'window1'}{'notebook1'}->set_scrollable(1 );
1230             $forms->{'window1'}{'notebook1'}->set_tab_hborder(2 );
1231             $forms->{'window1'}{'notebook1'}->set_tab_vborder(2 );
1232                 #
1233                 # Construct a GtkScrolledWindow 'scrolledwindow1'
1234                 $widgets->{'scrolledwindow1'} = new Gtk::ScrolledWindow( undef, undef);
1235                 $widgets->{'scrolledwindow1'}->set_policy('always', 'always' );
1236                 $widgets->{'scrolledwindow1'}->border_width(0 );
1237                 $widgets->{'scrolledwindow1'}->hscrollbar->set_update_policy('continuous' );
1238                 $widgets->{'scrolledwindow1'}->vscrollbar->set_update_policy('continuous' );
1239                 $widgets->{'scrolledwindow1'}->show;
1240                 $forms->{'window1'}{'scrolledwindow1'} = $widgets->{'scrolledwindow1'};
1241                     #
1242                     # Construct a GtkViewport 'viewport1'
1243                     $widgets->{'viewport1'} = new Gtk::Viewport(new Gtk::Adjustment( 0.0, 0.0, 101.0, 0.1, 1.0, 1.0), new Gtk::Adjustment( 0.0, 0.0, 101.0, 0.1, 1.0, 1.0) );
1244                     $widgets->{'viewport1'}->set_shadow_type('in' );
1245                     $forms->{'window1'}{'scrolledwindow1'}->add_with_viewport($widgets->{'viewport1'} );
1246                     $widgets->{'viewport1'}->show;
1247                     $forms->{'window1'}{'viewport1'} = $widgets->{'viewport1'};
1248                         #
1249                         # Construct a GtkHBox 'hbox1'
1250                         $widgets->{'hbox1'} = new Gtk::HBox(0, 0 );
1251                         $forms->{'window1'}{'viewport1'}->add($widgets->{'hbox1'} );
1252                         $widgets->{'hbox1'}->show;
1253                         $forms->{'window1'}{'hbox1'} = $widgets->{'hbox1'};
1254                             #
1255                             # Construct a GtkVBox 'vbox2'
1256                             $widgets->{'vbox2'} = new Gtk::VBox(0, 0 );
1257                             $forms->{'window1'}{'hbox1'}->add($widgets->{'vbox2'} );
1258                             $widgets->{'vbox2'}->show;
1259                             $forms->{'window1'}{'vbox2'} = $widgets->{'vbox2'};
1260                                 #
1261                                 # Construct a GtkButton 'button1'
1262                                 $widgets->{'button1'} = new Gtk::Button(_('button1'));
1263                                 $forms->{'window1'}{'vbox2'}->add($widgets->{'button1'} );
1264                                 $widgets->{'button1'}->show;
1265                                 $forms->{'window1'}{'button1'} = $widgets->{'button1'};
1266                                 $forms->{'window1'}{'button1'}->can_focus(1 );
1267                                 $forms->{'window1'}{'vbox2'}->set_child_packing($forms->{'window1'}{'button1'}, 0, 0, 0, 'start' );
1268                                 #
1269                                 # Construct a GtkEntry 'entry2'
1270                                 $widgets->{'entry2'} = new Gtk::Entry;
1271                                 $forms->{'window1'}{'vbox2'}->add($widgets->{'entry2'} );
1272                                 $widgets->{'entry2'}->show;
1273                                 $forms->{'window1'}{'entry2'} = $widgets->{'entry2'};
1274                                 $forms->{'window1'}{'entry2'}->can_focus(1 );
1275                                 $forms->{'window1'}{'entry2'}->set_text(_('') );
1276                                 $forms->{'window1'}{'entry2'}->set_max_length(0 );
1277                                 $forms->{'window1'}{'entry2'}->set_visibility(1 );
1278                                 $forms->{'window1'}{'entry2'}->set_editable(1 );
1279                                 $forms->{'window1'}{'vbox2'}->set_child_packing($forms->{'window1'}{'entry2'}, 0, 0, 0, 'start' );
1280                             $forms->{'window1'}{'hbox1'}->set_child_packing($forms->{'window1'}{'vbox2'}, 1, 1, 0, 'start' );
1281                             #
1282                             # Construct a GtkVBox 'vbox3'
1283                             $widgets->{'vbox3'} = new Gtk::VBox(0, 0 );
1284                             $forms->{'window1'}{'hbox1'}->add($widgets->{'vbox3'} );
1285                             $widgets->{'vbox3'}->show;
1286                             $forms->{'window1'}{'vbox3'} = $widgets->{'vbox3'};
1287                                 #
1288                                 # Construct a GtkButton 'button2'
1289                                 $widgets->{'button2'} = new Gtk::Button(_('button2'));
1290                                 $forms->{'window1'}{'vbox3'}->add($widgets->{'button2'} );
1291                                 $widgets->{'button2'}->show;
1292                                 $forms->{'window1'}{'button2'} = $widgets->{'button2'};
1293                                 $forms->{'window1'}{'button2'}->can_focus(1 );
1294                                 $forms->{'window1'}{'vbox3'}->set_child_packing($forms->{'window1'}{'button2'}, 0, 0, 0, 'start' );
1295                                 #
1296                                 # Construct a GtkEntry 'entry3'
1297                                 $widgets->{'entry3'} = new Gtk::Entry;
1298                                 $forms->{'window1'}{'vbox3'}->add($widgets->{'entry3'} );
1299                                 $widgets->{'entry3'}->show;
1300                                 $forms->{'window1'}{'entry3'} = $widgets->{'entry3'};
1301                                 $forms->{'window1'}{'entry3'}->can_focus(1 );
1302                                 $forms->{'window1'}{'entry3'}->set_text(_('') );
1303                                 $forms->{'window1'}{'entry3'}->set_max_length(0 );
1304                                 $forms->{'window1'}{'entry3'}->set_visibility(1 );
1305                                 $forms->{'window1'}{'entry3'}->set_editable(1 );
1306                                 $forms->{'window1'}{'vbox3'}->set_child_packing($forms->{'window1'}{'entry3'}, 0, 0, 0, 'start' );
1307                             $forms->{'window1'}{'hbox1'}->set_child_packing($forms->{'window1'}{'vbox3'}, 1, 1, 0, 'start' );
1308                 #
1309                 # Construct a GtkLabel 'tablelabel1'
1310                 $widgets->{'tablelabel1'} = new Gtk::Label(_('tabletable1'));
1311                 $widgets->{'tablelabel1'}->set_justify('center' );
1312                 $widgets->{'tablelabel1'}->set_line_wrap(0 );
1313                 $forms->{'window1'}{'notebook1'}->append_page($forms->{'window1'}{'scrolledwindow1'}, $widgets->{'tablelabel1'} );
1314                 $widgets->{'tablelabel1'}->show;
1315                 $forms->{'window1'}{'tablelabel1'} = $widgets->{'tablelabel1'};
1316                 $forms->{'window1'}{'tablelabel1'}->set_alignment(0.5, 0.5 );
1317             $forms->{'window1'}{'vbox1'}->set_child_packing($forms->{'window1'}{'notebook1'}, 1, 1, 0, 'start' );
1318             #
1319             # Construct a GtkEntry 'entry1'
1320             $widgets->{'entry1'} = new Gtk::Entry;
1321             $forms->{'window1'}{'vbox1'}->add($widgets->{'entry1'} );
1322             $widgets->{'entry1'}->show;
1323             $forms->{'window1'}{'entry1'} = $widgets->{'entry1'};
1324             $forms->{'window1'}{'entry1'}->can_focus(1 );
1325             $forms->{'window1'}{'entry1'}->set_text(_('Not Connected') );
1326             $forms->{'window1'}{'entry1'}->set_max_length(0 );
1327             $forms->{'window1'}{'entry1'}->set_visibility(1 );
1328             $forms->{'window1'}{'entry1'}->set_editable(1 );
1329             $forms->{'window1'}{'vbox1'}->set_child_packing($forms->{'window1'}{'entry1'}, 0, 0, 0, 'end' );
1330     #
1331     # Connect all signals now that widgets are constructed
1332     $forms->{'window1'}{'connect1'}->signal_connect( 'activate', "$class\::on_connect1_activate", '', 'connect1', "window1-$instance" );
1333     $forms->{'window1'}{'quit1'}->signal_connect( 'activate', "$class\::on_quit1_activate", '', 'quit1', "window1-$instance" );
1334     $forms->{'window1'}{'about1'}->signal_connect( 'activate', "$class\::on_about1_activate", '', 'about1', "window1-$instance" );
1335
1336
1337     #
1338     # Return the constructed UI
1339     bless $self, $class;
1340     $self->FORM($forms->{'window1'});
1341     $self->TOPLEVEL($self->FORM->{'window1'});
1342     $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
1343     $self->INSTANCE("window1-$instance");
1344     $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
1345     $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
1346     $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
1347
1348     return $self;
1349 } # End of sub new
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360 1;
1361
1362 __END__
1363
1364 #===============================================================================
1365 #==== Documentation
1366 #===============================================================================
1367 =pod
1368
1369 =head1 NAME
1370
1371 gtkdbi - version 0.01 Tue Oct 23 01:49:12 PDT 2001
1372
1373 No description
1374
1375 =head1 SYNOPSIS
1376
1377  use gtkdbi;
1378
1379  To construct the window object and show it call
1380
1381  Gtk->init;
1382  my $window = window1->new;
1383  $window->TOPLEVEL->show;
1384  Gtk->main;
1385
1386  OR use the shorthand for the above calls
1387
1388  window1->app_run;
1389
1390 =head1 DESCRIPTION
1391
1392 Unfortunately, the author has not yet written any documentation :-(
1393
1394 =head1 AUTHOR
1395
1396 Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
1397
1398 =cut