From 8b346ef435ed5dd491b2e49a278b5b746e6dd142 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Feb 2004 12:08:22 +0000
Subject: simplify _create_window() prototype

---
 perl-install/ugtk2.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 903f8eb78..09ebdf566 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -878,7 +878,7 @@ sub new {
     };
 
     if ($o->{pop_it}) {
-	$o->{rwindow} = _create_window($o, $title);
+	$o->{rwindow} = _create_window($title);
 
 	if ($::isInstall || $::isEmbedded) {
 	    gtkadd($o->{rwindow}, 
@@ -906,7 +906,7 @@ sub new {
 	    flush();
 	    $::Plug->add($::WizardTable);
 	} elsif (!$::WizardWindow) {
-	    $::WizardWindow = _create_window($o, $title);
+	    $::WizardWindow = _create_window($title);
 
 	    $::WizardWindow->add(gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'out'), $::WizardTable));
 
@@ -998,8 +998,8 @@ sub exit {
 #- in case "exit" above was not called by the program
 END { &exit() }
 
-sub _create_window($$) {
-    my ($o, $title) = @_;
+sub _create_window {
+    my ($title) = @_;
     my $w = Gtk2::Window->new('toplevel');
 
     $w->set_name("Title");
-- 
cgit v1.2.1