#!/usr/bin/perl -w
#
# This is the (re)generated signal handler class
# You can cut and paste the skeleton signal handler subs from this file
# into the relevant classes in your application or its subclasses
#
# 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 'alert_window' class                              
#==============================================================================
package alert_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'alert_window' (version 0.01)
# 
# Copyright (c) Date Fri Nov 19 16:11:39 CST 2004
# Author Danil Lim <danil@brian.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author
# Danil Lim <danil@brian.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/d/a/danil/cvsstuff/library4/library.glade
# Fri Jun 24 15:14:44 CDT 2005
#==============================================================================

BEGIN {
    use src::LibraryUI;
} # End of sub BEGIN

sub app_run {
    my ($class, %params) = @_;
    $class->load_translations('Library');
    # 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/Library.mo)
#    $class->load_translations('Library', 'test', undef, '/afs/cs.wisc.edu/u/d/a/danil/cvsstuff/library4/ppo/Library.mo');
    Gtk->init;
    my $window = $class->new;
    $window->TOPLEVEL->show;

    # Put any extra UI initialisation (eg signal_connect) calls here

    # Now let Gtk handle signals
    Gtk->main;

    $window->TOPLEVEL->destroy;

    return $window;

} # End of sub app_run

#===============================================================================
#=== Below are the default signal handlers for 'alert_window' class
#===============================================================================
sub about_Form {
    my ($class) = @_;
    my $gtkversion = 
        Gtk->major_version.".".
        Gtk->minor_version.".".
        Gtk->micro_version;
    my $name = $0;
    my $message = 
        __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
        _("Written by")." $AUTHOR \n\n".
        _('No description')." \n\n".
        "Gtk ".     _("version").": $gtkversion\n".
        "Gtk-Perl "._("version").": $Gtk::VERSION\n".
        "Glade-Perl version: $Glade::PerlRun::VERSION\n".
        "\n".
        _("run from file").": $name";
    __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
        "$Glade::PerlRun::pixmaps_directory/Logo.xpm", 'left' );
} # End of sub about_Form

sub destroy_Form {
    my ($class, $data, $object, $instance) = @_;
    Gtk->main_quit; 
} # End of sub destroy_Form

sub toplevel_hide    { shift->get_toplevel->hide    }
sub toplevel_close   { shift->get_toplevel->close   }
sub toplevel_destroy { shift->get_toplevel->destroy }

#==============================================================================
#=== Below are the signal handlers for 'alert_window' class 
#==============================================================================
sub do_close {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_close";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_close." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_close










#==============================================================================
#=== This is the 'user_window' class                              
#==============================================================================
package user_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'user_window' (version 0.01)
# 
# Copyright (c) Date Fri Nov 19 16:11:39 CST 2004
# Author Danil Lim <danil@brian.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author
# Danil Lim <danil@brian.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/d/a/danil/cvsstuff/library4/library.glade
# Fri Jun 24 15:14:44 CDT 2005
#==============================================================================

BEGIN {
    use src::LibraryUI;
} # End of sub BEGIN

sub app_run {
    my ($class, %params) = @_;
    $class->load_translations('Library');
    # 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/Library.mo)
#    $class->load_translations('Library', 'test', undef, '/afs/cs.wisc.edu/u/d/a/danil/cvsstuff/library4/ppo/Library.mo');
    Gtk->init;
    my $window = $class->new;
    $window->TOPLEVEL->show;

    # Put any extra UI initialisation (eg signal_connect) calls here

    # Now let Gtk handle signals
    Gtk->main;

    $window->TOPLEVEL->destroy;

    return $window;

} # End of sub app_run

#===============================================================================
#=== Below are the default signal handlers for 'user_window' class
#===============================================================================
sub about_Form {
    my ($class) = @_;
    my $gtkversion = 
        Gtk->major_version.".".
        Gtk->minor_version.".".
        Gtk->micro_version;
    my $name = $0;
    my $message = 
        __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
        _("Written by")." $AUTHOR \n\n".
        _('No description')." \n\n".
        "Gtk ".     _("version").": $gtkversion\n".
        "Gtk-Perl "._("version").": $Gtk::VERSION\n".
        "Glade-Perl version: $Glade::PerlRun::VERSION\n".
        "\n".
        _("run from file").": $name";
    __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
        "$Glade::PerlRun::pixmaps_directory/Logo.xpm", 'left' );
} # End of sub about_Form

sub destroy_Form {
    my ($class, $data, $object, $instance) = @_;
    Gtk->main_quit; 
} # End of sub destroy_Form

sub toplevel_hide    { shift->get_toplevel->hide    }
sub toplevel_close   { shift->get_toplevel->close   }
sub toplevel_destroy { shift->get_toplevel->destroy }

