diff options
| author | pad <pad@mandriva.com> | 1999-09-05 21:28:36 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-05 21:28:36 +0000 |
| commit | 38dce4a6d02d689b7aefa2b5f925ac5441c51a89 (patch) | |
| tree | 78e8513e786585460ab499c1614e46dfbf1e25be /perl-install/my_gtk.pm | |
| parent | feaf2a529e993fee5bd71560d883ef354537ed6a (diff) | |
| download | drakx-backup-do-not-use-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar drakx-backup-do-not-use-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.gz drakx-backup-do-not-use-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.bz2 drakx-backup-do-not-use-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.xz drakx-backup-do-not-use-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.zip | |
code clarification + bugfix
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 30 |
1 files changed, 26 insertions, 4 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index f0ccaa028..a6e594eba 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -334,7 +334,7 @@ sub _ask_from_entry($$@) { } sub _ask_from_list($$$$) { my ($o, $messages, $l, $def) = @_; - my $list = new Gtk::List; + my $list = new Gtk::List(); my ($first_time, $starting_word) = (1, ''); my (@widgets, $timeout); $list->signal_connect(select_child => sub { @@ -374,13 +374,35 @@ sub _ask_from_list($$$$) { # push @::ask_from_list_widgets, $w; # hack!! to not get SIGSEGV push @widgets, $w; } @$l; +# $scroll_win->set_policy("automatic","automatic"); +# my $scroll_win = @widgets > 15 ? gtkset_usize(createScrolledWindow($list), 200, 280) : $list; gtkadd($list, @widgets); +# $list->set_selection_mode("extended"); + my $scroll_win = do { + if (@widgets > 15) { + my $win = createScrolledWindow($list); + gtkset_usize($win, 200, 280); + $list->set_focus_vadjustment($win->get_vadjustment); + $list->set_focus_hadjustment($win->get_hadjustment); +# my $adj = create_adjustment(45,0,200); +# $win->set_hadjustment($adj); +# my $adj = $win->get_vadjustment; +# $adj->set_value(45200); +# $list->set_focus_vadjustment(new Gtk::Adjustment(45)); +# $widgets[$def]->visible(1); +# $list->set_focus_child($widgets[$def]); +# $list->select_item($def); +# $widgets[$def]->toggle_focus_row(); + $win; + } else { + $list; + } + }; gtkadd($o->{window}, gtkpack($o->create_box_with_title(@$messages), - @widgets > 15 ? - gtkset_usize(createScrolledWindow($list), 200, 280) : - $list)); + $scroll_win)); $widgets[$def]->grab_focus; + } sub _ask_warn($@) { |