use Tk 800.000;
use Tk::DialogBox;
use FileHandle;
use strict;
#use warnings;
use support_libs;
use fs_config;
use fs_ipmi;

require Exporter;
our @EXPORT = qw(display_msg display_cfg warning_dlog MyDialog);
our @ISA = qw(Exporter cp50 support_libs);
@EXPORT = qw();

#--------------------------------------------------------------------------------------------#
# sub display_cfg()                                                                          #
# This subroutine will write a simple message or text string to the message canvas than      #
# comprises a portion of the UI application.                                                 #
#--------------------------------------------------------------------------------------------#
sub display_cfg {
   my ($rec) = @_;
   my ($line) = "$rec";

   $disp->insert("end", $line);
}