diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-08-19 13:40:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-08-19 13:40:12 +0000 |
| commit | bc22c8bc6804ae56833e14a6447f04ed6d05dcf7 (patch) | |
| tree | ddedfa64313e95a4686361ea27ee3fc1fc00ba16 /perl-install/any.pm | |
| parent | be8977a4b28f204b489cc20e1869a25a65b681ac (diff) | |
| download | drakx-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.pm | 12 |
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' } }, }, |