Purge RCS Keywords.

66 files changed, 0 insertions, 132 deletions

diff --git a/library/demos/README b/library/demos/README
index 2996cdd..7285a93 100644
--- a/library/demos/README
+++ b/library/demos/README
@@ -42,5 +42,3 @@ browse -	A simple directory browser.  Invoke it with and argument
 		giving the name of the directory you'd like to browse.
 		Double-click on files or subdirectories to browse them.
 		Control-c and control-q cause the program to exit.
-
-RCS: @(#) $Id: README,v 1.3 2003/11/05 13:20:21 dkf Exp $
diff --git a/library/demos/anilabel.tcl b/library/demos/anilabel.tcl
index dadf52e..61e6315 100644
--- a/library/demos/anilabel.tcl
+++ b/library/demos/anilabel.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing
 # several animated label widgets.
-#
-# RCS: @(#) $Id: anilabel.tcl,v 1.2 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/aniwave.tcl b/library/demos/aniwave.tcl
index fd2b1ec..6122132 100644
--- a/library/demos/aniwave.tcl
+++ b/library/demos/aniwave.tcl
@@ -3,8 +3,6 @@
 # This demonstration script illustrates how to adjust canvas item
 # coordinates in a way that does something fairly similar to waveform
 # display.
-#
-# RCS: @(#) $Id: aniwave.tcl,v 1.2 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/arrow.tcl b/library/demos/arrow.tcl
index 8137473..5011f6f 100644
--- a/library/demos/arrow.tcl
+++ b/library/demos/arrow.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a canvas widget that displays a
 # large line with an arrowhead whose shape can be edited interactively.
-#
-# RCS: @(#) $Id: arrow.tcl,v 1.6 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/bind.tcl b/library/demos/bind.tcl
index 5e67834..d9bc22f 100644
--- a/library/demos/bind.tcl
+++ b/library/demos/bind.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a text widget with bindings set
 # up for hypertext-like effects.
-#
-# RCS: @(#) $Id: bind.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/bitmap.tcl b/library/demos/bitmap.tcl
index e439d09..453987d 100644
--- a/library/demos/bitmap.tcl
+++ b/library/demos/bitmap.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window that displays
 # all of Tk's built-in bitmaps.
-#
-# RCS: @(#) $Id: bitmap.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/browse b/library/demos/browse
index ced8385..d107f28 100644
--- a/library/demos/browse
+++ b/library/demos/browse
@@ -6,8 +6,6 @@ exec wish "$0" ${1+"$@"}
 # This script generates a directory browser, which lists the working
 # directory and allows you to open files or subdirectories by
 # double-clicking.
-#
-# RCS: @(#) $Id: browse,v 1.5 2003/09/30 14:54:29 dkf Exp $
 
 package require Tk
 
diff --git a/library/demos/button.tcl b/library/demos/button.tcl
index 84407f4..bb943e6 100644
--- a/library/demos/button.tcl
+++ b/library/demos/button.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing
 # several button widgets.
-#
-# RCS: @(#) $Id: button.tcl,v 1.9 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/check.tcl b/library/demos/check.tcl
index c9ca56a..c072096 100644
--- a/library/demos/check.tcl
+++ b/library/demos/check.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing
 # several checkbuttons.
-#
-# RCS: @(#) $Id: check.tcl,v 1.7 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/clrpick.tcl b/library/demos/clrpick.tcl
index c20b98f..ba50b75 100644
--- a/library/demos/clrpick.tcl
+++ b/library/demos/clrpick.tcl
@@ -1,8 +1,6 @@
 # clrpick.tcl --
 #
 # This demonstration script prompts the user to select a color.
-#
-# RCS: @(#) $Id: clrpick.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/colors.tcl b/library/demos/colors.tcl
index abd9fb0..99dec92 100644
--- a/library/demos/colors.tcl
+++ b/library/demos/colors.tcl
@@ -3,8 +3,6 @@
 # This demonstration script creates a listbox widget that displays
 # many of the colors from the X color database.  You can click on
 # a color to change the application's palette.
-#
-# RCS: @(#) $Id: colors.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/combo.tcl b/library/demos/combo.tcl
index 521e37b..5dad9f0 100644
--- a/library/demos/combo.tcl
+++ b/library/demos/combo.tcl
@@ -1,8 +1,6 @@
 # combo.tcl --
 #
 # This demonstration script creates several combobox widgets.
-#
-# RCS: @(#) $Id: combo.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/cscroll.tcl b/library/demos/cscroll.tcl
index 7ad390a..f6e88f4 100644
--- a/library/demos/cscroll.tcl
+++ b/library/demos/cscroll.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a simple canvas that can be
 # scrolled in two dimensions.
-#
-# RCS: @(#) $Id: cscroll.tcl,v 1.6 2005/12/13 03:44:34 das Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/ctext.tcl b/library/demos/ctext.tcl
index 679dcc4..e894bc2 100644
--- a/library/demos/ctext.tcl
+++ b/library/demos/ctext.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a canvas widget with a text
 # item that can be edited and reconfigured in various ways.
-#
-# RCS: @(#) $Id: ctext.tcl,v 1.5.4.1 2009/10/27 14:02:58 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/dialog1.tcl b/library/demos/dialog1.tcl
index e76bab3..5c572be 100644
--- a/library/demos/dialog1.tcl
+++ b/library/demos/dialog1.tcl
@@ -1,8 +1,6 @@
 # dialog1.tcl --
 #
 # This demonstration script creates a dialog box with a local grab.
-#
-# RCS: @(#) $Id: dialog1.tcl,v 1.2 1998/09/14 18:23:27 stanton Exp $
 
 after idle {.dialog1.msg configure -wraplength 4i}
 set i [tk_dialog .dialog1 "Dialog with local grab" {This is a modal dialog box.  It uses Tk's "grab" command to create a "local grab" on the dialog box.  The grab prevents any pointer-related events from getting to any other windows in the application until you have answered the dialog by invoking one of the buttons below.  However, you can still interact with other applications.} \
diff --git a/library/demos/dialog2.tcl b/library/demos/dialog2.tcl
index 502ac8b..2f45da8 100644
--- a/library/demos/dialog2.tcl
+++ b/library/demos/dialog2.tcl
@@ -1,8 +1,6 @@
 # dialog2.tcl --
 #
 # This demonstration script creates a dialog box with a global grab.
-#
-# RCS: @(#) $Id: dialog2.tcl,v 1.3 2001/11/05 10:13:53 dkf Exp $
 
 after idle {
     .dialog2.msg configure -wraplength 4i
diff --git a/library/demos/entry1.tcl b/library/demos/entry1.tcl
index f7faf69..eef8964 100644
--- a/library/demos/entry1.tcl
+++ b/library/demos/entry1.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates several entry widgets without
 # scrollbars.
-#
-# RCS: @(#) $Id: entry1.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/entry2.tcl b/library/demos/entry2.tcl
index 3459591..d0ca35a 100644
--- a/library/demos/entry2.tcl
+++ b/library/demos/entry2.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script is the same as the entry1.tcl script
 # except that it creates scrollbars for the entries.
-#
-# RCS: @(#) $Id: entry2.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/entry3.tcl b/library/demos/entry3.tcl
index 2e54b05..3d76c2e 100644
--- a/library/demos/entry3.tcl
+++ b/library/demos/entry3.tcl
@@ -3,8 +3,6 @@
 # This demonstration script creates several entry widgets whose
 # permitted input is constrained in some way.  It also shows off a
 # password entry.
-#
-# RCS: @(#) $Id: entry3.tcl,v 1.7 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/filebox.tcl b/library/demos/filebox.tcl
index e6088d8..032e3d8 100644
--- a/library/demos/filebox.tcl
+++ b/library/demos/filebox.tcl
@@ -1,8 +1,6 @@
 # filebox.tcl --
 #
 # This demonstration script prompts the user to select a file.
-#
-# RCS: @(#) $Id: filebox.tcl,v 1.9.2.1 2009/04/10 16:42:13 das Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/floor.tcl b/library/demos/floor.tcl
index 4302538..827600b 100644
--- a/library/demos/floor.tcl
+++ b/library/demos/floor.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a canvas widet that displays the
 # floorplan for DEC's Western Research Laboratory.
-#
-# RCS: @(#) $Id: floor.tcl,v 1.8 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/form.tcl b/library/demos/form.tcl
index 999c7cf..4d80437 100644
--- a/library/demos/form.tcl
+++ b/library/demos/form.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a simple form with a bunch
 # of entry widgets.
-#
-# RCS: @(#) $Id: form.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/hello b/library/demos/hello
index 6461f46..c8ccd37 100644
--- a/library/demos/hello
+++ b/library/demos/hello
@@ -5,8 +5,6 @@ exec wish "$0" "$@"
 # hello --
 # Simple Tk script to create a button that prints "Hello, world".
 # Click on the button to terminate the program.
-#
-# RCS: @(#) $Id: hello,v 1.4 2003/09/30 14:54:30 dkf Exp $
 
 package require Tk
 
diff --git a/library/demos/hscale.tcl b/library/demos/hscale.tcl
index 1498902..1df144d 100644
--- a/library/demos/hscale.tcl
+++ b/library/demos/hscale.tcl
@@ -1,8 +1,6 @@
 # hscale.tcl --
 #
 # This demonstration script shows an example with a horizontal scale.
-#
-# RCS: @(#) $Id: hscale.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/icon.tcl b/library/demos/icon.tcl
index e8a7ab2..224d8f9 100644
--- a/library/demos/icon.tcl
+++ b/library/demos/icon.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing
 # buttons that display bitmaps instead of text.
-#
-# RCS: @(#) $Id: icon.tcl,v 1.6 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/image1.tcl b/library/demos/image1.tcl
index 95a2c71..0bd2f49 100644
--- a/library/demos/image1.tcl
+++ b/library/demos/image1.tcl
@@ -1,8 +1,6 @@
 # image1.tcl --
 #
 # This demonstration script displays two image widgets.
-#
-# RCS: @(#) $Id: image1.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/image2.tcl b/library/demos/image2.tcl
index 0444dd4..7b3d748 100644
--- a/library/demos/image2.tcl
+++ b/library/demos/image2.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a simple collection of widgets
 # that allow you to select and view images in a Tk label.
-#
-# RCS: @(#) $Id: image2.tcl,v 1.11 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/items.tcl b/library/demos/items.tcl
index 11aa32f..85bf5f3 100644
--- a/library/demos/items.tcl
+++ b/library/demos/items.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a canvas that displays the
 # canvas item types.
-#
-# RCS: @(#) $Id: items.tcl,v 1.7 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/ixset b/library/demos/ixset
index 21a099f..06b644d 100644
--- a/library/demos/ixset
+++ b/library/demos/ixset
@@ -8,8 +8,6 @@ exec wish "$0" ${1+"$@"}
 # History :
 #   91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
 #   92/08/01 : pda@masi.ibp.fr : cleaning
-#
-# RCS: @(#) $Id: ixset,v 1.5 2003/09/30 14:54:30 dkf Exp $
 
 package require Tcl 8.4
 package require Tk
diff --git a/library/demos/label.tcl b/library/demos/label.tcl
index cb26e6d..a5cab10 100644
--- a/library/demos/label.tcl
+++ b/library/demos/label.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing
 # several label widgets.
-#
-# RCS: @(#) $Id: label.tcl,v 1.6 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/labelframe.tcl b/library/demos/labelframe.tcl
index 65411b1..21d079f 100644
--- a/library/demos/labelframe.tcl
+++ b/library/demos/labelframe.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing
 # several labelframe widgets.
-#
-# RCS: @(#) $Id: labelframe.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/mclist.tcl b/library/demos/mclist.tcl
index 18d8781..d1d3f47 100644
--- a/library/demos/mclist.tcl
+++ b/library/demos/mclist.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing a Ttk
 # tree widget configured as a multi-column listbox.
-#
-# RCS: @(#) $Id: mclist.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl
index d1b7c1c..ebd44f7 100644
--- a/library/demos/menu.tcl
+++ b/library/demos/menu.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a window with a bunch of menus
 # and cascaded menus using menubars.
-#
-# RCS: @(#) $Id: menu.tcl,v 1.11 2007/04/23 21:16:00 das Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/menubu.tcl b/library/demos/menubu.tcl
index cec3284..86326b5 100644
--- a/library/demos/menubu.tcl
+++ b/library/demos/menubu.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a window with a bunch of menus
 # and cascaded menus using menubuttons.
-#
-# # RCS: @(#) $Id: menubu.tcl,v 1.6 2007/04/23 21:16:01 das Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/msgbox.tcl b/library/demos/msgbox.tcl
index fb986e1..a8f7d17 100644
--- a/library/demos/msgbox.tcl
+++ b/library/demos/msgbox.tcl
@@ -1,8 +1,6 @@
 # msgbox.tcl --
 #
 # This demonstration script creates message boxes of various type
-#
-# RCS: @(#) $Id: msgbox.tcl,v 1.6 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/paned1.tcl b/library/demos/paned1.tcl
index 1c9e3e6..783b7f3 100644
--- a/library/demos/paned1.tcl
+++ b/library/demos/paned1.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing
 # a paned window that separates two windows horizontally.
-#
-# RCS: @(#) $Id: paned1.tcl,v 1.3 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/paned2.tcl b/library/demos/paned2.tcl
index 9e72139..f481d14 100644
--- a/library/demos/paned2.tcl
+++ b/library/demos/paned2.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing
 # a paned window that separates two windows vertically.
-#
-# RCS: @(#) $Id: paned2.tcl,v 1.3 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/pendulum.tcl b/library/demos/pendulum.tcl
index f785303..2e3d459 100644
--- a/library/demos/pendulum.tcl
+++ b/library/demos/pendulum.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration illustrates how Tcl/Tk can be used to construct
 # simulations of physical systems.
-#
-# RCS: @(#) $Id: pendulum.tcl,v 1.3.4.1 2009/08/08 08:28:40 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/plot.tcl b/library/demos/plot.tcl
index 82a2c60..e7f0361 100644
--- a/library/demos/plot.tcl
+++ b/library/demos/plot.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a canvas widget showing a 2-D
 # plot with data points that can be dragged with the mouse.
-#
-# RCS: @(#) $Id: plot.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/puzzle.tcl b/library/demos/puzzle.tcl
index 485f69c..fb8ab4c 100644
--- a/library/demos/puzzle.tcl
+++ b/library/demos/puzzle.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a 15-puzzle game using a collection
 # of buttons.
-#
-# RCS: @(#) $Id: puzzle.tcl,v 1.7 2007/04/23 21:16:01 das Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/radio.tcl b/library/demos/radio.tcl
index 28ea236..5c73703 100644
--- a/library/demos/radio.tcl
+++ b/library/demos/radio.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing
 # several radiobutton widgets.
-#
-# RCS: @(#) $Id: radio.tcl,v 1.8 2007/04/23 21:16:01 das Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/rmt b/library/demos/rmt
index 41cee5c..1be4b56 100644
--- a/library/demos/rmt
+++ b/library/demos/rmt
@@ -6,8 +6,6 @@ exec wish "$0" "$@"
 # This script implements a simple remote-control mechanism for
 # Tk applications.  It allows you to select an application and
 # then type commands to that application.
-#
-# RCS: @(#) $Id: rmt,v 1.6 2007/12/13 15:27:07 dgp Exp $
 
 package require Tcl 8.4
 package require Tk
diff --git a/library/demos/rolodex b/library/demos/rolodex
index 30946aa..8941570 100644
--- a/library/demos/rolodex
+++ b/library/demos/rolodex
@@ -7,8 +7,6 @@ exec wish "$0" ${1+"$@"}
 # benchmark.  It creates something that has some of the look and
 # feel of a rolodex program, although it's lifeless and doesn't
 # actually do the rolodex application.
-#
-# RCS: @(#) $Id: rolodex,v 1.5 2003/09/30 14:54:30 dkf Exp $
 
 package require Tk
 
diff --git a/library/demos/ruler.tcl b/library/demos/ruler.tcl
index 45881cd..557b680 100644
--- a/library/demos/ruler.tcl
+++ b/library/demos/ruler.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a canvas widget that displays a ruler
 # with tab stops that can be set, moved, and deleted.
-#
-# RCS: @(#) $Id: ruler.tcl,v 1.7 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/sayings.tcl b/library/demos/sayings.tcl
index 091133e..4d26ffe 100644
--- a/library/demos/sayings.tcl
+++ b/library/demos/sayings.tcl
@@ -3,8 +3,6 @@
 # This demonstration script creates a listbox that can be scrolled
 # both horizontally and vertically.  It displays a collection of
 # well-known sayings.
-#
-# RCS: @(#) $Id: sayings.tcl,v 1.6 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/search.tcl b/library/demos/search.tcl
index 3a792c4..9f44e16 100644
--- a/library/demos/search.tcl
+++ b/library/demos/search.tcl
@@ -3,8 +3,6 @@
 # This demonstration script creates a collection of widgets that
 # allow you to load a file into a text widget, then perform searches
 # on that file.
-#
-# RCS: @(#) $Id: search.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/spin.tcl b/library/demos/spin.tcl
index 512515d..d897e6d 100644
--- a/library/demos/spin.tcl
+++ b/library/demos/spin.tcl
@@ -1,8 +1,6 @@
 # spin.tcl --
 #
 # This demonstration script creates several spinbox widgets.
-#
-# RCS: @(#) $Id: spin.tcl,v 1.3 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/square b/library/demos/square
index 743148d..b7dd78f 100644
--- a/library/demos/square
+++ b/library/demos/square
@@ -10,8 +10,6 @@ exec wish "$0" "$@"
 # 
 # Button-1 press/drag:		moves square to mouse
 # "a":				toggle size animation on/off
-#
-# RCS: @(#) $Id: square,v 1.3 2003/09/30 14:54:30 dkf Exp $
 
 package require Tk		;# We use Tk generally, and...
 package require Tktest		;# ... we use the square widget too.
diff --git a/library/demos/states.tcl b/library/demos/states.tcl
index 443fea5..e76540d 100644
--- a/library/demos/states.tcl
+++ b/library/demos/states.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a listbox widget that displays
 # the names of the 50 states in the United States of America.
-#
-# RCS: @(#) $Id: states.tcl,v 1.4 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/style.tcl b/library/demos/style.tcl
index e62d118..614ea1f 100644
--- a/library/demos/style.tcl
+++ b/library/demos/style.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a text widget that illustrates the
 # various display styles that may be set for tags.
-#
-# RCS: @(#) $Id: style.tcl,v 1.6 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/tcolor b/library/demos/tcolor
index b695c60..bd20f7b 100644
--- a/library/demos/tcolor
+++ b/library/demos/tcolor
@@ -6,8 +6,6 @@ exec wish "$0" "$@"
 # This script implements a simple color editor, where you can
 # create colors using either the RGB, HSB, or CYM color spaces
 # and apply the color to existing applications.
-#
-# RCS: @(#) $Id: tcolor,v 1.6 2007/12/13 15:27:07 dgp Exp $
 
 package require Tk 8.4
 wm title . "Color Editor"
diff --git a/library/demos/text.tcl b/library/demos/text.tcl
index 6f25273..21ee096 100644
--- a/library/demos/text.tcl
+++ b/library/demos/text.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a text widget that describes
 # the basic editing functions.
-#
-# RCS: @(#) $Id: text.tcl,v 1.8 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/textpeer.tcl b/library/demos/textpeer.tcl
index a93f127..e94284e 100644
--- a/library/demos/textpeer.tcl
+++ b/library/demos/textpeer.tcl
@@ -3,8 +3,6 @@
 # This demonstration script creates a pair of text widgets that can edit a
 # single logical buffer. This is particularly useful when editing related text
 # in two (or more) parts of the same file.
-#
-# RCS: @(#) $Id: textpeer.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/timer b/library/demos/timer
index 99e6f4c..694227f 100644
--- a/library/demos/timer
+++ b/library/demos/timer
@@ -4,8 +4,6 @@ exec wish "$0" "$@"
 
 # timer --
 # This script generates a counter with start and stop buttons.
-#
-# RCS: @(#) $Id: timer,v 1.4 2003/09/30 14:54:30 dkf Exp $
 
 package require Tcl 8.4
 package require Tk
diff --git a/library/demos/toolbar.tcl b/library/demos/toolbar.tcl
index 74a490f..541e8ba 100644
--- a/library/demos/toolbar.tcl
+++ b/library/demos/toolbar.tcl
@@ -1,8 +1,6 @@
 # toolbar.tcl --
 #
 # This demonstration script creates a toolbar that can be torn off.
-#
-# RCS: @(#) $Id: toolbar.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/tree.tcl b/library/demos/tree.tcl
index b46943a..14d5db8 100644
--- a/library/demos/tree.tcl
+++ b/library/demos/tree.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing a Ttk
 # tree widget.
-#
-# RCS: @(#) $Id: tree.tcl,v 1.4 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/ttkbut.tcl b/library/demos/ttkbut.tcl
index 3d5d3a8..66ff1d7 100644
--- a/library/demos/ttkbut.tcl
+++ b/library/demos/ttkbut.tcl
@@ -3,8 +3,6 @@
 # This demonstration script creates a toplevel window containing several
 # simple Ttk widgets, such as labels, labelframes, buttons, checkbuttons and
 # radiobuttons.
-#
-# RCS: @(#) $Id: ttkbut.tcl,v 1.4 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/ttkmenu.tcl b/library/demos/ttkmenu.tcl
index 235b4b1..c01c9af 100644
--- a/library/demos/ttkmenu.tcl
+++ b/library/demos/ttkmenu.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing several Ttk
 # menubutton widgets.
-#
-# RCS: @(#) $Id: ttkmenu.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/ttknote.tcl b/library/demos/ttknote.tcl
index f7c70a3..5683892 100644
--- a/library/demos/ttknote.tcl
+++ b/library/demos/ttknote.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a toplevel window containing a Ttk
 # notebook widget.
-#
-# RCS: @(#) $Id: ttknote.tcl,v 1.5 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/ttkpane.tcl b/library/demos/ttkpane.tcl
index 549ef3f..a4d5738 100644
--- a/library/demos/ttkpane.tcl
+++ b/library/demos/ttkpane.tcl
@@ -1,8 +1,6 @@
 # ttkpane.tcl --
 #
 # This demonstration script creates a Ttk pane with some content.
-#
-# RCS: @(#) $Id: ttkpane.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/ttkprogress.tcl b/library/demos/ttkprogress.tcl
index 2db6d59..87765d7 100644
--- a/library/demos/ttkprogress.tcl
+++ b/library/demos/ttkprogress.tcl
@@ -1,8 +1,6 @@
 # ttkprogress.tcl --
 #
 # This demonstration script creates several progress bar widgets.
-#
-# RCS: @(#) $Id: ttkprogress.tcl,v 1.3 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/ttkscale.tcl b/library/demos/ttkscale.tcl
index 5c0bdbe..1a95416 100644
--- a/library/demos/ttkscale.tcl
+++ b/library/demos/ttkscale.tcl
@@ -1,8 +1,6 @@
 # ttkscale.tcl --
 #
 # This demonstration script shows an example with a horizontal scale.
-#
-# RCS: @(#) $Id: ttkscale.tcl,v 1.1.2.2 2009/12/16 13:19:47 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/twind.tcl b/library/demos/twind.tcl
index 102be12..e1d0b5b 100644
--- a/library/demos/twind.tcl
+++ b/library/demos/twind.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script creates a text widget with a bunch of
 # embedded windows.
-#
-# RCS: @(#) $Id: twind.tcl,v 1.11 2007/12/13 15:27:07 dgp Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/unicodeout.tcl b/library/demos/unicodeout.tcl
index 8e108b6..11cc933 100644
--- a/library/demos/unicodeout.tcl
+++ b/library/demos/unicodeout.tcl
@@ -2,8 +2,6 @@
 #
 # This demonstration script shows how you can produce output (in label
 # widgets) using many different alphabets.
-#
-# RCS: @(#) $Id: unicodeout.tcl,v 1.7.2.1 2009/12/15 03:43:33 kennykb Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/vscale.tcl b/library/demos/vscale.tcl
index 599329c..2c7ea76 100644
--- a/library/demos/vscale.tcl
+++ b/library/demos/vscale.tcl
@@ -1,8 +1,6 @@
 # vscale.tcl --
 #
 # This demonstration script shows an example with a vertical scale.
-#
-# RCS: @(#) $Id: vscale.tcl,v 1.5 2004/12/21 11:56:35 dkf Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
diff --git a/library/demos/widget b/library/demos/widget
index 5acba79..7dd8ab3 100644
--- a/library/demos/widget
+++ b/library/demos/widget
@@ -9,8 +9,6 @@ exec wish "$0" "$@"
 # demonstrations. The code for the actual demonstrations is contained in
 # separate ".tcl" files is this directory, which are sourced by this script as
 # needed.
-#
-# RCS: @(#) $Id: widget,v 1.51.2.3 2010/01/20 23:43:51 patthoyts Exp $
 
 package require Tcl	8.5
 package require Tk	8.5