From 96f663a1c39517c951282184848bf55ac22d1c15 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 8 Mar 2000 00:32:57 +0000 Subject: no_comment --- perl-install/interactive_gtk.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/interactive_gtk.pm') 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), -- cgit v1.2.1