diff options
Diffstat (limited to 'test/toxy/kb.wid')
| -rw-r--r-- | test/toxy/kb.wid | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/toxy/kb.wid b/test/toxy/kb.wid index bfba5ac..8a081d7 100644 --- a/test/toxy/kb.wid +++ b/test/toxy/kb.wid @@ -1,4 +1,6 @@ proc ::toxy::kb {path target remote noctaves size} { +# guard against BadAlloc crashes + if {$size > 10} {set size 10} set lft [expr {round(5 * $size)}] set top [expr {round(5 * $size)}] set bot [expr {round(100 * $size)}] |