diff options
-rw-r--r-- | NEWS | 3 | ||||
-rw-r--r-- | gurpmi.pm | 9 |
2 files changed, 11 insertions, 1 deletions
@@ -1,3 +1,6 @@ +- gurpmi + o better handle closing dialogs + Version 6.2 - 7 August 2008, Thierry Vignaud - gurpmi @@ -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) = @_; |