From 5a3fc63c8ef1c21975d1129c2827ebb8094c1526 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 2 Apr 2008 23:31:47 +0000
Subject: do not write decimal values in theme config (#38271)

---
 perl-install/standalone/draksplash | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 475acf5d3..72c9fcaf4 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -234,7 +234,7 @@ sub get_scale_max {
 }
 sub apply_scale {
     my ($name) = @_;
-    $theme{conf}{$name} = $adj{$name}->get_value;
+    $theme{conf}{$name} = int($adj{$name}->get_value);
     update_rect();
     $image_area->queue_draw;
 }
@@ -244,7 +244,7 @@ sub check_scale_value {
     $adj{$linked}->get_value > $max and $adj{$linked}->set_value($max);
 }
 sub update_scales_for_resolution() {
-    $theme{conf}{$_} ||= get_scale_max($_) * $scale_settings{$_}[0] foreach keys %scale_settings;
+    $theme{conf}{$_} ||= int(get_scale_max($_) * $scale_settings{$_}[0]) foreach keys %scale_settings;
     $adj{$_}->upper(get_scale_max($_)) foreach keys %adj;
 }
 sub update_scale_values_from_conf() {
-- 
cgit v1.2.1