#
# 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