#!/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 Thu Aug  7 09:37:39 CDT 2003
# Author Nathan Mueller <nmueller\@newton.cs.wisc.edu>
#
## Unspecified copying policy, please contact the author\n#  Nathan Mueller <nmueller\@newton.cs.wisc.edu>
#
#==============================================================================
# This perl source file was automatically generated by 
# Glade::PerlGenerate version 0.59 - Wed Jun 20 14:48:25 BST 2001
# Copyright (c) Author Dermot Musgrove <dermot.musgrove\@virgin.net>
#
# from Glade file /afs/cs.wisc.edu/u/n/m/nmueller/work/cricket_regraph/cricket_regraph.glade
# Thu Aug  7 10:23:44 CDT 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
                 $PACKAGE
                 $VERSION
                 $AUTHOR
                 $DATE
                 $AUTOLOAD
                 $permitted_fields
             );
    # Tell interpreter who we are inheriting from
    @ISA     = qw( Glade::PerlRun );
    $PACKAGE = 'Cricket_regraph';
    $VERSION = '0.01';
    $AUTHOR  = 'Nathan Mueller <nmueller\@newton.cs.wisc.edu>';
    $DATE    = 'Thu Aug  7 09:37:39 CDT 2003';
    $permitted_fields = '_permitted_fields';             
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= '/afs/cs.wisc.edu/u/n/m/nmueller/work/cricket_regraph/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  => 'Cricket_regraph',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@newton.cs.wisc.edu>',
    DATE     => 'Thu Aug  7 09:37:39 CDT 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'.

);

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('Cricket_regraph');
    # 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/fr/LC_MESSAGES/Cricket_regraph.mo)
#    $class->load_translations('Cricket_regraph', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/cricket_regraph/ppo/Cricket_regraph.mo');
    Gnome->init('Cricket_regraph', '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(_('Cricket Graphs') );
    $widgets->{'main_window'}->position('none' );
    $widgets->{'main_window'}->set_policy(0, 1, 0 );
    $widgets->{'main_window'}->set_modal(0 );
    $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 'vbox1'
	$widgets->{'vbox1'} = new Gtk::VBox(0, 8 );
	$forms->{'main_window'}{'main_window'}->add($widgets->{'vbox1'} );
	$widgets->{'vbox1'}->show;
	$forms->{'main_window'}{'vbox1'} = $widgets->{'vbox1'};
	$forms->{'main_window'}{'vbox1'}->set_usize(1280, 1024 );
	$forms->{'main_window'}{'vbox1'}->border_width(8 );
	    #
	    # Construct a GtkLabel 'label'
	    $widgets->{'label'} = new Gtk::Label(_('label1'));
	    $widgets->{'label'}->set_justify('center' );
	    $widgets->{'label'}->set_line_wrap(0 );
	    $forms->{'main_window'}{'vbox1'}->add($widgets->{'label'} );
	    $widgets->{'label'}->show;
	    $forms->{'main_window'}{'label'} = $widgets->{'label'};
	    $forms->{'main_window'}{'label'}->set_alignment(0.5, 0.5 );
	    $forms->{'main_window'}{'vbox1'}->set_child_packing($forms->{'main_window'}{'label'}, 0, 0, 0, 'start' );
	    #
	    # Construct a GnomePixmap 'pixmap'
	    $widgets->{'pixmap'} = new_from_file Gnome::Pixmap("$Glade::PerlRun::pixmaps_directory//afs/cs.wisc.edu/u/n/m/nmueller/work/cricket_regraph/pixmaps/glade2perl_logo.xpm" );
	    $forms->{'main_window'}{'vbox1'}->add($widgets->{'pixmap'} );
	    $widgets->{'pixmap'}->show;
	    $forms->{'main_window'}{'pixmap'} = $widgets->{'pixmap'};
	    $forms->{'main_window'}{'pixmap'}->set_usize(1280, 920 );
	    $forms->{'main_window'}{'vbox1'}->set_child_packing($forms->{'main_window'}{'pixmap'}, 1, 1, 0, 'start' );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'main_window'});
    $self->TOPLEVEL($self->FORM->{'main_window'});
    $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
    $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










1;

__END__

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

=head1 NAME

Cricket_regraph - version 0.01 Thu Aug  7 09:37:39 CDT 2003

No description

=head1 SYNOPSIS

 use Cricket_regraph;

 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

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

=cut
