From bc5e203f7787980f65f81ddbf69a619ab34fa85e Mon Sep 17 00:00:00 2001
From: "N.N." <krzyszcz@users.sourceforge.net>
Date: Tue, 9 Mar 2004 12:41:22 +0000
Subject: toxy alpha6

svn path=/trunk/externals/miXed/; revision=1396
---
 test/toxy/kb.wid | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'test/toxy/kb.wid')

diff --git a/test/toxy/kb.wid b/test/toxy/kb.wid
index e447697..9a64d70 100644
--- a/test/toxy/kb.wid
+++ b/test/toxy/kb.wid
@@ -1,10 +1,10 @@
 proc ::toxy::kb {path target remote noctaves size} {
     set lft [expr {round(5 * $size)}]
-    set top [expr {5 * $size}]
-    set bot [expr {100 * $size}]
+    set top [expr {round(5 * $size)}]
+    set bot [expr {round(100 * $size)}]
     set dx [expr {round(17 * $size)}]
-    set wid [expr {$dx - $size * .5}]
-    set blbot [expr {$bot * .65}]
+    set wid [expr {round($dx - $size * .5)}]
+    set blbot [expr {round($bot * .65)}]
 
     $path config -height [expr {$bot + $top}] \
 	-width [expr {$dx * ($noctaves * 7 + 1) + $lft * 2 - 1}]
-- 
cgit v1.2.1