Added hardcoded "use" statements that are needed by perl2exe for Wind…

…ows.

Added logic to check for a hotkey file named "default.mrv", and load that
automatically upon program start if it exists.

mrvoice.pl

@@ -10,6 +10,14 @@
 use DBI;
 use MPEG::MP3Info;
 use Audio::Wav;
+
+# These modules need to be hardcoded into the script for perl2exe to 
+# find them.
+use Tk::Menu;
+use Tk::Menubutton;
+use DBD::mysql;
+use Carp::Heavy;
+
 use subs qw/filemenu_items hotkeysmenu_items categoriesmenu_items songsmenu_items helpmenu_items/;
 
 #########
@@ -18,7 +26,7 @@
 # DESCRIPTION: A Perl/TK frontend for an MP3 database.  Written for
 #              ComedyWorx, Raleigh, NC.
 #              http://www.comedyworx.com/
-# CVS ID: $Id: mrvoice.pl,v 1.114 2002/04/25 14:55:59 minter Exp $
+# CVS ID: $Id: mrvoice.pl,v 1.115 2002/05/02 19:32:41 minter Exp $
 # CHANGELOG:
 #   See ChangeLog file
 # CREDITS:
@@ -819,7 +827,7 @@ sub delete_song
 
 sub show_about
 {
-  $rev = '$Revision: 1.114 $';
+  $rev = '$Revision: 1.115 $';
   $rev =~ s/.*(\d+\.\d+).*/$1/;
   infobox($mw, "About Mr. Voice","Mr. Voice Version $version (Revision: $rev)\n\nBy H. Wade Minter <minter\@lunenburg.org>\n\nURL: http://www.lunenburg.org/mrvoice/\n\n(c)2001, Released under the GNU General Public License");
 }
@@ -1716,6 +1724,12 @@ sub helpmenu_items
 
 bind_hotkeys($mw);
 
+# If the default hotkey file exists, load that up.
+if (-r "$savedir/default.mrv")
+{
+  open_file ($mw,"$savedir/default.mrv");
+}
+
 if (! -x $mp3player)
 {
   my $box = $mw->DialogBox(-title=>"Warning - MP3 player not found", -buttons=>["OK"]);