diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-02-05 12:08:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-02-05 12:08:22 +0000 |
| commit | 8b346ef435ed5dd491b2e49a278b5b746e6dd142 (patch) | |
| tree | 445f00867dba3f4b91bf77ad6c90932e171aecee /perl-install | |
| parent | 5c9a5e0d4c3495b7ac1056f5f4bd357eeebda9e4 (diff) | |
| download | drakx-backup-do-not-use-8b346ef435ed5dd491b2e49a278b5b746e6dd142.tar drakx-backup-do-not-use-8b346ef435ed5dd491b2e49a278b5b746e6dd142.tar.gz drakx-backup-do-not-use-8b346ef435ed5dd491b2e49a278b5b746e6dd142.tar.bz2 drakx-backup-do-not-use-8b346ef435ed5dd491b2e49a278b5b746e6dd142.tar.xz drakx-backup-do-not-use-8b346ef435ed5dd491b2e49a278b5b746e6dd142.zip | |
simplify _create_window() prototype
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 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"); |