git.annexia.org
/
techtalk-pse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
$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) {
}
MAIN: while (1) {