#!/usr/bin/perl -w
#
# This is the (re)generated UI construction class.
#
# DO NOT EDIT THIS FILE, ANY CHANGES THAT YOU MAKE WILL BE LOST WHEN
# THIS FILE WILL BE OVERWRITTEN BY THE NEXT RUN OF Glade::PerlGenerate
#
#==============================================================================
#=== This is the 'number_window' class                              
#==============================================================================
package number_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'number_window' (version 0.01)
# 
# Copyright (c) Date Fri Jan 10 13:19:11 CST 2003
# Author Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.56 - Wed Apr 19 02:28:58 BST 2000
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ccdb.glade
# Fri Jan 10 13:19:11 CST 2003
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    # We need the Gnome bindings as well
    use Gnome;
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $VERSION
                 $AUTOLOAD
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $VERSION = '0.01';
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= 'pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORMS($new_value);      sets the value of FORMS
    #    $current_value = $class->FORMS; gets the current value of FORMS
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'CCDB',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@cookie.cs.wisc.edu>',
    DATE     => 'Fri Jan 10 13:19:11 CST 2003',
    INSTANCE => 'main_window',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_cancel_clicked' => undef,
    'on_ok_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{_permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('CCDB');
    # You can use the line below to load a test .mo file before it is
    # installed in the normal place (eg /usr/local/share/locale//LC_MESSAGES/CCDB.mo)
