diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-02-25 13:34:19 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-02-25 13:34:19 +0000 |
| commit | 4e8251d54488afe7034c34152a0099917752aff3 (patch) | |
| tree | b93a32fa695f63c360845fec21a3ffa1fc3b626f /perl-install | |
| parent | e0c634cc3b64a3fcb578946e86c19da55c3ab155 (diff) | |
| download | drakx-4e8251d54488afe7034c34152a0099917752aff3.tar drakx-4e8251d54488afe7034c34152a0099917752aff3.tar.gz drakx-4e8251d54488afe7034c34152a0099917752aff3.tar.bz2 drakx-4e8251d54488afe7034c34152a0099917752aff3.tar.xz drakx-4e8251d54488afe7034c34152a0099917752aff3.zip | |
(ask_from_entries_refW): ensure "advanced" lists center the chosen value
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index dd19722c6..9a42d3469 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -405,6 +405,8 @@ sub ask_from_entries_refW { ($advanced) = @_; $advanced ? $advanced_pack->show : $advanced_pack->hide; @widgets = (@widgets_always, $advanced ? @widgets_advanced : ()); + $mainw->sync; #- for $set_all below (mainly for the set of clist) + $set_all->(); #- must be done when showing advanced lists (to center selected value) }; my $advanced_button = [ $common->{advanced_label}, sub { $set_advanced->(!$advanced) } ]; @@ -430,8 +432,6 @@ sub ask_from_entries_refW { $pack->pack_start($advanced_pack, 1, 1, 0); gtkadd($mainw->{window}, $pack); $mainw->{window}->set_usize(0, min($total_size > 10 ? 350 : 200, $::windowheight - 60)) if $has_scroll; - $mainw->sync; #- for $set_all below (mainly for the set of clist) - $set_all->(); $set_advanced->(0); (@widgets ? $widgets[0]{w} : $common->{focus_cancel} ? $mainw->{cancel} : $mainw->{ok})->grab_focus(); |