Added environment controller as a sics object type to the new hdb/nexus code.

r2137 | ffr | 2007-08-21 08:52:25 +1000 (Tue, 21 Aug 2007) | 2 lines

site_ansto/instrument/util/utility.tcl

@@ -1,7 +1,7 @@
 # Some useful functions for SICS configuration.
 
-# $Revision: 1.5 $
-# $Date: 2007-08-16 07:13:19 $
+# $Revision: 1.6 $
+# $Date: 2007-08-20 22:52:25 $
 # Author: Ferdi Franceschini (ffr@ansto.gov.au)
 # Last revision by $Author: ffr $
 
@@ -214,6 +214,18 @@ proc ::utility::set_motor_attributes {} {
     sicslist setatt $m mutable true
   }
 }
+proc ::utility::set_envcontrol_attributes {} {
+  foreach ec [sicslist type environment_controller] {
+    sicslist setatt $ec kind hobj
+    sicslist setatt $ec data true
+    sicslist setatt $ec control true
+    sicslist setatt $ec nxsave true
+    sicslist setatt $ec privilege user
+    sicslist setatt $ec nxalias $ec
+    sicslist setatt $ec mutable true
+    sicslist setatt $ec klass sample
+  }
+}
 
 # Retuns plain value of hdb node property
 proc ::utility::hgetplainprop {hpath prop} {