# 	dict.tcl -- Dictionary Tcl Commands
proc dict {method args} {
 case $method in {
 list_of_entities            {return [dict::entities_list]}
 list_of_entities_by_id      {return [dict::entities_list_id]}
 list_of_entities_by_parent  {return [dict::entities_list_par]}
 list_of_domains             {return [dict::domains_list]}
 list_of_connections         {return [dict::connections_list]}
 list_of_templatesns         {return [dict::templates_list]}
 list_of_objects             {return [dict::objects_list]}
 list_of_views               {return [dict::views_list]}
 get_model                   {return [dict::model_object]}
 default                     {error "wrong parameter"}
 }
}
