blob: 08df90d550be69b5295e389a903ccbd1012aa400 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
<th1>
#
# This is a "TH1 fragment" used to test the Tcl integration features of TH1.
# The corresponding test file executes this file using the test-th-render
# Fossil command.
#
proc doOut {msg} {puts $msg; puts \n}
doOut [tclEval th1Eval bad_command]
</th1>
|
