summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/display_help
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2012-08-01 17:16:09 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:33 +0100
commit504f6c89db28716c7038153fb7838565b4ba0583 (patch)
treeca6e1c843dfb368d34f5c6b89f962d61415525ee /perl-install/standalone/display_help
parent3252bfe856428c0a38ba7edb0f0ad6245537df6e (diff)
downloaddrakx-504f6c89db28716c7038153fb7838565b4ba0583.tar
drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.gz
drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.bz2
drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.xz
drakx-504f6c89db28716c7038153fb7838565b4ba0583.zip
use (my|u)gtk3 instead of *tk2
Diffstat (limited to 'perl-install/standalone/display_help')
-rwxr-xr-xperl-install/standalone/display_help10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/display_help b/perl-install/standalone/display_help
index 3894d04e3..bc219eb8a 100755
--- a/perl-install/standalone/display_help
+++ b/perl-install/standalone/display_help
@@ -22,8 +22,8 @@
use lib qw(/usr/lib/libDrakX);
use common;
use any;
-use mygtk2 qw(gtknew);
-use ugtk2 qw(:wrappers :create);
+use mygtk3 qw(gtknew);
+use ugtk3 qw(:wrappers :create);
use Gtk2::WebKit;
my $view = gtknew('WebKit_View', no_popup_menu => 1);
@@ -31,11 +31,11 @@ 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()?
+# FIXME: merge this with mcc code into new mygtk3::set_standalone_main_window_size()?
my ($rootwin_width, $rootwin_height) = gtkroot()->get_size;
my ($default_width, $default_height);
my $wm = any::running_window_manager();
@@ -51,7 +51,7 @@ 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,