script_context_util.tcl

hinitprops can now be called with a list of parameters.
SICS-403 hinitprops will now check for "argtype" and "values" attributes on script context objects to create drop down lists valid arguments for GumTree

sct_positmotor_common.tcl
SICS-403 Now sets "argtype" and a list of "values" properties so GumTree can create drop-down lists of arguments.

quokka positmotor_configuration.tcl
SICS-401 diameter and sampleNum selectors report communications errors

sct_rfamp.c
The controller state should be set before calling AsconError.

r2931 | ffr | 2010-05-22 13:56:13 +1000 (Sat, 22 May 2010) | 13 lines

site_ansto/instrument/config/motors/sct_positmotor_common.tcl

@@ -53,6 +53,11 @@ proc ::scobj::positmotor::noResponse {} {
 proc mkPosit {sct_controller name type motor klass table} {
     set ns ::scobj::positmotor
     MakeSICSObj $name SCT_OBJECT user $type
+    sicslist setatt $name argtype $type
+    foreach {i m} $table {
+      lappend ilist $i
+    }
+    sicslist setatt $name values [join $ilist ","]
     sicslist setatt $name klass $klass 
     sicslist setatt $name long_name $name
     hfactory /sics/$name/precision script "getmotpar $motor precision" "$motor precision " float 1