diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-01 03:12:47 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-01 03:12:47 +0000 |
| commit | ed28bfaa2991a3835f624ea99c29201dc04fe14d (patch) | |
| tree | 021b8b82afaaefbd0042c202a0df05f0da7498d5 /perl-install | |
| parent | 0f1aca45447e8a08d9c434b5a4b9251e37186801 (diff) | |
| download | drakx-ed28bfaa2991a3835f624ea99c29201dc04fe14d.tar drakx-ed28bfaa2991a3835f624ea99c29201dc04fe14d.tar.gz drakx-ed28bfaa2991a3835f624ea99c29201dc04fe14d.tar.bz2 drakx-ed28bfaa2991a3835f624ea99c29201dc04fe14d.tar.xz drakx-ed28bfaa2991a3835f624ea99c29201dc04fe14d.zip | |
(create_notebook) give meaningfull name to variables
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index bef9fe9ea..85e54b262 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -469,12 +469,12 @@ sub create_menu { } sub create_notebook { - my $n = Gtk2::Notebook->new; + my $book = Gtk2::Notebook->new; while (@_) { - my ($title, $book) = splice(@_, 0, 2); - gtkappend_page($n, $title, $book); + my ($title, $page) = splice(@_, 0, 2); + gtkappend_page($book, $title, $page); } - $n + $book } sub create_packtable { |