diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-01 03:13:05 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-01 03:13:05 +0000 |
| commit | 8c6bf852804c4c6a5843675dc216f01df2a9e142 (patch) | |
| tree | 5eff2b0cf1b0d9d148720351aa322a0e5c0b644e /perl-install | |
| parent | ed28bfaa2991a3835f624ea99c29201dc04fe14d (diff) | |
| download | drakx-backup-do-not-use-8c6bf852804c4c6a5843675dc216f01df2a9e142.tar drakx-backup-do-not-use-8c6bf852804c4c6a5843675dc216f01df2a9e142.tar.gz drakx-backup-do-not-use-8c6bf852804c4c6a5843675dc216f01df2a9e142.tar.bz2 drakx-backup-do-not-use-8c6bf852804c4c6a5843675dc216f01df2a9e142.tar.xz drakx-backup-do-not-use-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-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 } |