aboutsummaryrefslogtreecommitdiffstats
path: root/grpmi/grpmi.pl
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-08-21 09:23:34 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-08-21 09:23:34 +0000
commit564b51c286d5cb478b37300a75fff960eeba48b3 (patch)
treeab887a03a2af5e5f0282c2009725e66013e159d6 /grpmi/grpmi.pl
parentb2b8049421a0dbe044f89e50e6db9331bf10dca9 (diff)
downloadrpmdrake-564b51c286d5cb478b37300a75fff960eeba48b3.tar
rpmdrake-564b51c286d5cb478b37300a75fff960eeba48b3.tar.gz
rpmdrake-564b51c286d5cb478b37300a75fff960eeba48b3.tar.bz2
rpmdrake-564b51c286d5cb478b37300a75fff960eeba48b3.tar.xz
rpmdrake-564b51c286d5cb478b37300a75fff960eeba48b3.zip
use my_gtk::exit so that mouse cursor gets fixed when exiting
hide mainwindow before waving bye bye
Diffstat (limited to 'grpmi/grpmi.pl')
-rwxr-xr-xgrpmi/grpmi.pl8
1 files 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;