diff options
| author | Thierry Vignaud <tv@mageia.org> | 2013-03-04 19:10:40 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2013-03-04 19:10:40 +0000 |
| commit | 15ed2f5822c7185a2ad0fd7350f2654a816585bb (patch) | |
| tree | 6d9e87299cc76b1d565c0d0d6777e4f3b335def4 /perl-install | |
| parent | 43b9722f1b20f9384da28ee51b6c130e19e1a5bb (diff) | |
| download | drakx-15ed2f5822c7185a2ad0fd7350f2654a816585bb.tar drakx-15ed2f5822c7185a2ad0fd7350f2654a816585bb.tar.gz drakx-15ed2f5822c7185a2ad0fd7350f2654a816585bb.tar.bz2 drakx-15ed2f5822c7185a2ad0fd7350f2654a816585bb.tar.xz drakx-15ed2f5822c7185a2ad0fd7350f2654a816585bb.zip | |
simplify
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 8 | ||||
| -rw-r--r-- | perl-install/services.pm | 4 |
2 files changed, 3 insertions, 9 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index b8e87ebaf..b6f66f0dc 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -311,9 +311,7 @@ sub reallyChooseDesktop { 0, $w->create_okcancel(N("Next"), undef, '', [ gtknew('Install_Button', text => N("Help"), clicked => sub { - interactive::gtk::display_help( - $o, - { interactive_help_id => 'chooseDesktop' }); + interactive::gtk::display_help($o, { interactive_help_id => 'chooseDesktop' }); }), undef, 1 ]) ])); $w->main; @@ -509,9 +507,7 @@ sub choosePackagesTree { }, auto_deps => N("Show automatically selected packages"), interactive_help => sub { - interactive::gtk::display_help($o, - { interactive_help_id => - 'choosePackagesTree' }) }, + interactive::gtk::display_help($o, { interactive_help_id => 'choosePackagesTree' }) }, ok => N("Install"), cancel => N("Previous"), diff --git a/perl-install/services.pm b/perl-install/services.pm index 3ef2a0500..33612abad 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -209,9 +209,7 @@ sub ask_ { }, get_info => sub { formatLines(description($_[0])) }, interactive_help => sub { - interactive::gtk::display_help($in, - { interactive_help_id => - 'configureServices' }) }, + interactive::gtk::display_help($in, { interactive_help_id => 'configureServices' }) }, }) or return $l, $on_services; #- no change on cancel. [ grep { $services{$_} } @$l ]; } |