diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-03-08 00:32:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-03-08 00:32:57 +0000 |
| commit | 96f663a1c39517c951282184848bf55ac22d1c15 (patch) | |
| tree | c2737c74f07e4b808fd298e5506e7d80f1ff718e /perl-install/interactive_gtk.pm | |
| parent | 26f5c1cfb24bff40293d312c04572ab38a0148a0 (diff) | |
| download | drakx-backup-do-not-use-96f663a1c39517c951282184848bf55ac22d1c15.tar drakx-backup-do-not-use-96f663a1c39517c951282184848bf55ac22d1c15.tar.gz drakx-backup-do-not-use-96f663a1c39517c951282184848bf55ac22d1c15.tar.bz2 drakx-backup-do-not-use-96f663a1c39517c951282184848bf55ac22d1c15.tar.xz drakx-backup-do-not-use-96f663a1c39517c951282184848bf55ac22d1c15.zip | |
no_comment
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -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 1e81785d7..250700578 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -85,7 +85,7 @@ sub ask_from_treelistW { my $s; $tree->expand($wtree{$s .= "$_$separator"}) foreach split $sep, $root; foreach my $nb (1 .. @$l) { if ($tree->node_nth($nb) == $node) { - $tree->focus_row($nb); + $tree->set_focus_row($nb); Gtk->idle_add(sub { $tree->node_moveto($node, 0, 0.5, 0); 0 }); last; } @@ -104,7 +104,7 @@ sub ask_from_treelistW { Gtk->main_quit; }; $w->{ok_clicked} = $leave; - $w->{cancel_clicked} = sub { $o->destroy; die "ask_from_list cancel" }; #- make sure windows doesn't live any more. + $w->{cancel_clicked} = sub { $w->destroy; die "ask_from_list cancel" }; #- make sure windows doesn't live any more. gtkadd($w->{window}, gtkpack($w->create_box_with_title(@$messages), gtkpack_(new Gtk::VBox(0,7), |