#!/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 'main_window' class                              
#==============================================================================
package main_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'main_window' (version 0.01)
# 
# Copyright (c) Date Tue Aug 10 09:14:46 CDT 2004
# Author Brian Hackbarth <hackbart@grif.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author
# Brian Hackbarth <hackbart@grif.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.61 - Sun Nov 17 03:21:11 GMT 2002
# Copyright (c) Author Dermot Musgrove <dermot.musgrove@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/h/a/hackbart/lab/src/sushimon/sushi.glade
# Tue Aug 10 09:17:45 CDT 2004
#==============================================================================

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
                 $PACKAGE
                 $VERSION
                 $AUTHOR
                 $DATE
                 $AUTOLOAD
                 $permitted_fields
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $PACKAGE = 'Sushi';
    $VERSION = '0.01';
    $AUTHOR  = 'Brian Hackbarth <hackbart@grif.cs.wisc.edu>';
    $DATE    = 'Tue Aug 10 09:14:46 CDT 2004';
    $permitted_fields = '_permitted_fields';             
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= '/afs/cs.wisc.edu/u/h/a/hackbart/lab/src/sushimon/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->FORM($new_value);      sets the value of FORM
    #    $current_value = $class->FORM; gets the current value of FORM
    TOPLEVEL => undef,
    FORM     => undef,
    PACKAGE  => 'Sushi',
    VERSION  => '0.01',
    AUTHOR   => 'Brian Hackbarth <hackbart@grif.cs.wisc.edu>',
    DATE     => 'Tue Aug 10 09:14:46 CDT 2004',
    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_atom_list_select_row' => undef,
    'on_limit_list_select_row' => undef,
    'on_main_window_destroy' => undef,
    'on_reschedule_all_clicked' => undef,
    'on_reschedule_atom_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__, 
            '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('Sushi');
    # 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/en_US.UTF-8/LC_MESSAGES/Sushi.mo)
