diff options
Diffstat (limited to 'perl-install/mygtk3.pm')
| -rw-r--r-- | perl-install/mygtk3.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index 318555786..b9a8eaefd 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -116,7 +116,7 @@ sub _gtk { $w->grab_focus if delete $opts->{grab_focus}; $w->set_padding(@{delete $opts->{padding}}) if exists $opts->{padding}; $w->set_sensitive(delete $opts->{sensitive}) if exists $opts->{sensitive}; - $w->signal_connect(expose_event => delete $opts->{expose_event}) if exists $opts->{expose_event}; + $w->signal_connect(draw => delete $opts->{draw}) if exists $opts->{draw}; $w->signal_connect(realize => delete $opts->{realize}) if exists $opts->{realize}; (delete $opts->{size_group})->add_widget($w) if $opts->{size_group}; if (my $tip = delete $opts->{tip}) { @@ -342,7 +342,7 @@ sub _gtk__Image { my ($width, $height) = ($pixbuf->get_width, $pixbuf->get_height); $w->set_size_request($width, $height); $w->{pixbuf} = $pixbuf; - $w->signal_connect(expose_event => sub { + $w->signal_connect(draw => sub { my (undef, $event) = @_; if (!$w->{x}) { my $alloc = $w->get_allocation; @@ -1481,7 +1481,7 @@ sub flush() { sub enable_sync_flush { my ($w) = @_; - $w->signal_connect(expose_event => sub { $w->{displayed} = 1; 0 }); + $w->signal_connect(draw => sub { $w->{displayed} = 1; 0 }); } sub sync_flush { |