Merged 8.0.3 changes into 8.1

46 files changed, 46 insertions, 46 deletions

diff --git a/library/demos/README b/library/demos/README
index c71f977..61469ea 100644
--- a/library/demos/README
+++ b/library/demos/README
@@ -43,4 +43,4 @@ browse -	A simple directory browser.  Invoke it with and argument
 		Double-click on files or subdirectories to browse them.
 		Control-c and control-q cause the program to exit.
 
-sccs id = SCCS: @(#) README 1.3 96/02/16 10:49:14
+RCS: @(#) $Id: README,v 1.1.4.1 1998/09/30 02:17:40 stanton Exp $
diff --git a/library/demos/arrow.tcl b/library/demos/arrow.tcl
index 126c179..81fa137 100644
--- a/library/demos/arrow.tcl
+++ b/library/demos/arrow.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a canvas widget that displays a
 # large line with an arrowhead whose shape can be edited interactively.
 #
-# SCCS: @(#) arrow.tcl 1.8 97/03/02 16:18:20
+# RCS: @(#) $Id: arrow.tcl,v 1.1.4.1 1998/09/30 02:17:40 stanton 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 175be10..042271c 100644
--- a/library/demos/bind.tcl
+++ b/library/demos/bind.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a text widget with bindings set
 # up for hypertext-like effects.
 #
-# SCCS: @(#) bind.tcl 1.6 97/03/02 16:19:01
+# RCS: @(#) $Id: bind.tcl,v 1.1.4.1 1998/09/30 02:17:40 stanton 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 55f9e73..d53f753 100644
--- a/library/demos/bitmap.tcl
+++ b/library/demos/bitmap.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a toplevel window that displays
 # all of Tk's built-in bitmaps.
 #
-# SCCS: @(#) bitmap.tcl 1.6 97/03/02 16:19:20
+# RCS: @(#) $Id: bitmap.tcl,v 1.1.4.1 1998/09/30 02:17:41 stanton 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 46f6532..404306d 100644
--- a/library/demos/browse
+++ b/library/demos/browse
@@ -7,7 +7,7 @@ exec wish "$0" "$@"
 # directory and allows you to open files or subdirectories by
 # double-clicking.
 #
-# SCCS: @(#) browse 1.8 96/02/16 10:49:18
+# RCS: @(#) $Id: browse,v 1.1.4.1 1998/09/30 02:17:41 stanton Exp $
 
 # Create a scrollbar on the right side of the main window and a listbox
 # on the left side.
diff --git a/library/demos/button.tcl b/library/demos/button.tcl
index 8569b1d..6e7aef4 100644
--- a/library/demos/button.tcl
+++ b/library/demos/button.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a toplevel window containing
 # several button widgets.
 #
-# SCCS: @(#) button.tcl 1.5 97/03/02 16:19:39
+# RCS: @(#) $Id: button.tcl,v 1.1.4.1 1998/09/30 02:17:42 stanton 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 46e21b3..4fafeb0 100644
--- a/library/demos/check.tcl
+++ b/library/demos/check.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a toplevel window containing
 # several checkbuttons.
 #
-# SCCS: @(#) check.tcl 1.4 97/03/02 16:19:57
+# RCS: @(#) $Id: check.tcl,v 1.1.4.1 1998/09/30 02:17:42 stanton 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 757e0b8..6ac3203 100644
--- a/library/demos/clrpick.tcl
+++ b/library/demos/clrpick.tcl
@@ -2,7 +2,7 @@
 #
 # This demonstration script prompts the user to select a color.
 #
-# SCCS: @(#) clrpick.tcl 1.3 97/03/02 16:20:12
+# RCS: @(#) $Id: clrpick.tcl,v 1.1.4.1 1998/09/30 02:17:42 stanton 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 e95c21c..77350e0 100644
--- a/library/demos/colors.tcl
+++ b/library/demos/colors.tcl
@@ -4,7 +4,7 @@
 # many of the colors from the X color database.  You can click on
 # a color to change the application's palette.
 #
-# SCCS: @(#) colors.tcl 1.4 97/03/02 16:20:29
+# RCS: @(#) $Id: colors.tcl,v 1.1.4.1 1998/09/30 02:17:43 stanton 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 78f99fa..0e0a8b7 100644
--- a/library/demos/cscroll.tcl
+++ b/library/demos/cscroll.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a simple canvas that can be
 # scrolled in two dimensions.
 #
-# SCCS: @(#) cscroll.tcl 1.6 97/03/02 16:20:45
+# RCS: @(#) $Id: cscroll.tcl,v 1.1.4.1 1998/09/30 02:17:43 stanton 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 fdd3f79..f1c314d 100644
--- a/library/demos/ctext.tcl
+++ b/library/demos/ctext.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a canvas widget with a text
 # item that can be edited and reconfigured in various ways.
 #
-# SCCS: @(#) ctext.tcl 1.6 97/03/02 16:21:02
+# RCS: @(#) $Id: ctext.tcl,v 1.1.4.1 1998/09/30 02:17:43 stanton 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 e221beb..395b75c 100644
--- a/library/demos/dialog1.tcl
+++ b/library/demos/dialog1.tcl
@@ -2,7 +2,7 @@
 #
 # This demonstration script creates a dialog box with a local grab.
 #
-# SCCS: @(#) dialog1.tcl 1.2 96/02/16 10:49:52
+# RCS: @(#) $Id: dialog1.tcl,v 1.1.4.1 1998/09/30 02:17:44 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 0cc3bb6..40048a2 100644
--- a/library/demos/dialog2.tcl
+++ b/library/demos/dialog2.tcl
@@ -2,7 +2,7 @@
 #
 # This demonstration script creates a dialog box with a global grab.
 #
-# SCCS: @(#) dialog2.tcl 1.2 96/02/16 10:49:53
+# RCS: @(#) $Id: dialog2.tcl,v 1.1.4.1 1998/09/30 02:17:44 stanton Exp $
 
 after idle {
     .dialog2.msg configure -wraplength 4i
diff --git a/library/demos/entry1.tcl b/library/demos/entry1.tcl
index 0b68b68..4d410f2 100644
--- a/library/demos/entry1.tcl
+++ b/library/demos/entry1.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates several entry widgets without
 # scrollbars.
 #
-# SCCS: @(#) entry1.tcl 1.5 97/03/02 16:22:10
+# RCS: @(#) $Id: entry1.tcl,v 1.1.4.1 1998/09/30 02:17:44 stanton 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 d9b67cd..12b1b23 100644
--- a/library/demos/entry2.tcl
+++ b/library/demos/entry2.tcl
@@ -3,7 +3,7 @@
 # This demonstration script is the same as the entry1.tcl script
 # except that it creates scrollbars for the entries.
 #
-# SCCS: @(#) entry2.tcl 1.5 97/03/02 16:22:24
+# RCS: @(#) $Id: entry2.tcl,v 1.1.4.1 1998/09/30 02:17:45 stanton 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 83eeacc..7c02854 100644
--- a/library/demos/filebox.tcl
+++ b/library/demos/filebox.tcl
@@ -2,7 +2,7 @@
 #
 # This demonstration script prompts the user to select a file.
 #
-# SCCS: @(#) filebox.tcl 1.3 97/03/02 16:22:36
+# RCS: @(#) $Id: filebox.tcl,v 1.1.4.1 1998/09/30 02:17:45 stanton 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 30b62da..507964f 100644
--- a/library/demos/floor.tcl
+++ b/library/demos/floor.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a canvas widet that displays the
 # floorplan for DEC's Western Research Laboratory.
 #
-# SCCS: @(#) floor.tcl 1.6 97/03/02 16:23:32
+# RCS: @(#) $Id: floor.tcl,v 1.1.4.1 1998/09/30 02:17:45 stanton 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 3c43497..b9b75b2 100644
--- a/library/demos/form.tcl
+++ b/library/demos/form.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a simple form with a bunch
 # of entry widgets.
 #
-# SCCS: @(#) form.tcl 1.5 97/03/02 16:23:48
+# RCS: @(#) $Id: form.tcl,v 1.1.4.1 1998/09/30 02:17:46 stanton 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 0fa5d05..cad76bd 100644
--- a/library/demos/hello
+++ b/library/demos/hello
@@ -6,7 +6,7 @@ exec wish "$0" "$@"
 # Simple Tk script to create a button that prints "Hello, world".
 # Click on the button to terminate the program.
 #
-# SCCS: @(#) hello 1.6 96/02/16 10:49:18
+# RCS: @(#) $Id: hello,v 1.1.4.1 1998/09/30 02:17:47 stanton Exp $
 # 
 # The first line below creates the button, and the second line
 # asks the packer to shrink-wrap the application's main window
diff --git a/library/demos/hscale.tcl b/library/demos/hscale.tcl
index a760586..4f86be1 100644
--- a/library/demos/hscale.tcl
+++ b/library/demos/hscale.tcl
@@ -2,7 +2,7 @@
 #
 # This demonstration script shows an example with a horizontal scale.
 #
-# SCCS: @(#) hscale.tcl 1.4 97/03/02 16:24:01
+# RCS: @(#) $Id: hscale.tcl,v 1.1.4.1 1998/09/30 02:17:47 stanton 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 1c98fd4..ba46e9e 100644
--- a/library/demos/icon.tcl
+++ b/library/demos/icon.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a toplevel window containing
 # buttons that display bitmaps instead of text.
 #
-# SCCS: @(#) icon.tcl 1.8 97/03/02 16:24:19
+# RCS: @(#) $Id: icon.tcl,v 1.1.4.1 1998/09/30 02:17:48 stanton 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 a3b78db..6a0c95b 100644
--- a/library/demos/image1.tcl
+++ b/library/demos/image1.tcl
@@ -2,7 +2,7 @@
 #
 # This demonstration script displays two image widgets.
 #
-# SCCS: @(#) image1.tcl 1.6 97/03/02 16:24:35
+# RCS: @(#) $Id: image1.tcl,v 1.1.4.1 1998/09/30 02:17:48 stanton 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 badea14..c0c28bb 100644
--- a/library/demos/image2.tcl
+++ b/library/demos/image2.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a simple collection of widgets
 # that allow you to select and view images in a Tk label.
 #
-# SCCS: @(#) image2.tcl 1.9 97/03/02 16:24:48
+# RCS: @(#) $Id: image2.tcl,v 1.1.4.1 1998/09/30 02:17:48 stanton 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 83e6033..5b16fa8 100644
--- a/library/demos/items.tcl
+++ b/library/demos/items.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a canvas that displays the
 # canvas item types.
 #
-# SCCS: @(#) items.tcl 1.16 97/03/02 16:25:05
+# RCS: @(#) $Id: items.tcl,v 1.1.4.1 1998/09/30 02:17:49 stanton 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 dcde75d..18fa22d 100644
--- a/library/demos/ixset
+++ b/library/demos/ixset
@@ -9,7 +9,7 @@ exec wish "$0" "$@"
 #   91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
 #   92/08/01 : pda@masi.ibp.fr : cleaning
 #
-# SCCS: @(#) ixset 1.7 96/02/16 10:49:19
+# RCS: @(#) $Id: ixset,v 1.1.4.1 1998/09/30 02:17:49 stanton Exp $
 
 #
 # Button actions
diff --git a/library/demos/label.tcl b/library/demos/label.tcl
index 2e0b027..8b61338 100644
--- a/library/demos/label.tcl
+++ b/library/demos/label.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a toplevel window containing
 # several label widgets.
 #
-# SCCS: @(#) label.tcl 1.7 97/03/02 16:25:27
+# RCS: @(#) $Id: label.tcl,v 1.1.4.1 1998/09/30 02:17:49 stanton 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 78ec625..60e6d1c 100644
--- a/library/demos/menu.tcl
+++ b/library/demos/menu.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a window with a bunch of menus
 # and cascaded menus using menubars.
 #
-# SCCS: @(#) menu.tcl 1.17 97/06/26 15:45:04
+# RCS: @(#) $Id: menu.tcl,v 1.1.4.1 1998/09/30 02:17:50 stanton 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 2a76e30..b30eb7f 100644
--- a/library/demos/menubu.tcl
+++ b/library/demos/menubu.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a window with a bunch of menus
 # and cascaded menus using menubuttons.
 #
-# # SCCS: @(#) menubu.tcl 1.9 97/06/19 18:11:06
+# # RCS: @(#) $Id: menubu.tcl,v 1.1.4.1 1998/09/30 02:17:50 stanton 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 52b648f..fe0c41e 100644
--- a/library/demos/msgbox.tcl
+++ b/library/demos/msgbox.tcl
@@ -2,7 +2,7 @@
 #
 # This demonstration script creates message boxes of various type
 #
-# SCCS: @(#) msgbox.tcl 1.3 97/03/02 16:26:07
+# RCS: @(#) $Id: msgbox.tcl,v 1.1.4.1 1998/09/30 02:17:50 stanton 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 6067979..75e0b02 100644
--- a/library/demos/plot.tcl
+++ b/library/demos/plot.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a canvas widget showing a 2-D
 # plot with data points that can be dragged with the mouse.
 #
-# SCCS: @(#) plot.tcl 1.5 97/03/02 16:26:19
+# RCS: @(#) $Id: plot.tcl,v 1.1.4.1 1998/09/30 02:17:51 stanton 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 7e3d9c8..d3661d7 100644
--- a/library/demos/puzzle.tcl
+++ b/library/demos/puzzle.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a 15-puzzle game using a collection
 # of buttons.
 #
-# SCCS: @(#) puzzle.tcl 1.5 97/03/02 16:26:32
+# RCS: @(#) $Id: puzzle.tcl,v 1.1.4.1 1998/09/30 02:17:51 stanton 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 2b73739..1e7c39f 100644
--- a/library/demos/radio.tcl
+++ b/library/demos/radio.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a toplevel window containing
 # several radiobutton widgets.
 #
-# SCCS: @(#) radio.tcl 1.5 97/03/02 16:26:57
+# RCS: @(#) $Id: radio.tcl,v 1.1.4.1 1998/09/30 02:17:51 stanton 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 9310475..d61782a 100644
--- a/library/demos/rmt
+++ b/library/demos/rmt
@@ -7,7 +7,7 @@ exec wish "$0" "$@"
 # Tk applications.  It allows you to select an application and
 # then type commands to that application.
 #
-# SCCS: @(#) rmt 1.10 96/06/24 16:42:38
+# RCS: @(#) $Id: rmt,v 1.1.4.1 1998/09/30 02:17:52 stanton Exp $
 
 wm title . "Tk Remote Controller"
 wm iconname . "Tk Remote"
diff --git a/library/demos/rolodex b/library/demos/rolodex
index e3e0e5a..7465b8f 100644
--- a/library/demos/rolodex
+++ b/library/demos/rolodex
@@ -8,7 +8,7 @@ exec wish "$0" "$@"
 # feel of a rolodex program, although it's lifeless and doesn't
 # actually do the rolodex application.
 #
-# SCCS: @(#) rolodex 1.7 96/02/16 10:49:23
+# RCS: @(#) $Id: rolodex,v 1.1.4.1 1998/09/30 02:17:52 stanton Exp $
 
 foreach i [winfo child .] {
     catch {destroy $i}
diff --git a/library/demos/ruler.tcl b/library/demos/ruler.tcl
index 3c77c72..c95896f 100644
--- a/library/demos/ruler.tcl
+++ b/library/demos/ruler.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a canvas widget that displays a ruler
 # with tab stops that can be set, moved, and deleted.
 #
-# SCCS: @(#) ruler.tcl 1.9 97/03/02 16:17:33
+# RCS: @(#) $Id: ruler.tcl,v 1.1.4.1 1998/09/30 02:17:53 stanton 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 b4952c5..862cef2 100644
--- a/library/demos/sayings.tcl
+++ b/library/demos/sayings.tcl
@@ -4,7 +4,7 @@
 # both horizontally and vertically.  It displays a collection of
 # well-known sayings.
 #
-# SCCS: @(#) sayings.tcl 1.7 97/03/02 16:27:10
+# RCS: @(#) $Id: sayings.tcl,v 1.1.4.1 1998/09/30 02:17:53 stanton 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 ffefd82..0205bf6 100644
--- a/library/demos/search.tcl
+++ b/library/demos/search.tcl
@@ -4,7 +4,7 @@
 # allow you to load a file into a text widget, then perform searches
 # on that file.
 #
-# SCCS: @(#) search.tcl 1.5 97/03/02 16:27:25
+# RCS: @(#) $Id: search.tcl,v 1.1.4.1 1998/09/30 02:17:53 stanton 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 743016f..3a48358 100644
--- a/library/demos/square
+++ b/library/demos/square
@@ -11,7 +11,7 @@ exec wish "$0" "$@"
 # Button-1 press/drag:		moves square to mouse
 # "a":				toggle size animation on/off
 #
-# SCCS: @(#) square 1.7 97/02/24 16:42:31
+# RCS: @(#) $Id: square,v 1.1.4.1 1998/09/30 02:17:54 stanton Exp $
 
 square .s
 pack .s -expand yes -fill both
diff --git a/library/demos/states.tcl b/library/demos/states.tcl
index 23905a2..0510c00 100644
--- a/library/demos/states.tcl
+++ b/library/demos/states.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a listbox widget that displays
 # the names of the 50 states in the United States of America.
 #
-# SCCS: @(#) states.tcl 1.4 97/03/02 16:27:37
+# RCS: @(#) $Id: states.tcl,v 1.1.4.1 1998/09/30 02:17:54 stanton 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 bb1d29b..cb2812f 100644
--- a/library/demos/style.tcl
+++ b/library/demos/style.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a text widget that illustrates the
 # various display styles that may be set for tags.
 #
-# SCCS: @(#) style.tcl 1.9 97/05/06 13:59:06
+# RCS: @(#) $Id: style.tcl,v 1.1.4.2 1998/09/30 02:17:54 stanton 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 50c0e68..680c18e 100644
--- a/library/demos/tcolor
+++ b/library/demos/tcolor
@@ -7,7 +7,7 @@ exec wish "$0" "$@"
 # create colors using either the RGB, HSB, or CYM color spaces
 # and apply the color to existing applications.
 #
-# SCCS: @(#) tcolor 1.11 96/06/24 16:43:11
+# RCS: @(#) $Id: tcolor,v 1.1.4.1 1998/09/30 02:17:55 stanton Exp $
 
 wm title . "Color Editor"
 
diff --git a/library/demos/text.tcl b/library/demos/text.tcl
index 97df780..acbafce 100644
--- a/library/demos/text.tcl
+++ b/library/demos/text.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a text widget that describes
 # the basic editing functions.
 #
-# SCCS: @(#) text.tcl 1.6 97/03/02 16:28:12
+# RCS: @(#) $Id: text.tcl,v 1.1.4.1 1998/09/30 02:17:55 stanton 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 b2edd11..7089a5c 100644
--- a/library/demos/timer
+++ b/library/demos/timer
@@ -5,7 +5,7 @@ exec wish "$0" "$@"
 # timer --
 # This script generates a counter with start and stop buttons.
 #
-# SCCS: @(#) timer 1.6 96/02/16 10:49:20
+# RCS: @(#) $Id: timer,v 1.1.4.1 1998/09/30 02:17:56 stanton Exp $
 
 label .counter -text 0.00 -relief raised -width 10
 button .start -text Start -command {
diff --git a/library/demos/twind.tcl b/library/demos/twind.tcl
index 75e732c..32b24b0 100644
--- a/library/demos/twind.tcl
+++ b/library/demos/twind.tcl
@@ -3,7 +3,7 @@
 # This demonstration script creates a text widget with a bunch of
 # embedded windows.
 #
-# SCCS: @(#) twind.tcl 1.7 97/03/02 16:28:22
+# RCS: @(#) $Id: twind.tcl,v 1.1.4.1 1998/09/30 02:17:56 stanton 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 ed78ac0..d129c87 100644
--- a/library/demos/vscale.tcl
+++ b/library/demos/vscale.tcl
@@ -2,7 +2,7 @@
 #
 # This demonstration script shows an example with a vertical scale.
 #
-# SCCS: @(#) vscale.tcl 1.4 97/03/02 16:28:34
+# RCS: @(#) $Id: vscale.tcl,v 1.1.4.1 1998/09/30 02:17:56 stanton 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 05c89cd..a386c2f 100644
--- a/library/demos/widget
+++ b/library/demos/widget
@@ -11,7 +11,7 @@ exec wish "$0" "$@"
 # ".tcl" files is this directory, which are sourced by this script
 # as needed.
 #
-# SCCS: @(#) widget 1.35 97/07/19 15:42:22
+# RCS: @(#) $Id: widget,v 1.1.4.1 1998/09/30 02:17:57 stanton Exp $
 
 eval destroy [winfo child .]
 wm title . "Widget Demonstration"