summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-19 13:40:12 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-19 13:40:12 +0000
commitbc22c8bc6804ae56833e14a6447f04ed6d05dcf7 (patch)
treeddedfa64313e95a4686361ea27ee3fc1fc00ba16 /perl-install/any.pm
parentbe8977a4b28f204b489cc20e1869a25a65b681ac (diff)
downloaddrakx-bc22c8bc6804ae56833e14a6447f04ed6d05dcf7.tar
drakx-bc22c8bc6804ae56833e14a6447f04ed6d05dcf7.tar.gz
drakx-bc22c8bc6804ae56833e14a6447f04ed6d05dcf7.tar.bz2
drakx-bc22c8bc6804ae56833e14a6447f04ed6d05dcf7.tar.xz
drakx-bc22c8bc6804ae56833e14a6447f04ed6d05dcf7.zip
(acceptLicense,get_release_notes_button) (- use new style popup button
for 'release notes' button too
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm12
1 files changed, 11 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 4fea033cb..76011c0b7 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -889,6 +889,13 @@ sub display_release_notes {
return;
}
+sub get_release_notes_button {
+ my ($callback) = @_;
+ require mygtk2;
+ mygtk2->import('gtknew');
+ gtknew('Install_Button', text => N("Release Notes"), clicked => $callback);
+}
+
sub acceptLicense {
my ($o) = @_;
require messages;
@@ -911,13 +918,16 @@ sub acceptLicense {
my $r = $::testing ? 'Accept' : 'Refuse';
+ my $callback = sub { display_release_notes($o) };
$o->ask_from_({ title => N("License agreement"),
focus_first => 1,
cancel => N("Quit"),
messages => formatAlaTeX(messages::main_license() . "\n\n\n" . messages::warning_about_patents()),
interactive_help_id => 'acceptLicense',
if_($o->{release_notes},
- more_buttons => [ [ N("Release Notes"), sub { display_release_notes($o) }, 1 ] ]),
+ more_buttons => [ [
+ ($o->isa('install::steps_gtk') ? get_release_notes_button($callback) : N("Release Notes")),
+ $callback, 1 ] ]),
callbacks => { ok_disabled => sub { $r eq 'Refuse' } },
},