From 8c6bf852804c4c6a5843675dc216f01df2a9e142 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 1 Sep 2004 03:13:05 +0000 Subject: (create_notebook) follow the same parameter order as gtkappend_page() use and as C/Gtk+ does --- perl-install/standalone/drakautoinst | 2 +- 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 } -- cgit v1.2.1