diff options
| author | Olivier Blin <oblin@mandriva.com> | 2010-05-19 07:27:33 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2010-05-19 07:27:33 +0000 |
| commit | 37938ea26fd0467089d00440332467038187790e (patch) | |
| tree | 29233cf5f17022445839a075b293c065657c95b4 /perl-install/standalone | |
| parent | 576544e4eef6a5c32461f571d4ad83aefc88303d (diff) | |
| download | drakx-37938ea26fd0467089d00440332467038187790e.tar drakx-37938ea26fd0467089d00440332467038187790e.tar.gz drakx-37938ea26fd0467089d00440332467038187790e.tar.bz2 drakx-37938ea26fd0467089d00440332467038187790e.tar.xz drakx-37938ea26fd0467089d00440332467038187790e.zip | |
- 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)
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/display_help | 4 |
1 files changed, 4 insertions, 0 deletions
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]); |