diff options
| -rwxr-xr-x | control-center | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/control-center b/control-center index 0fd4e95a..c7b0f4da 100755 --- a/control-center +++ b/control-center @@ -1124,23 +1124,23 @@ sub scale { package Gtk2::SizeableImage; -use ugtk2; +use ugtk2 qw(:helpers :wrappers); sub set_bg_img { my ($w) = @_; - $w->{pixbuf} ||= ugtk2::gtkcreate_pixbuf($w->{image}); - ugtk2::set_back_pixbuf($w, $w->{pixbuf}); + $w->{pixbuf} ||= gtkcreate_pixbuf($w->{image}); + set_back_pixbuf($w, $w->{pixbuf}); } sub new { my ($_class, $image) = @_; - my $w = ugtk2::gtksignal_connect( - ugtk2::gtksignal_connect( - ugtk2::gtkset_size_request(Gtk2::DrawingArea->new, -1, 1), - "configure-event" => \&set_bg_img - ), - realize => \&set_bg_img - ); + my $w = gtksignal_connect( + gtksignal_connect( + gtkset_size_request(Gtk2::DrawingArea->new, -1, 1), + "configure-event" => \&set_bg_img + ), + realize => \&set_bg_img + ); $w->{image} = $image; $w; } |