blob: 305a683928a2032d6e3b8a5f42e66cf6940be1fc (
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.
#
set channel stdout; tclInvoke set channel $channel
tclEval {puts $channel [list [file tail $argv0] $argc $argv]}
</th1>
|
