get msd into gumtree

r2612 | dcl | 2008-06-05 16:24:32 +1000 (Thu, 05 Jun 2008) | 2 lines
This commit is contained in:
Douglas Clowes
2008-06-05 16:24:32 +10:00
parent c61c709b11
commit 17e0c0b5bc

View File

@@ -1,5 +1,5 @@
# $Revision: 1.27 $
# $Date: 2008-06-05 05:32:42 $
# $Revision: 1.28 $
# $Date: 2008-06-05 06:24:32 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: dcl $
source $cfPath(anticollider)/anticollider.tcl
@@ -671,9 +671,8 @@ Motor msd ASIM [params\
hardlowerlim 2500\
hardupperlim 3500\
]
sicslist setatt msd klass sample
sicslist setatt msd units mm
sicslist setatt msd long_name monochromator_sample_distance
msd part sample
msd long_name mono_sample_mm
proc mthGet {} { return [expr [SplitReply [mtth]]/2.0]}
proc mthSet {val} { return "mtth=[SplitReply [mtth]]"}