#==============================================================================
#=== Below are the signal handlers for 'user_window' class 
#==============================================================================
sub do_user {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_user";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_user." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_user










#==============================================================================
#=== 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 Nov 19 16:11:39 CST 2004
# Author Danil Lim <danil@brian.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author
# Danil Lim <danil@brian.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/d/a/danil/cvsstuff/library4/library.glade
# Fri Jun 24 15:14:44 CDT 2005
#==============================================================================

BEGIN {
    use src::LibraryUI;
} # End of sub BEGIN

sub app_run {
    my ($class, %params) = @_;
    $class->load_translations('Library');
    # 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/Library.mo)
#    $class->load_translations('Library', 'test', undef, '/afs/cs.wisc.edu/u/d/a/danil/cvsstuff/library4/ppo/Library.mo');
    Gtk->init;
    my $window = $class->new;
    $window->TOPLEVEL->show;

    # Put any extra UI initialisation (eg signal_connect) calls here

    # Now let Gtk handle signals
    Gtk->main;

    $window->TOPLEVEL->destroy;

    return $window;

} # End of sub app_run

#===============================================================================
#=== Below are the default signal handlers for 'add_window' class
#===============================================================================
sub about_Form {
    my ($class) = @_;
    my $gtkversion = 
        Gtk->major_version.".".
        Gtk->minor_version.".".
        Gtk->micro_version;
    my $name = $0;
    my $message = 
        __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
        _("Written by")." $AUTHOR \n\n".
        _('No description')." \n\n".
        "Gtk ".     _("version").": $gtkversion\n".
        "Gtk-Perl "._("version").": $Gtk::VERSION\n".
        "Glade-Perl version: $Glade::PerlRun::VERSION\n".
        "\n".
        _("run from file").": $name";
    __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
        "$Glade::PerlRun::pixmaps_directory/Logo.xpm", 'left' );
} # End of sub about_Form

sub destroy_Form {
    my ($class, $data, $object, $instance) = @_;
    Gtk->main_quit; 
} # End of sub destroy_Form

sub toplevel_hide    { shift->get_toplevel->hide    }
sub toplevel_close   { shift->get_toplevel->close   }
sub toplevel_destroy { shift->get_toplevel->destroy }

