diff options
| -rwxr-xr-x | perl-install/standalone/drakautoinst | 2 | ||||
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
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 } |