summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS3
-rw-r--r--gurpmi.pm9
2 files changed, 11 insertions, 1 deletions
diff --git a/NEWS b/NEWS
index 4aeafc7d..d306899d 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+- gurpmi
+ o better handle closing dialogs
+
Version 6.2 - 7 August 2008, Thierry Vignaud
- gurpmi
diff --git a/gurpmi.pm b/gurpmi.pm
index b5bb20cd..64a5d023 100644
--- a/gurpmi.pm
+++ b/gurpmi.pm
@@ -103,7 +103,14 @@ sub parse_command_line() {
sub but ($) { " $_[0] " }
-sub quit () { Gtk2->main_quit }
+sub quit () {
+ if (Gtk2->main_level) {
+ Gtk2->main_quit;
+ } else {
+ # just exit if not in main loop (eg: while starting the GUI)
+ exit 1;
+ }
+}
sub add_button_box {
my ($vbox, @buttons) = @_;