# ***************************************************
# name dict::entities_list
# returns list of entities for dictionary model
# ***************************************************
proc dict::entities_list {} {
 set entity_list ""
 set entd_list [ent_list]
 foreach new_entd $entd_list {
  set object ent[lindex $new_entd 0]
  entity $object dict $new_entd
  lappend entity_list $object
 }
 return $entity_list
}

# ***************************************************
# name dict::entities_list_id
# returns list of entities for dictionary model orderd by id
# ***************************************************
proc dict::entities_list_id {} {
 set entity_list ""
 set entd_list [ent_list_id]
 foreach new_entd $entd_list {
  set object ent[lindex $new_entd 0]
  entity $object dict $new_entd
  lappend entity_list $object
 }
 return $entity_list
}
# ***************************************************
# name dict::entities_list_par
# returns list of entities for dictionary model 
# the parents apear before their childs
# ***************************************************
proc dict::entities_list_par {} {
 set entity_list ""
 set entd_list [_ent_list_child]
 foreach new_entd $entd_list {
  set object ent[lindex $new_entd 0]
  entity $object dict $new_entd
  lappend entity_list $object
 }
 return $entity_list
}


# ***************************************************
# name dict::domains_list
# returns list of domains for dictionary model
# ***************************************************
proc dict::domains_list {} {
 set domain_list ""
 set dom_list [_dom_list]
 foreach new_dom $dom_list {
  set object dom[lindex $new_dom 0]
  domain $object dict $new_dom
  lappend domain_list $object
 }
 return $domain_list
}

# ***************************************************
# name dict::connections_list
# returns list of connections for dictionary model
# ***************************************************
proc dict::connections_list {} {
 set connection_list ""
 set con_list [con_list]
 foreach new_con $con_list {
  set object con[lindex $new_con 0]
  connection $object dict $new_con
  lappend connection_list $object
 }
 return $connection_list
}

# ***************************************************
# name dict::templates_list
# returns list of templates for dictionary model
# ***************************************************
proc dict::templates_list {} {
 set template_list ""
 set temp_list [temp_list]
 foreach new_temp $temp_list {
  set object tem[lindex $new_temp 0]
  template $object dict $new_temp
  lappend template_list $object
 }
 return $template_list
}

# ***************************************************
# name dict::model_object
# returns model object
# ***************************************************
proc dict::model_object {} {
 set f_model [_get_model]
 xmodel "model1" dict [lindex $f_model 0]
 return "model1"
}
# ***************************************************
# name dict::views_list
# returns list of views for dictionary model
# ***************************************************
proc dict::views_list {} {
 set views_list ""
 set view_list [_view_list]
 foreach new_view $view_list {
  set object view[lindex $new_view 0]
  view $object dict $new_view
  lappend views_list $object
 }
 return $views_list
}
