Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Tagged Version 2.0.2

  • Loading branch information...
commit 2680df6c702869098a6072d4061e0218f4eb3d63 1 parent 358ccdc
H. Wade Minter authored
Showing with 11 additions and 1 deletion.
  1. +5 −0 ChangeLog
  2. +6 −1 mrvoice.pl
5 ChangeLog
View
@@ -1,3 +1,8 @@
+Wed Nov 10 2004 H. Wade Minter (minter@lunenburg.org)
+ * Deiconify/raise the mainwindow when doing fresh-install stuff,
+ otherwise the app will silently hang.
+ * Released version 2.0.2
+
Sat Oct 2 2004 H. Wade Minter (minter@lunenburg.org)
* Nicer output from cpancheck.pl
7 mrvoice.pl
View
@@ -186,7 +186,7 @@
#####
-my $version = "2.0.1"; # Program version
+my $version = "2.0.2"; # Program version
our $status = "Welcome to Mr. Voice version $version";
sub get_rows
@@ -3272,6 +3272,8 @@ sub read_rcfile
}
else
{
+ $mw->deiconify();
+ $mw->raise();
my $norcbox = $mw->Dialog(
-title => "Configuration file not found",
-text =>
@@ -3490,6 +3492,7 @@ sub create_new_database
#########
# MAIN PROGRAM
#########
+$| = 1;
$mw = MainWindow->new;
$mw->withdraw();
my $menubar = $mw->Menu;
@@ -3505,6 +3508,8 @@ sub create_new_database
if ( !defined $config{db_file} )
{
+ $mw->deiconify();
+ $mw->raise();
my $box = $mw->DialogBox( -title => "Fatal Error", -buttons => ["Ok"] );
$box->Icon( -image => $icon );
$box->add( "Label",
Please sign in to comment.
Something went wrong with that request. Please try again.