#==============================================================================
#=== Below are the signal handlers for 'add_window' class 
#==============================================================================
sub do_add {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_add";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_add." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_add

sub do_cancel {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_cancel";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_cancel." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_cancel










#==============================================================================
#=== This is the 'edit_window' class                              
#==============================================================================
package edit_window;
require 5.000; use strict 'vars', 'refs', 'subs';
# UI class 'edit_window' (version 0.01)
# 
# Copyright (c) Date Fri Nov 19 16:11:39 CST 2004
# Author Danil Lim <danil@brian.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author
# Danil Lim <danil@brian.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/d/a/danil/cvsstuff/library4/library.glade
# Fri Jun 24 15:14:44 CDT 2005
#==============================================================================

BEGIN {
    use src::LibraryUI;
} # End of sub BEGIN

sub app_run {
    my ($class, %params) = @_;
    $class->load_translations('Library');
    # 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/Library.mo)
#    $class->load_translations('Library', 'test', undef, '/afs/cs.wisc.edu/u/d/a/danil/cvsstuff/library4/ppo/Library.mo');
    Gtk->init;
    my $window = $class->new;
    $window->TOPLEVEL->show;

    # Put any extra UI initialisation (eg signal_connect) calls here

    # Now let Gtk handle signals
    Gtk->main;

    $window->TOPLEVEL->destroy;

    return $window;

} # End of sub app_run

#===============================================================================
#=== Below are the default signal handlers for 'edit_window' class
#===============================================================================
sub about_Form {
    my ($class) = @_;
    my $gtkversion = 
        Gtk->major_version.".".
        Gtk->minor_version.".".
        Gtk->micro_version;
    my $name = $0;
    my $message = 
        __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
        _("Written by")." $AUTHOR \n\n".
        _('No description')." \n\n".
        "Gtk ".     _("version").": $gtkversion\n".
        "Gtk-Perl "._("version").": $Gtk::VERSION\n".
        "Glade-Perl version: $Glade::PerlRun::VERSION\n".
        "\n".
        _("run from file").": $name";
    __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
        "$Glade::PerlRun::pixmaps_directory/Logo.xpm", 'left' );
} # End of sub about_Form

sub destroy_Form {
    my ($class, $data, $object, $instance) = @_;
    Gtk->main_quit; 
} # End of sub destroy_Form

sub toplevel_hide    { shift->get_toplevel->hide    }
sub toplevel_close   { shift->get_toplevel->close   }
sub toplevel_destroy { shift->get_toplevel->destroy }

#==============================================================================
#=== Below are the signal handlers for 'edit_window' class 
#==============================================================================
sub do_edit {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_edit";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_edit." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_edit










#==============================================================================
#=== 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 Nov 19 16:11:39 CST 2004
# Author Danil Lim <danil@brian.cs.wisc.edu>
#
# Unspecified copying policy, please contact the author
# Danil Lim <danil@brian.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/d/a/danil/cvsstuff/library4/library.glade
# Fri Jun 24 15:14:44 CDT 2005
#==============================================================================

BEGIN {
    use src::LibraryUI;
} # End of sub BEGIN

sub app_run {
    my ($class, %params) = @_;
    $class->load_translations('Library');
    # 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/Library.mo)
#    $class->load_translations('Library', 'test', undef, '/afs/cs.wisc.edu/u/d/a/danil/cvsstuff/library4/ppo/Library.mo');
    Gtk->init;
    my $window = $class->new;
    $window->TOPLEVEL->show;

    # Put any extra UI initialisation (eg signal_connect) calls here

    # Now let Gtk handle signals
    Gtk->main;

    $window->TOPLEVEL->destroy;

    return $window;

} # End of sub app_run

#===============================================================================
#=== Below are the default signal handlers for 'main_window' class
#===============================================================================
sub about_Form {
    my ($class) = @_;
    my $gtkversion = 
        Gtk->major_version.".".
        Gtk->minor_version.".".
        Gtk->micro_version;
    my $name = $0;
    my $message = 
        __PACKAGE__." ("._("version")." $VERSION - $DATE)\n".
        _("Written by")." $AUTHOR \n\n".
        _('No description')." \n\n".
        "Gtk ".     _("version").": $gtkversion\n".
        "Gtk-Perl "._("version").": $Gtk::VERSION\n".
        "Glade-Perl version: $Glade::PerlRun::VERSION\n".
        "\n".
        _("run from file").": $name";
    __PACKAGE__->message_box($message, _("About")." \u".__PACKAGE__, [_('Dismiss'), _('Quit Program')], 1,
        "$Glade::PerlRun::pixmaps_directory/Logo.xpm", 'left' );
} # End of sub about_Form

sub destroy_Form {
    my ($class, $data, $object, $instance) = @_;
    Gtk->main_quit; 
} # End of sub destroy_Form

sub toplevel_hide    { shift->get_toplevel->hide    }
sub toplevel_close   { shift->get_toplevel->close   }
sub toplevel_destroy { shift->get_toplevel->destroy }

#==============================================================================
#=== Below are the signal handlers for 'main_window' class 
#==============================================================================
sub do_add {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_add";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_add." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_add

sub do_admonish {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_admonish";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_admonish." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_admonish

sub do_checkin {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_checkin";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_checkin." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_checkin

sub do_checkout {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_checkout";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_checkout." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_checkout

sub do_edit {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_edit";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_edit." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_edit

sub do_recall {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_recall";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_recall." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_recall

sub do_remove {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_remove";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_remove." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_remove

sub do_renew {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_renew";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_renew." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_renew

sub do_reserve {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_reserve";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_reserve." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_reserve

sub do_select {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_select";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_select." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_select

sub do_sort {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_sort";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_sort." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_sort

sub do_unadmonish {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->do_unadmonish";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->do_unadmonish." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub do_unadmonish

sub on_book_label_button_press_event {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->on_book_label_button_press_event";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_book_label_button_press_event." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub on_book_label_button_press_event

sub on_category_menu_clicked {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->on_category_menu_clicked";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_category_menu_clicked." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub on_category_menu_clicked

sub on_cd_label_button_press_event {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->on_cd_label_button_press_event";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_cd_label_button_press_event." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub on_cd_label_button_press_event

sub on_laptop_label_button_press_event {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->on_laptop_label_button_press_event";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_laptop_label_button_press_event." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub on_laptop_label_button_press_event

sub on_search_button_clicked {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->on_search_button_clicked";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_search_button_clicked." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub on_search_button_clicked

sub on_search_query_key_press_event {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->on_search_query_key_press_event";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_search_query_key_press_event." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub on_search_query_key_press_event

sub on_show_all_button_clicked {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->on_show_all_button_clicked";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->on_show_all_button_clicked." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub on_show_all_button_clicked

sub quit {
    my ($class, $data, $object, $instance, $event) = @_;
    my $me = __PACKAGE__."->quit";
    # Get ref to hash of all widgets on our form
    my $form = $__PACKAGE__::all_forms->{$instance};

    # REPLACE the line below with the actions to be taken when __PACKAGE__."->quit." is called
    __PACKAGE__->show_skeleton_message($me, \@_, __PACKAGE__, "$Glade::PerlRun::pixmaps_directory/Logo.xpm");

} # End of sub quit










1;

__END__

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

=head1 NAME

LibrarySIGS - version 0.01 Fri Nov 19 16:11:39 CST 2004

No description

=head1 SYNOPSIS

 use LibrarySIGS;

 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

Danil Lim <danil@brian.cs.wisc.edu>

=cut
