# # display - a procedure for displaying attributes in a readable format. # # Arguments: # # type - the object type whose attributes are to be displayed. # # name - the fully-qualified name of the object instance whose attributes # are to be displayed. # proc display {type name} { set attrs [$type show $name] foreach attr $attrs { puts $attr } } display