summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-23 16:43:21 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-23 16:43:21 +0000
commitf987521c149c0a5b47a8893febcfaa1f92d4504a (patch)
tree0a9d74238f8eb08b7a0dea8ac1d324686c4d4b7a /perl-install/any.pm
parent3ff93a71aa3e4e021bad112d5ed8ad7246349fef (diff)
downloaddrakx-backup-do-not-use-f987521c149c0a5b47a8893febcfaa1f92d4504a.tar
drakx-backup-do-not-use-f987521c149c0a5b47a8893febcfaa1f92d4504a.tar.gz
drakx-backup-do-not-use-f987521c149c0a5b47a8893febcfaa1f92d4504a.tar.bz2
drakx-backup-do-not-use-f987521c149c0a5b47a8893febcfaa1f92d4504a.tar.xz
drakx-backup-do-not-use-f987521c149c0a5b47a8893febcfaa1f92d4504a.zip
(set_wm_hints_if_needed) extract if from finish-install so that it can reused elsewhere (eg: gurpmi.update)
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index a0d923780..071d23222 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1314,6 +1314,13 @@ sub running_window_manager() {
undef;
}
+sub set_wm_hints_if_needed {
+ my ($o_in) = @_;
+ my $wm = any::running_window_manager();
+ $o_in->{no_Window_Manager} = !$wm if $o_in;
+ $::set_dialog_hint = $wm eq 'drakx-matchbox-window-manager';
+}
+
sub ask_window_manager_to_logout {
my ($wm) = @_;