# *****************************************
# name dict::mk_field
# make a field from an element
# used in constr, indexel to make a field
# *****************************************
proc dict::mk_field {element} {
 upvar #0 $element data
 set element_id [$element I_FIELD]
 set field [get_fld $element_id]
 return [list_table $field [lindex [fieldClass::prefix] 0] field dict]
}



