#*********************************************************
# name dict::view_field_list
# returns list of fields for given view
#*********************************************************
proc dict::view_field_list {view} {
    upvar #0 $view data
    set view_id [$view identifier]
    set vfld_lst [_view_field_list $view_id]
    return [list_table $vfld_lst [lindex [fieldClass::prefix] 0] viewel dict]
}

proc entityClass::prefix {} {
 return {view identifier identifier}
}
