diff options
Diffstat (limited to 'perl-install/standalone/display_help')
| -rwxr-xr-x | perl-install/standalone/display_help | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/display_help b/perl-install/standalone/display_help index bc219eb8a..bd857d092 100755 --- a/perl-install/standalone/display_help +++ b/perl-install/standalone/display_help @@ -24,7 +24,7 @@ use common; use any; use mygtk3 qw(gtknew); use ugtk3 qw(:wrappers :create); -use Gtk2::WebKit; +use Gtk3::WebKit; my $view = gtknew('WebKit_View', no_popup_menu => 1); @@ -54,17 +54,17 @@ if (!$is_firstime) { my $w = ugtk3->new(N("Help"), width => $default_width, height => $default_height); gtkadd($w->{rwindow}, - gtkpack_(Gtk2::VBox->new, + gtkpack_(Gtk3::VBox->new, if_(!$is_firstime, 0, gtknew('Title2', label => N("Help")), - 0, Gtk2::HSeparator->new, + 0, Gtk3::HSeparator->new, ), 1, create_scrolled_window(gtkset_border_width($view, 5), [ 'never', 'automatic' ]), #1, gtknew('ScrolledWindow', child => $view, border_width => 5, h_policy => 'never'); - 0, Gtk2::HSeparator->new, + 0, Gtk3::HSeparator->new, if_(!$is_firstime, 0, gtkpack(create_hbox('end'), - gtknew('Button', text => N("Close"), clicked => sub { Gtk2->main_quit }) + gtknew('Button', text => N("Close"), clicked => sub { Gtk3->main_quit }) ), ), ), |