summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/NEWS4
-rwxr-xr-xperl-install/standalone/display_help4
2 files changed, 8 insertions, 0 deletions
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]);