#
# tcl/tk specific support functions for configuration parsing
#

#
# Write out an entry:
#

function write_entry ( item_name, item ) {
  print "global var_" PREFIX "array"
  print "set var_" PREFIX "array(" item_name ") \"" item "\""
}