#!/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 'add_window' class                              
#==============================================================================
package add_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'add_window' (version 0.01)
# 
# Copyright (c) Date Fri Aug  1 11:38:02 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/dbgroups/dbgroups.glade
# Fri Aug  1 11:38:30 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 = 'Dbgroups';
    $VERSION = '0.01';
    $AUTHOR  = 'Nathan Mueller <nmueller\@newton.cs.wisc.edu>';
    $DATE    = 'Fri Aug  1 11:38:02 CDT 2003';
    $permitted_fields = '_permitted_fields';             
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= '/afs/cs.wisc.edu/u/n/m/nmueller/work/dbgroups/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  => 'Dbgroups',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@newton.cs.wisc.edu>',
    DATE     => 'Fri Aug  1 11:38:02 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'.

    '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('Dbgroups');
    # 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/Dbgroups.mo)
#    $class->load_translations('Dbgroups', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/dbgroups/ppo/Dbgroups.mo');
    Gnome->init('Dbgroups', '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->{"add_window-$instance"}) {$instance++;}


    #
    # Construct a GtkWindow 'add_window'
    $widgets->{'add_window'} = new Gtk::Window;
    $widgets->{'add_window'}->set_title(_('Add User') );
    $widgets->{'add_window'}->position('none' );
    $widgets->{'add_window'}->set_policy(0, 1, 0 );
    $widgets->{'add_window'}->set_modal(0 );
    $widgets->{'add_window'}->realize;
    $forms->{'add_window'}{'tooltips'} = new Gtk::Tooltips;
    $forms->{'add_window'}{'accelgroup'} = new Gtk::AccelGroup;
    $forms->{'add_window'}{'accelgroup'}->attach($widgets->{'add_window'} );
    $forms->{'add_window'}{'add_window'} = $widgets->{'add_window'};
	#
	# Construct a GtkVBox 'vbox1'
	$widgets->{'vbox1'} = new Gtk::VBox(0, 8 );
	$forms->{'add_window'}{'add_window'}->add($widgets->{'vbox1'} );
	$widgets->{'vbox1'}->show;
	$forms->{'add_window'}{'vbox1'} = $widgets->{'vbox1'};
	$forms->{'add_window'}{'vbox1'}->border_width(8 );
	    #
	    # Construct a GtkHBox 'hbox1'
	    $widgets->{'hbox1'} = new Gtk::HBox(0, 4 );
	    $forms->{'add_window'}{'vbox1'}->add($widgets->{'hbox1'} );
	    $widgets->{'hbox1'}->show;
	    $forms->{'add_window'}{'hbox1'} = $widgets->{'hbox1'};
		#
		# Construct a GtkLabel 'label2'
		$widgets->{'label2'} = new Gtk::Label(_('User:'));
		$widgets->{'label2'}->set_justify('center' );
		$widgets->{'label2'}->set_line_wrap(0 );
		$forms->{'add_window'}{'hbox1'}->add($widgets->{'label2'} );
		$widgets->{'label2'}->show;
		$forms->{'add_window'}{'label2'} = $widgets->{'label2'};
		$forms->{'add_window'}{'label2'}->set_alignment(0.5, 0.5 );
		$forms->{'add_window'}{'hbox1'}->set_child_packing($forms->{'add_window'}{'label2'}, 0, 0, 0, 'start' );
		#
		# Construct a GtkEntry 'user'
		$widgets->{'user'} = new Gtk::Entry;
		$forms->{'add_window'}{'hbox1'}->add($widgets->{'user'} );
		$widgets->{'user'}->show;
		$forms->{'add_window'}{'user'} = $widgets->{'user'};
		$forms->{'add_window'}{'user'}->can_focus(1 );
		$forms->{'add_window'}{'user'}->set_text(_('') );
		$forms->{'add_window'}{'user'}->set_max_length(0 );
		$forms->{'add_window'}{'user'}->set_visibility(1 );
		$forms->{'add_window'}{'user'}->set_editable(1 );
		$forms->{'add_window'}{'hbox1'}->set_child_packing($forms->{'add_window'}{'user'}, 1, 1, 0, 'start' );
	    $forms->{'add_window'}{'vbox1'}->set_child_packing($forms->{'add_window'}{'hbox1'}, 1, 1, 0, 'start' );
	    #
	    # Construct a GtkHButtonBox 'hbuttonbox1'
	    $widgets->{'hbuttonbox1'} = new Gtk::HButtonBox;
	    $forms->{'add_window'}{'vbox1'}->add($widgets->{'hbuttonbox1'} );
	    $widgets->{'hbuttonbox1'}->show;
	    $forms->{'add_window'}{'hbuttonbox1'} = $widgets->{'hbuttonbox1'};
	    $forms->{'add_window'}{'hbuttonbox1'}->set_layout('spread' );
	    $forms->{'add_window'}{'hbuttonbox1'}->set_spacing(30 );
	    $forms->{'add_window'}{'hbuttonbox1'}->set_child_size(85, 27 );
	    $forms->{'add_window'}{'hbuttonbox1'}->set_child_ipadding(7, 0 );
		#
		# Construct a GtkButton 'cancel'
		$widgets->{'cancel'} = Gnome::Stock->button('Button_Cancel' );
		$forms->{'add_window'}{'hbuttonbox1'}->add($widgets->{'cancel'} );
		$widgets->{'cancel'}->show;
		$forms->{'add_window'}{'cancel'} = $widgets->{'cancel'};
		$forms->{'add_window'}{'cancel'}->can_default(1 );
		$forms->{'add_window'}{'cancel'}->can_focus(1 );
		#
		# Construct a GtkButton 'ok'
		$widgets->{'ok'} = Gnome::Stock->button('Button_Ok' );
		$forms->{'add_window'}{'hbuttonbox1'}->add($widgets->{'ok'} );
		$widgets->{'ok'}->show;
		$forms->{'add_window'}{'ok'} = $widgets->{'ok'};
		$forms->{'add_window'}{'ok'}->can_default(1 );
		$forms->{'add_window'}{'ok'}->can_focus(1 );
	    $forms->{'add_window'}{'vbox1'}->set_child_packing($forms->{'add_window'}{'hbuttonbox1'}, 0, 0, 0, 'start' );
    #
    # Connect all signals now that widgets are constructed
    $forms->{'add_window'}{'cancel'}->signal_connect( 'clicked', "$class\::on_cancel_clicked", '', 'cancel', "add_window-$instance" );
    $forms->{'add_window'}{'ok'}->signal_connect( 'clicked', "$class\::on_ok_clicked", '', 'ok', "add_window-$instance" );


    #
    # Return the constructed UI
    bless $self, $class;
    $self->FORM($forms->{'add_window'});
    $self->TOPLEVEL($self->FORM->{'add_window'});
    $self->FORM->{'TOPLEVEL'} = ($self->TOPLEVEL);
    $self->INSTANCE("add_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 Aug  1 11:38:02 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/dbgroups/dbgroups.glade
# Fri Aug  1 11:38:30 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 = 'Dbgroups';
    $VERSION = '0.01';
    $AUTHOR  = 'Nathan Mueller <nmueller\@newton.cs.wisc.edu>';
    $DATE    = 'Fri Aug  1 11:38:02 CDT 2003';
    $permitted_fields = '_permitted_fields';             
} # End of sub BEGIN

    $Glade::PerlRun::pixmaps_directory ||= '/afs/cs.wisc.edu/u/n/m/nmueller/work/dbgroups/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  => 'Dbgroups',
    VERSION  => '0.01',
    AUTHOR   => 'Nathan Mueller <nmueller\@newton.cs.wisc.edu>',
    DATE     => 'Fri Aug  1 11:38:02 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'.

    'on_group_tree_button_press_event' => undef,
    'on_main_window_destroy' => 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('Dbgroups');
    # 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/Dbgroups.mo)
#    $class->load_translations('Dbgroups', 'test', undef, '/afs/cs.wisc.edu/u/n/m/nmueller/work/dbgroups/ppo/Dbgroups.mo');
    Gnome->init('Dbgroups', '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(_('Database Groups') );
    $widgets->{'main_window'}->position('none' );
    $widgets->{'main_window'}->set_policy(0, 1, 0 );
    $widgets->{'main_window'}->set_modal(0 );
    $widgets->{'main_window'}->set_usize(200, 300 );
    $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 GtkScrolledWindow 'scrolledwindow1'
	$widgets->{'scrolledwindow1'} = new Gtk::ScrolledWindow( undef, undef);
	$widgets->{'scrolledwindow1'}->set_policy('automatic', 'automatic' );
	$widgets->{'scrolledwindow1'}->border_width(8 );
	$widgets->{'scrolledwindow1'}->hscrollbar->set_update_policy('continuous' );
	$widgets->{'scrolledwindow1'}->vscrollbar->set_update_policy('continuous' );
	$forms->{'main_window'}{'main_window'}->add($widgets->{'scrolledwindow1'} );
	$widgets->{'scrolledwindow1'}->show;
	$forms->{'main_window'}{'scrolledwindow1'} = $widgets->{'scrolledwindow1'};
	    #
	    # Construct a GtkCTree 'group_tree'
	    $widgets->{'group_tree'} = new Gtk::CTree(1, 0 );
	    $widgets->{'group_tree'}->set_selection_mode('single' );
	    $widgets->{'group_tree'}->set_border('in' );
	    $widgets->{'group_tree'}->set_column_width(0, 80 );
	    $forms->{'main_window'}{'scrolledwindow1'}->add($widgets->{'group_tree'} );
	    $widgets->{'group_tree'}->show;
	    $forms->{'main_window'}{'group_tree'} = $widgets->{'group_tree'};
	    $forms->{'main_window'}{'group_tree'}->can_focus(1 );
		#
		# Construct a GtkLabel 'label1'
		$widgets->{'label1'} = new Gtk::Label(_('label1'));
		$widgets->{'label1'}->set_justify('center' );
		$widgets->{'label1'}->set_line_wrap(0 );
		$forms->{'main_window'}{'group_tree'}->set_column_widget(0, $widgets->{'label1'} );
		$widgets->{'label1'}->show;
		$forms->{'main_window'}{'label1'} = $widgets->{'label1'};
		$forms->{'main_window'}{'label1'}->set_alignment(0.5, 0.5 );
    #
    # 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'}{'group_tree'}->signal_connect( 'button_press_event', "$class\::on_group_tree_button_press_event", '', 'group_tree', "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->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

Dbgroups - version 0.01 Fri Aug  1 11:38:02 CDT 2003

No description

=head1 SYNOPSIS

 use Dbgroups;

 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
