summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-05 12:08:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-05 12:08:22 +0000
commit8b346ef435ed5dd491b2e49a278b5b746e6dd142 (patch)
tree445f00867dba3f4b91bf77ad6c90932e171aecee /perl-install
parent5c9a5e0d4c3495b7ac1056f5f4bd357eeebda9e4 (diff)
downloaddrakx-8b346ef435ed5dd491b2e49a278b5b746e6dd142.tar
drakx-8b346ef435ed5dd491b2e49a278b5b746e6dd142.tar.gz
drakx-8b346ef435ed5dd491b2e49a278b5b746e6dd142.tar.bz2
drakx-8b346ef435ed5dd491b2e49a278b5b746e6dd142.tar.xz
drakx-8b346ef435ed5dd491b2e49a278b5b746e6dd142.zip
simplify _create_window() prototype
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm8
1 files changed, 4 insertions, 4 deletions
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");