diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2012-08-01 18:56:16 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:34 +0100 |
| commit | e5d2e80a09845619e90d736ac9c0f5fb3665574d (patch) | |
| tree | 857fcf4fce96435758c9734677e0d95d48eb758d /perl-install/standalone/drakclock | |
| parent | 57cc6e6e43ea687e8b9d55346698338d7d9d9dce (diff) | |
| download | drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar.gz drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar.bz2 drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar.xz drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.zip | |
perlish ->window => ->get_window
Diffstat (limited to 'perl-install/standalone/drakclock')
| -rwxr-xr-x | perl-install/standalone/drakclock | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock index 962474341..de1b9d0c9 100755 --- a/perl-install/standalone/drakclock +++ b/perl-install/standalone/drakclock @@ -193,7 +193,7 @@ my $pressed; $drawing_area->set_events([ 'button_press_mask', 'button_release_mask', "pointer_motion_mask" ]); $drawing_area->signal_connect(expose_event => \&expose_event); $drawing_area->signal_connect(realize => sub { - my $window = $drawing_area->window; + my $window = $drawing_area->get_window; $pixmap = Gtk3::Gdk::Pixmap->new($window, @image_size, $window->get_depth); }); @@ -316,7 +316,7 @@ sub determine_radian { sub expose_event { my ($widget, $event) = @_; my ($x, $y, $width, $height) = $event->area->values; - $widget->window->draw_drawable($widget->style->fg_gc('normal'), $pixmap, $x, $y, $x, $y, $width, $height); + $widget->get_window->draw_drawable($widget->style->fg_gc('normal'), $pixmap, $x, $y, $x, $y, $width, $height); 0; } |