From 4158940c604589d85fce94b87ed78af083291b24 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 13 Apr 2001 15:32:44 +0000
Subject: updated

---
 perl-install/Xconfigurator.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 78276bffd..5761ecdd6 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -683,7 +683,17 @@ sub chooseResolutionsGtk($$;$) {
     while (my ($w, $h) = each %w2h) {
 	my $V = $w . "x" . $h;
 	$w2widget{$w} = $r = new Gtk::RadioButton($r ? ($V, $r) : $V);
-	&$set($r) if $chosen_w == $w;
+	if ($chosen_w == $w) {
+	    &$set($r);
+	    if ($::isEmbedded) {
+		$no_human=1;
+		$w2_combo->entry->set_text($w . "x" . $w2h{$w});
+		unless (member($chosen_depth, @{$w2depth{$w}})) {
+		    $chosen_depth = max(@{$w2depth{$w}});
+		    &$set_depth();
+		}
+	    }
+	}
 	$r->signal_connect("clicked" => sub {
 			       $ignore and return;
 			       $chosen_w = $w;
-- 
cgit v1.2.1