summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-09-10 04:27:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-09-10 04:27:06 +0000
commita2cbd77033cda0dcf9d14b5224e83eff8e6589cf (patch)
tree665773b37b93ddb578f646c8c102a5845c9deb09
parent95924993b84755c576b1e85f79b28df0bde129e7 (diff)
downloaddrakx-a2cbd77033cda0dcf9d14b5224e83eff8e6589cf.tar
drakx-a2cbd77033cda0dcf9d14b5224e83eff8e6589cf.tar.gz
drakx-a2cbd77033cda0dcf9d14b5224e83eff8e6589cf.tar.bz2
drakx-a2cbd77033cda0dcf9d14b5224e83eff8e6589cf.tar.xz
drakx-a2cbd77033cda0dcf9d14b5224e83eff8e6589cf.zip
add button "Release Notes" in the acceptLicense dialog box
-rw-r--r--perl-install/install_steps_interactive.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 50c2c4662..036ac87fe 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -89,6 +89,7 @@ sub acceptLicense {
cancel => N("Quit"),
messages => formatAlaTeX(install_messages::main_license() . "\n\n\n" . install_messages::warning_about_patents()),
interactive_help_id => 'acceptLicense',
+ more_buttons => [ [ N("Release Notes"), sub { $o->ask_warn(N("Release Notes"), $o->{release_notes}) }, 1 ] ],
callbacks => { ok_disabled => sub { $r eq 'Refuse' } },
},
[ { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ]))