summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-03-08 00:32:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-03-08 00:32:57 +0000
commit96f663a1c39517c951282184848bf55ac22d1c15 (patch)
treec2737c74f07e4b808fd298e5506e7d80f1ff718e /perl-install/interactive_gtk.pm
parent26f5c1cfb24bff40293d312c04572ab38a0148a0 (diff)
downloaddrakx-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.pm4
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),