From 37938ea26fd0467089d00440332467038187790e Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 19 May 2010 07:27:33 +0000 Subject: - display_help: allow scripts to close window, for first time wizard (by default webkit only allows it for first page in history or for pages opened by DOM, requires webkit-1.2.0-3mdv2010.1) --- perl-install/NEWS | 4 ++++ perl-install/standalone/display_help | 4 ++++ 2 files changed, 8 insertions(+) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index 08ba21984..08fe7cf0f 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,7 @@ +- display_help: allow scripts to close window, for first time wizard + (by default webkit only allows it for first page in history or for + pages opened by DOM, requires webkit-1.2.0-3mdv2010.1) + Version 13.26 - 17 May 2010 - enable acl by default on ext2/3/4 fs diff --git a/perl-install/standalone/display_help b/perl-install/standalone/display_help index db51ad09c..3894d04e3 100755 --- a/perl-install/standalone/display_help +++ b/perl-install/standalone/display_help @@ -27,6 +27,10 @@ use ugtk2 qw(:wrappers :create); use Gtk2::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->open($ARGV[0]); -- cgit v1.2.1