diff options
| -rw-r--r-- | perl-install/any.pm | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 7ffa03be2..9517186dd 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -887,13 +887,6 @@ 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; @@ -916,22 +909,21 @@ 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 => [ [ - ($o->isa('install::steps_gtk') ? get_release_notes_button($callback) : N("Release Notes")), - $callback, 1 ] ]), callbacks => { ok_disabled => sub { $r eq 'Refuse' } }, }, [ { label => N("Do you accept this license ?") }, { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } }, + if_($o->{release_notes}, + { clicked => sub { display_release_notes($o) }, + val => \ (my $_t1 = N("Release Notes")), install_button => 1, no_indent => 1 } + ), ]) or reboot($o); } |