diff options
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/mygtk2.pm | 18 |
2 files changed, 20 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 148f6d77f..45367c0cb 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,5 @@ +- factorize WebKit code with mcc + Version 11.54.2 - 26 September 2008 - bootloader-config: diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 9e4c870c8..fa024a57d 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -527,6 +527,24 @@ sub _gtk__TextView { $w; } +sub _gtk__WebKit_View { + my ($w, $opts, $_class, $action) = @_; + if (!$w) { + $w = Gtk2::WebKit::WebView->new; + } + + # disable contextual menu: + if (delete $opts->{no_popup_menu}) { + $w->signal_connect('populate-popup' => sub { + my (undef, $menu) = @_; + $menu->destroy if $menu; + 1; + }); + } + + $w; +} + sub _gtk__ComboBox { my ($w, $opts, $_class, $action) = @_; |