#    $class->load_translations('CCDB', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ppo/CCDB.mo');
    Gnome->init('CCDB', '0.01');
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        _permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"number_window-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'number_window'
    $widgets->{'number_window'} = new Gtk::Window;
    $widgets->{'number_window'}->set_title(_('Number Arrived') );
    $widgets->{'number_window'}->set_name('number_window');
    $widgets->{'number_window'}->position('none' );
    $widgets->{'number_window'}->set_policy(0, 1, 0 );
    $widgets->{'number_window'}->set_modal(0 );
    $widgets->{'number_window'}->realize;
    $forms->{'number_window'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'number_window'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'number_window'}{'accelgroup'}->attach($widgets->{'number_window'} );
    $forms->{'number_window'}{'number_window'} = $widgets->{'number_window'};
	#
	# Construct a GtkVBox 'vbox9'
	$widgets->{'vbox9'} = new Gtk::VBox(0, 8 );
	$widgets->{'vbox9'}->set_name('vbox9');
	$forms->{'number_window'}{'number_window'}->add($widgets->{'vbox9'} );
	$widgets->{'vbox9'}->show;
	$forms->{'number_window'}{'vbox9'} = $widgets->{'vbox9'};
	$forms->{'number_window'}{'vbox9'}->border_width(8 );
	    #
	    # Construct a GtkHBox 'hbox4'
	    $widgets->{'hbox4'} = new Gtk::HBox(0, 8 );
	    $widgets->{'hbox4'}->set_name('hbox4');
	    $forms->{'number_window'}{'vbox9'}->add($widgets->{'hbox4'} );
	    $widgets->{'hbox4'}->show;
	    $forms->{'number_window'}{'hbox4'} = $widgets->{'hbox4'};
		#
		# Construct a GtkLabel 'label52'
		$widgets->{'label52'} = new Gtk::Label(_('Number arrived:'));
		$widgets->{'label52'}->set_justify('center' );
		$widgets->{'label52'}->set_line_wrap(0 );
		$widgets->{'label52'}->set_name('label52');
		$forms->{'number_window'}{'hbox4'}->add($widgets->{'label52'} );
		$widgets->{'label52'}->show;
		$forms->{'number_window'}{'label52'} = $widgets->{'label52'};
		$forms->{'number_window'}{'label52'}->set_alignment(0.5, 0.5 );
		$forms->{'number_window'}{'hbox4'}->set_child_packing($forms->{'number_window'}{'label52'}, 0, 0, 0, 'start' );
		#
		# Construct a GtkEntry 'num'
		$widgets->{'num'} = new Gtk::Entry;
		$widgets->{'num'}->set_name('num');
		$forms->{'number_window'}{'hbox4'}->add($widgets->{'num'} );
		$widgets->{'num'}->show;
		$forms->{'number_window'}{'num'} = $widgets->{'num'};
		$forms->{'number_window'}{'num'}->can_focus(1 );
		$forms->{'number_window'}{'num'}->set_text(_('') );
		$forms->{'number_window'}{'num'}->set_max_length(0 );
		$forms->{'number_window'}{'num'}->set_visibility(1 );
		$forms->{'number_window'}{'num'}->set_editable(1 );
		$forms->{'number_window'}{'hbox4'}->set_child_packing($forms->{'number_window'}{'num'}, 1, 1, 0, 'start' );
	    $forms->{'number_window'}{'vbox9'}->set_child_packing($forms->{'number_window'}{'hbox4'}, 1, 1, 0, 'start' );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox12'
	    $widgets->{'hbuttonbox12'} = new Gtk::HButtonBox;
	    $widgets->{'hbuttonbox12'}->set_name('hbuttonbox12');
	    $forms->{'number_window'}{'vbox9'}->add($widgets->{'hbuttonbox12'} );
	    $widgets->{'hbuttonbox12'}->show;
	    $forms->{'number_window'}{'hbuttonbox12'} = $widgets->{'hbuttonbox12'};
	    $forms->{'number_window'}{'hbuttonbox12'}->set_layout('spread' );
	    $forms->{'number_window'}{'hbuttonbox12'}->set_spacing(30 );
	    $forms->{'number_window'}{'hbuttonbox12'}->set_child_size(85, 27 );
	    $forms->{'number_window'}{'hbuttonbox12'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'ok'
		$widgets->{'ok'} = new Gtk::Button(_('Ok'));
		$widgets->{'ok'}->set_name('ok');
		$forms->{'number_window'}{'hbuttonbox12'}->add($widgets->{'ok'} );
		$widgets->{'ok'}->show;
		$forms->{'number_window'}{'ok'} = $widgets->{'ok'};
		$forms->{'number_window'}{'ok'}->can_default(1 );
		$forms->{'number_window'}{'ok'}->can_focus(1 );
		#
		# Construct a GtkButton 'cancel'
		$widgets->{'cancel'} = new Gtk::Button(_('Cancel'));
		$widgets->{'cancel'}->set_name('cancel');
		$forms->{'number_window'}{'hbuttonbox12'}->add($widgets->{'cancel'} );
		$widgets->{'cancel'}->show;
		$forms->{'number_window'}{'cancel'} = $widgets->{'cancel'};
		$forms->{'number_window'}{'cancel'}->can_default(1 );
		$forms->{'number_window'}{'cancel'}->can_focus(1 );
	    $forms->{'number_window'}{'vbox9'}->set_child_packing($forms->{'number_window'}{'hbuttonbox12'}, 0, 0, 0, 'start' );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'number_window'}{'ok'}->signal_connect( 'clicked', "$class\::on_ok_clicked", '', 'ok', "number_window-$instance" );
    $forms->{'number_window'}{'cancel'}->signal_connect( 'clicked', "$class\::on_cancel_clicked", '', 'cancel', "number_window-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'number_window'});
    $self->TOPLEVEL($self->FORM->{'number_window'});
    $self->INSTANCE("number_window-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'import_window' class                              
#==============================================================================
package import_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'import_window' (version 0.01)
# 
# Copyright (c) Date Fri Jan 10 13:19:11 CST 2003
# Author Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.56 - Wed Apr 19 02:28:58 BST 2000
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ccdb.glade
# Fri Jan 10 13:19:11 CST 2003
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    # We need the Gnome bindings as well
    use Gnome;
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $VERSION
                 $AUTOLOAD
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $VERSION = '0.01';
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= 'pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORMS($new_value);      sets the value of FORMS
    #    $current_value = $class->FORMS; gets the current value of FORMS
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'CCDB',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@cookie.cs.wisc.edu>',
    DATE     => 'Fri Jan 10 13:19:11 CST 2003',
    INSTANCE => 'main_window',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_browse_clicked' => undef,
    'on_cancel_clicked' => undef,
    'on_ok_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{_permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('CCDB');
    # You can use the line below to load a test .mo file before it is
    # installed in the normal place (eg /usr/local/share/locale//LC_MESSAGES/CCDB.mo)
#    $class->load_translations('CCDB', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ppo/CCDB.mo');
    Gnome->init('CCDB', '0.01');
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        _permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"import_window-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'import_window'
    $widgets->{'import_window'} = new Gtk::Window;
    $widgets->{'import_window'}->set_title(_('Import Paperwork') );
    $widgets->{'import_window'}->set_name('import_window');
    $widgets->{'import_window'}->position('none' );
    $widgets->{'import_window'}->set_policy(0, 1, 0 );
    $widgets->{'import_window'}->set_modal(0 );
    $widgets->{'import_window'}->realize;
    $forms->{'import_window'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'import_window'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'import_window'}{'accelgroup'}->attach($widgets->{'import_window'} );
    $forms->{'import_window'}{'import_window'} = $widgets->{'import_window'};
	#
	# Construct a GtkTable 'table4'
	$widgets->{'table4'} = new Gtk::Table(3, 3, 0 );
	$widgets->{'table4'}->set_row_spacings(8 );
	$widgets->{'table4'}->set_col_spacings(4 );
	$widgets->{'table4'}->set_name('table4');
	$forms->{'import_window'}{'import_window'}->add($widgets->{'table4'} );
	$widgets->{'table4'}->show;
	$forms->{'import_window'}{'table4'} = $widgets->{'table4'};
	$forms->{'import_window'}{'table4'}->border_width(8 );
	    #
	    # Construct a GtkLabel 'label38'
	    $widgets->{'label38'} = new Gtk::Label(_('Paperwork:'));
	    $widgets->{'label38'}->set_justify('center' );
	    $widgets->{'label38'}->set_line_wrap(0 );
	    $widgets->{'label38'}->set_name('label38');
	    $forms->{'import_window'}{'table4'}->attach($widgets->{'label38'}, 0, 1, 0, 1, ['fill'], [], 0, 0 );
	    $widgets->{'label38'}->show;
	    $forms->{'import_window'}{'label38'} = $widgets->{'label38'};
	    $forms->{'import_window'}{'label38'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkLabel 'label39'
	    $widgets->{'label39'} = new Gtk::Label(_('File/Message ID To Import:'));
	    $widgets->{'label39'}->set_justify('center' );
	    $widgets->{'label39'}->set_line_wrap(0 );
	    $widgets->{'label39'}->set_name('label39');
	    $forms->{'import_window'}{'table4'}->attach($widgets->{'label39'}, 0, 1, 1, 2, ['fill'], [], 0, 0 );
	    $widgets->{'label39'}->show;
	    $forms->{'import_window'}{'label39'} = $widgets->{'label39'};
	    $forms->{'import_window'}{'label39'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkEntry 'file'
	    $widgets->{'file'} = new Gtk::Entry;
	    $widgets->{'file'}->set_name('file');
	    $forms->{'import_window'}{'table4'}->attach($widgets->{'file'}, 1, 2, 1, 2, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'file'}->show;
	    $forms->{'import_window'}{'file'} = $widgets->{'file'};
	    $forms->{'import_window'}{'file'}->can_focus(1 );
	    $forms->{'import_window'}{'file'}->set_text(_('') );
	    $forms->{'import_window'}{'file'}->set_max_length(0 );
	    $forms->{'import_window'}{'file'}->set_visibility(1 );
	    $forms->{'import_window'}{'file'}->set_editable(1 );
	    #
	    # Construct a GtkOptionMenu 'type'
	    $widgets->{'type'} = new Gtk::OptionMenu;
	    $widgets->{'type'}->set_name('type');
	    $forms->{'import_window'}{'table4'}->attach($widgets->{'type'}, 1, 3, 0, 1, ['fill'], [], 0, 0 );
	    $widgets->{'type'}->show;
	    $forms->{'import_window'}{'type'} = $widgets->{'type'};
	    $forms->{'import_window'}{'type'}->can_focus(1 );
	    $widgets->{'type_menu'} = new Gtk::Menu;
	    $forms->{'import_window'}{'type'}->set_menu($widgets->{'type_menu'} );
	    $forms->{'import_window'}{'type_menu'} = $widgets->{'type_menu'};
	    $widgets->{'type_item0'} = new Gtk::MenuItem('Confirmation' );
		$forms->{'import_window'}{'type_menu'}->append($widgets->{'type_item0'} );
		$widgets->{'type_item0'}->show;
		$forms->{'import_window'}{'type_item0'} = $widgets->{'type_item0'};
	    $forms->{'import_window'}{'type_item0'}->activate;
	    $widgets->{'type_item1'} = new Gtk::MenuItem('Invoice' );
		$forms->{'import_window'}{'type_menu'}->append($widgets->{'type_item1'} );
		$widgets->{'type_item1'}->show;
		$forms->{'import_window'}{'type_item1'} = $widgets->{'type_item1'};
	    $widgets->{'type_item2'} = new Gtk::MenuItem('Packing List' );
		$forms->{'import_window'}{'type_menu'}->append($widgets->{'type_item2'} );
		$widgets->{'type_item2'}->show;
		$forms->{'import_window'}{'type_item2'} = $widgets->{'type_item2'};
	    $forms->{'import_window'}{'type'}->set_history( 0 );
	    #
	    # Construct a GtkButton 'browse'
	    $widgets->{'browse'} = new Gtk::Button(_('Browse...'));
	    $widgets->{'browse'}->set_name('browse');
	    $forms->{'import_window'}{'table4'}->attach($widgets->{'browse'}, 2, 3, 1, 2, ['fill'], [], 0, 0 );
	    $widgets->{'browse'}->show;
	    $forms->{'import_window'}{'browse'} = $widgets->{'browse'};
	    $forms->{'import_window'}{'browse'}->can_focus(1 );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox7'
	    $widgets->{'hbuttonbox7'} = new Gtk::HButtonBox;
	    $widgets->{'hbuttonbox7'}->set_name('hbuttonbox7');
	    $forms->{'import_window'}{'table4'}->attach($widgets->{'hbuttonbox7'}, 0, 3, 2, 3, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'hbuttonbox7'}->show;
	    $forms->{'import_window'}{'hbuttonbox7'} = $widgets->{'hbuttonbox7'};
	    $forms->{'import_window'}{'hbuttonbox7'}->set_layout('spread' );
	    $forms->{'import_window'}{'hbuttonbox7'}->set_spacing(30 );
	    $forms->{'import_window'}{'hbuttonbox7'}->set_child_size(85, 27 );
	    $forms->{'import_window'}{'hbuttonbox7'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'ok'
		$widgets->{'ok'} = new Gtk::Button(_('Ok'));
		$widgets->{'ok'}->set_name('ok');
		$forms->{'import_window'}{'hbuttonbox7'}->add($widgets->{'ok'} );
		$widgets->{'ok'}->show;
		$forms->{'import_window'}{'ok'} = $widgets->{'ok'};
		$forms->{'import_window'}{'ok'}->can_default(1 );
		$forms->{'import_window'}{'ok'}->can_focus(1 );
		#
		# Construct a GtkButton 'cancel'
		$widgets->{'cancel'} = new Gtk::Button(_('Cancel'));
		$widgets->{'cancel'}->set_name('cancel');
		$forms->{'import_window'}{'hbuttonbox7'}->add($widgets->{'cancel'} );
		$widgets->{'cancel'}->show;
		$forms->{'import_window'}{'cancel'} = $widgets->{'cancel'};
		$forms->{'import_window'}{'cancel'}->can_default(1 );
		$forms->{'import_window'}{'cancel'}->can_focus(1 );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'import_window'}{'browse'}->signal_connect( 'clicked', "$class\::on_browse_clicked", '', 'browse', "import_window-$instance" );
    $forms->{'import_window'}{'ok'}->signal_connect( 'clicked', "$class\::on_ok_clicked", '', 'ok', "import_window-$instance" );
    $forms->{'import_window'}{'cancel'}->signal_connect( 'clicked', "$class\::on_cancel_clicked", '', 'cancel', "import_window-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'import_window'});
    $self->TOPLEVEL($self->FORM->{'import_window'});
    $self->INSTANCE("import_window-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'folder_window' class                              
#==============================================================================
package folder_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'folder_window' (version 0.01)
# 
# Copyright (c) Date Fri Jan 10 13:19:11 CST 2003
# Author Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.56 - Wed Apr 19 02:28:58 BST 2000
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ccdb.glade
# Fri Jan 10 13:19:11 CST 2003
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    # We need the Gnome bindings as well
    use Gnome;
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $VERSION
                 $AUTOLOAD
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $VERSION = '0.01';
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= 'pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORMS($new_value);      sets the value of FORMS
    #    $current_value = $class->FORMS; gets the current value of FORMS
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'CCDB',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@cookie.cs.wisc.edu>',
    DATE     => 'Fri Jan 10 13:19:11 CST 2003',
    INSTANCE => 'main_window',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_cancel_clicked' => undef,
    'on_ok_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{_permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('CCDB');
    # You can use the line below to load a test .mo file before it is
    # installed in the normal place (eg /usr/local/share/locale//LC_MESSAGES/CCDB.mo)
#    $class->load_translations('CCDB', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ppo/CCDB.mo');
    Gnome->init('CCDB', '0.01');
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        _permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"folder_window-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'folder_window'
    $widgets->{'folder_window'} = new Gtk::Window;
    $widgets->{'folder_window'}->set_title(_('Folder Number') );
    $widgets->{'folder_window'}->set_name('folder_window');
    $widgets->{'folder_window'}->position('none' );
    $widgets->{'folder_window'}->set_policy(0, 1, 0 );
    $widgets->{'folder_window'}->set_modal(0 );
    $widgets->{'folder_window'}->realize;
    $forms->{'folder_window'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'folder_window'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'folder_window'}{'accelgroup'}->attach($widgets->{'folder_window'} );
    $forms->{'folder_window'}{'folder_window'} = $widgets->{'folder_window'};
	#
	# Construct a GtkTable 'table6'
	$widgets->{'table6'} = new Gtk::Table(3, 4, 0 );
	$widgets->{'table6'}->set_row_spacings(8 );
	$widgets->{'table6'}->set_col_spacings(4 );
	$widgets->{'table6'}->set_name('table6');
	$forms->{'folder_window'}{'folder_window'}->add($widgets->{'table6'} );
	$widgets->{'table6'}->show;
	$forms->{'folder_window'}{'table6'} = $widgets->{'table6'};
	$forms->{'folder_window'}{'table6'}->border_width(8 );
	    #
	    # Construct a GtkLabel 'label40'
	    $widgets->{'label40'} = new Gtk::Label(_('Folder Number:'));
	    $widgets->{'label40'}->set_justify('center' );
	    $widgets->{'label40'}->set_line_wrap(0 );
	    $widgets->{'label40'}->set_name('label40');
	    $forms->{'folder_window'}{'table6'}->attach($widgets->{'label40'}, 1, 2, 1, 2, ['fill'], [], 0, 0 );
	    $widgets->{'label40'}->show;
	    $forms->{'folder_window'}{'label40'} = $widgets->{'label40'};
	    $forms->{'folder_window'}{'label40'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkEntry 'number'
	    $widgets->{'number'} = new Gtk::Entry;
	    $widgets->{'number'}->set_name('number');
	    $forms->{'folder_window'}{'table6'}->attach($widgets->{'number'}, 2, 3, 1, 2, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'number'}->show;
	    $forms->{'folder_window'}{'number'} = $widgets->{'number'};
	    $forms->{'folder_window'}{'number'}->can_focus(1 );
	    $forms->{'folder_window'}{'number'}->set_text(_('') );
	    $forms->{'folder_window'}{'number'}->set_max_length(0 );
	    $forms->{'folder_window'}{'number'}->set_visibility(1 );
	    $forms->{'folder_window'}{'number'}->set_editable(1 );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox9'
	    $widgets->{'hbuttonbox9'} = new Gtk::HButtonBox;
	    $widgets->{'hbuttonbox9'}->set_name('hbuttonbox9');
	    $forms->{'folder_window'}{'table6'}->attach($widgets->{'hbuttonbox9'}, 0, 4, 2, 3, ['expand', 'fill'], ['fill'], 0, 0 );
	    $widgets->{'hbuttonbox9'}->show;
	    $forms->{'folder_window'}{'hbuttonbox9'} = $widgets->{'hbuttonbox9'};
	    $forms->{'folder_window'}{'hbuttonbox9'}->set_layout('spread' );
	    $forms->{'folder_window'}{'hbuttonbox9'}->set_spacing(30 );
	    $forms->{'folder_window'}{'hbuttonbox9'}->set_child_size(85, 27 );
	    $forms->{'folder_window'}{'hbuttonbox9'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'ok'
		$widgets->{'ok'} = new Gtk::Button(_('Ok'));
		$widgets->{'ok'}->set_name('ok');
		$forms->{'folder_window'}{'hbuttonbox9'}->add($widgets->{'ok'} );
		$widgets->{'ok'}->show;
		$forms->{'folder_window'}{'ok'} = $widgets->{'ok'};
		$forms->{'folder_window'}{'ok'}->can_default(1 );
		$forms->{'folder_window'}{'ok'}->can_focus(1 );
		#
		# Construct a GtkButton 'cancel'
		$widgets->{'cancel'} = new Gtk::Button(_('Cancel'));
		$widgets->{'cancel'}->set_name('cancel');
		$forms->{'folder_window'}{'hbuttonbox9'}->add($widgets->{'cancel'} );
		$widgets->{'cancel'}->show;
		$forms->{'folder_window'}{'cancel'} = $widgets->{'cancel'};
		$forms->{'folder_window'}{'cancel'}->can_default(1 );
		$forms->{'folder_window'}{'cancel'}->can_focus(1 );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'folder_window'}{'ok'}->signal_connect( 'clicked', "$class\::on_ok_clicked", '', 'ok', "folder_window-$instance" );
    $forms->{'folder_window'}{'cancel'}->signal_connect( 'clicked', "$class\::on_cancel_clicked", '', 'cancel', "folder_window-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'folder_window'});
    $self->TOPLEVEL($self->FORM->{'folder_window'});
    $self->INSTANCE("folder_window-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'fund_window' class                              
#==============================================================================
package fund_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'fund_window' (version 0.01)
# 
# Copyright (c) Date Fri Jan 10 13:19:11 CST 2003
# Author Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.56 - Wed Apr 19 02:28:58 BST 2000
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ccdb.glade
# Fri Jan 10 13:19:11 CST 2003
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    # We need the Gnome bindings as well
    use Gnome;
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $VERSION
                 $AUTOLOAD
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $VERSION = '0.01';
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= 'pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORMS($new_value);      sets the value of FORMS
    #    $current_value = $class->FORMS; gets the current value of FORMS
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'CCDB',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@cookie.cs.wisc.edu>',
    DATE     => 'Fri Jan 10 13:19:11 CST 2003',
    INSTANCE => 'main_window',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_cancel_clicked' => undef,
    'on_ok_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{_permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('CCDB');
    # You can use the line below to load a test .mo file before it is
    # installed in the normal place (eg /usr/local/share/locale//LC_MESSAGES/CCDB.mo)
#    $class->load_translations('CCDB', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ppo/CCDB.mo');
    Gnome->init('CCDB', '0.01');
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        _permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"fund_window-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'fund_window'
    $widgets->{'fund_window'} = new Gtk::Window;
    $widgets->{'fund_window'}->set_title(_('Add/Modify Fund') );
    $widgets->{'fund_window'}->set_name('fund_window');
    $widgets->{'fund_window'}->position('none' );
    $widgets->{'fund_window'}->set_policy(0, 1, 0 );
    $widgets->{'fund_window'}->set_modal(0 );
    $widgets->{'fund_window'}->realize;
    $forms->{'fund_window'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'fund_window'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'fund_window'}{'accelgroup'}->attach($widgets->{'fund_window'} );
    $forms->{'fund_window'}{'fund_window'} = $widgets->{'fund_window'};
	#
	# Construct a GtkTable 'table7'
	$widgets->{'table7'} = new Gtk::Table(3, 2, 0 );
	$widgets->{'table7'}->set_row_spacings(8 );
	$widgets->{'table7'}->set_col_spacings(4 );
	$widgets->{'table7'}->set_name('table7');
	$forms->{'fund_window'}{'fund_window'}->add($widgets->{'table7'} );
	$widgets->{'table7'}->show;
	$forms->{'fund_window'}{'table7'} = $widgets->{'table7'};
	$forms->{'fund_window'}{'table7'}->border_width(8 );
	    #
	    # Construct a GtkLabel 'label41'
	    $widgets->{'label41'} = new Gtk::Label(_('Fund:'));
	    $widgets->{'label41'}->set_justify('center' );
	    $widgets->{'label41'}->set_line_wrap(0 );
	    $widgets->{'label41'}->set_name('label41');
	    $forms->{'fund_window'}{'table7'}->attach($widgets->{'label41'}, 0, 1, 0, 1, ['fill'], [], 0, 0 );
	    $widgets->{'label41'}->show;
	    $forms->{'fund_window'}{'label41'} = $widgets->{'label41'};
	    $forms->{'fund_window'}{'label41'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkLabel 'label42'
	    $widgets->{'label42'} = new Gtk::Label(_('Amount:'));
	    $widgets->{'label42'}->set_justify('center' );
	    $widgets->{'label42'}->set_line_wrap(0 );
	    $widgets->{'label42'}->set_name('label42');
	    $forms->{'fund_window'}{'table7'}->attach($widgets->{'label42'}, 0, 1, 1, 2, ['fill'], [], 0, 0 );
	    $widgets->{'label42'}->show;
	    $forms->{'fund_window'}{'label42'} = $widgets->{'label42'};
	    $forms->{'fund_window'}{'label42'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox10'
	    $widgets->{'hbuttonbox10'} = new Gtk::HButtonBox;
	    $widgets->{'hbuttonbox10'}->set_name('hbuttonbox10');
	    $forms->{'fund_window'}{'table7'}->attach($widgets->{'hbuttonbox10'}, 0, 2, 2, 3, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'hbuttonbox10'}->show;
	    $forms->{'fund_window'}{'hbuttonbox10'} = $widgets->{'hbuttonbox10'};
	    $forms->{'fund_window'}{'hbuttonbox10'}->set_layout('spread' );
	    $forms->{'fund_window'}{'hbuttonbox10'}->set_spacing(30 );
	    $forms->{'fund_window'}{'hbuttonbox10'}->set_child_size(85, 27 );
	    $forms->{'fund_window'}{'hbuttonbox10'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'ok'
		$widgets->{'ok'} = new Gtk::Button(_('Ok'));
		$widgets->{'ok'}->set_name('ok');
		$forms->{'fund_window'}{'hbuttonbox10'}->add($widgets->{'ok'} );
		$widgets->{'ok'}->show;
		$forms->{'fund_window'}{'ok'} = $widgets->{'ok'};
		$forms->{'fund_window'}{'ok'}->can_default(1 );
		$forms->{'fund_window'}{'ok'}->can_focus(1 );
		#
		# Construct a GtkButton 'cancel'
		$widgets->{'cancel'} = new Gtk::Button(_('Cancel'));
		$widgets->{'cancel'}->set_name('cancel');
		$forms->{'fund_window'}{'hbuttonbox10'}->add($widgets->{'cancel'} );
		$widgets->{'cancel'}->show;
		$forms->{'fund_window'}{'cancel'} = $widgets->{'cancel'};
		$forms->{'fund_window'}{'cancel'}->can_default(1 );
		$forms->{'fund_window'}{'cancel'}->can_focus(1 );
	    #
	    # Construct a GtkEntry 'fund'
	    $widgets->{'fund'} = new Gtk::Entry;
	    $widgets->{'fund'}->set_name('fund');
	    $forms->{'fund_window'}{'table7'}->attach($widgets->{'fund'}, 1, 2, 0, 1, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'fund'}->show;
	    $forms->{'fund_window'}{'fund'} = $widgets->{'fund'};
	    $forms->{'fund_window'}{'fund'}->can_focus(1 );
	    $forms->{'fund_window'}{'fund'}->set_text(_('') );
	    $forms->{'fund_window'}{'fund'}->set_max_length(0 );
	    $forms->{'fund_window'}{'fund'}->set_visibility(1 );
	    $forms->{'fund_window'}{'fund'}->set_editable(1 );
	    #
	    # Construct a GtkEntry 'amount'
	    $widgets->{'amount'} = new Gtk::Entry;
	    $widgets->{'amount'}->set_name('amount');
	    $forms->{'fund_window'}{'table7'}->attach($widgets->{'amount'}, 1, 2, 1, 2, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'amount'}->show;
	    $forms->{'fund_window'}{'amount'} = $widgets->{'amount'};
	    $forms->{'fund_window'}{'amount'}->can_focus(1 );
	    $forms->{'fund_window'}{'amount'}->set_text(_('') );
	    $forms->{'fund_window'}{'amount'}->set_max_length(0 );
	    $forms->{'fund_window'}{'amount'}->set_visibility(1 );
	    $forms->{'fund_window'}{'amount'}->set_editable(1 );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'fund_window'}{'ok'}->signal_connect( 'clicked', "$class\::on_ok_clicked", '', 'ok', "fund_window-$instance" );
    $forms->{'fund_window'}{'cancel'}->signal_connect( 'clicked', "$class\::on_cancel_clicked", '', 'cancel', "fund_window-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'fund_window'});
    $self->TOPLEVEL($self->FORM->{'fund_window'});
    $self->INSTANCE("fund_window-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'file_selection' class                              
#==============================================================================
package file_selection;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'file_selection' (version 0.01)
# 
# Copyright (c) Date Fri Jan 10 13:19:11 CST 2003
# Author Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.56 - Wed Apr 19 02:28:58 BST 2000
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ccdb.glade
# Fri Jan 10 13:19:11 CST 2003
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    # We need the Gnome bindings as well
    use Gnome;
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $VERSION
                 $AUTOLOAD
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $VERSION = '0.01';
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= 'pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORMS($new_value);      sets the value of FORMS
    #    $current_value = $class->FORMS; gets the current value of FORMS
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'CCDB',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@cookie.cs.wisc.edu>',
    DATE     => 'Fri Jan 10 13:19:11 CST 2003',
    INSTANCE => 'main_window',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_cancel_clicked' => undef,
    'on_ok_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{_permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('CCDB');
    # You can use the line below to load a test .mo file before it is
    # installed in the normal place (eg /usr/local/share/locale//LC_MESSAGES/CCDB.mo)
#    $class->load_translations('CCDB', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ppo/CCDB.mo');
    Gnome->init('CCDB', '0.01');
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        _permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"file_selection-$instance"}) {$instance++;}


    #
    # Construct a GtkFileSelection 'file_selection'
    $widgets->{'file_selection'} = new Gtk::FileSelection(_('Select File') );
    $widgets->{'file_selection'}->set_name('file_selection');
    $widgets->{'file_selection'}->show_fileop_buttons;
    $widgets->{'file_selection'}->position('none' );
    $widgets->{'file_selection'}->set_policy(0, 1, 0 );
    $widgets->{'file_selection'}->set_modal(0 );
    $widgets->{'file_selection'}->realize;
    $forms->{'file_selection'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'file_selection'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'file_selection'}{'accelgroup'}->attach($widgets->{'file_selection'} );
    $forms->{'file_selection'}{'file_selection'} = $widgets->{'file_selection'};
    $forms->{'file_selection'}{'file_selection'}->border_width(10 );
	#
	# Construct a GtkButton 'ok'
	$widgets->{'ok'} = $forms->{'file_selection'}{'file_selection'}->ok_button;
	$widgets->{'ok'}->child->set_text(_('OK'));
	$widgets->{'ok'}->show;
	$forms->{'file_selection'}{'ok'} = $widgets->{'ok'};
	$forms->{'file_selection'}{'ok'}->can_default(1 );
	$forms->{'file_selection'}{'ok'}->can_focus(1 );
	#
	# Construct a GtkButton 'cancel'
	$widgets->{'cancel'} = $forms->{'file_selection'}{'file_selection'}->cancel_button;
	$widgets->{'cancel'}->child->set_text(_('Cancel'));
	$widgets->{'cancel'}->show;
	$forms->{'file_selection'}{'cancel'} = $widgets->{'cancel'};
	$forms->{'file_selection'}{'cancel'}->can_default(1 );
	$forms->{'file_selection'}{'cancel'}->can_focus(1 );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'file_selection'}{'ok'}->signal_connect( 'clicked', "$class\::on_ok_clicked", '', 'ok', "file_selection-$instance" );
    $forms->{'file_selection'}{'cancel'}->signal_connect( 'clicked', "$class\::on_cancel_clicked", '', 'cancel', "file_selection-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'file_selection'});
    $self->TOPLEVEL($self->FORM->{'file_selection'});
    $self->INSTANCE("file_selection-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'shipping_window' class                              
#==============================================================================
package shipping_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'shipping_window' (version 0.01)
# 
# Copyright (c) Date Fri Jan 10 13:19:11 CST 2003
# Author Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.56 - Wed Apr 19 02:28:58 BST 2000
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ccdb.glade
# Fri Jan 10 13:19:11 CST 2003
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    # We need the Gnome bindings as well
    use Gnome;
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $VERSION
                 $AUTOLOAD
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $VERSION = '0.01';
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= 'pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORMS($new_value);      sets the value of FORMS
    #    $current_value = $class->FORMS; gets the current value of FORMS
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'CCDB',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@cookie.cs.wisc.edu>',
    DATE     => 'Fri Jan 10 13:19:11 CST 2003',
    INSTANCE => 'main_window',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_cancel_clicked' => undef,
    'on_ok_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{_permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('CCDB');
    # You can use the line below to load a test .mo file before it is
    # installed in the normal place (eg /usr/local/share/locale//LC_MESSAGES/CCDB.mo)
#    $class->load_translations('CCDB', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ppo/CCDB.mo');
    Gnome->init('CCDB', '0.01');
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        _permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"shipping_window-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'shipping_window'
    $widgets->{'shipping_window'} = new Gtk::Window;
    $widgets->{'shipping_window'}->set_title(_('Add/Modify Shipping Information') );
    $widgets->{'shipping_window'}->set_name('shipping_window');
    $widgets->{'shipping_window'}->position('none' );
    $widgets->{'shipping_window'}->set_policy(0, 1, 0 );
    $widgets->{'shipping_window'}->set_modal(0 );
    $widgets->{'shipping_window'}->realize;
    $forms->{'shipping_window'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'shipping_window'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'shipping_window'}{'accelgroup'}->attach($widgets->{'shipping_window'} );
    $forms->{'shipping_window'}{'shipping_window'} = $widgets->{'shipping_window'};
	#
	# Construct a GtkTable 'table3'
	$widgets->{'table3'} = new Gtk::Table(3, 2, 0 );
	$widgets->{'table3'}->set_row_spacings(8 );
	$widgets->{'table3'}->set_col_spacings(4 );
	$widgets->{'table3'}->set_name('table3');
	$forms->{'shipping_window'}{'shipping_window'}->add($widgets->{'table3'} );
	$widgets->{'table3'}->show;
	$forms->{'shipping_window'}{'table3'} = $widgets->{'table3'};
	$forms->{'shipping_window'}{'table3'}->border_width(8 );
	    #
	    # Construct a GtkLabel 'label34'
	    $widgets->{'label34'} = new Gtk::Label(_('Shipping Type:'));
	    $widgets->{'label34'}->set_justify('center' );
	    $widgets->{'label34'}->set_line_wrap(0 );
	    $widgets->{'label34'}->set_name('label34');
	    $forms->{'shipping_window'}{'table3'}->attach($widgets->{'label34'}, 0, 1, 0, 1, ['fill'], [], 0, 0 );
	    $widgets->{'label34'}->show;
	    $forms->{'shipping_window'}{'label34'} = $widgets->{'label34'};
	    $forms->{'shipping_window'}{'label34'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkLabel 'label35'
	    $widgets->{'label35'} = new Gtk::Label(_('Cost:'));
	    $widgets->{'label35'}->set_justify('center' );
	    $widgets->{'label35'}->set_line_wrap(0 );
	    $widgets->{'label35'}->set_name('label35');
	    $forms->{'shipping_window'}{'table3'}->attach($widgets->{'label35'}, 0, 1, 1, 2, ['fill'], [], 0, 0 );
	    $widgets->{'label35'}->show;
	    $forms->{'shipping_window'}{'label35'} = $widgets->{'label35'};
	    $forms->{'shipping_window'}{'label35'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox6'
	    $widgets->{'hbuttonbox6'} = new Gtk::HButtonBox;
	    $widgets->{'hbuttonbox6'}->set_name('hbuttonbox6');
	    $forms->{'shipping_window'}{'table3'}->attach($widgets->{'hbuttonbox6'}, 0, 2, 2, 3, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'hbuttonbox6'}->show;
	    $forms->{'shipping_window'}{'hbuttonbox6'} = $widgets->{'hbuttonbox6'};
	    $forms->{'shipping_window'}{'hbuttonbox6'}->set_layout('spread' );
	    $forms->{'shipping_window'}{'hbuttonbox6'}->set_spacing(30 );
	    $forms->{'shipping_window'}{'hbuttonbox6'}->set_child_size(85, 27 );
	    $forms->{'shipping_window'}{'hbuttonbox6'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'ok'
		$widgets->{'ok'} = new Gtk::Button(_('Ok'));
		$widgets->{'ok'}->set_name('ok');
		$forms->{'shipping_window'}{'hbuttonbox6'}->add($widgets->{'ok'} );
		$widgets->{'ok'}->show;
		$forms->{'shipping_window'}{'ok'} = $widgets->{'ok'};
		$forms->{'shipping_window'}{'ok'}->can_default(1 );
		$forms->{'shipping_window'}{'ok'}->can_focus(1 );
		#
		# Construct a GtkButton 'cancel'
		$widgets->{'cancel'} = new Gtk::Button(_('Cancel'));
		$widgets->{'cancel'}->set_name('cancel');
		$forms->{'shipping_window'}{'hbuttonbox6'}->add($widgets->{'cancel'} );
		$widgets->{'cancel'}->show;
		$forms->{'shipping_window'}{'cancel'} = $widgets->{'cancel'};
		$forms->{'shipping_window'}{'cancel'}->can_default(1 );
		$forms->{'shipping_window'}{'cancel'}->can_focus(1 );
	    #
	    # Construct a GtkEntry 'type'
	    $widgets->{'type'} = new Gtk::Entry;
	    $widgets->{'type'}->set_name('type');
	    $forms->{'shipping_window'}{'table3'}->attach($widgets->{'type'}, 1, 2, 0, 1, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'type'}->show;
	    $forms->{'shipping_window'}{'type'} = $widgets->{'type'};
	    $forms->{'shipping_window'}{'type'}->can_focus(1 );
	    $forms->{'shipping_window'}{'type'}->set_text(_('') );
	    $forms->{'shipping_window'}{'type'}->set_max_length(0 );
	    $forms->{'shipping_window'}{'type'}->set_visibility(1 );
	    $forms->{'shipping_window'}{'type'}->set_editable(1 );
	    #
	    # Construct a GtkEntry 'cost'
	    $widgets->{'cost'} = new Gtk::Entry;
	    $widgets->{'cost'}->set_name('cost');
	    $forms->{'shipping_window'}{'table3'}->attach($widgets->{'cost'}, 1, 2, 1, 2, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'cost'}->show;
	    $forms->{'shipping_window'}{'cost'} = $widgets->{'cost'};
	    $forms->{'shipping_window'}{'cost'}->can_focus(1 );
	    $forms->{'shipping_window'}{'cost'}->set_text(_('') );
	    $forms->{'shipping_window'}{'cost'}->set_max_length(0 );
	    $forms->{'shipping_window'}{'cost'}->set_visibility(1 );
	    $forms->{'shipping_window'}{'cost'}->set_editable(1 );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'shipping_window'}{'ok'}->signal_connect( 'clicked', "$class\::on_ok_clicked", '', 'ok', "shipping_window-$instance" );
    $forms->{'shipping_window'}{'cancel'}->signal_connect( 'clicked', "$class\::on_cancel_clicked", '', 'cancel', "shipping_window-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'shipping_window'});
    $self->TOPLEVEL($self->FORM->{'shipping_window'});
    $self->INSTANCE("shipping_window-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'main_window' class                              
#==============================================================================
package main_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'main_window' (version 0.01)
# 
# Copyright (c) Date Fri Jan 10 13:19:11 CST 2003
# Author Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.56 - Wed Apr 19 02:28:58 BST 2000
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ccdb.glade
# Fri Jan 10 13:19:11 CST 2003
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    # We need the Gnome bindings as well
    use Gnome;
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $VERSION
                 $AUTOLOAD
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $VERSION = '0.01';
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= 'pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORMS($new_value);      sets the value of FORMS
    #    $current_value = $class->FORMS; gets the current value of FORMS
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'CCDB',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@cookie.cs.wisc.edu>',
    DATE     => 'Fri Jan 10 13:19:11 CST 2003',
    INSTANCE => 'main_window',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_add_fund_clicked' => undef,
    'on_add_part_clicked' => undef,
    'on_add_shipping_clicked' => undef,
    'on_cancel_order_clicked' => undef,
    'on_convert_req_clicked' => undef,
    'on_delete_fund_clicked' => undef,
    'on_delete_part_clicked' => undef,
    'on_delete_shipping_clicked' => undef,
    'on_import_paperwork_clicked' => undef,
    'on_main_window_destroy' => undef,
    'on_no_inventory_clicked' => undef,
    'on_order_list_button_press_event' => undef,
    'on_order_list_tree_select_row' => undef,
    'on_paid_clicked' => undef,
    'on_part_list_button_press_event' => undef,
    'on_refresh_orders_clicked' => undef,
    'on_split_order_clicked' => undef,
    'on_toggle_arrived_clicked' => undef,
    'on_toggle_billed_clicked' => undef,
    'on_toggle_inventoried_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{_permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('CCDB');
    # You can use the line below to load a test .mo file before it is
    # installed in the normal place (eg /usr/local/share/locale//LC_MESSAGES/CCDB.mo)
#    $class->load_translations('CCDB', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ppo/CCDB.mo');
    Gnome->init('CCDB', '0.01');
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        _permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"main_window-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'main_window'
    $widgets->{'main_window'} = new Gtk::Window;
    $widgets->{'main_window'}->set_title(_('Credit Card Database') );
    $widgets->{'main_window'}->set_name('main_window');
    $widgets->{'main_window'}->position('none' );
    $widgets->{'main_window'}->set_policy(0, 1, 0 );
    $widgets->{'main_window'}->set_modal(0 );
    $widgets->{'main_window'}->set_usize(900, 500 );
    $widgets->{'main_window'}->realize;
    $forms->{'main_window'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'main_window'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'main_window'}{'accelgroup'}->attach($widgets->{'main_window'} );
    $forms->{'main_window'}{'main_window'} = $widgets->{'main_window'};
	#
	# Construct a GtkVBox 'vbox2'
	$widgets->{'vbox2'} = new Gtk::VBox(0, 8 );
	$widgets->{'vbox2'}->set_name('vbox2');
	$forms->{'main_window'}{'main_window'}->add($widgets->{'vbox2'} );
	$widgets->{'vbox2'}->show;
	$forms->{'main_window'}{'vbox2'} = $widgets->{'vbox2'};
	$forms->{'main_window'}{'vbox2'}->border_width(8 );
	    #
	    # Construct a GtkFrame 'frame1'
	    $widgets->{'frame1'} = new Gtk::Frame(_('Order List: '));
	    $widgets->{'frame1'}->set_label_align(0, 0 );
	    $widgets->{'frame1'}->set_shadow_type('etched_in' );
	    $widgets->{'frame1'}->set_name('frame1');
	    $forms->{'main_window'}{'vbox2'}->add($widgets->{'frame1'} );
	    $widgets->{'frame1'}->show;
	    $forms->{'main_window'}{'frame1'} = $widgets->{'frame1'};
		#
		# Construct a GtkVBox 'vbox3'
		$widgets->{'vbox3'} = new Gtk::VBox(0, 8 );
		$widgets->{'vbox3'}->set_name('vbox3');
		$forms->{'main_window'}{'frame1'}->add($widgets->{'vbox3'} );
		$widgets->{'vbox3'}->show;
		$forms->{'main_window'}{'vbox3'} = $widgets->{'vbox3'};
		$forms->{'main_window'}{'vbox3'}->border_width(8 );
		    #
		    # Construct a GtkHBox 'hbox2'
		    $widgets->{'hbox2'} = new Gtk::HBox(0, 0 );
		    $widgets->{'hbox2'}->set_name('hbox2');
		    $forms->{'main_window'}{'vbox3'}->add($widgets->{'hbox2'} );
		    $widgets->{'hbox2'}->show;
		    $forms->{'main_window'}{'hbox2'} = $widgets->{'hbox2'};
			#
			# Construct a GtkLabel 'label29'
			$widgets->{'label29'} = new Gtk::Label(_('View: '));
			$widgets->{'label29'}->set_justify('center' );
			$widgets->{'label29'}->set_line_wrap(0 );
			$widgets->{'label29'}->set_name('label29');
			$forms->{'main_window'}{'hbox2'}->add($widgets->{'label29'} );
			$widgets->{'label29'}->show;
			$forms->{'main_window'}{'label29'} = $widgets->{'label29'};
			$forms->{'main_window'}{'label29'}->set_alignment(0.5, 0.5 );
			$forms->{'main_window'}{'hbox2'}->set_child_packing($forms->{'main_window'}{'label29'}, 0, 0, 0, 'start' );
			#
			# Construct a GtkOptionMenu 'order_view'
			$widgets->{'order_view'} = new Gtk::OptionMenu;
			$widgets->{'order_view'}->set_name('order_view');
			$forms->{'main_window'}{'hbox2'}->add($widgets->{'order_view'} );
			$widgets->{'order_view'}->show;
			$forms->{'main_window'}{'order_view'} = $widgets->{'order_view'};
			$forms->{'main_window'}{'order_view'}->can_focus(1 );
			$widgets->{'order_view_menu'} = new Gtk::Menu;
			$forms->{'main_window'}{'order_view'}->set_menu($widgets->{'order_view_menu'} );
			$forms->{'main_window'}{'order_view_menu'} = $widgets->{'order_view_menu'};
			$widgets->{'order_view_item0'} = new Gtk::MenuItem('Active Orders' );
			    $forms->{'main_window'}{'order_view_menu'}->append($widgets->{'order_view_item0'} );
			    $widgets->{'order_view_item0'}->show;
			    $forms->{'main_window'}{'order_view_item0'} = $widgets->{'order_view_item0'};
			$forms->{'main_window'}{'order_view_item0'}->activate;
			$widgets->{'order_view_item1'} = new Gtk::MenuItem('Resolved Orders' );
			    $forms->{'main_window'}{'order_view_menu'}->append($widgets->{'order_view_item1'} );
			    $widgets->{'order_view_item1'}->show;
			    $forms->{'main_window'}{'order_view_item1'} = $widgets->{'order_view_item1'};
			$forms->{'main_window'}{'order_view'}->set_history( 0 );
			$forms->{'main_window'}{'hbox2'}->set_child_packing($forms->{'main_window'}{'order_view'}, 1, 1, 0, 'start' );
			#
			# Construct a GtkLabel 'label43'
			$widgets->{'label43'} = new Gtk::Label(_(''));
			$widgets->{'label43'}->set_justify('center' );
			$widgets->{'label43'}->set_line_wrap(0 );
			$widgets->{'label43'}->set_name('label43');
			$forms->{'main_window'}{'hbox2'}->add($widgets->{'label43'} );
			$widgets->{'label43'}->show;
			$forms->{'main_window'}{'label43'} = $widgets->{'label43'};
			$forms->{'main_window'}{'label43'}->set_alignment(0.5, 0.5 );
			$forms->{'main_window'}{'hbox2'}->set_child_packing($forms->{'main_window'}{'label43'}, 1, 1, 0, 'start' );
		    $forms->{'main_window'}{'vbox3'}->set_child_packing($forms->{'main_window'}{'hbox2'}, 0, 0, 0, 'start' );
		    #
		    # Construct a GtkScrolledWindow 'scrolledwindow2'
		    $widgets->{'scrolledwindow2'} = new Gtk::ScrolledWindow( undef, undef);
		    $widgets->{'scrolledwindow2'}->set_policy('automatic', 'automatic' );
		    $widgets->{'scrolledwindow2'}->border_width(0 );
		    $widgets->{'scrolledwindow2'}->hscrollbar->set_update_policy('continuous' );
		    $widgets->{'scrolledwindow2'}->vscrollbar->set_update_policy('continuous' );
		    $widgets->{'scrolledwindow2'}->set_name('scrolledwindow2');
		    $forms->{'main_window'}{'vbox3'}->add($widgets->{'scrolledwindow2'} );
		    $widgets->{'scrolledwindow2'}->show;
		    $forms->{'main_window'}{'scrolledwindow2'} = $widgets->{'scrolledwindow2'};
			#
			# Construct a GtkCTree 'order_list'
			$widgets->{'order_list'} = new Gtk::CTree(6, 0 );
			$widgets->{'order_list'}->set_selection_mode('single' );
			$widgets->{'order_list'}->set_border('in' );
			$widgets->{'order_list'}->set_name('order_list');
			$widgets->{'order_list'}->column_titles_show;
			$widgets->{'order_list'}->set_column_width(0, 74 );
			$widgets->{'order_list'}->set_column_width(1, 347 );
			$widgets->{'order_list'}->set_column_width(2, 154 );
			$widgets->{'order_list'}->set_column_width(3, 86 );
			$widgets->{'order_list'}->set_column_width(4, 92 );
			$widgets->{'order_list'}->set_column_width(5, 40 );
			$forms->{'main_window'}{'scrolledwindow2'}->add($widgets->{'order_list'} );
			$widgets->{'order_list'}->show;
			$forms->{'main_window'}{'order_list'} = $widgets->{'order_list'};
			$forms->{'main_window'}{'order_list'}->can_focus(1 );
			    #
			    # Construct a GtkLabel 'label7'
			    $widgets->{'label7'} = new Gtk::Label(_('Number'));
			    $widgets->{'label7'}->set_justify('center' );
			    $widgets->{'label7'}->set_line_wrap(0 );
			    $widgets->{'label7'}->set_name('label7');
			    $forms->{'main_window'}{'order_list'}->set_column_widget(0, $widgets->{'label7'} );
			    $widgets->{'label7'}->show;
			    $forms->{'main_window'}{'label7'} = $widgets->{'label7'};
			    $forms->{'main_window'}{'label7'}->set_alignment(0.5, 0.5 );
			    #
			    # Construct a GtkLabel 'label8'
			    $widgets->{'label8'} = new Gtk::Label(_('Subject'));
			    $widgets->{'label8'}->set_justify('center' );
			    $widgets->{'label8'}->set_line_wrap(0 );
			    $widgets->{'label8'}->set_name('label8');
			    $forms->{'main_window'}{'order_list'}->set_column_widget(1, $widgets->{'label8'} );
			    $widgets->{'label8'}->show;
			    $forms->{'main_window'}{'label8'} = $widgets->{'label8'};
			    $forms->{'main_window'}{'label8'}->set_alignment(0.5, 0.5 );
			    #
			    # Construct a GtkLabel 'label9'
			    $widgets->{'label9'} = new Gtk::Label(_('Vendor'));
			    $widgets->{'label9'}->set_justify('center' );
			    $widgets->{'label9'}->set_line_wrap(0 );
			    $widgets->{'label9'}->set_name('label9');
			    $forms->{'main_window'}{'order_list'}->set_column_widget(2, $widgets->{'label9'} );
			    $widgets->{'label9'}->show;
			    $forms->{'main_window'}{'label9'} = $widgets->{'label9'};
			    $forms->{'main_window'}{'label9'}->set_alignment(0.5, 0.5 );
			    #
			    # Construct a GtkLabel 'label10'
			    $widgets->{'label10'} = new Gtk::Label(_('Age'));
			    $widgets->{'label10'}->set_justify('center' );
			    $widgets->{'label10'}->set_line_wrap(0 );
			    $widgets->{'label10'}->set_name('label10');
			    $forms->{'main_window'}{'order_list'}->set_column_widget(3, $widgets->{'label10'} );
			    $widgets->{'label10'}->show;
			    $forms->{'main_window'}{'label10'} = $widgets->{'label10'};
			    $forms->{'main_window'}{'label10'}->set_alignment(0.5, 0.5 );
			    #
			    # Construct a GtkLabel 'label11'
			    $widgets->{'label11'} = new Gtk::Label(_('Cost'));
			    $widgets->{'label11'}->set_justify('center' );
			    $widgets->{'label11'}->set_line_wrap(0 );
			    $widgets->{'label11'}->set_name('label11');
			    $forms->{'main_window'}{'order_list'}->set_column_widget(4, $widgets->{'label11'} );
			    $widgets->{'label11'}->show;
			    $forms->{'main_window'}{'label11'} = $widgets->{'label11'};
			    $forms->{'main_window'}{'label11'}->set_alignment(0.5, 0.5 );
			    #
			    # Construct a GtkLabel 'label12'
			    $widgets->{'label12'} = new Gtk::Label(_('Status'));
			    $widgets->{'label12'}->set_justify('center' );
			    $widgets->{'label12'}->set_line_wrap(0 );
			    $widgets->{'label12'}->set_name('label12');
			    $forms->{'main_window'}{'order_list'}->set_column_widget(5, $widgets->{'label12'} );
			    $widgets->{'label12'}->show;
			    $forms->{'main_window'}{'label12'} = $widgets->{'label12'};
			    $forms->{'main_window'}{'label12'}->set_alignment(0.5, 0.5 );
		    $forms->{'main_window'}{'vbox3'}->set_child_packing($forms->{'main_window'}{'scrolledwindow2'}, 1, 1, 0, 'start' );
		    #
		    # Construct a GtkHButtonBox 'hbuttonbox2'
		    $widgets->{'hbuttonbox2'} = new Gtk::HButtonBox;
		    $widgets->{'hbuttonbox2'}->set_name('hbuttonbox2');
		    $forms->{'main_window'}{'vbox3'}->add($widgets->{'hbuttonbox2'} );
		    $widgets->{'hbuttonbox2'}->show;
		    $forms->{'main_window'}{'hbuttonbox2'} = $widgets->{'hbuttonbox2'};
		    $forms->{'main_window'}{'hbuttonbox2'}->set_layout('spread' );
		    $forms->{'main_window'}{'hbuttonbox2'}->set_spacing(30 );
		    $forms->{'main_window'}{'hbuttonbox2'}->set_child_size(85, 27 );
		    $forms->{'main_window'}{'hbuttonbox2'}->set_child_ipadding(7, 0 );
			#
			# Construct a GtkButton 'refresh_orders'
			$widgets->{'refresh_orders'} = new Gtk::Button(_('Refresh'));
			$widgets->{'refresh_orders'}->set_name('refresh_orders');
			$forms->{'main_window'}{'hbuttonbox2'}->add($widgets->{'refresh_orders'} );
			$widgets->{'refresh_orders'}->show;
			$forms->{'main_window'}{'refresh_orders'} = $widgets->{'refresh_orders'};
			$forms->{'main_window'}{'refresh_orders'}->can_default(1 );
			$forms->{'main_window'}{'refresh_orders'}->can_focus(1 );
			#
			# Construct a GtkButton 'convert_req'
			$widgets->{'convert_req'} = new Gtk::Button(_('Create Order Req'));
			$widgets->{'convert_req'}->set_name('convert_req');
			$forms->{'main_window'}{'hbuttonbox2'}->add($widgets->{'convert_req'} );
			$widgets->{'convert_req'}->show;
			$forms->{'main_window'}{'convert_req'} = $widgets->{'convert_req'};
			$forms->{'main_window'}{'convert_req'}->can_default(1 );
			$forms->{'main_window'}{'convert_req'}->can_focus(1 );
			#
			# Construct a GtkButton 'split_order'
			$widgets->{'split_order'} = new Gtk::Button(_('Split Order'));
			$widgets->{'split_order'}->set_name('split_order');
			$forms->{'main_window'}{'hbuttonbox2'}->add($widgets->{'split_order'} );
			$widgets->{'split_order'}->show;
			$forms->{'main_window'}{'split_order'} = $widgets->{'split_order'};
			$forms->{'main_window'}{'split_order'}->can_default(1 );
			$forms->{'main_window'}{'split_order'}->can_focus(1 );
			#
			# Construct a GtkButton 'cancel_order'
			$widgets->{'cancel_order'} = new Gtk::Button(_('Cancel Order'));
			$widgets->{'cancel_order'}->set_name('cancel_order');
			$forms->{'main_window'}{'hbuttonbox2'}->add($widgets->{'cancel_order'} );
			$widgets->{'cancel_order'}->show;
			$forms->{'main_window'}{'cancel_order'} = $widgets->{'cancel_order'};
			$forms->{'main_window'}{'cancel_order'}->can_default(1 );
			$forms->{'main_window'}{'cancel_order'}->can_focus(1 );
			#
			# Construct a GtkButton 'paid'
			$widgets->{'paid'} = new Gtk::Button;
			$widgets->{'paid'}->set_name('paid');
			$forms->{'main_window'}{'hbuttonbox2'}->add($widgets->{'paid'} );
			$widgets->{'paid'}->show;
			$forms->{'main_window'}{'paid'} = $widgets->{'paid'};
			$forms->{'main_window'}{'paid'}->can_default(1 );
			$forms->{'main_window'}{'paid'}->can_focus(1 );
			    #
			    # Construct a GtkLabel 'paid_label'
			    $widgets->{'paid_label'} = new Gtk::Label(_('Mark As Paid'));
			    $widgets->{'paid_label'}->set_justify('center' );
			    $widgets->{'paid_label'}->set_line_wrap(0 );
			    $widgets->{'paid_label'}->set_name('paid_label');
			    $forms->{'main_window'}{'paid'}->add($widgets->{'paid_label'} );
			    $widgets->{'paid_label'}->show;
			    $forms->{'main_window'}{'paid_label'} = $widgets->{'paid_label'};
			    $forms->{'main_window'}{'paid_label'}->set_alignment(0.5, 0.5 );
		    $forms->{'main_window'}{'vbox3'}->set_child_packing($forms->{'main_window'}{'hbuttonbox2'}, 0, 0, 0, 'start' );
	    $forms->{'main_window'}{'vbox2'}->set_child_packing($forms->{'main_window'}{'frame1'}, 1, 1, 0, 'start' );
	    #
	    # Construct a GtkFrame 'frame2'
	    $widgets->{'frame2'} = new Gtk::Frame(_('Selected Order: '));
	    $widgets->{'frame2'}->set_label_align(0, 0 );
	    $widgets->{'frame2'}->set_shadow_type('etched_in' );
	    $widgets->{'frame2'}->set_name('frame2');
	    $forms->{'main_window'}{'vbox2'}->add($widgets->{'frame2'} );
	    $widgets->{'frame2'}->show;
	    $forms->{'main_window'}{'frame2'} = $widgets->{'frame2'};
		#
		# Construct a GtkVBox 'vbox4'
		$widgets->{'vbox4'} = new Gtk::VBox(0, 8 );
		$widgets->{'vbox4'}->set_name('vbox4');
		$forms->{'main_window'}{'frame2'}->add($widgets->{'vbox4'} );
		$widgets->{'vbox4'}->show;
		$forms->{'main_window'}{'vbox4'} = $widgets->{'vbox4'};
		$forms->{'main_window'}{'vbox4'}->border_width(8 );
		    #
		    # Construct a GtkHBox 'hbox1'
		    $widgets->{'hbox1'} = new Gtk::HBox(0, 0 );
		    $widgets->{'hbox1'}->set_name('hbox1');
		    $forms->{'main_window'}{'vbox4'}->add($widgets->{'hbox1'} );
		    $widgets->{'hbox1'}->show;
		    $forms->{'main_window'}{'hbox1'} = $widgets->{'hbox1'};
			#
			# Construct a GtkLabel 'label28'
			$widgets->{'label28'} = new Gtk::Label(_('View: '));
			$widgets->{'label28'}->set_justify('center' );
			$widgets->{'label28'}->set_line_wrap(0 );
			$widgets->{'label28'}->set_name('label28');
			$forms->{'main_window'}{'hbox1'}->add($widgets->{'label28'} );
			$widgets->{'label28'}->show;
			$forms->{'main_window'}{'label28'} = $widgets->{'label28'};
			$forms->{'main_window'}{'label28'}->set_alignment(0.5, 0.5 );
			$forms->{'main_window'}{'hbox1'}->set_child_packing($forms->{'main_window'}{'label28'}, 0, 0, 0, 'start' );
			#
			# Construct a GtkOptionMenu 'order_view_mode'
			$widgets->{'order_view_mode'} = new Gtk::OptionMenu;
			$widgets->{'order_view_mode'}->set_name('order_view_mode');
			$forms->{'main_window'}{'hbox1'}->add($widgets->{'order_view_mode'} );
			$widgets->{'order_view_mode'}->show;
			$forms->{'main_window'}{'order_view_mode'} = $widgets->{'order_view_mode'};
			$forms->{'main_window'}{'order_view_mode'}->can_focus(1 );
			$widgets->{'order_view_mode_menu'} = new Gtk::Menu;
			$forms->{'main_window'}{'order_view_mode'}->set_menu($widgets->{'order_view_mode_menu'} );
			$forms->{'main_window'}{'order_view_mode_menu'} = $widgets->{'order_view_mode_menu'};
			$widgets->{'order_view_mode_item0'} = new Gtk::MenuItem('Order Details' );
			    $forms->{'main_window'}{'order_view_mode_menu'}->append($widgets->{'order_view_mode_item0'} );
			    $widgets->{'order_view_mode_item0'}->show;
			    $forms->{'main_window'}{'order_view_mode_item0'} = $widgets->{'order_view_mode_item0'};
			$forms->{'main_window'}{'order_view_mode_item0'}->activate;
			$widgets->{'order_view_mode_item1'} = new Gtk::MenuItem('Order Status' );
			    $forms->{'main_window'}{'order_view_mode_menu'}->append($widgets->{'order_view_mode_item1'} );
			    $widgets->{'order_view_mode_item1'}->show;
			    $forms->{'main_window'}{'order_view_mode_item1'} = $widgets->{'order_view_mode_item1'};
			$forms->{'main_window'}{'order_view_mode'}->set_history( 0 );
			$forms->{'main_window'}{'hbox1'}->set_child_packing($forms->{'main_window'}{'order_view_mode'}, 1, 1, 0, 'start' );
			#
			# Construct a GtkLabel 'label44'
			$widgets->{'label44'} = new Gtk::Label(_(''));
			$widgets->{'label44'}->set_justify('center' );
			$widgets->{'label44'}->set_line_wrap(0 );
			$widgets->{'label44'}->set_name('label44');
			$forms->{'main_window'}{'hbox1'}->add($widgets->{'label44'} );
			$widgets->{'label44'}->show;
			$forms->{'main_window'}{'label44'} = $widgets->{'label44'};
			$forms->{'main_window'}{'label44'}->set_alignment(0.5, 0.5 );
			$forms->{'main_window'}{'hbox1'}->set_child_packing($forms->{'main_window'}{'label44'}, 1, 1, 0, 'start' );
		    $forms->{'main_window'}{'vbox4'}->set_child_packing($forms->{'main_window'}{'hbox1'}, 0, 0, 0, 'start' );
		    #
		    # Construct a GtkScrolledWindow 'scrolledwindow3'
		    $widgets->{'scrolledwindow3'} = new Gtk::ScrolledWindow( undef, undef);
		    $widgets->{'scrolledwindow3'}->set_policy('automatic', 'automatic' );
		    $widgets->{'scrolledwindow3'}->border_width(0 );
		    $widgets->{'scrolledwindow3'}->hscrollbar->set_update_policy('continuous' );
		    $widgets->{'scrolledwindow3'}->vscrollbar->set_update_policy('continuous' );
		    $widgets->{'scrolledwindow3'}->set_name('scrolledwindow3');
		    $forms->{'main_window'}{'vbox4'}->add($widgets->{'scrolledwindow3'} );
		    $widgets->{'scrolledwindow3'}->show;
		    $forms->{'main_window'}{'scrolledwindow3'} = $widgets->{'scrolledwindow3'};
			#
			# Construct a GtkCList 'part_list'
			$widgets->{'part_list'} = new Gtk::CList(4 );
			$widgets->{'part_list'}->set_selection_mode('single' );
			$widgets->{'part_list'}->set_border('in' );
			$widgets->{'part_list'}->set_name('part_list');
			$widgets->{'part_list'}->column_titles_show;
			$widgets->{'part_list'}->set_column_width(0, 350 );
			$widgets->{'part_list'}->set_column_width(1, 110 );
			$widgets->{'part_list'}->set_column_width(2, 163 );
			$widgets->{'part_list'}->set_column_width(3, 80 );
			$forms->{'main_window'}{'scrolledwindow3'}->add($widgets->{'part_list'} );
			$widgets->{'part_list'}->show;
			$forms->{'main_window'}{'part_list'} = $widgets->{'part_list'};
			$forms->{'main_window'}{'part_list'}->can_focus(1 );
			    #
			    # Construct a GtkLabel 'label24'
			    $widgets->{'label24'} = new Gtk::Label(_('Item'));
			    $widgets->{'label24'}->set_justify('center' );
			    $widgets->{'label24'}->set_line_wrap(0 );
			    $widgets->{'label24'}->set_name('label24');
			    $forms->{'main_window'}{'part_list'}->set_column_widget(0, $widgets->{'label24'} );
			    $widgets->{'label24'}->show;
			    $forms->{'main_window'}{'label24'} = $widgets->{'label24'};
			    $forms->{'main_window'}{'label24'}->set_alignment(0.5, 0.5 );
			    #
			    # Construct a GtkLabel 'label25'
			    $widgets->{'label25'} = new Gtk::Label(_('Quantity Ordered'));
			    $widgets->{'label25'}->set_justify('center' );
			    $widgets->{'label25'}->set_line_wrap(0 );
			    $widgets->{'label25'}->set_name('label25');
			    $forms->{'main_window'}{'part_list'}->set_column_widget(1, $widgets->{'label25'} );
			    $widgets->{'label25'}->show;
			    $forms->{'main_window'}{'label25'} = $widgets->{'label25'};
			    $forms->{'main_window'}{'label25'}->set_alignment(0.5, 0.5 );
			    #
			    # Construct a GtkLabel 'label26'
			    $widgets->{'label26'} = new Gtk::Label(_('Unit Cost'));
			    $widgets->{'label26'}->set_justify('center' );
			    $widgets->{'label26'}->set_line_wrap(0 );
			    $widgets->{'label26'}->set_name('label26');
			    $forms->{'main_window'}{'part_list'}->set_column_widget(2, $widgets->{'label26'} );
			    $widgets->{'label26'}->show;
			    $forms->{'main_window'}{'label26'} = $widgets->{'label26'};
			    $forms->{'main_window'}{'label26'}->set_alignment(0.5, 0.5 );
			    #
			    # Construct a GtkLabel 'label27'
			    $widgets->{'label27'} = new Gtk::Label(_('Total Cost'));
			    $widgets->{'label27'}->set_justify('center' );
			    $widgets->{'label27'}->set_line_wrap(0 );
			    $widgets->{'label27'}->set_name('label27');
			    $forms->{'main_window'}{'part_list'}->set_column_widget(3, $widgets->{'label27'} );
			    $widgets->{'label27'}->show;
			    $forms->{'main_window'}{'label27'} = $widgets->{'label27'};
			    $forms->{'main_window'}{'label27'}->set_alignment(0.5, 0.5 );
		    $forms->{'main_window'}{'vbox4'}->set_child_packing($forms->{'main_window'}{'scrolledwindow3'}, 1, 1, 0, 'start' );
		    #
		    # Construct a GtkHButtonBox 'detail_buttons'
		    $widgets->{'detail_buttons'} = new Gtk::HButtonBox;
		    $widgets->{'detail_buttons'}->set_name('detail_buttons');
		    $forms->{'main_window'}{'vbox4'}->add($widgets->{'detail_buttons'} );
		    $widgets->{'detail_buttons'}->show;
		    $forms->{'main_window'}{'detail_buttons'} = $widgets->{'detail_buttons'};
		    $forms->{'main_window'}{'detail_buttons'}->set_layout('spread' );
		    $forms->{'main_window'}{'detail_buttons'}->set_spacing(30 );
		    $forms->{'main_window'}{'detail_buttons'}->set_child_size(85, 27 );
		    $forms->{'main_window'}{'detail_buttons'}->set_child_ipadding(7, 0 );
			#
			# Construct a GtkButton 'add_part'
			$widgets->{'add_part'} = new Gtk::Button(_('Add Item'));
			$widgets->{'add_part'}->set_name('add_part');
			$forms->{'main_window'}{'detail_buttons'}->add($widgets->{'add_part'} );
			$widgets->{'add_part'}->show;
			$forms->{'main_window'}{'add_part'} = $widgets->{'add_part'};
			$forms->{'main_window'}{'add_part'}->can_default(1 );
			$forms->{'main_window'}{'add_part'}->can_focus(1 );
			#
			# Construct a GtkButton 'delete_part'
			$widgets->{'delete_part'} = new Gtk::Button(_('Delete Item'));
			$widgets->{'delete_part'}->set_name('delete_part');
			$forms->{'main_window'}{'detail_buttons'}->add($widgets->{'delete_part'} );
			$widgets->{'delete_part'}->show;
			$forms->{'main_window'}{'delete_part'} = $widgets->{'delete_part'};
			$forms->{'main_window'}{'delete_part'}->can_default(1 );
			$forms->{'main_window'}{'delete_part'}->can_focus(1 );
			#
			# Construct a GtkButton 'add_shipping'
			$widgets->{'add_shipping'} = new Gtk::Button(_('Add Shipping'));
			$widgets->{'add_shipping'}->set_name('add_shipping');
			$forms->{'main_window'}{'detail_buttons'}->add($widgets->{'add_shipping'} );
			$widgets->{'add_shipping'}->show;
			$forms->{'main_window'}{'add_shipping'} = $widgets->{'add_shipping'};
			$forms->{'main_window'}{'add_shipping'}->can_default(1 );
			$forms->{'main_window'}{'add_shipping'}->can_focus(1 );
			#
			# Construct a GtkButton 'delete_shipping'
			$widgets->{'delete_shipping'} = new Gtk::Button(_('Delete Shipping'));
			$widgets->{'delete_shipping'}->set_name('delete_shipping');
			$forms->{'main_window'}{'detail_buttons'}->add($widgets->{'delete_shipping'} );
			$forms->{'main_window'}{'delete_shipping'} = $widgets->{'delete_shipping'};
			$forms->{'main_window'}{'delete_shipping'}->can_default(1 );
			$forms->{'main_window'}{'delete_shipping'}->can_focus(1 );
			#
			# Construct a GtkButton 'add_fund'
			$widgets->{'add_fund'} = new Gtk::Button(_('Add Fund'));
			$widgets->{'add_fund'}->set_name('add_fund');
			$forms->{'main_window'}{'detail_buttons'}->add($widgets->{'add_fund'} );
			$widgets->{'add_fund'}->show;
			$forms->{'main_window'}{'add_fund'} = $widgets->{'add_fund'};
			$forms->{'main_window'}{'add_fund'}->can_default(1 );
			$forms->{'main_window'}{'add_fund'}->can_focus(1 );
			#
			# Construct a GtkButton 'delete_fund'
			$widgets->{'delete_fund'} = new Gtk::Button(_('Delete Fund'));
			$widgets->{'delete_fund'}->set_name('delete_fund');
			$forms->{'main_window'}{'detail_buttons'}->add($widgets->{'delete_fund'} );
			$widgets->{'delete_fund'}->show;
			$forms->{'main_window'}{'delete_fund'} = $widgets->{'delete_fund'};
			$forms->{'main_window'}{'delete_fund'}->can_default(1 );
			$forms->{'main_window'}{'delete_fund'}->can_focus(1 );
		    $forms->{'main_window'}{'vbox4'}->set_child_packing($forms->{'main_window'}{'detail_buttons'}, 0, 0, 0, 'start' );
		    #
		    # Construct a GtkHButtonBox 'status_buttons'
		    $widgets->{'status_buttons'} = new Gtk::HButtonBox;
		    $widgets->{'status_buttons'}->set_name('status_buttons');
		    $forms->{'main_window'}{'vbox4'}->add($widgets->{'status_buttons'} );
		    $widgets->{'status_buttons'}->show;
		    $forms->{'main_window'}{'status_buttons'} = $widgets->{'status_buttons'};
		    $forms->{'main_window'}{'status_buttons'}->set_layout('spread' );
		    $forms->{'main_window'}{'status_buttons'}->set_spacing(30 );
		    $forms->{'main_window'}{'status_buttons'}->set_child_size(85, 27 );
		    $forms->{'main_window'}{'status_buttons'}->set_child_ipadding(7, 0 );
			#
			# Construct a GtkButton 'toggle_billed'
			$widgets->{'toggle_billed'} = new Gtk::Button(_('Mark As Billed'));
			$widgets->{'toggle_billed'}->set_name('toggle_billed');
			$forms->{'main_window'}{'status_buttons'}->add($widgets->{'toggle_billed'} );
			$forms->{'main_window'}{'toggle_billed'} = $widgets->{'toggle_billed'};
			$forms->{'main_window'}{'toggle_billed'}->can_default(1 );
			$forms->{'main_window'}{'toggle_billed'}->can_focus(1 );
			#
			# Construct a GtkButton 'toggle_arrived'
			$widgets->{'toggle_arrived'} = new Gtk::Button(_('Mark As Arrived'));
			$widgets->{'toggle_arrived'}->set_name('toggle_arrived');
			$forms->{'main_window'}{'status_buttons'}->add($widgets->{'toggle_arrived'} );
			$widgets->{'toggle_arrived'}->show;
			$forms->{'main_window'}{'toggle_arrived'} = $widgets->{'toggle_arrived'};
			$forms->{'main_window'}{'toggle_arrived'}->can_default(1 );
			$forms->{'main_window'}{'toggle_arrived'}->can_focus(1 );
			#
			# Construct a GtkButton 'toggle_inventoried'
			$widgets->{'toggle_inventoried'} = new Gtk::Button(_('Mark As Inventoried'));
			$widgets->{'toggle_inventoried'}->set_name('toggle_inventoried');
			$forms->{'main_window'}{'status_buttons'}->add($widgets->{'toggle_inventoried'} );
			$widgets->{'toggle_inventoried'}->show;
			$forms->{'main_window'}{'toggle_inventoried'} = $widgets->{'toggle_inventoried'};
			$forms->{'main_window'}{'toggle_inventoried'}->can_default(1 );
			$forms->{'main_window'}{'toggle_inventoried'}->can_focus(1 );
			#
			# Construct a GtkButton 'no_inventory'
			$widgets->{'no_inventory'} = new Gtk::Button(_('Not An Inventoried Part'));
			$widgets->{'no_inventory'}->set_name('no_inventory');
			$forms->{'main_window'}{'status_buttons'}->add($widgets->{'no_inventory'} );
			$widgets->{'no_inventory'}->show;
			$forms->{'main_window'}{'no_inventory'} = $widgets->{'no_inventory'};
			$forms->{'main_window'}{'no_inventory'}->can_default(1 );
			$forms->{'main_window'}{'no_inventory'}->can_focus(1 );
			#
			# Construct a GtkButton 'import_paperwork'
			$widgets->{'import_paperwork'} = new Gtk::Button(_('Import Paperwork'));
			$widgets->{'import_paperwork'}->set_name('import_paperwork');
			$forms->{'main_window'}{'status_buttons'}->add($widgets->{'import_paperwork'} );
			$widgets->{'import_paperwork'}->show;
			$forms->{'main_window'}{'import_paperwork'} = $widgets->{'import_paperwork'};
			$forms->{'main_window'}{'import_paperwork'}->can_default(1 );
			$forms->{'main_window'}{'import_paperwork'}->can_focus(1 );
		    $forms->{'main_window'}{'vbox4'}->set_child_packing($forms->{'main_window'}{'status_buttons'}, 0, 0, 0, 'start' );
	    $forms->{'main_window'}{'vbox2'}->set_child_packing($forms->{'main_window'}{'frame2'}, 1, 1, 0, 'start' );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'main_window'}{'main_window'}->signal_connect( 'destroy', "$class\::on_main_window_destroy", '', 'main_window', "main_window-$instance" );
    $forms->{'main_window'}{'order_list'}->signal_connect( 'tree_select_row', "$class\::on_order_list_tree_select_row", '', 'order_list', "main_window-$instance" );
    $forms->{'main_window'}{'order_list'}->signal_connect( 'button_press_event', "$class\::on_order_list_button_press_event", '', 'order_list', "main_window-$instance" );
    $forms->{'main_window'}{'refresh_orders'}->signal_connect( 'clicked', "$class\::on_refresh_orders_clicked", '', 'refresh_orders', "main_window-$instance" );
    $forms->{'main_window'}{'convert_req'}->signal_connect( 'clicked', "$class\::on_convert_req_clicked", '', 'convert_req', "main_window-$instance" );
    $forms->{'main_window'}{'split_order'}->signal_connect( 'clicked', "$class\::on_split_order_clicked", '', 'split_order', "main_window-$instance" );
    $forms->{'main_window'}{'cancel_order'}->signal_connect( 'clicked', "$class\::on_cancel_order_clicked", '', 'cancel_order', "main_window-$instance" );
    $forms->{'main_window'}{'paid'}->signal_connect( 'clicked', "$class\::on_paid_clicked", '', 'paid', "main_window-$instance" );
    $forms->{'main_window'}{'part_list'}->signal_connect( 'button_press_event', "$class\::on_part_list_button_press_event", '', 'part_list', "main_window-$instance" );
    $forms->{'main_window'}{'add_part'}->signal_connect( 'clicked', "$class\::on_add_part_clicked", '', 'add_part', "main_window-$instance" );
    $forms->{'main_window'}{'delete_part'}->signal_connect( 'clicked', "$class\::on_delete_part_clicked", '', 'delete_part', "main_window-$instance" );
    $forms->{'main_window'}{'add_shipping'}->signal_connect( 'clicked', "$class\::on_add_shipping_clicked", '', 'add_shipping', "main_window-$instance" );
    $forms->{'main_window'}{'delete_shipping'}->signal_connect( 'clicked', "$class\::on_delete_shipping_clicked", '', 'delete_shipping', "main_window-$instance" );
    $forms->{'main_window'}{'add_fund'}->signal_connect( 'clicked', "$class\::on_add_fund_clicked", '', 'add_fund', "main_window-$instance" );
    $forms->{'main_window'}{'delete_fund'}->signal_connect( 'clicked', "$class\::on_delete_fund_clicked", '', 'delete_fund', "main_window-$instance" );
    $forms->{'main_window'}{'toggle_billed'}->signal_connect( 'clicked', "$class\::on_toggle_billed_clicked", '', 'toggle_billed', "main_window-$instance" );
    $forms->{'main_window'}{'toggle_arrived'}->signal_connect( 'clicked', "$class\::on_toggle_arrived_clicked", '', 'toggle_arrived', "main_window-$instance" );
    $forms->{'main_window'}{'toggle_inventoried'}->signal_connect( 'clicked', "$class\::on_toggle_inventoried_clicked", '', 'toggle_inventoried', "main_window-$instance" );
    $forms->{'main_window'}{'no_inventory'}->signal_connect( 'clicked', "$class\::on_no_inventory_clicked", '', 'no_inventory', "main_window-$instance" );
    $forms->{'main_window'}{'import_paperwork'}->signal_connect( 'clicked', "$class\::on_import_paperwork_clicked", '', 'import_paperwork', "main_window-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'main_window'});
    $self->TOPLEVEL($self->FORM->{'main_window'});
    $self->INSTANCE("main_window-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'split_parts_window' class                              
#==============================================================================
package split_parts_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'split_parts_window' (version 0.01)
# 
# Copyright (c) Date Fri Jan 10 13:19:11 CST 2003
# Author Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.56 - Wed Apr 19 02:28:58 BST 2000
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ccdb.glade
# Fri Jan 10 13:19:11 CST 2003
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    # We need the Gnome bindings as well
    use Gnome;
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $VERSION
                 $AUTOLOAD
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $VERSION = '0.01';
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= 'pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORMS($new_value);      sets the value of FORMS
    #    $current_value = $class->FORMS; gets the current value of FORMS
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'CCDB',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@cookie.cs.wisc.edu>',
    DATE     => 'Fri Jan 10 13:19:11 CST 2003',
    INSTANCE => 'main_window',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_cancel_clicked' => undef,
    'on_move_all_left_clicked' => undef,
    'on_move_all_right_clicked' => undef,
    'on_move_some_left_clicked' => undef,
    'on_move_some_right_clicked' => undef,
    'on_ok_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{_permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('CCDB');
    # You can use the line below to load a test .mo file before it is
    # installed in the normal place (eg /usr/local/share/locale//LC_MESSAGES/CCDB.mo)
#    $class->load_translations('CCDB', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ppo/CCDB.mo');
    Gnome->init('CCDB', '0.01');
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        _permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"split_parts_window-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'split_parts_window'
    $widgets->{'split_parts_window'} = new Gtk::Window;
    $widgets->{'split_parts_window'}->set_title(_('Split Order') );
    $widgets->{'split_parts_window'}->set_name('split_parts_window');
    $widgets->{'split_parts_window'}->position('none' );
    $widgets->{'split_parts_window'}->set_policy(0, 1, 0 );
    $widgets->{'split_parts_window'}->set_modal(0 );
    $widgets->{'split_parts_window'}->set_usize(600, 0 );
    $widgets->{'split_parts_window'}->realize;
    $forms->{'split_parts_window'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'split_parts_window'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'split_parts_window'}{'accelgroup'}->attach($widgets->{'split_parts_window'} );
    $forms->{'split_parts_window'}{'split_parts_window'} = $widgets->{'split_parts_window'};
	#
	# Construct a GtkVBox 'vbox5'
	$widgets->{'vbox5'} = new Gtk::VBox(0, 8 );
	$widgets->{'vbox5'}->set_name('vbox5');
	$forms->{'split_parts_window'}{'split_parts_window'}->add($widgets->{'vbox5'} );
	$widgets->{'vbox5'}->show;
	$forms->{'split_parts_window'}{'vbox5'} = $widgets->{'vbox5'};
	$forms->{'split_parts_window'}{'vbox5'}->border_width(8 );
	    #
	    # Construct a GtkHBox 'hbox3'
	    $widgets->{'hbox3'} = new Gtk::HBox(0, 8 );
	    $widgets->{'hbox3'}->set_name('hbox3');
	    $forms->{'split_parts_window'}{'vbox5'}->add($widgets->{'hbox3'} );
	    $widgets->{'hbox3'}->show;
	    $forms->{'split_parts_window'}{'hbox3'} = $widgets->{'hbox3'};
		#
		# Construct a GtkVBox 'vbox7'
		$widgets->{'vbox7'} = new Gtk::VBox(0, 8 );
		$widgets->{'vbox7'}->set_name('vbox7');
		$forms->{'split_parts_window'}{'hbox3'}->add($widgets->{'vbox7'} );
		$widgets->{'vbox7'}->show;
		$forms->{'split_parts_window'}{'vbox7'} = $widgets->{'vbox7'};
		    #
		    # Construct a GtkLabel 'subject_1'
		    $widgets->{'subject_1'} = new Gtk::Label(_('Req #1 Subject'));
		    $widgets->{'subject_1'}->set_justify('center' );
		    $widgets->{'subject_1'}->set_line_wrap(0 );
		    $widgets->{'subject_1'}->set_name('subject_1');
		    $forms->{'split_parts_window'}{'vbox7'}->add($widgets->{'subject_1'} );
		    $widgets->{'subject_1'}->show;
		    $forms->{'split_parts_window'}{'subject_1'} = $widgets->{'subject_1'};
		    $forms->{'split_parts_window'}{'subject_1'}->set_alignment(0.5, 0.5 );
		    $forms->{'split_parts_window'}{'vbox7'}->set_child_packing($forms->{'split_parts_window'}{'subject_1'}, 0, 0, 0, 'start' );
		    #
		    # Construct a GtkScrolledWindow 'scrolledwindow4'
		    $widgets->{'scrolledwindow4'} = new Gtk::ScrolledWindow( undef, undef);
		    $widgets->{'scrolledwindow4'}->set_policy('automatic', 'automatic' );
		    $widgets->{'scrolledwindow4'}->border_width(0 );
		    $widgets->{'scrolledwindow4'}->hscrollbar->set_update_policy('continuous' );
		    $widgets->{'scrolledwindow4'}->vscrollbar->set_update_policy('continuous' );
		    $widgets->{'scrolledwindow4'}->set_name('scrolledwindow4');
		    $forms->{'split_parts_window'}{'vbox7'}->add($widgets->{'scrolledwindow4'} );
		    $widgets->{'scrolledwindow4'}->show;
		    $forms->{'split_parts_window'}{'scrolledwindow4'} = $widgets->{'scrolledwindow4'};
			#
			# Construct a GtkCList 'part_list_1'
			$widgets->{'part_list_1'} = new Gtk::CList(2 );
			$widgets->{'part_list_1'}->set_selection_mode('single' );
			$widgets->{'part_list_1'}->set_border('in' );
			$widgets->{'part_list_1'}->set_name('part_list_1');
			$widgets->{'part_list_1'}->column_titles_show;
			$widgets->{'part_list_1'}->set_column_width(0, 111 );
			$widgets->{'part_list_1'}->set_column_width(1, 5 );
			$forms->{'split_parts_window'}{'scrolledwindow4'}->add($widgets->{'part_list_1'} );
			$widgets->{'part_list_1'}->show;
			$forms->{'split_parts_window'}{'part_list_1'} = $widgets->{'part_list_1'};
			$forms->{'split_parts_window'}{'part_list_1'}->can_focus(1 );
			    #
			    # Construct a GtkLabel 'label47'
			    $widgets->{'label47'} = new Gtk::Label(_('Part'));
			    $widgets->{'label47'}->set_justify('center' );
			    $widgets->{'label47'}->set_line_wrap(0 );
			    $widgets->{'label47'}->set_name('label47');
			    $forms->{'split_parts_window'}{'part_list_1'}->set_column_widget(0, $widgets->{'label47'} );
			    $widgets->{'label47'}->show;
			    $forms->{'split_parts_window'}{'label47'} = $widgets->{'label47'};
			    $forms->{'split_parts_window'}{'label47'}->set_alignment(0.5, 0.5 );
			    #
			    # Construct a GtkLabel 'label48'
			    $widgets->{'label48'} = new Gtk::Label(_('Quantity'));
			    $widgets->{'label48'}->set_justify('center' );
			    $widgets->{'label48'}->set_line_wrap(0 );
			    $widgets->{'label48'}->set_name('label48');
			    $forms->{'split_parts_window'}{'part_list_1'}->set_column_widget(1, $widgets->{'label48'} );
			    $widgets->{'label48'}->show;
			    $forms->{'split_parts_window'}{'label48'} = $widgets->{'label48'};
			    $forms->{'split_parts_window'}{'label48'}->set_alignment(0.5, 0.5 );
		    $forms->{'split_parts_window'}{'vbox7'}->set_child_packing($forms->{'split_parts_window'}{'scrolledwindow4'}, 1, 1, 0, 'start' );
		$forms->{'split_parts_window'}{'hbox3'}->set_child_packing($forms->{'split_parts_window'}{'vbox7'}, 1, 1, 0, 'start' );
		#
		# Construct a GtkVBox 'vbox6'
		$widgets->{'vbox6'} = new Gtk::VBox(0, 8 );
		$widgets->{'vbox6'}->set_name('vbox6');
		$forms->{'split_parts_window'}{'hbox3'}->add($widgets->{'vbox6'} );
		$widgets->{'vbox6'}->show;
		$forms->{'split_parts_window'}{'vbox6'} = $widgets->{'vbox6'};
		    #
		    # Construct a GtkEntry 'quantity'
		    $widgets->{'quantity'} = new Gtk::Entry;
		    $widgets->{'quantity'}->set_name('quantity');
		    $forms->{'split_parts_window'}{'vbox6'}->add($widgets->{'quantity'} );
		    $widgets->{'quantity'}->show;
		    $forms->{'split_parts_window'}{'quantity'} = $widgets->{'quantity'};
		    $forms->{'split_parts_window'}{'quantity'}->can_focus(1 );
		    $forms->{'split_parts_window'}{'quantity'}->set_text(_('') );
		    $forms->{'split_parts_window'}{'quantity'}->set_max_length(0 );
		    $forms->{'split_parts_window'}{'quantity'}->set_visibility(1 );
		    $forms->{'split_parts_window'}{'quantity'}->set_editable(1 );
		    $forms->{'split_parts_window'}{'vbox6'}->set_child_packing($forms->{'split_parts_window'}{'quantity'}, 0, 0, 0, 'start' );
		    #
		    # Construct a GtkButton 'move_some_right'
		    $widgets->{'move_some_right'} = new Gtk::Button(_('Move Some >'));
		    $widgets->{'move_some_right'}->set_name('move_some_right');
		    $forms->{'split_parts_window'}{'vbox6'}->add($widgets->{'move_some_right'} );
		    $widgets->{'move_some_right'}->show;
		    $forms->{'split_parts_window'}{'move_some_right'} = $widgets->{'move_some_right'};
		    $forms->{'split_parts_window'}{'move_some_right'}->can_focus(1 );
		    $forms->{'split_parts_window'}{'vbox6'}->set_child_packing($forms->{'split_parts_window'}{'move_some_right'}, 0, 0, 0, 'start' );
		    #
		    # Construct a GtkButton 'move_some_left'
		    $widgets->{'move_some_left'} = new Gtk::Button(_('< Move Some'));
		    $widgets->{'move_some_left'}->set_name('move_some_left');
		    $forms->{'split_parts_window'}{'vbox6'}->add($widgets->{'move_some_left'} );
		    $widgets->{'move_some_left'}->show;
		    $forms->{'split_parts_window'}{'move_some_left'} = $widgets->{'move_some_left'};
		    $forms->{'split_parts_window'}{'move_some_left'}->can_focus(1 );
		    $forms->{'split_parts_window'}{'vbox6'}->set_child_packing($forms->{'split_parts_window'}{'move_some_left'}, 0, 0, 0, 'start' );
		    #
		    # Construct a GtkButton 'move_all_right'
		    $widgets->{'move_all_right'} = new Gtk::Button(_('Move All >'));
		    $widgets->{'move_all_right'}->set_name('move_all_right');
		    $forms->{'split_parts_window'}{'vbox6'}->add($widgets->{'move_all_right'} );
		    $widgets->{'move_all_right'}->show;
		    $forms->{'split_parts_window'}{'move_all_right'} = $widgets->{'move_all_right'};
		    $forms->{'split_parts_window'}{'move_all_right'}->can_focus(1 );
		    $forms->{'split_parts_window'}{'vbox6'}->set_child_packing($forms->{'split_parts_window'}{'move_all_right'}, 0, 0, 0, 'start' );
		    #
		    # Construct a GtkButton 'move_all_left'
		    $widgets->{'move_all_left'} = new Gtk::Button(_('< Move All'));
		    $widgets->{'move_all_left'}->set_name('move_all_left');
		    $forms->{'split_parts_window'}{'vbox6'}->add($widgets->{'move_all_left'} );
		    $widgets->{'move_all_left'}->show;
		    $forms->{'split_parts_window'}{'move_all_left'} = $widgets->{'move_all_left'};
		    $forms->{'split_parts_window'}{'move_all_left'}->can_focus(1 );
		    $forms->{'split_parts_window'}{'vbox6'}->set_child_packing($forms->{'split_parts_window'}{'move_all_left'}, 0, 0, 0, 'start' );
		$forms->{'split_parts_window'}{'hbox3'}->set_child_packing($forms->{'split_parts_window'}{'vbox6'}, 0, 0, 0, 'start' );
		#
		# Construct a GtkVBox 'vbox8'
		$widgets->{'vbox8'} = new Gtk::VBox(0, 8 );
		$widgets->{'vbox8'}->set_name('vbox8');
		$forms->{'split_parts_window'}{'hbox3'}->add($widgets->{'vbox8'} );
		$widgets->{'vbox8'}->show;
		$forms->{'split_parts_window'}{'vbox8'} = $widgets->{'vbox8'};
		    #
		    # Construct a GtkLabel 'subject_2'
		    $widgets->{'subject_2'} = new Gtk::Label(_('Req #2 Subject'));
		    $widgets->{'subject_2'}->set_justify('center' );
		    $widgets->{'subject_2'}->set_line_wrap(0 );
		    $widgets->{'subject_2'}->set_name('subject_2');
		    $forms->{'split_parts_window'}{'vbox8'}->add($widgets->{'subject_2'} );
		    $widgets->{'subject_2'}->show;
		    $forms->{'split_parts_window'}{'subject_2'} = $widgets->{'subject_2'};
		    $forms->{'split_parts_window'}{'subject_2'}->set_alignment(0.5, 0.5 );
		    $forms->{'split_parts_window'}{'vbox8'}->set_child_packing($forms->{'split_parts_window'}{'subject_2'}, 0, 0, 0, 'start' );
		    #
		    # Construct a GtkScrolledWindow 'scrolledwindow5'
		    $widgets->{'scrolledwindow5'} = new Gtk::ScrolledWindow( undef, undef);
		    $widgets->{'scrolledwindow5'}->set_policy('automatic', 'automatic' );
		    $widgets->{'scrolledwindow5'}->border_width(0 );
		    $widgets->{'scrolledwindow5'}->hscrollbar->set_update_policy('continuous' );
		    $widgets->{'scrolledwindow5'}->vscrollbar->set_update_policy('continuous' );
		    $widgets->{'scrolledwindow5'}->set_name('scrolledwindow5');
		    $forms->{'split_parts_window'}{'vbox8'}->add($widgets->{'scrolledwindow5'} );
		    $widgets->{'scrolledwindow5'}->show;
		    $forms->{'split_parts_window'}{'scrolledwindow5'} = $widgets->{'scrolledwindow5'};
			#
			# Construct a GtkCList 'part_list_2'
			$widgets->{'part_list_2'} = new Gtk::CList(2 );
			$widgets->{'part_list_2'}->set_selection_mode('single' );
			$widgets->{'part_list_2'}->set_border('in' );
			$widgets->{'part_list_2'}->set_name('part_list_2');
			$widgets->{'part_list_2'}->column_titles_show;
			$widgets->{'part_list_2'}->set_column_width(0, 113 );
			$widgets->{'part_list_2'}->set_column_width(1, 17 );
			$forms->{'split_parts_window'}{'scrolledwindow5'}->add($widgets->{'part_list_2'} );
			$widgets->{'part_list_2'}->show;
			$forms->{'split_parts_window'}{'part_list_2'} = $widgets->{'part_list_2'};
			$forms->{'split_parts_window'}{'part_list_2'}->can_focus(1 );
			    #
			    # Construct a GtkLabel 'label49'
			    $widgets->{'label49'} = new Gtk::Label(_('Part'));
			    $widgets->{'label49'}->set_justify('center' );
			    $widgets->{'label49'}->set_line_wrap(0 );
			    $widgets->{'label49'}->set_name('label49');
			    $forms->{'split_parts_window'}{'part_list_2'}->set_column_widget(0, $widgets->{'label49'} );
			    $widgets->{'label49'}->show;
			    $forms->{'split_parts_window'}{'label49'} = $widgets->{'label49'};
			    $forms->{'split_parts_window'}{'label49'}->set_alignment(0.5, 0.5 );
			    #
			    # Construct a GtkLabel 'label50'
			    $widgets->{'label50'} = new Gtk::Label(_('Quantity'));
			    $widgets->{'label50'}->set_justify('center' );
			    $widgets->{'label50'}->set_line_wrap(0 );
			    $widgets->{'label50'}->set_name('label50');
			    $forms->{'split_parts_window'}{'part_list_2'}->set_column_widget(1, $widgets->{'label50'} );
			    $widgets->{'label50'}->show;
			    $forms->{'split_parts_window'}{'label50'} = $widgets->{'label50'};
			    $forms->{'split_parts_window'}{'label50'}->set_alignment(0.5, 0.5 );
		    $forms->{'split_parts_window'}{'vbox8'}->set_child_packing($forms->{'split_parts_window'}{'scrolledwindow5'}, 1, 1, 0, 'start' );
		$forms->{'split_parts_window'}{'hbox3'}->set_child_packing($forms->{'split_parts_window'}{'vbox8'}, 1, 1, 0, 'start' );
	    $forms->{'split_parts_window'}{'vbox5'}->set_child_packing($forms->{'split_parts_window'}{'hbox3'}, 1, 1, 0, 'start' );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox11'
	    $widgets->{'hbuttonbox11'} = new Gtk::HButtonBox;
	    $widgets->{'hbuttonbox11'}->set_name('hbuttonbox11');
	    $forms->{'split_parts_window'}{'vbox5'}->add($widgets->{'hbuttonbox11'} );
	    $widgets->{'hbuttonbox11'}->show;
	    $forms->{'split_parts_window'}{'hbuttonbox11'} = $widgets->{'hbuttonbox11'};
	    $forms->{'split_parts_window'}{'hbuttonbox11'}->set_layout('spread' );
	    $forms->{'split_parts_window'}{'hbuttonbox11'}->set_spacing(30 );
	    $forms->{'split_parts_window'}{'hbuttonbox11'}->set_child_size(85, 27 );
	    $forms->{'split_parts_window'}{'hbuttonbox11'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'ok'
		$widgets->{'ok'} = new Gtk::Button(_('Ok'));
		$widgets->{'ok'}->set_name('ok');
		$forms->{'split_parts_window'}{'hbuttonbox11'}->add($widgets->{'ok'} );
		$widgets->{'ok'}->show;
		$forms->{'split_parts_window'}{'ok'} = $widgets->{'ok'};
		$forms->{'split_parts_window'}{'ok'}->can_default(1 );
		$forms->{'split_parts_window'}{'ok'}->can_focus(1 );
		#
		# Construct a GtkButton 'cancel'
		$widgets->{'cancel'} = new Gtk::Button(_('Cancel'));
		$widgets->{'cancel'}->set_name('cancel');
		$forms->{'split_parts_window'}{'hbuttonbox11'}->add($widgets->{'cancel'} );
		$widgets->{'cancel'}->show;
		$forms->{'split_parts_window'}{'cancel'} = $widgets->{'cancel'};
		$forms->{'split_parts_window'}{'cancel'}->can_default(1 );
		$forms->{'split_parts_window'}{'cancel'}->can_focus(1 );
	    $forms->{'split_parts_window'}{'vbox5'}->set_child_packing($forms->{'split_parts_window'}{'hbuttonbox11'}, 0, 0, 0, 'start' );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'split_parts_window'}{'move_some_right'}->signal_connect( 'clicked', "$class\::on_move_some_right_clicked", '', 'move_some_right', "split_parts_window-$instance" );
    $forms->{'split_parts_window'}{'move_some_left'}->signal_connect( 'clicked', "$class\::on_move_some_left_clicked", '', 'move_some_left', "split_parts_window-$instance" );
    $forms->{'split_parts_window'}{'move_all_right'}->signal_connect( 'clicked', "$class\::on_move_all_right_clicked", '', 'move_all_right', "split_parts_window-$instance" );
    $forms->{'split_parts_window'}{'move_all_left'}->signal_connect( 'clicked', "$class\::on_move_all_left_clicked", '', 'move_all_left', "split_parts_window-$instance" );
    $forms->{'split_parts_window'}{'ok'}->signal_connect( 'clicked', "$class\::on_ok_clicked", '', 'ok', "split_parts_window-$instance" );
    $forms->{'split_parts_window'}{'cancel'}->signal_connect( 'clicked', "$class\::on_cancel_clicked", '', 'cancel', "split_parts_window-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'split_parts_window'});
    $self->TOPLEVEL($self->FORM->{'split_parts_window'});
    $self->INSTANCE("split_parts_window-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'part_window' class                              
#==============================================================================
package part_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'part_window' (version 0.01)
# 
# Copyright (c) Date Fri Jan 10 13:19:11 CST 2003
# Author Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.56 - Wed Apr 19 02:28:58 BST 2000
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ccdb.glade
# Fri Jan 10 13:19:11 CST 2003
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    # We need the Gnome bindings as well
    use Gnome;
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $VERSION
                 $AUTOLOAD
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $VERSION = '0.01';
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= 'pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORMS($new_value);      sets the value of FORMS
    #    $current_value = $class->FORMS; gets the current value of FORMS
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'CCDB',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@cookie.cs.wisc.edu>',
    DATE     => 'Fri Jan 10 13:19:11 CST 2003',
    INSTANCE => 'main_window',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_cancel_clicked' => undef,
    'on_ok_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{_permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('CCDB');
    # You can use the line below to load a test .mo file before it is
    # installed in the normal place (eg /usr/local/share/locale//LC_MESSAGES/CCDB.mo)
#    $class->load_translations('CCDB', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ppo/CCDB.mo');
    Gnome->init('CCDB', '0.01');
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        _permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"part_window-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'part_window'
    $widgets->{'part_window'} = new Gtk::Window;
    $widgets->{'part_window'}->set_title(_('Add/Modify Part') );
    $widgets->{'part_window'}->set_name('part_window');
    $widgets->{'part_window'}->position('none' );
    $widgets->{'part_window'}->set_policy(0, 1, 0 );
    $widgets->{'part_window'}->set_modal(0 );
    $widgets->{'part_window'}->set_usize(400, 0 );
    $widgets->{'part_window'}->realize;
    $forms->{'part_window'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'part_window'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'part_window'}{'accelgroup'}->attach($widgets->{'part_window'} );
    $forms->{'part_window'}{'part_window'} = $widgets->{'part_window'};
	#
	# Construct a GtkTable 'table2'
	$widgets->{'table2'} = new Gtk::Table(4, 2, 0 );
	$widgets->{'table2'}->set_row_spacings(8 );
	$widgets->{'table2'}->set_col_spacings(4 );
	$widgets->{'table2'}->set_name('table2');
	$forms->{'part_window'}{'part_window'}->add($widgets->{'table2'} );
	$widgets->{'table2'}->show;
	$forms->{'part_window'}{'table2'} = $widgets->{'table2'};
	$forms->{'part_window'}{'table2'}->border_width(8 );
	    #
	    # Construct a GtkLabel 'label31'
	    $widgets->{'label31'} = new Gtk::Label(_('Part Description:'));
	    $widgets->{'label31'}->set_justify('center' );
	    $widgets->{'label31'}->set_line_wrap(0 );
	    $widgets->{'label31'}->set_name('label31');
	    $forms->{'part_window'}{'table2'}->attach($widgets->{'label31'}, 0, 1, 0, 1, ['fill'], [], 0, 0 );
	    $widgets->{'label31'}->show;
	    $forms->{'part_window'}{'label31'} = $widgets->{'label31'};
	    $forms->{'part_window'}{'label31'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkLabel 'label32'
	    $widgets->{'label32'} = new Gtk::Label(_('Unit Cost:'));
	    $widgets->{'label32'}->set_justify('center' );
	    $widgets->{'label32'}->set_line_wrap(0 );
	    $widgets->{'label32'}->set_name('label32');
	    $forms->{'part_window'}{'table2'}->attach($widgets->{'label32'}, 0, 1, 1, 2, ['fill'], [], 0, 0 );
	    $widgets->{'label32'}->show;
	    $forms->{'part_window'}{'label32'} = $widgets->{'label32'};
	    $forms->{'part_window'}{'label32'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkLabel 'label33'
	    $widgets->{'label33'} = new Gtk::Label(_('Quantity'));
	    $widgets->{'label33'}->set_justify('center' );
	    $widgets->{'label33'}->set_line_wrap(0 );
	    $widgets->{'label33'}->set_name('label33');
	    $forms->{'part_window'}{'table2'}->attach($widgets->{'label33'}, 0, 1, 2, 3, ['fill'], [], 0, 0 );
	    $widgets->{'label33'}->show;
	    $forms->{'part_window'}{'label33'} = $widgets->{'label33'};
	    $forms->{'part_window'}{'label33'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkEntry 'part_desc'
	    $widgets->{'part_desc'} = new Gtk::Entry;
	    $widgets->{'part_desc'}->set_name('part_desc');
	    $forms->{'part_window'}{'table2'}->attach($widgets->{'part_desc'}, 1, 2, 0, 1, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'part_desc'}->show;
	    $forms->{'part_window'}{'part_desc'} = $widgets->{'part_desc'};
	    $forms->{'part_window'}{'part_desc'}->can_focus(1 );
	    $forms->{'part_window'}{'part_desc'}->set_text(_('') );
	    $forms->{'part_window'}{'part_desc'}->set_max_length(0 );
	    $forms->{'part_window'}{'part_desc'}->set_visibility(1 );
	    $forms->{'part_window'}{'part_desc'}->set_editable(1 );
	    #
	    # Construct a GtkEntry 'cost'
	    $widgets->{'cost'} = new Gtk::Entry;
	    $widgets->{'cost'}->set_name('cost');
	    $forms->{'part_window'}{'table2'}->attach($widgets->{'cost'}, 1, 2, 1, 2, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'cost'}->show;
	    $forms->{'part_window'}{'cost'} = $widgets->{'cost'};
	    $forms->{'part_window'}{'cost'}->can_focus(1 );
	    $forms->{'part_window'}{'cost'}->set_text(_('') );
	    $forms->{'part_window'}{'cost'}->set_max_length(0 );
	    $forms->{'part_window'}{'cost'}->set_visibility(1 );
	    $forms->{'part_window'}{'cost'}->set_editable(1 );
	    #
	    # Construct a GtkEntry 'quantity'
	    $widgets->{'quantity'} = new Gtk::Entry;
	    $widgets->{'quantity'}->set_name('quantity');
	    $forms->{'part_window'}{'table2'}->attach($widgets->{'quantity'}, 1, 2, 2, 3, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'quantity'}->show;
	    $forms->{'part_window'}{'quantity'} = $widgets->{'quantity'};
	    $forms->{'part_window'}{'quantity'}->can_focus(1 );
	    $forms->{'part_window'}{'quantity'}->set_text(_('') );
	    $forms->{'part_window'}{'quantity'}->set_max_length(0 );
	    $forms->{'part_window'}{'quantity'}->set_visibility(1 );
	    $forms->{'part_window'}{'quantity'}->set_editable(1 );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox5'
	    $widgets->{'hbuttonbox5'} = new Gtk::HButtonBox;
	    $widgets->{'hbuttonbox5'}->set_name('hbuttonbox5');
	    $forms->{'part_window'}{'table2'}->attach($widgets->{'hbuttonbox5'}, 0, 2, 3, 4, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'hbuttonbox5'}->show;
	    $forms->{'part_window'}{'hbuttonbox5'} = $widgets->{'hbuttonbox5'};
	    $forms->{'part_window'}{'hbuttonbox5'}->set_layout('spread' );
	    $forms->{'part_window'}{'hbuttonbox5'}->set_spacing(30 );
	    $forms->{'part_window'}{'hbuttonbox5'}->set_child_size(85, 27 );
	    $forms->{'part_window'}{'hbuttonbox5'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'ok'
		$widgets->{'ok'} = new Gtk::Button(_('Ok'));
		$widgets->{'ok'}->set_name('ok');
		$forms->{'part_window'}{'hbuttonbox5'}->add($widgets->{'ok'} );
		$widgets->{'ok'}->show;
		$forms->{'part_window'}{'ok'} = $widgets->{'ok'};
		$forms->{'part_window'}{'ok'}->can_default(1 );
		$forms->{'part_window'}{'ok'}->can_focus(1 );
		#
		# Construct a GtkButton 'cancel'
		$widgets->{'cancel'} = new Gtk::Button(_('Cancel'));
		$widgets->{'cancel'}->set_name('cancel');
		$forms->{'part_window'}{'hbuttonbox5'}->add($widgets->{'cancel'} );
		$widgets->{'cancel'}->show;
		$forms->{'part_window'}{'cancel'} = $widgets->{'cancel'};
		$forms->{'part_window'}{'cancel'}->can_default(1 );
		$forms->{'part_window'}{'cancel'}->can_focus(1 );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'part_window'}{'ok'}->signal_connect( 'clicked', "$class\::on_ok_clicked", '', 'ok', "part_window-$instance" );
    $forms->{'part_window'}{'cancel'}->signal_connect( 'clicked', "$class\::on_cancel_clicked", '', 'cancel', "part_window-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'part_window'});
    $self->TOPLEVEL($self->FORM->{'part_window'});
    $self->INSTANCE("part_window-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    return $self;
} # End of sub new









#==============================================================================
#=== This is the 'convert_req_window' class                              
#==============================================================================
package convert_req_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'convert_req_window' (version 0.01)
# 
# Copyright (c) Date Fri Jan 10 13:19:11 CST 2003
# Author Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@cookie.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.56 - Wed Apr 19 02:28:58 BST 2000
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ccdb.glade
# Fri Jan 10 13:19:11 CST 2003
#==============================================================================

BEGIN {
    # Run-time utilities and vars
    use Glade::PerlRun; 
    # Existing signal handler modules
    # We need the Gnome bindings as well
    use Gnome;
    use vars qw( 
                 @ISA
                 %fields
                 %stubs
                 $VERSION
                 $AUTOLOAD
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $VERSION = '0.01';
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= 'pixmaps';

%fields = (
    # These are the data fields that you can set/get using the dynamic
    # calls provided by AUTOLOAD (and their initial values).
    # eg $class->FORMS($new_value);      sets the value of FORMS
    #    $current_value = $class->FORMS; gets the current value of FORMS
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'CCDB',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@cookie.cs.wisc.edu>',
    DATE     => 'Fri Jan 10 13:19:11 CST 2003',
    INSTANCE => 'main_window',
    CLASS_HIERARCHY => undef,
    WIDGET_HIERARCHY => undef,
);

%stubs = (
    # These are signal handlers that will cause a message_box to be
    # displayed by AUTOLOAD if there is not already a sub of that name
    # in any module specified in 'use_modules'.

    'on_button22_clicked' => undef,
    'on_ok_clicked' => undef,
);

sub AUTOLOAD {
    my $self = shift;
    my $type = ref($self)
        or die "$self is not an object so we cannot '$AUTOLOAD'\n",
            "We were called from ".join(", ", caller)."\n\n";
    my $name = $AUTOLOAD;
    $name =~ s/.*://;       # strip fully-qualified portion

    if (exists $self->{_permitted_fields}->{$name} ) {
        # This allows dynamic data methods - see hash fields above
        # eg $class->UI('new_value');
        # or $current_value = $class->UI;
        if (@_) {
            return $self->{$name} = shift;
        } else {
            return $self->{$name};
        }

    } elsif (exists $stubs{$name} ) {
        # This shows dynamic signal handler stub message_box - see hash stubs above
        __PACKAGE__->show_skeleton_message(
            $AUTOLOAD."\n ("._("AUTOLOADED by")." ".__PACKAGE__.")", 
            [$self, @_], 
            __PACKAGE__, 
            'glade2perl_logo.xpm');
        
    } else {
        die "Can't access method `$name' in class $type\n".
            "We were called from ".join(", ", caller)."\n\n";

    }
} # End of sub AUTOLOAD

sub run {
    my ($class) = @_;
    $class->load_translations('CCDB');
    # You can use the line below to load a test .mo file before it is
    # installed in the normal place (eg /usr/local/share/locale//LC_MESSAGES/CCDB.mo)
#    $class->load_translations('CCDB', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/ccdb-1/ppo/CCDB.mo');
    Gnome->init('CCDB', '0.01');
    my $window = $class->new;
    $window->TOPLEVEL->show;
    Gtk->main;
} # End of sub run

sub DESTROY {
    # This sub will be called on object destruction
} # End of sub DESTROY

sub new {
#
# This sub will create the UI window
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {
        _permitted_fields   => \%fields, %fields,
        _permitted_stubs    => \%stubs,  %stubs,
    };
    my ($forms, $widgets, $data, $work);
    my $instance = 1;
    # Get a unique toplevel widget structure
    while (defined $__PACKAGE__::all_forms->{"convert_req_window-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'convert_req_window'
    $widgets->{'convert_req_window'} = new Gtk::Window;
    $widgets->{'convert_req_window'}->set_title(_('Convert Req') );
    $widgets->{'convert_req_window'}->set_name('convert_req_window');
    $widgets->{'convert_req_window'}->position('none' );
    $widgets->{'convert_req_window'}->set_policy(1, 1, 0 );
    $widgets->{'convert_req_window'}->set_modal(0 );
    $widgets->{'convert_req_window'}->realize;
    $forms->{'convert_req_window'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'convert_req_window'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'convert_req_window'}{'accelgroup'}->attach($widgets->{'convert_req_window'} );
    $forms->{'convert_req_window'}{'convert_req_window'} = $widgets->{'convert_req_window'};
	#
	# Construct a GtkTable 'cancel'
	$widgets->{'cancel'} = new Gtk::Table(6, 4, 0 );
	$widgets->{'cancel'}->set_row_spacings(8 );
	$widgets->{'cancel'}->set_col_spacings(4 );
	$widgets->{'cancel'}->set_name('cancel');
	$forms->{'convert_req_window'}{'convert_req_window'}->add($widgets->{'cancel'} );
	$widgets->{'cancel'}->show;
	$forms->{'convert_req_window'}{'cancel'} = $widgets->{'cancel'};
	$forms->{'convert_req_window'}{'cancel'}->border_width(8 );
	    #
	    # Construct a GtkLabel 'label30'
	    $widgets->{'label30'} = new Gtk::Label(_('Parent Req Numbert:'));
	    $widgets->{'label30'}->set_justify('center' );
	    $widgets->{'label30'}->set_line_wrap(0 );
	    $widgets->{'label30'}->set_name('label30');
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'label30'}, 1, 2, 0, 1, ['fill'], [], 0, 0 );
	    $widgets->{'label30'}->show;
	    $forms->{'convert_req_window'}{'label30'} = $widgets->{'label30'};
	    $forms->{'convert_req_window'}{'label30'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkEntry 'req_number'
	    $widgets->{'req_number'} = new Gtk::Entry;
	    $widgets->{'req_number'}->set_name('req_number');
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'req_number'}, 2, 3, 0, 1, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'req_number'}->show;
	    $forms->{'convert_req_window'}{'req_number'} = $widgets->{'req_number'};
	    $forms->{'convert_req_window'}{'req_number'}->can_focus(1 );
	    $forms->{'convert_req_window'}{'req_number'}->set_text(_('') );
	    $forms->{'convert_req_window'}{'req_number'}->set_max_length(0 );
	    $forms->{'convert_req_window'}{'req_number'}->set_visibility(1 );
	    $forms->{'convert_req_window'}{'req_number'}->set_editable(1 );
	    #
	    # Construct a GtkLabel 'label51'
	    $widgets->{'label51'} = new Gtk::Label(_('Vendor:'));
	    $widgets->{'label51'}->set_justify('center' );
	    $widgets->{'label51'}->set_line_wrap(0 );
	    $widgets->{'label51'}->set_name('label51');
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'label51'}, 1, 2, 2, 3, ['fill'], [], 0, 0 );
	    $widgets->{'label51'}->show;
	    $forms->{'convert_req_window'}{'label51'} = $widgets->{'label51'};
	    $forms->{'convert_req_window'}{'label51'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkEntry 'vendor'
	    $widgets->{'vendor'} = new Gtk::Entry;
	    $widgets->{'vendor'}->set_name('vendor');
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'vendor'}, 2, 3, 2, 3, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'vendor'}->show;
	    $forms->{'convert_req_window'}{'vendor'} = $widgets->{'vendor'};
	    $forms->{'convert_req_window'}{'vendor'}->can_focus(1 );
	    $forms->{'convert_req_window'}{'vendor'}->set_text(_('') );
	    $forms->{'convert_req_window'}{'vendor'}->set_max_length(0 );
	    $forms->{'convert_req_window'}{'vendor'}->set_visibility(1 );
	    $forms->{'convert_req_window'}{'vendor'}->set_editable(1 );
	    #
	    # Construct a GtkLabel 'label54'
	    $widgets->{'label54'} = new Gtk::Label(_('Child Subject:'));
	    $widgets->{'label54'}->set_justify('center' );
	    $widgets->{'label54'}->set_line_wrap(0 );
	    $widgets->{'label54'}->set_name('label54');
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'label54'}, 1, 2, 1, 2, ['fill'], [], 0, 0 );
	    $widgets->{'label54'}->show;
	    $forms->{'convert_req_window'}{'label54'} = $widgets->{'label54'};
	    $forms->{'convert_req_window'}{'label54'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkEntry 'subject'
	    $widgets->{'subject'} = new Gtk::Entry;
	    $widgets->{'subject'}->set_name('subject');
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'subject'}, 2, 3, 1, 2, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'subject'}->show;
	    $forms->{'convert_req_window'}{'subject'} = $widgets->{'subject'};
	    $forms->{'convert_req_window'}{'subject'}->can_focus(1 );
	    $forms->{'convert_req_window'}{'subject'}->set_text(_('') );
	    $forms->{'convert_req_window'}{'subject'}->set_max_length(0 );
	    $forms->{'convert_req_window'}{'subject'}->set_visibility(1 );
	    $forms->{'convert_req_window'}{'subject'}->set_editable(1 );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox8'
	    $widgets->{'hbuttonbox8'} = new Gtk::HButtonBox;
	    $widgets->{'hbuttonbox8'}->set_name('hbuttonbox8');
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'hbuttonbox8'}, 0, 4, 5, 6, ['expand', 'fill'], ['expand', 'fill'], 0, 0 );
	    $widgets->{'hbuttonbox8'}->show;
	    $forms->{'convert_req_window'}{'hbuttonbox8'} = $widgets->{'hbuttonbox8'};
	    $forms->{'convert_req_window'}{'hbuttonbox8'}->set_layout('spread' );
	    $forms->{'convert_req_window'}{'hbuttonbox8'}->set_spacing(30 );
	    $forms->{'convert_req_window'}{'hbuttonbox8'}->set_child_size(85, 27 );
	    $forms->{'convert_req_window'}{'hbuttonbox8'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'ok'
		$widgets->{'ok'} = new Gtk::Button(_('Ok'));
		$widgets->{'ok'}->set_name('ok');
		$forms->{'convert_req_window'}{'hbuttonbox8'}->add($widgets->{'ok'} );
		$widgets->{'ok'}->show;
		$forms->{'convert_req_window'}{'ok'} = $widgets->{'ok'};
		$forms->{'convert_req_window'}{'ok'}->can_default(1 );
		$forms->{'convert_req_window'}{'ok'}->can_focus(1 );
		#
		# Construct a GtkButton 'button22'
		$widgets->{'button22'} = new Gtk::Button(_('Cancel'));
		$widgets->{'button22'}->set_name('button22');
		$forms->{'convert_req_window'}{'hbuttonbox8'}->add($widgets->{'button22'} );
		$widgets->{'button22'}->show;
		$forms->{'convert_req_window'}{'button22'} = $widgets->{'button22'};
		$forms->{'convert_req_window'}{'button22'}->can_default(1 );
		$forms->{'convert_req_window'}{'button22'}->can_focus(1 );
	    #
	    # Construct a GtkLabel 'label53'
	    $widgets->{'label53'} = new Gtk::Label(_('Card:'));
	    $widgets->{'label53'}->set_justify('center' );
	    $widgets->{'label53'}->set_line_wrap(0 );
	    $widgets->{'label53'}->set_name('label53');
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'label53'}, 1, 2, 4, 5, ['fill'], [], 0, 0 );
	    $widgets->{'label53'}->show;
	    $forms->{'convert_req_window'}{'label53'} = $widgets->{'label53'};
	    $forms->{'convert_req_window'}{'label53'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkVBox 'vbox10'
	    $widgets->{'vbox10'} = new Gtk::VBox(0, 0 );
	    $widgets->{'vbox10'}->set_name('vbox10');
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'vbox10'}, 2, 3, 4, 5, ['fill'], ['fill'], 0, 0 );
	    $widgets->{'vbox10'}->show;
	    $forms->{'convert_req_window'}{'vbox10'} = $widgets->{'vbox10'};
		#
		# Construct a GtkRadioButton 'beebe_card'
		$widgets->{'beebe_card'} = new Gtk::RadioButton(_('Beebe') );
		$forms->{'convert_req_window'}{'rb-group-pc_card'} = $widgets->{'beebe_card'};
		$widgets->{'beebe_card'}->set_name('beebe_card');
		$forms->{'convert_req_window'}{'vbox10'}->add($widgets->{'beebe_card'} );
		$widgets->{'beebe_card'}->show;
		$forms->{'convert_req_window'}{'beebe_card'} = $widgets->{'beebe_card'};
		$forms->{'convert_req_window'}{'beebe_card'}->can_focus(1 );
		$forms->{'convert_req_window'}{'beebe_card'}->set_mode(1 );
		$forms->{'convert_req_window'}{'beebe_card'}->set_state(0 );
		$forms->{'convert_req_window'}{'vbox10'}->set_child_packing($forms->{'convert_req_window'}{'beebe_card'}, 0, 0, 0, 'start' );
		#
		# Construct a GtkRadioButton 'parter_card'
		$widgets->{'parter_card'} = new Gtk::RadioButton(_('Parter'), $forms->{'convert_req_window'}{'rb-group-pc_card'} );
		$widgets->{'parter_card'}->set_name('parter_card');
		$forms->{'convert_req_window'}{'vbox10'}->add($widgets->{'parter_card'} );
		$widgets->{'parter_card'}->show;
		$forms->{'convert_req_window'}{'parter_card'} = $widgets->{'parter_card'};
		$forms->{'convert_req_window'}{'parter_card'}->can_focus(1 );
		$forms->{'convert_req_window'}{'parter_card'}->set_mode(1 );
		$forms->{'convert_req_window'}{'parter_card'}->set_state(0 );
		$forms->{'convert_req_window'}{'vbox10'}->set_child_packing($forms->{'convert_req_window'}{'parter_card'}, 0, 0, 0, 'start' );
	    #
	    # Construct a GtkLabel 'label55'
	    $widgets->{'label55'} = new Gtk::Label(_('Who Pays:'));
	    $widgets->{'label55'}->set_justify('center' );
	    $widgets->{'label55'}->set_line_wrap(0 );
	    $widgets->{'label55'}->set_name('label55');
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'label55'}, 1, 2, 3, 4, ['fill'], [], 0, 0 );
	    $widgets->{'label55'}->show;
	    $forms->{'convert_req_window'}{'label55'} = $widgets->{'label55'};
	    $forms->{'convert_req_window'}{'label55'}->set_alignment(0, 0.5 );
	    #
	    # Construct a GtkCombo 'user'
	    $widgets->{'user'} = new Gtk::Combo;
	    $widgets->{'user'}->set_case_sensitive(0 );
	    $widgets->{'user'}->set_use_arrows(1 );
	    $widgets->{'user'}->set_use_arrows_always(0 );
	    $widgets->{'user'}->set_name('user');
	    $widgets->{'user'}->set_popdown_strings( '' );
	    $forms->{'convert_req_window'}{'cancel'}->attach($widgets->{'user'}, 2, 3, 3, 4, ['expand', 'fill'], [], 0, 0 );
	    $widgets->{'user'}->show;
	    $forms->{'convert_req_window'}{'user'} = $widgets->{'user'};
		#
		# Construct a GtkEntry 'combo-entry1'
		$widgets->{'combo-entry1'} = $forms->{'convert_req_window'}{'user'}->entry;
		$widgets->{'combo-entry1'}->show;
		$forms->{'convert_req_window'}{'combo-entry1'} = $widgets->{'combo-entry1'};
		$forms->{'convert_req_window'}{'combo-entry1'}->can_focus(1 );
		$forms->{'convert_req_window'}{'combo-entry1'}->set_text(_('') );
		$forms->{'convert_req_window'}{'combo-entry1'}->set_max_length(0 );
		$forms->{'convert_req_window'}{'combo-entry1'}->set_visibility(1 );
		$forms->{'convert_req_window'}{'combo-entry1'}->set_editable(1 );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'convert_req_window'}{'ok'}->signal_connect( 'clicked', "$class\::on_ok_clicked", '', 'ok', "convert_req_window-$instance" );
    $forms->{'convert_req_window'}{'button22'}->signal_connect( 'clicked', "$class\::on_button22_clicked", '', 'button22', "convert_req_window-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'convert_req_window'});
    $self->TOPLEVEL($self->FORM->{'convert_req_window'});
    $self->INSTANCE("convert_req_window-$instance");
    $self->CLASS_HIERARCHY($self->FORM->{'__WH'});
    $self->WIDGET_HIERARCHY($self->FORM->{'__CH'});
    $__PACKAGE__::all_forms->{$self->INSTANCE} = $self->FORM;
    return $self;
} # End of sub new










1;

__END__

#===============================================================================
#==== Documentation
#===============================================================================
=pod

=head1 NAME

CCDBUI - version 0.01 Fri Jan 10 13:19:11 CST 2003

No description

=head1 SYNOPSIS

 use CCDBUI;

 if ($we_want_to_subclass_this_class) {
   # Inherit the AUTOLOAD dynamic methods from main_window
   *AUTOLOAD = \&main_window::AUTOLOAD;

   # Tell interpreter who we are inheriting from
   use vars qw( @ISA ); @ISA = qw( main_window );
 }
 
 To construct the window object and show it call
 
 Gtk->init;
 my $window = main_window->new;
 $window->TOPLEVEL->show;
 Gtk->main;
 
 OR use the shorthand for the above calls
 
 main_window->run;

=head1 DESCRIPTION

Unfortunately, the author has not yet written any documentation :-(

=head1 AUTHOR

Nathan Mueller <nmueller\@cookie.cs.wisc.edu>

=cut
