Import LinuxCNC source tree
This commit is contained in:
13
tests/tooledit/test.tcl
Normal file
13
tests/tooledit/test.tcl
Normal file
@@ -0,0 +1,13 @@
|
||||
source ../../tcl/tooledit.tcl
|
||||
|
||||
set infile [lindex $argv 0]
|
||||
set outfile [lindex $argv 1]
|
||||
|
||||
# get rid of the default window
|
||||
wm withdraw .
|
||||
# run tooledit using the test.tbl
|
||||
tooledit::tooledit $infile {x y z a b c u v w diam front back orien}
|
||||
# write the test.tbl to result.tbl
|
||||
tooledit::writefile $outfile
|
||||
# finish up
|
||||
exit 0
|
||||
Reference in New Issue
Block a user