diff options
Diffstat (limited to 'perl-install/standalone/display_help')
| -rwxr-xr-x | perl-install/standalone/display_help | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/standalone/display_help b/perl-install/standalone/display_help index 3894d04e3..b977f0532 100755 --- a/perl-install/standalone/display_help +++ b/perl-install/standalone/display_help @@ -22,21 +22,21 @@ use lib qw(/usr/lib/libDrakX); use common; use any; -use mygtk2 qw(gtknew); -use ugtk2 qw(:wrappers :create); -use Gtk2::WebKit; +use mygtk3 qw(gtknew); +use ugtk3 qw(:wrappers :create); +use Gtk3::WebKit; my $view = gtknew('WebKit_View', no_popup_menu => 1); my $websettings = $view->get_settings; $websettings->set_property('allow-scripts-to-close-windows', 1); $view->set_settings($websettings); -$view->signal_connect('close-web-view', sub { ugtk2::exit(0) }); +$view->signal_connect('close-web-view', sub { ugtk3::exit(0) }); $view->open($ARGV[0]); -# FIXME: merge this with mcc code into new mygtk2::set_standalone_main_window_size()? -my ($rootwin_width, $rootwin_height) = gtkroot()->get_size; +# FIXME: merge this with mcc code into new mygtk3::set_standalone_main_window_size()? +my ($rootwin_width, $rootwin_height) = mygtk3::root_window_size(); my ($default_width, $default_height); my $wm = any::running_window_manager(); my $is_firstime = to_bool($wm =~ /drakx-matchbox-window-manager/); @@ -51,20 +51,20 @@ if (!$is_firstime) { } # TODO: got XID from mcc/... ? (transient & modal hints?) -my $w = ugtk2->new(N("Help"), width => $default_width, height => $default_height); +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 }) ), ), ), |