summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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
}