Revert all RGB values to defaults

      After some of the color definitions have been changed and you want to restore the default definitions, the following procedure might be useful.

proc revert_colors {} { 
  display update off
  foreach color [colorinfo colors] {
    color change rgb $color
  }
  display update on
}