11 lines
387 B
Tcl
11 lines
387 B
Tcl
foreach {var lname type priv units klass} {
|
|
BeamCenterX BeamCenterX float user mm parameter
|
|
BeamCenterZ BeamCenterZ float user mm parameter
|
|
BeamStop BeamStop int user none parameter
|
|
} {
|
|
::utility::mkVar $var $type $priv $lname true $klass true true
|
|
if {$units != "none"} {
|
|
sicslist setatt $var units $units
|
|
}
|
|
}
|