From f987521c149c0a5b47a8893febcfaa1f92d4504a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 23 Sep 2008 16:43:21 +0000
Subject: (set_wm_hints_if_needed) extract if from finish-install so that it
 can reused elsewhere (eg: gurpmi.update)

---
 perl-install/any.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perl-install/any.pm')

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) = @_;
     
-- 
cgit v1.2.1