# ***************************************************
# name dict::objects_object
# returns list of object of the current template
# ***************************************************
proc dict::objects_list {} {
 set obj_type        [_obj_type]
 set obj_list        [_obj_list]
 if { $obj_type == "" || [llength $obj_list] == 0} {
    return ""
 }
 set obj_type_name   [_get_obj_type $obj_type]
 set classname  ${obj_type_name}Class
 return [list_table $obj_list [lindex [$classname::prefix] 0] $obj_type_name dict]
}

proc _get_obj_type {type} {
     case $type in { 
          E  { return entity } 
          F  { return field } 
          R  { return relation } 
          I  { return index } 
          D  { return template } 
          C  { return connection } 
          T  { return template } 
     }
}
