X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=techtalk-pse.pl;h=84f83e88f4a01bc489c8fe422c828b3b6c3f1a59;hb=951438c967ed3e46171015dc65918ed55f9c17c6;hp=6bd310fac89a3c990e5f5d74b9eb626eaf3edc26;hpb=c431a4b7b48666ed1e39846a347e22b1e46bad79;p=techtalk-pse.git

diff --git a/techtalk-pse.pl b/techtalk-pse.pl
index 6bd310f..84f83e8 100755
--- a/techtalk-pse.pl
+++ b/techtalk-pse.pl
@@ -256,6 +256,11 @@ if ($splash) {
     $w->run;
     print STDERR "calling \$w->destroy on about dialog\n" if $verbose;
     $w->destroy;
+
+    # The dialog doesn't really get destroyed here.  We have
+    # to add this hack to really destroy it.
+    Glib::Idle->add (sub { Gtk2->main_quit; return FALSE; });
+    Gtk2->main;
 }
 
 MAIN: while (1) {