#    $class->load_translations('Sushi', 'test', undef, '/afs/cs.wisc.edu/u/h/a/hackbart/lab/src/sushimon/ppo/Sushi.mo');
    Gnome->init('Sushi', '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(_('Sushi') );
    $widgets->{'main_window'}->set_position('none' );
    $widgets->{'main_window'}->set_policy(0, 1, 0 );
    $widgets->{'main_window'}->set_modal(0 );
    $widgets->{'main_window'}->set_usize(650, 800 );
    $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 );
	$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(_('Status Graphs:'));
	    $widgets->{'frame1'}->set_label_align(0, 0 );
	    $widgets->{'frame1'}->set_shadow_type('etched_in' );
	    $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 );
		$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, 4 );
		    $forms->{'main_window'}{'vbox3'}->add($widgets->{'hbox2'} );
		    $widgets->{'hbox2'}->show;
		    $forms->{'main_window'}{'hbox2'} = $widgets->{'hbox2'};
			#
			# Construct a GtkLabel 'label30'
			$widgets->{'label30'} = new Gtk::Label(_('Graph:'));
			$widgets->{'label30'}->set_justify('center' );
			$widgets->{'label30'}->set_line_wrap(0 );
			$forms->{'main_window'}{'hbox2'}->add($widgets->{'label30'} );
			$widgets->{'label30'}->show;
			$forms->{'main_window'}{'label30'} = $widgets->{'label30'};
			$forms->{'main_window'}{'label30'}->set_alignment(0.5, 0.5 );
			$forms->{'main_window'}{'hbox2'}->set_child_packing($forms->{'main_window'}{'label30'}, 0, 0, 0, 'start' );
			#
			# Construct a GtkOptionMenu 'graph_menu'
			$widgets->{'graph_menu'} = new Gtk::OptionMenu;
			$forms->{'main_window'}{'hbox2'}->add($widgets->{'graph_menu'} );
			$widgets->{'graph_menu'}->show;
			$forms->{'main_window'}{'graph_menu'} = $widgets->{'graph_menu'};
			$forms->{'main_window'}{'graph_menu'}->can_focus(1 );
			$widgets->{'graph_menu_menu'} = new Gtk::Menu;
			$forms->{'main_window'}{'graph_menu'}->set_menu($widgets->{'graph_menu_menu'} );
			$forms->{'main_window'}{'graph_menu_menu'} = $widgets->{'graph_menu_menu'};
			$forms->{'main_window'}{'graph_menu'}->set_history( 0 );
			$forms->{'main_window'}{'hbox2'}->set_child_packing($forms->{'main_window'}{'graph_menu'}, 0, 0, 0, 'start' );
		    $forms->{'main_window'}{'vbox3'}->set_child_packing($forms->{'main_window'}{'hbox2'}, 0, 0, 0, 'start' );
		    #
		    # Construct a GtkPixmap 'graph'
		    $widgets->{'graph'} = $class->create_pixmap($forms->{'main_window'}{'main_window'}, "$Glade::PerlRun::pixmaps_directory/glade2perl_logo.xpm" );
		    $forms->{'main_window'}{'vbox3'}->add($widgets->{'graph'} );
		    $widgets->{'graph'}->show;
		    $forms->{'main_window'}{'graph'} = $widgets->{'graph'};
		    $forms->{'main_window'}{'graph'}->set_usize(595, 255 );
		    $forms->{'main_window'}{'graph'}->set_alignment(0.5, 0.5 );
		    $forms->{'main_window'}{'vbox3'}->set_child_packing($forms->{'main_window'}{'graph'}, 0, 0, 0, 'start' );
	    $forms->{'main_window'}{'vbox2'}->set_child_packing($forms->{'main_window'}{'frame1'}, 0, 0, 0, 'start' );
	    #
	    # Construct a GtkFrame 'frame2'
	    $widgets->{'frame2'} = new Gtk::Frame(_('Limits:'));
	    $widgets->{'frame2'}->set_label_align(0, 0 );
	    $widgets->{'frame2'}->set_shadow_type('etched_in' );
	    $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 );
		$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 'hbox3'
		    $widgets->{'hbox3'} = new Gtk::HBox(0, 8 );
		    $forms->{'main_window'}{'vbox4'}->add($widgets->{'hbox3'} );
		    $widgets->{'hbox3'}->show;
		    $forms->{'main_window'}{'hbox3'} = $widgets->{'hbox3'};
			#
			# Construct a GtkScrolledWindow 'scrolledwindow9'
			$widgets->{'scrolledwindow9'} = new Gtk::ScrolledWindow( undef, undef);
			$widgets->{'scrolledwindow9'}->set_policy('automatic', 'automatic' );
			$widgets->{'scrolledwindow9'}->border_width(0 );
			$widgets->{'scrolledwindow9'}->hscrollbar->set_update_policy('continuous' );
			$widgets->{'scrolledwindow9'}->vscrollbar->set_update_policy('continuous' );
			$forms->{'main_window'}{'hbox3'}->add($widgets->{'scrolledwindow9'} );
			$widgets->{'scrolledwindow9'}->show;
			$forms->{'main_window'}{'scrolledwindow9'} = $widgets->{'scrolledwindow9'};
			    #
			    # Construct a GtkCTree 'limit_list'
			    $widgets->{'limit_list'} = new Gtk::CTree(3, 0 );
			    $widgets->{'limit_list'}->set_selection_mode('single' );
			    $widgets->{'limit_list'}->set_border('in' );
			    $widgets->{'limit_list'}->column_titles_show;
			    $widgets->{'limit_list'}->set_column_width(0, 61 );
			    $widgets->{'limit_list'}->set_column_width(1, 111 );
			    $widgets->{'limit_list'}->set_column_width(2, 64 );
			    $forms->{'main_window'}{'scrolledwindow9'}->add($widgets->{'limit_list'} );
			    $widgets->{'limit_list'}->show;
			    $forms->{'main_window'}{'limit_list'} = $widgets->{'limit_list'};
			    $forms->{'main_window'}{'limit_list'}->can_focus(1 );
				#
				# Construct a GtkLabel 'label48'
				$widgets->{'label48'} = new Gtk::Label(_('Type'));
				$widgets->{'label48'}->set_justify('center' );
				$widgets->{'label48'}->set_line_wrap(0 );
				$forms->{'main_window'}{'limit_list'}->set_column_widget(0, $widgets->{'label48'} );
				$widgets->{'label48'}->show;
				$forms->{'main_window'}{'label48'} = $widgets->{'label48'};
				$forms->{'main_window'}{'label48'}->set_alignment(0.5, 0.5 );
				#
				# Construct a GtkLabel 'label49'
				$widgets->{'label49'} = new Gtk::Label(_('Resource'));
				$widgets->{'label49'}->set_justify('center' );
				$widgets->{'label49'}->set_line_wrap(0 );
				$forms->{'main_window'}{'limit_list'}->set_column_widget(1, $widgets->{'label49'} );
				$widgets->{'label49'}->show;
				$forms->{'main_window'}{'label49'} = $widgets->{'label49'};
				$forms->{'main_window'}{'label49'}->set_alignment(0.5, 0.5 );
				#
				# Construct a GtkLabel 'label50'
				$widgets->{'label50'} = new Gtk::Label(_('Limit'));
				$widgets->{'label50'}->set_justify('center' );
				$widgets->{'label50'}->set_line_wrap(0 );
				$forms->{'main_window'}{'limit_list'}->set_column_widget(2, $widgets->{'label50'} );
				$widgets->{'label50'}->show;
				$forms->{'main_window'}{'label50'} = $widgets->{'label50'};
				$forms->{'main_window'}{'label50'}->set_alignment(0.5, 0.5 );
			$forms->{'main_window'}{'hbox3'}->set_child_packing($forms->{'main_window'}{'scrolledwindow9'}, 1, 1, 0, 'start' );
			#
			# Construct a GtkDial 'limit_dial'
			$work->{'limit_dial-adj'} = new Gtk::Adjustment(4.11003e-07, 0, 100, 0, 0, 0 );
			$widgets->{'limit_dial'} = new Gtk::Dial($work->{'limit_dial-adj'});
			$widgets->{'limit_dial'}->set_view_only(0 );
			$widgets->{'limit_dial'}->set_update_policy('continuous' );
			$forms->{'main_window'}{'hbox3'}->add($widgets->{'limit_dial'} );
			$widgets->{'limit_dial'}->show;
			$forms->{'main_window'}{'limit_dial'} = $widgets->{'limit_dial'};
			$forms->{'main_window'}{'hbox3'}->set_child_packing($forms->{'main_window'}{'limit_dial'}, 1, 1, 0, 'start' );
		    $forms->{'main_window'}{'vbox4'}->set_child_packing($forms->{'main_window'}{'hbox3'}, 1, 1, 0, 'start' );
	    $forms->{'main_window'}{'vbox2'}->set_child_packing($forms->{'main_window'}{'frame2'}, 1, 1, 0, 'start' );
	    #
	    # Construct a GtkFrame 'frame3'
	    $widgets->{'frame3'} = new Gtk::Frame(_('Atom Information:'));
	    $widgets->{'frame3'}->set_label_align(0, 0 );
	    $widgets->{'frame3'}->set_shadow_type('etched_in' );
	    $forms->{'main_window'}{'vbox2'}->add($widgets->{'frame3'} );
	    $widgets->{'frame3'}->show;
	    $forms->{'main_window'}{'frame3'} = $widgets->{'frame3'};
		#
		# Construct a GtkVBox 'vbox5'
		$widgets->{'vbox5'} = new Gtk::VBox(0, 8 );
		$forms->{'main_window'}{'frame3'}->add($widgets->{'vbox5'} );
		$widgets->{'vbox5'}->show;
		$forms->{'main_window'}{'vbox5'} = $widgets->{'vbox5'};
		$forms->{'main_window'}{'vbox5'}->border_width(8 );
		    #
		    # Construct a GtkHBox 'hbox4'
		    $widgets->{'hbox4'} = new Gtk::HBox(0, 8 );
		    $forms->{'main_window'}{'vbox5'}->add($widgets->{'hbox4'} );
		    $widgets->{'hbox4'}->show;
		    $forms->{'main_window'}{'hbox4'} = $widgets->{'hbox4'};
			#
			# Construct a GtkTable 'table1'
			$widgets->{'table1'} = new Gtk::Table(4, 2, 0 );
			$widgets->{'table1'}->set_row_spacings(8 );
			$widgets->{'table1'}->set_col_spacings(4 );
			$forms->{'main_window'}{'hbox4'}->add($widgets->{'table1'} );
			$widgets->{'table1'}->show;
			$forms->{'main_window'}{'table1'} = $widgets->{'table1'};
			    #
			    # Construct a GtkLabel 'label44'
			    $widgets->{'label44'} = new Gtk::Label(_('Atom State:'));
			    $widgets->{'label44'}->set_justify('center' );
			    $widgets->{'label44'}->set_line_wrap(0 );
			    $forms->{'main_window'}{'table1'}->attach($widgets->{'label44'}, 0, 1, 0, 1, ['fill'], [], 0, 0 );
			    $widgets->{'label44'}->show;
			    $forms->{'main_window'}{'label44'} = $widgets->{'label44'};
			    $forms->{'main_window'}{'label44'}->set_alignment(0, 0.5 );
			    #
			    # Construct a GtkOptionMenu 'atom_menu'
			    $widgets->{'atom_menu'} = new Gtk::OptionMenu;
			    $forms->{'main_window'}{'table1'}->attach($widgets->{'atom_menu'}, 1, 2, 0, 1, ['fill'], [], 0, 0 );
			    $widgets->{'atom_menu'}->show;
			    $forms->{'main_window'}{'atom_menu'} = $widgets->{'atom_menu'};
			    $forms->{'main_window'}{'atom_menu'}->can_focus(1 );
			    $widgets->{'atom_menu_menu'} = new Gtk::Menu;
			    $forms->{'main_window'}{'atom_menu'}->set_menu($widgets->{'atom_menu_menu'} );
			    $forms->{'main_window'}{'atom_menu_menu'} = $widgets->{'atom_menu_menu'};
			    $forms->{'main_window'}{'atom_menu'}->set_history( 0 );
			    #
			    # Construct a GtkButton 'reschedule_all'
			    $widgets->{'reschedule_all'} = new Gtk::Button(_('Reschedule All'));
			    $forms->{'main_window'}{'table1'}->attach($widgets->{'reschedule_all'}, 0, 2, 3, 4, ['fill'], [], 0, 0 );
			    $widgets->{'reschedule_all'}->show;
			    $forms->{'main_window'}{'reschedule_all'} = $widgets->{'reschedule_all'};
			    $forms->{'main_window'}{'reschedule_all'}->can_focus(1 );
			    #
			    # Construct a GtkButton 'reschedule_atom'
			    $widgets->{'reschedule_atom'} = new Gtk::Button(_('Reschedule Atom'));
			    $forms->{'main_window'}{'table1'}->attach($widgets->{'reschedule_atom'}, 0, 2, 2, 3, ['fill'], [], 0, 0 );
			    $widgets->{'reschedule_atom'}->show;
			    $forms->{'main_window'}{'reschedule_atom'} = $widgets->{'reschedule_atom'};
			    $forms->{'main_window'}{'reschedule_atom'}->can_focus(1 );
			    #
			    # Construct a GtkLabel 'label51'
			    $widgets->{'label51'} = new Gtk::Label(_('Number:'));
			    $widgets->{'label51'}->set_justify('center' );
			    $widgets->{'label51'}->set_line_wrap(0 );
			    $forms->{'main_window'}{'table1'}->attach($widgets->{'label51'}, 0, 1, 1, 2, ['fill'], [], 0, 0 );
			    $widgets->{'label51'}->show;
			    $forms->{'main_window'}{'label51'} = $widgets->{'label51'};
			    $forms->{'main_window'}{'label51'}->set_alignment(0, 0.5 );
			    #
			    # Construct a GtkLabel 'state_num'
			    $widgets->{'state_num'} = new Gtk::Label(_('##'));
			    $widgets->{'state_num'}->set_justify('center' );
			    $widgets->{'state_num'}->set_line_wrap(0 );
			    $forms->{'main_window'}{'table1'}->attach($widgets->{'state_num'}, 1, 2, 1, 2, ['fill'], [], 0, 0 );
			    $widgets->{'state_num'}->show;
			    $forms->{'main_window'}{'state_num'} = $widgets->{'state_num'};
			    $forms->{'main_window'}{'state_num'}->set_alignment(0, 0.5 );
			$forms->{'main_window'}{'hbox4'}->set_child_packing($forms->{'main_window'}{'table1'}, 0, 0, 0, 'start' );
			#
			# Construct a GtkScrolledWindow 'scrolledwindow8'
			$widgets->{'scrolledwindow8'} = new Gtk::ScrolledWindow( undef, undef);
			$widgets->{'scrolledwindow8'}->set_policy('automatic', 'automatic' );
			$widgets->{'scrolledwindow8'}->border_width(0 );
			$widgets->{'scrolledwindow8'}->hscrollbar->set_update_policy('continuous' );
			$widgets->{'scrolledwindow8'}->vscrollbar->set_update_policy('continuous' );
			$forms->{'main_window'}{'hbox4'}->add($widgets->{'scrolledwindow8'} );
			$widgets->{'scrolledwindow8'}->show;
			$forms->{'main_window'}{'scrolledwindow8'} = $widgets->{'scrolledwindow8'};
			    #
			    # Construct a GtkCList 'atom_list'
			    $widgets->{'atom_list'} = new Gtk::CList(5 );
			    $widgets->{'atom_list'}->set_selection_mode('single' );
			    $widgets->{'atom_list'}->set_border('in' );
			    $widgets->{'atom_list'}->column_titles_show;
			    $widgets->{'atom_list'}->set_column_width(0, 159 );
			    $widgets->{'atom_list'}->set_column_width(1, 48 );
			    $widgets->{'atom_list'}->set_column_width(2, 34 );
			    $widgets->{'atom_list'}->set_column_width(3, 60 );
			    $widgets->{'atom_list'}->set_column_width(4, 30 );
			    $forms->{'main_window'}{'scrolledwindow8'}->add($widgets->{'atom_list'} );
			    $widgets->{'atom_list'}->show;
			    $forms->{'main_window'}{'atom_list'} = $widgets->{'atom_list'};
			    $forms->{'main_window'}{'atom_list'}->can_focus(1 );
				#
				# Construct a GtkLabel 'label39'
				$widgets->{'label39'} = new Gtk::Label(_('Atom'));
				$widgets->{'label39'}->set_justify('center' );
				$widgets->{'label39'}->set_line_wrap(0 );
				$forms->{'main_window'}{'atom_list'}->set_column_widget(0, $widgets->{'label39'} );
				$widgets->{'label39'}->show;
				$forms->{'main_window'}{'label39'} = $widgets->{'label39'};
				$forms->{'main_window'}{'label39'}->set_alignment(0.5, 0.5 );
				#
				# Construct a GtkLabel 'label40'
				$widgets->{'label40'} = new Gtk::Label(_('Type'));
				$widgets->{'label40'}->set_justify('center' );
				$widgets->{'label40'}->set_line_wrap(0 );
				$forms->{'main_window'}{'atom_list'}->set_column_widget(1, $widgets->{'label40'} );
				$widgets->{'label40'}->show;
				$forms->{'main_window'}{'label40'} = $widgets->{'label40'};
				$forms->{'main_window'}{'label40'}->set_alignment(0.5, 0.5 );
				#
				# Construct a GtkLabel 'label41'
				$widgets->{'label41'} = new Gtk::Label(_('Level'));
				$widgets->{'label41'}->set_justify('center' );
				$widgets->{'label41'}->set_line_wrap(0 );
				$forms->{'main_window'}{'atom_list'}->set_column_widget(2, $widgets->{'label41'} );
				$widgets->{'label41'}->show;
				$forms->{'main_window'}{'label41'} = $widgets->{'label41'};
				$forms->{'main_window'}{'label41'}->set_alignment(0.5, 0.5 );
				#
				# Construct a GtkLabel 'label42'
				$widgets->{'label42'} = new Gtk::Label(_('Runtime'));
				$widgets->{'label42'}->set_justify('center' );
				$widgets->{'label42'}->set_line_wrap(0 );
				$forms->{'main_window'}{'atom_list'}->set_column_widget(3, $widgets->{'label42'} );
				$widgets->{'label42'}->show;
				$forms->{'main_window'}{'label42'} = $widgets->{'label42'};
				$forms->{'main_window'}{'label42'}->set_alignment(0.5, 0.5 );
				#
				# Construct a GtkLabel 'label43'
				$widgets->{'label43'} = new Gtk::Label(_('Size'));
				$widgets->{'label43'}->set_justify('center' );
				$widgets->{'label43'}->set_line_wrap(0 );
				$forms->{'main_window'}{'atom_list'}->set_column_widget(4, $widgets->{'label43'} );
				$widgets->{'label43'}->show;
				$forms->{'main_window'}{'label43'} = $widgets->{'label43'};
				$forms->{'main_window'}{'label43'}->set_alignment(0.5, 0.5 );
			$forms->{'main_window'}{'hbox4'}->set_child_packing($forms->{'main_window'}{'scrolledwindow8'}, 1, 1, 0, 'start' );
		    $forms->{'main_window'}{'vbox5'}->set_child_packing($forms->{'main_window'}{'hbox4'}, 1, 1, 0, 'start' );
		    #
		    # Construct a GtkScrolledWindow 'scrolledwindow7'
		    $widgets->{'scrolledwindow7'} = new Gtk::ScrolledWindow( undef, undef);
		    $widgets->{'scrolledwindow7'}->set_policy('automatic', 'automatic' );
		    $widgets->{'scrolledwindow7'}->border_width(0 );
		    $widgets->{'scrolledwindow7'}->hscrollbar->set_update_policy('continuous' );
		    $widgets->{'scrolledwindow7'}->vscrollbar->set_update_policy('continuous' );
		    $forms->{'main_window'}{'vbox5'}->add($widgets->{'scrolledwindow7'} );
		    $widgets->{'scrolledwindow7'}->show;
		    $forms->{'main_window'}{'scrolledwindow7'} = $widgets->{'scrolledwindow7'};
			#
			# Construct a GtkText 'atom_stderr'
			$widgets->{'atom_stderr'} = new Gtk::Text( undef, undef );
			$widgets->{'atom_stderr'}->set_editable(0 );
			$widgets->{'atom_stderr'}->insert(undef, $widgets->{'atom_stderr'}->style->text('normal'), undef, _(""));
			$forms->{'main_window'}{'scrolledwindow7'}->add($widgets->{'atom_stderr'} );
			$widgets->{'atom_stderr'}->show;
			$forms->{'main_window'}{'atom_stderr'} = $widgets->{'atom_stderr'};
			$forms->{'main_window'}{'atom_stderr'}->can_focus(1 );
		    $forms->{'main_window'}{'vbox5'}->set_child_packing($forms->{'main_window'}{'scrolledwindow7'}, 1, 1, 0, 'start' );
	    $forms->{'main_window'}{'vbox2'}->set_child_packing($forms->{'main_window'}{'frame3'}, 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'}{'limit_list'}->signal_connect('tree_select_row', "$class\::on_limit_list_select_row", '', 'limit_list', "main_window-$instance" );
    $forms->{'main_window'}{'reschedule_all'}->signal_connect('clicked', "$class\::on_reschedule_all_clicked", '', 'reschedule_all', "main_window-$instance" );
    $forms->{'main_window'}{'reschedule_atom'}->signal_connect('clicked', "$class\::on_reschedule_atom_clicked", '', 'reschedule_atom', "main_window-$instance" );
    $forms->{'main_window'}{'atom_list'}->signal_connect('select_row', "$class\::on_atom_list_select_row", '', 'atom_list', "main_window-$instance" );


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










1;

__END__

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

=head1 NAME

Sushi - version 0.01 Tue Aug 10 09:14:46 CDT 2004

No description

=head1 SYNOPSIS

 use Sushi;

 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->app_run;

=head1 DESCRIPTION

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

=head1 AUTHOR

Brian Hackbarth <hackbart@grif.cs.wisc.edu>

=cut
