################################################################################
# Author: pjm
# Description;
#
# This is now just a wrapper to Show_Messages. I wrote it so I didn't have to
# go and re-write Booth and various chimp programs. Gives standard 2 line
# message as a heading.
#
# $Id: Show_Errors.pm,v 1.4 2000/07/03 14:39:25 pjm Exp $
#
################################################################################

package Show_Errors;

use strict;
use Mail;
use Show_Messages;

BEGIN {
    use vars qw(@ISA);
    @ISA = ("Show_Messages");
}

my $bug_mail = 'bug';
my $debug    = 0;
my ($label1, $label2);

sub new {
    my ($type, $parent_window, @messages) = @_;

    my $line1 = "Errors or Warnings have been generated";
    my $line2 = "Please do not put the following plates in to the freezer";

    my $self = $type->SUPER::new($parent_window, $line1, $line2, @messages);
}

# END OF MODULE
1;


#
# $Log: Show_Errors.pm,v $
# Revision 1.4  2000/07/03  14:39:25  pjm
# added use Show_Messages;
#
# Revision 1.3  2000/07/03  14:34:24  pjm
# Is now just a wrapper for Show_Messages.
#
# Revision 1.2  2000/05/26  14:17:09  pjm
# changed widht height to 400x200
#
# Revision 1.1  2000/05/25  14:13:45  pjm
# Initial revision
# 
#
