summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-04-13 15:32:44 +0000
committerdamien <damien@mandriva.com>2001-04-13 15:32:44 +0000
commit4158940c604589d85fce94b87ed78af083291b24 (patch)
tree6c43cee2828adfc4b9eb1d5f652ba1c22652ed7a /perl-install
parent401b6dab38b176ce9c4f5b5a869bd159ca1a4117 (diff)
downloaddrakx-backup-do-not-use-4158940c604589d85fce94b87ed78af083291b24.tar
drakx-backup-do-not-use-4158940c604589d85fce94b87ed78af083291b24.tar.gz
drakx-backup-do-not-use-4158940c604589d85fce94b87ed78af083291b24.tar.bz2
drakx-backup-do-not-use-4158940c604589d85fce94b87ed78af083291b24.tar.xz
drakx-backup-do-not-use-4158940c604589d85fce94b87ed78af083291b24.zip
updated
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm12
1 files changed, 11 insertions, 1 deletions
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;