From 564b51c286d5cb478b37300a75fff960eeba48b3 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 21 Aug 2002 09:23:34 +0000 Subject: use my_gtk::exit so that mouse cursor gets fixed when exiting hide mainwindow before waving bye bye --- grpmi/grpmi.pl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/grpmi/grpmi.pl b/grpmi/grpmi.pl index 3fc14ef6..c4df589c 100755 --- a/grpmi/grpmi.pl +++ b/grpmi/grpmi.pl @@ -38,6 +38,7 @@ sub _ { my $s = shift @_; my $t = translate($s); sprintf $t, @_; } +sub mexit { my_gtk::exit @_ } sub interactive_msg { my ($title, $contents, $yesno) = @_; @@ -60,10 +61,10 @@ sub interactive_msg { Gtk->init; $> and interactive_msg(_("Error..."), - _("You need to be root to install packages, sorry.")), exit -1; + _("You need to be root to install packages, sorry.")), mexit -1; grpmi_rpm::init_rcstuff() and interactive_msg(_("RPM initialization error"), - _("The initialization of config files of RPM was not possible, sorry.")), exit -1; + _("The initialization of config files of RPM was not possible, sorry.")), mexit -1; $ENV{HOME} ||= '/root'; my @grpmi_config = map { chomp_($_) } cat_("$ENV{HOME}/.grpmi"); @@ -172,6 +173,7 @@ Do you want to force the install anyway?", # -=-=-=---=-=-=---=-=-=-- cleanup -=-=-=---=-=-=-- $exitstatus = 0; +$mainw->{rwindow}->hide; interactive_msg(_("Everything installed successfully"), _("All requested packages were installed successfully.")); cleanup: if (!member('noclearcache', @grpmi_config)) { @@ -180,4 +182,4 @@ if (!member('noclearcache', @grpmi_config)) { /^\Q$cache_location/ and unlink; } } -exit $exitstatus; +mexit $exitstatus; -- cgit v1.2.1