# *******************************************************
# name dict::mk_view
# returns view for view element
# *******************************************************
proc dict::mk_view {c args} {
      upvar #0 $c data
      set i_view [$c I_VIEW]
      set view_l [_get_view $i_view]
      return [list_table $view_l [lindex [viewClass::prefix] 0] view dict]
}

# ************************************
proc viewelClass::prefix {} {
 return {vel identifier identifier}
}

