From 8c6bf852804c4c6a5843675dc216f01df2a9e142 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
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/ugtk2.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/ugtk2.pm')

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