summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-04-02 23:31:47 +0000
committerOlivier Blin <oblin@mandriva.com>2008-04-02 23:31:47 +0000
commit5a3fc63c8ef1c21975d1129c2827ebb8094c1526 (patch)
tree8472d3b07c8ea0cc89b61c40ce850434bcaa21e6 /perl-install
parent451f2e39b0fe502e007d73ef516bdd1a84213ef2 (diff)
downloaddrakx-5a3fc63c8ef1c21975d1129c2827ebb8094c1526.tar
drakx-5a3fc63c8ef1c21975d1129c2827ebb8094c1526.tar.gz
drakx-5a3fc63c8ef1c21975d1129c2827ebb8094c1526.tar.bz2
drakx-5a3fc63c8ef1c21975d1129c2827ebb8094c1526.tar.xz
drakx-5a3fc63c8ef1c21975d1129c2827ebb8094c1526.zip
do not write decimal values in theme config (#38271)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS3
-rwxr-xr-xperl-install/standalone/draksplash4
2 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 36d774feb..7c4460900 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- draksplash:
+ o do not write decimal values in theme config (#38271)
+
Version 10.25 - 1 April 2008
- DBus framework improvement
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() {