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:
parent
a21a844a2f
commit
3b340e8eb1
|
|
@ -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 \{############\}
|
||||
|
|
|
|||
Loading…
Reference in New Issue