revert back to previous version: The quotes in "Res=$res Cap=$cap" must be escaped with a backslash because the whole piece of tcl code is already inside author="...." quoted attribute.

This commit is contained in:
stefan schippers 2026-02-19 10:43:02 +01:00
parent a21a844a2f
commit 3b340e8eb1
1 changed files with 1 additions and 1 deletions

View File

@ -74,7 +74,7 @@ if \{ [info commands calc_rc] eq \{\} \} \{
proc calc_rc \{ L W \} \{
if \{[catch \{expr 1200*$L/$W\} res]\} \{set res -1\}
if \{[catch \{expr 1e-3*$W*$L\} cap]\} \{set cap -1\}
return \"Res=$res Cap=$cap\"
return \\"Res=$res Cap=$cap\\"
\}
puts [info body calc_rc]
puts \{############\}