From bc19d8381ea0da57d7d0e9532ae08fdb1b24469b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 14 Nov 2008 11:35:26 +0000
Subject: allow to show only installed WMs in interactive mode (for
 finish-install)

---
 lib/Xconfig/glx.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Xconfig/glx.pm b/lib/Xconfig/glx.pm
index afad639..45bef17 100644
--- a/lib/Xconfig/glx.pm
+++ b/lib/Xconfig/glx.pm
@@ -215,9 +215,12 @@ sub detect_types {
 }
 
 sub choose_interactive {
-    my ($in, $glx) = @_;
+    my ($in, $glx, $o_installed_only) = @_;
 
     my ($available, $type) = detect_types($glx);
+    @$available = grep {
+        !$_->{wms} || -e '/usr/bin/' . first(@{$_->{wms}})
+    } @$available if $o_installed_only;
 
     $in->ask_from_({ title => N("3D Desktop effects") }, [
 	{ label => N("3D Desktop effects"), title => 1 },
-- 
cgit v1.2.1