summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm16
1 files changed, 6 insertions, 10 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 5761ecdd6..42877a059 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -661,7 +661,7 @@ sub chooseResolutionsGtk($$;$) {
my $W = my_gtk->new(_("Resolution"));
my %txt2depth = reverse %depths;
my ($r, $depth_combo, %w2depth, %w2h, %w2widget, $pix_monitor, $pix_colors, $w2_combo);
-
+ $w2_combo = new Gtk::Combo;
my $best_w;
while (my ($depth, $res) = each %{$card->{depth}}) {
foreach (@$res) {
@@ -685,14 +685,6 @@ sub chooseResolutionsGtk($$;$) {
$w2widget{$w} = $r = new Gtk::RadioButton($r ? ($V, $r) : $V);
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;
@@ -717,7 +709,7 @@ sub chooseResolutionsGtk($$;$) {
if_(!$::isEmbedded, map {$w2widget{$_} } ikeys(%w2widget)),
gtkpack2(new Gtk::HBox(0,0),
create_packtable({ col_spacings => 5, row_spacings => 5},
- [ if_($::isEmbedded,$w2_combo = new Gtk::Combo) , new Gtk::Label("")],
+ [ if_($::isEmbedded,$w2_combo) , new Gtk::Label("")],
[ $depth_combo = new Gtk::Combo, gtkadd(gtkset_shadow_type(new Gtk::Frame, 'etched_out'), $pix_colors = gtkpng ("colors")) ],
),
),
@@ -754,6 +746,10 @@ sub chooseResolutionsGtk($$;$) {
&$set_depth();
$W->{ok}->grab_focus;
+ if ($::isEmbedded) {
+ $no_human=1;
+ $w2_combo->entry->set_text($chosen_w . "x" . $w2h{$chosen_w});
+ }
$W->main or return;
($chosen_depth, $chosen_w);
}