#
# file should be sourced 
# showRes lists the resources and its types for the given widget 
#
proc showRes {widget} {
  getResourceList $widget res
  puts stderr "Attributes of Widget $widget (Class [getClass $widget]):"
  foreach r [lsort $res] {
    puts stderr "    [format {%-30s %s} $r [getTypeOfAttribute $widget $r]]"
  }
}
