#
# right_bmp
#
# Label BMP Stored as a Scalar
#
# FILENAME: C:/My Documents/Clients/Dem/pl/MMG/Right.bmp
# THIS FUNCTION RETURNS A BASE64 ENCODED
# REPRESENTATION OF THE ABOVE FILE.
# SUITABLE FOR USE BY THE -data PROPERTY.
# OF A Perl/Tk PHOTO.
#
# Arguments:
#
# Returns: $binary_data
#
sub right_bmp
{
   my $binary_data = <<EOD;
Qk1W5ggAAAAAADYAAAAoAAAAsAEAAMIBAAABABgAAAAAACDmCAAAAAAAAAAAAAAAAAAAAAAAAAAA
.
.
.
#Long sequence of encoded data deleted for brevity
.
.
.
CQAACwAADgIAFQwACwQABQMAAAIBAgwTAAAOAAAR
EOD
   return($binary_data);
} # END right_bmp...

#
# Later on in the Code...
#
my $Right_Picture    = $root->Photo
(
   -data          => MMG_Pictures::right_bmp(),
   -format        => 'bmp',
);
.
.
.

   #
   # Give Feedback to User
   #
   if($Answer == $My_Answer)
      {
      $text_Messages->Insert("YOU ARE CORRECT!\n$Problem $Answer\n");
      $label_Picture->configure
      (
         -image            => $Right_Picture,
      );
      }
   else
      {
      $text_Messages->Insert("WRONG!\n$Problem $Answer\nYou said:$My_Answer\n");
      $label_Picture->configure
      (
         -image            => $Wrong_Picture,
      );
      }