19 lines
371 B
Tcl
19 lines
371 B
Tcl
# any parameter to be entered by hand
|
|
namespace eval dilpars {} {
|
|
}
|
|
|
|
proc stdConfig::dilpars {args} {
|
|
variable hostport none
|
|
variable name
|
|
controller syncedprot
|
|
|
|
scanargs $args var -circulateflow 4 -condenseflow 8
|
|
|
|
obj dummy -none
|
|
kids hidden {
|
|
node condenseflow par $condenseflow
|
|
node circulateflow par $circulateflow
|
|
}
|
|
dolater 0 apply_dilargs
|
|
}
|