Add a hack to remove the about dialog.

[techtalk-pse.git] / techtalk-pse.pl

diff --git a/techtalk-pse.pl b/techtalk-pse.pl
index 6bd310f..84f83e8 100755 (executable)
--- 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) {