3 # This is the (re)generated UI construction class.
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
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)
15 # Copyright (c) Date Tue Oct 23 01:49:12 PDT 2001
16 # Author Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
18 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
20 #==============================================================================
21 # This perl source file was automatically generated by
22 # Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
23 # Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
25 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
26 # Thu Jan 10 08:02:21 PST 2002
27 #==============================================================================
30 # Run-time utilities and vars
32 # Existing signal handler modules
44 # Tell interpreter who we are inheriting from
45 @ISA = qw( Glade::PerlRun );
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';
53 $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';
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
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,
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'.
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,
88 or die "$self is not an object so we cannot '$AUTOLOAD'\n",
89 "We were called from ".join(", ", caller)."\n\n";
91 $name =~ s/.*://; # strip fully-qualified portion
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;
98 return $self->{$name} = shift;
100 return $self->{$name};
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__.")",
109 'glade2perl_logo.xpm');
112 die "Can't access method `$name' in class $type\n".
113 "We were called from ".join(", ", caller)."\n\n";
116 } # End of sub AUTOLOAD
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');
125 my $window = $class->new;
126 $window->TOPLEVEL->show;
131 # This sub will be called on object destruction
132 } # End of sub DESTROY
136 # This sub will create the UI window
138 my $class = ref($that) || $that;
140 $permitted_fields => \%fields, %fields,
141 _permitted_stubs => \%stubs, %stubs,
143 my ($forms, $widgets, $data, $work);
145 # Get a unique toplevel widget structure
146 while (defined $__PACKAGE__::all_forms->{"connect_dialog-$instance"}) {$instance++;}
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'};
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'};
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 );
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 );
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 );
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 );
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 );
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 );
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 );
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 );
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' );
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' );
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 );
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 );
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' );
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' );
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 );
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 );
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' );
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" );
338 # Return the constructed UI
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;
359 #==============================================================================
360 #=== This is the 'quit_dialog' class
361 #==============================================================================
363 require 5.000; use strict 'vars', 'refs', 'subs';
364 # UI class 'quit_dialog' (version 0.01)
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>
369 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
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>
376 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
377 # Thu Jan 10 08:02:21 PST 2002
378 #==============================================================================
381 # Run-time utilities and vars
383 # Existing signal handler modules
395 # Tell interpreter who we are inheriting from
396 @ISA = qw( Glade::PerlRun );
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';
404 $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';
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
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,
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'.
427 'on_quit_no_clicked' => undef,
428 'on_quit_yes_clicked' => undef,
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
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;
444 return $self->{$name} = shift;
446 return $self->{$name};
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__.")",
455 'glade2perl_logo.xpm');
458 die "Can't access method `$name' in class $type\n".
459 "We were called from ".join(", ", caller)."\n\n";
462 } # End of sub AUTOLOAD
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');
471 my $window = $class->new;
472 $window->TOPLEVEL->show;
477 # This sub will be called on object destruction
478 } # End of sub DESTROY
482 # This sub will create the UI window
484 my $class = ref($that) || $that;
486 $permitted_fields => \%fields, %fields,
487 _permitted_stubs => \%stubs, %stubs,
489 my ($forms, $widgets, $data, $work);
491 # Get a unique toplevel widget structure
492 while (defined $__PACKAGE__::all_forms->{"quit_dialog-$instance"}) {$instance++;}
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'};
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'};
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 );
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 );
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 );
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' );
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' );
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" );
564 # Return the constructed UI
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;
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)
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>
595 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
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>
602 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
603 # Thu Jan 10 08:02:21 PST 2002
604 #==============================================================================
607 # Run-time utilities and vars
609 # Existing signal handler modules
621 # Tell interpreter who we are inheriting from
622 @ISA = qw( Glade::PerlRun );
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';
630 $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';
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
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,
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'.
653 'on_error_button_clicked' => undef,
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
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;
669 return $self->{$name} = shift;
671 return $self->{$name};
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__.")",
680 'glade2perl_logo.xpm');
683 die "Can't access method `$name' in class $type\n".
684 "We were called from ".join(", ", caller)."\n\n";
687 } # End of sub AUTOLOAD
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');
696 my $window = $class->new;
697 $window->TOPLEVEL->show;
702 # This sub will be called on object destruction
703 } # End of sub DESTROY
707 # This sub will create the UI window
709 my $class = ref($that) || $that;
711 $permitted_fields => \%fields, %fields,
712 _permitted_stubs => \%stubs, %stubs,
714 my ($forms, $widgets, $data, $work);
716 # Get a unique toplevel widget structure
717 while (defined $__PACKAGE__::all_forms->{"error_dialog-$instance"}) {$instance++;}
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'};
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'};
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 );
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' );
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' );
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" );
768 # Return the constructed UI
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;
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)
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>
799 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
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>
806 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
807 # Thu Jan 10 08:02:21 PST 2002
808 #==============================================================================
811 # Run-time utilities and vars
813 # Existing signal handler modules
825 # Tell interpreter who we are inheriting from
826 @ISA = qw( Glade::PerlRun );
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';
834 $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';
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
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,
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'.
857 'on_about_button_clicked' => undef,
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
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;
873 return $self->{$name} = shift;
875 return $self->{$name};
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__.")",
884 'glade2perl_logo.xpm');
887 die "Can't access method `$name' in class $type\n".
888 "We were called from ".join(", ", caller)."\n\n";
891 } # End of sub AUTOLOAD
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');
900 my $window = $class->new;
901 $window->TOPLEVEL->show;
906 # This sub will be called on object destruction
907 } # End of sub DESTROY
911 # This sub will create the UI window
913 my $class = ref($that) || $that;
915 $permitted_fields => \%fields, %fields,
916 _permitted_stubs => \%stubs, %stubs,
918 my ($forms, $widgets, $data, $work);
920 # Get a unique toplevel widget structure
921 while (defined $__PACKAGE__::all_forms->{"about_dialog-$instance"}) {$instance++;}
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'};
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'};
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 );
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' );
957 # Construct a GtkLabel 'about_label'
958 $widgets->{'about_label'} = new Gtk::Label(_('gtkdbi
960 A graphical interface to DBI data sources.
962 http://www.420.am/gtkdbi doesn\'t exist yet.
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' );
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" );
979 # Return the constructed UI
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;
1000 #==============================================================================
1001 #=== This is the 'window1' class
1002 #==============================================================================
1004 require 5.000; use strict 'vars', 'refs', 'subs';
1005 # UI class 'window1' (version 0.01)
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>
1010 ## Unspecified copying policy, please contact the author\n# Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>
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>
1017 # from Glade file /home/ivan/gtkdbi/gtkdbi.glade
1018 # Thu Jan 10 08:02:21 PST 2002
1019 #==============================================================================
1022 # Run-time utilities and vars
1024 # Existing signal handler modules
1036 # Tell interpreter who we are inheriting from
1037 @ISA = qw( Glade::PerlRun );
1038 $PACKAGE = 'gtkdbi';
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
1045 $Glade::PerlRun::pixmaps_directory ||= '/home/ivan/gtkdbi/pixmaps';
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
1054 PACKAGE => 'gtkdbi',
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,
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'.
1068 'on_about1_activate' => undef,
1069 'on_connect1_activate' => undef,
1070 'on_quit1_activate' => undef,
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
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;
1086 return $self->{$name} = shift;
1088 return $self->{$name};
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__.")",
1097 'glade2perl_logo.xpm');
1100 die "Can't access method `$name' in class $type\n".
1101 "We were called from ".join(", ", caller)."\n\n";
1104 } # End of sub AUTOLOAD
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');
1113 my $window = $class->new;
1114 $window->TOPLEVEL->show;
1119 # This sub will be called on object destruction
1120 } # End of sub DESTROY
1124 # This sub will create the UI window
1126 my $class = ref($that) || $that;
1128 $permitted_fields => \%fields, %fields,
1129 _permitted_stubs => \%stubs, %stubs,
1131 my ($forms, $widgets, $data, $work);
1133 # Get a unique toplevel widget structure
1134 while (defined $__PACKAGE__::all_forms->{"window1-$instance"}) {$instance++;}
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'};
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'};
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'};
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'};
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'};
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'};
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'};
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'};
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'};
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'};
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'};
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' );
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 );
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'};
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'};
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'};
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'};
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' );
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' );
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'};
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' );
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' );
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' );
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' );
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" );
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;
1364 #===============================================================================
1366 #===============================================================================
1371 gtkdbi - version 0.01 Tue Oct 23 01:49:12 PDT 2001
1379 To construct the window object and show it call
1382 my $window = window1->new;
1383 $window->TOPLEVEL->show;
1386 OR use the shorthand for the above calls
1392 Unfortunately, the author has not yet written any documentation :-(
1396 Ivan Kohler,Chess room,888-670-SISD,215-996-0824 <ivan\@rootwood.haze.st>