enable define type in tcl

Author: jginternational

kratos.gid/scripts/Model/Parameter.tcl

@@ -73,7 +73,12 @@ oo::class create Parameter {
 
     }
 
-    method getType { } {variable type; return $type}
+    method getType { } {
+        variable type
+        set ret $type
+        if {[string index $type 0] eq "\["} {set ret [eval [string range $type 1 end-1]]}
+        return $ret
+    }
     method getDv { } {variable dv; return $dv}
     method setDv { v } {variable dv; set dv $v}
     method getValues { } {variable values; return $values}