From 950fe7395621dc21885ac3e1280e007248646608 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Nov 1999 03:02:37 +0000
Subject: no_comment

---
 perl-install/my_gtk.pm | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 848a764a4..29de8a794 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -239,19 +239,20 @@ sub create_menu($@) {
     $w
 }
 
+sub add2notebook {
+    my ($n, $title, $book) = @_;
+
+    my ($w1, $w2) = map { new Gtk::Label($_) } $title, $title;
+    $book->{widget_title} = $w1;
+    $n->append_page_menu($book, $w1, $w2);
+    $book->show;
+    $w1->show;
+    $w2->show;
+}
+
 sub create_notebook(@) {
     my $n = new Gtk::Notebook;
-    while (@_) {
-	my $title = shift;
-	my $book = shift;
-
-	my ($w1, $w2) = map { new Gtk::Label($_) } $title, $title;
-	$book->{widget_title} = $w1;
-	$n->append_page_menu($book, $w1, $w2);
-	$book->show;
-	$w1->show;
-	$w2->show;
-    }
+    add2notebook($n, splice(@_, 0, 2)) while @_;
     $n
 }
 
-- 
cgit v1.2.1