summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-12 01:04:08 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:18 +0100
commitef918297c8f6ca912fb61028b59f4a049c08683c (patch)
tree2b44f3f1f4cfb1d3bc4cc30359352abc23c1087f /perl-install/standalone
parentd985ce0894028d2497ab840789877929d92f18a1 (diff)
downloaddrakx-ef918297c8f6ca912fb61028b59f4a049c08683c.tar
drakx-ef918297c8f6ca912fb61028b59f4a049c08683c.tar.gz
drakx-ef918297c8f6ca912fb61028b59f4a049c08683c.tar.bz2
drakx-ef918297c8f6ca912fb61028b59f4a049c08683c.tar.xz
drakx-ef918297c8f6ca912fb61028b59f4a049c08683c.zip
perlish ->style() => ->get_style()
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakclock10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index a61ac98ac..fe072b073 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -316,7 +316,7 @@ sub determine_radian {
sub draw {
my ($widget, $event) = @_;
my ($x, $y, $width, $height) = $event->area->get_values;
- $widget->get_window->draw_drawable($widget->style->fg_gc('normal'), $pixmap, $x, $y, $x, $y, $width, $height);
+ $widget->get_window->draw_drawable($widget->get_style->fg_gc('normal'), $pixmap, $x, $y, $x, $y, $width, $height);
0;
}
@@ -344,15 +344,15 @@ sub Repaint {
my $dRadians_hour_real = $dRadians_hour + $dRadians_min / 12;
my $dRadians_min_real = POSIX::floor($dRadians_min / $PI * 30) * $PI / 30;
my $dRadians_sec_real = $dRadians_sec;
- my $gc = $drawing_area->style->white_gc;
+ my $gc = $drawing_area->get_style->white_gc;
# fix race on ugtk3->exit that causes a crash (#33894)
return 0 if !$gc;
- $pixmap->draw_rectangle($drawing_area->style->white_gc, 1, 0, 0, $width, $height);
+ $pixmap->draw_rectangle($drawing_area->get_style->white_gc, 1, 0, 0, $width, $height);
my ($midx, $midy) = ($width / 2, $height / 2);
$radius = ($midx < $midy ? $midx : $midy) - 10;
- my $gray_gc = $drawing_area->style->bg_gc('normal');
- my $black_gc = $drawing_area->style->black_gc;
+ my $gray_gc = $drawing_area->get_style->bg_gc('normal');
+ my $black_gc = $drawing_area->get_style->black_gc;
foreach ([ $gray_gc, 5 ], [ $black_gc, 0 ]) {
&DrawTickAt($pixmap, $_->[0], $midx, $midy, $_->[1]);
&DrawHour($pixmap, $_->[0], $midx, $midy, $dRadians_hour_real, $_->[1]);