summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-01 03:13:05 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-01 03:13:05 +0000
commit8c6bf852804c4c6a5843675dc216f01df2a9e142 (patch)
tree5eff2b0cf1b0d9d148720351aa322a0e5c0b644e /perl-install
parented28bfaa2991a3835f624ea99c29201dc04fe14d (diff)
downloaddrakx-8c6bf852804c4c6a5843675dc216f01df2a9e142.tar
drakx-8c6bf852804c4c6a5843675dc216f01df2a9e142.tar.gz
drakx-8c6bf852804c4c6a5843675dc216f01df2a9e142.tar.bz2
drakx-8c6bf852804c4c6a5843675dc216f01df2a9e142.tar.xz
drakx-8c6bf852804c4c6a5843675dc216f01df2a9e142.zip
(create_notebook) follow the same parameter order as gtkappend_page() use and
as C/Gtk+ does
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakautoinst2
-rw-r--r--perl-install/ugtk2.pm4
2 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index a9c9e54a3..abc0e7ea1 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -222,7 +222,7 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) {
# $W->{window}->show_all;
# gtkadd($W->{window},
# gtkpack_($W->create_box_with_title(N("Edit variables")),
-# 1, my $notebook = create_notebook( map { $_, h2widget($o->{$_}, "\$o->\{$_\}") } keys %$o ),
+# 1, my $notebook = create_notebook( map { h2widget($o->{$_}, "\$o->\{$_\}"), $_ } keys %$o ),
# 0, gtkpack(gtkset_border_width(Gtk2::HBox->new(0,0),5), $W->create_okcancel),
# ),
# );
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 85e54b262..a0266023e 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -471,8 +471,8 @@ sub create_menu {
sub create_notebook {
my $book = Gtk2::Notebook->new;
while (@_) {
- my ($title, $page) = splice(@_, 0, 2);
- gtkappend_page($book, $title, $page);
+ my ($page, $title) = splice(@_, 0, 2);
+ gtkappend_page($book, $page, $title);
}
$book
}