Tk 8.3 upgradeTK_8_3

47 files changed, 92 insertions, 46 deletions

diff --git a/tk/library/demos/README b/tk/library/demos/README
index c71f977d741..229c48707f2 100644
--- a/tk/library/demos/README
+++ b/tk/library/demos/README
@@ -43,4 +43,5 @@ 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$
+
diff --git a/tk/library/demos/arrow.tcl b/tk/library/demos/arrow.tcl
index 126c17959c4..f3f00c1084c 100644
--- a/tk/library/demos/arrow.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -236,3 +236,4 @@ proc arrowMove3 {c x y} {
 	set v(width) $newWidth
     }
 }
+
diff --git a/tk/library/demos/bind.tcl b/tk/library/demos/bind.tcl
index 175be10b465..a55cb00d367 100644
--- a/tk/library/demos/bind.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -77,3 +77,4 @@ $w.text tag bind d6 <1> {source [file join $tk_library demos cscroll.tcl]}
 
 $w.text mark set insert 0.0
 $w.text configure -state disabled
+
diff --git a/tk/library/demos/bitmap.tcl b/tk/library/demos/bitmap.tcl
index 55f9e734946..5345b69ca05 100644
--- a/tk/library/demos/bitmap.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -53,3 +53,4 @@ frame $w.frame
 bitmapRow $w.frame.0 error gray12 gray25 gray50 gray75
 bitmapRow $w.frame.1 hourglass info question questhead warning
 pack $w.frame -side top -expand yes -fill both
+
diff --git a/tk/library/demos/browse b/tk/library/demos/browse
index 46f653264b5..af553105baf 100755
--- a/tk/library/demos/browse
+++ b/tk/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$
 
 # Create a scrollbar on the right side of the main window and a listbox
 # on the left side.
@@ -54,3 +54,4 @@ foreach i [exec ls -a $dir] {
 
 bind all <Control-c> {destroy .}
 bind .list <Double-Button-1> {foreach i [selection get] {browse $dir $i}}
+
diff --git a/tk/library/demos/button.tcl b/tk/library/demos/button.tcl
index 8569b1dc5a6..651706db8d2 100644
--- a/tk/library/demos/button.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -34,3 +34,4 @@ button $w.b3 -text "Sea Green" -width 10 \
 button $w.b4 -text "Yellow" -width 10 \
     -command "$w config -bg Yellow1;    $w.buttons config -bg Yellow1"
 pack $w.b1 $w.b2 $w.b3 $w.b4 -side top -expand yes -pady 2
+
diff --git a/tk/library/demos/check.tcl b/tk/library/demos/check.tcl
index 46e21b350eb..000ef61ae84 100644
--- a/tk/library/demos/check.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -31,3 +31,4 @@ checkbutton $w.b1 -text "Wipers OK" -variable wipers -relief flat
 checkbutton $w.b2 -text "Brakes OK" -variable brakes -relief flat
 checkbutton $w.b3 -text "Driver Sober" -variable sober -relief flat
 pack $w.b1 $w.b2 $w.b3 -side top -pady 2 -anchor w
+
diff --git a/tk/library/demos/clrpick.tcl b/tk/library/demos/clrpick.tcl
index 757e0b84bc7..fc09ae44044 100644
--- a/tk/library/demos/clrpick.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -54,3 +54,4 @@ proc setColor_helper {w options color} {
 	setColor_helper $child $options $color
     }
 }
+
diff --git a/tk/library/demos/colors.tcl b/tk/library/demos/colors.tcl
index e95c21c8b0a..9d95ed890a5 100644
--- a/tk/library/demos/colors.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -99,3 +99,4 @@ $w.frame.list insert 0 gray60 gray70 gray80 gray85 gray90 gray95 \
     purple2 purple3 purple4 MediumPurple1 MediumPurple2 \
     MediumPurple3 MediumPurple4 thistle1 thistle2 thistle3 \
     thistle4
+
diff --git a/tk/library/demos/cscroll.tcl b/tk/library/demos/cscroll.tcl
index 78f99fa93b9..5897dcb26cd 100644
--- a/tk/library/demos/cscroll.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -94,3 +94,4 @@ proc scrollButton canvas {
     }
     puts stdout "You buttoned at [lindex [$canvas itemconf $id -text] 4]"
 }
+
diff --git a/tk/library/demos/ctext.tcl b/tk/library/demos/ctext.tcl
index fdd3f79a69e..83eac45e611 100644
--- a/tk/library/demos/ctext.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -144,3 +144,4 @@ proc textDel {w} {
     }
     $w dchars text insert
 }
+
diff --git a/tk/library/demos/dialog1.tcl b/tk/library/demos/dialog1.tcl
index e221beb2df4..63f97fef750 100644
--- a/tk/library/demos/dialog1.tcl
+++ b/tk/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$
 
 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.} \
@@ -13,3 +13,4 @@ switch $i {
     1 {puts "You pressed Cancel"}
     2 {showCode .dialog1}
 }
+
diff --git a/tk/library/demos/dialog2.tcl b/tk/library/demos/dialog2.tcl
index 0cc3bb6e1e7..6451c8dff45 100644
--- a/tk/library/demos/dialog2.tcl
+++ b/tk/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$
 
 after idle {
     .dialog2.msg configure -wraplength 4i
@@ -17,3 +17,4 @@ switch $i {
     1 {puts "You pressed Cancel"}
     2 {showCode .dialog2}
 }
+
diff --git a/tk/library/demos/entry1.tcl b/tk/library/demos/entry1.tcl
index 0b68b682140..35d776c97b2 100644
--- a/tk/library/demos/entry1.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -34,3 +34,4 @@ $w.e1 insert 0 "Initial value"
 $w.e2 insert end "This entry contains a long value, much too long "
 $w.e2 insert end "to fit in the window at one time, so long in fact "
 $w.e2 insert end "that you'll have to scan or scroll to see the end."
+
diff --git a/tk/library/demos/entry2.tcl b/tk/library/demos/entry2.tcl
index d9b67cd846b..cf5c16c6c6d 100644
--- a/tk/library/demos/entry2.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -46,3 +46,4 @@ $w.frame.e1 insert 0 "Initial value"
 $w.frame.e2 insert end "This entry contains a long value, much too long "
 $w.frame.e2 insert end "to fit in the window at one time, so long in fact "
 $w.frame.e2 insert end "that you'll have to scan or scroll to see the end."
+
diff --git a/tk/library/demos/filebox.tcl b/tk/library/demos/filebox.tcl
index 83eeacc02b2..fdfff8aa061 100644
--- a/tk/library/demos/filebox.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -68,3 +68,4 @@ proc fileDialog {w ent operation} {
 	$ent xview end
     }
 }
+
diff --git a/tk/library/demos/floor.tcl b/tk/library/demos/floor.tcl
index 30b62da2e2c..6c62d3a4aad 100644
--- a/tk/library/demos/floor.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -1368,3 +1368,4 @@ bind $c <B2-Motion> "$c scan dragto %x %y"
 bind $c <Destroy> "unset currentRoom"
 set currentRoom ""
 trace variable currentRoom w "roomChanged $c"
+
diff --git a/tk/library/demos/form.tcl b/tk/library/demos/form.tcl
index 3c43497cbe0..f50c06d3e17 100644
--- a/tk/library/demos/form.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -38,3 +38,4 @@ $w.f5.label config -text Phone:
 pack $w.msg $w.f1 $w.f2 $w.f3 $w.f4 $w.f5 -side top -fill x
 bind $w <Return> "destroy $w"
 focus $w.f1.entry
+
diff --git a/tk/library/demos/hello b/tk/library/demos/hello
index 0fa5d05b837..ec8b798cd2d 100755
--- a/tk/library/demos/hello
+++ b/tk/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$
 # 
 # The first line below creates the button, and the second line
 # asks the packer to shrink-wrap the application's main window
@@ -16,3 +16,4 @@ button .hello -text "Hello, world" -command {
     puts stdout "Hello, world"; destroy .
 }
 pack .hello
+
diff --git a/tk/library/demos/hscale.tcl b/tk/library/demos/hscale.tcl
index a760586046a..13bf81c70ff 100644
--- a/tk/library/demos/hscale.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -45,3 +45,4 @@ proc setWidth {w width} {
     $w coords poly 20 15 20 35 $x2 35 $x2 45 $width 25 $x2 5 $x2 15 20 15
     $w coords line 20 15 20 35 $x2 35 $x2 45 $width 25 $x2 5 $x2 15 20 15
 }
+
diff --git a/tk/library/demos/icon.tcl b/tk/library/demos/icon.tcl
index 1c98fd478b7..fece907b5a6 100644
--- a/tk/library/demos/icon.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -50,3 +50,4 @@ radiobutton $w.frame.left.b4 \
 	-bitmap @[file join $tk_library demos images noletter.bmp] \
 	-variable letters -value empty
 pack $w.frame.left.b3 $w.frame.left.b4 -side top -expand yes
+
diff --git a/tk/library/demos/image1.tcl b/tk/library/demos/image1.tcl
index a3b78db92a0..30391f61b3e 100644
--- a/tk/library/demos/image1.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -34,3 +34,4 @@ image create photo image1b \
 label $w.l2 -image image1b -bd 1 -relief sunken
 
 pack $w.l1 $w.l2 -side top -padx .5m -pady .5m
+
diff --git a/tk/library/demos/image2.tcl b/tk/library/demos/image2.tcl
index badea14fd32..827753cde2a 100644
--- a/tk/library/demos/image2.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -78,3 +78,4 @@ frame $w.spacer2 -height 3m -width 20
 label $w.imageLabel -text "Image:"
 label $w.image -image image2a
 pack $w.spacer2 $w.imageLabel $w.image -side top -anchor w
+
diff --git a/tk/library/demos/images/mickey.gif b/tk/library/demos/images/mickey.gif
new file mode 100644
index 00000000000..91baba9795f
--- /dev/null
+++ b/tk/library/demos/images/mickey.gif
diff --git a/tk/library/demos/items.tcl b/tk/library/demos/items.tcl
index 83e603375db..0f3ffde2eeb 100644
--- a/tk/library/demos/items.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -283,3 +283,4 @@ proc butPress {w color} {
     set i [$w create text 25c 18.1c -text "Ouch!!" -fill $color -anchor n]
     after 500 "$w delete $i"
 }
+
diff --git a/tk/library/demos/ixset b/tk/library/demos/ixset
index dcde75dbb1d..1e4716c2524 100755
--- a/tk/library/demos/ixset
+++ b/tk/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$
 
 #
 # Button actions
@@ -310,3 +310,4 @@ dispsettings
 #
 # Now, wait for user actions...
 #
+
diff --git a/tk/library/demos/label.tcl b/tk/library/demos/label.tcl
index 2e0b0271f2e..63fe44e128a 100644
--- a/tk/library/demos/label.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -38,3 +38,4 @@ label $w.right.bitmap -borderwidth 2 -relief sunken \
 	-bitmap @[file join $tk_library demos images face.bmp]
 label $w.right.caption -text "Tcl/Tk Proprietor"
 pack $w.right.bitmap $w.right.caption -side top
+
diff --git a/tk/library/demos/menu.tcl b/tk/library/demos/menu.tcl
index 78ec6256f17..9900cd59a1b 100644
--- a/tk/library/demos/menu.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -150,3 +150,4 @@ bind Menu <<MenuSelect>> {
     set menustatus $label
     update idletasks
 }
+
diff --git a/tk/library/demos/menubu.tcl b/tk/library/demos/menubu.tcl
index 2a76e302711..dc0681e55b3 100644
--- a/tk/library/demos/menubu.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -91,3 +91,4 @@ pack $body.buttons.colors -side left -padx 25 -pady 25
 
 
 
+
diff --git a/tk/library/demos/msgbox.tcl b/tk/library/demos/msgbox.tcl
index 52b648f89ab..73b7caa512d 100644
--- a/tk/library/demos/msgbox.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -63,3 +63,4 @@ proc showMessageBox {w} {
     tk_messageBox -icon info -message "You have selected \"$button\"" -type ok\
 	-parent $w
 }
+
diff --git a/tk/library/demos/plot.tcl b/tk/library/demos/plot.tcl
index 6067979806f..b226c84f2ae 100644
--- a/tk/library/demos/plot.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -96,3 +96,4 @@ proc plotMove {w x y} {
     set plot(lastX) $x
     set plot(lastY) $y
 }
+
diff --git a/tk/library/demos/puzzle.tcl b/tk/library/demos/puzzle.tcl
index 7e3d9c8d96c..0dcef217bd8 100644
--- a/tk/library/demos/puzzle.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -71,3 +71,4 @@ for {set i 0} {$i < 15} {set i [expr $i+1]} {
 }
 set xpos(space) .75
 set ypos(space) .75
+
diff --git a/tk/library/demos/radio.tcl b/tk/library/demos/radio.tcl
index 2b73739e47d..91d9e8ecae8 100644
--- a/tk/library/demos/radio.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -42,3 +42,4 @@ foreach color {Red Green Blue Yellow Orange Purple} {
 	    -relief flat -value $lower
     pack $w.right.$lower -side top -pady 2 -anchor w
 }
+
diff --git a/tk/library/demos/rmt b/tk/library/demos/rmt
index 93104758988..de3ff853728 100755
--- a/tk/library/demos/rmt
+++ b/tk/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$
 
 wm title . "Tk Remote Controller"
 wm iconname . "Tk Remote"
@@ -203,3 +203,4 @@ proc fillAppsMenu {} {
 set app [winfo name .]
 prompt
 focus .t
+
diff --git a/tk/library/demos/rolodex b/tk/library/demos/rolodex
index e3e0e5a2682..3e334f7ef70 100755
--- a/tk/library/demos/rolodex
+++ b/tk/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$
 
 foreach i [winfo child .] {
     catch {destroy $i}
@@ -194,3 +194,4 @@ set helpTopics(version) {This is version 1.0.}
 	-underline 3
 .menu.help.m add command -label "On Version..." -command {Help version}  \
 	-underline 3
+
diff --git a/tk/library/demos/ruler.tcl b/tk/library/demos/ruler.tcl
index 3c77c72d455..e73e462fc46 100644
--- a/tk/library/demos/ruler.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -171,3 +171,4 @@ proc rulerReleaseTab c {
 	$c dtag active
     }
 }
+
diff --git a/tk/library/demos/sayings.tcl b/tk/library/demos/sayings.tcl
index b4952c5f293..8f24ec907e8 100644
--- a/tk/library/demos/sayings.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -44,3 +44,4 @@ grid columnconfig $w.frame 0 -weight 1 -minsize 0
 
 
 $w.frame.list insert 0 "Waste not, want not" "Early to bed and early to rise makes a man healthy, wealthy, and wise" "Ask not what your country can do for you, ask what you can do for your country" "I shall return" "NOT" "A picture is worth a thousand words" "User interfaces are hard to build" "Thou shalt not steal" "A penny for your thoughts" "Fool me once, shame on you;  fool me twice, shame on me" "Every cloud has a silver lining" "Where there's smoke there's fire" "It takes one to know one" "Curiosity killed the cat" "Take this job and shove it" "Up a creek without a paddle" "I'm mad as hell and I'm not going to take it any more" "An apple a day keeps the doctor away" "Don't look a gift horse in the mouth"
+
diff --git a/tk/library/demos/search.tcl b/tk/library/demos/search.tcl
index ffefd823364..130cb53ee39 100644
--- a/tk/library/demos/search.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -139,3 +139,4 @@ $w.text mark set insert 0.0
 
 set fileName ""
 set searchString ""
+
diff --git a/tk/library/demos/square b/tk/library/demos/square
index 743016f9ea7..4a17ef14ef3 100755
--- a/tk/library/demos/square
+++ b/tk/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 .s
 pack .s -expand yes -fill both
@@ -53,3 +53,4 @@ proc timer {} {
     .s size [expr {$s+$inc}]
     after 30 timer
 }
+
diff --git a/tk/library/demos/states.tcl b/tk/library/demos/states.tcl
index 23905a2d2b4..425c0bc582b 100644
--- a/tk/library/demos/states.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -43,3 +43,4 @@ $w.frame.list insert 0 Alabama Alaska Arizona Arkansas California \
     "South Carolina" "South Dakota" \
     Tennessee Texas Utah Vermont Virginia Washington \
     "West Virginia" Wisconsin Wyoming
+
diff --git a/tk/library/demos/style.tcl b/tk/library/demos/style.tcl
index 6ed31f8004b..cf5d049cbec 100644
--- a/tk/library/demos/style.tcl
+++ b/tk/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.8 97/04/18 11:41:47
+# RCS: @(#) $Id$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -150,3 +150,4 @@ $w.text insert end "in this example.\n" spacing
 $w.text insert end "To see where the space is, select ranges of " spacing
 $w.text insert end "text within these paragraphs.  The selection " spacing
 $w.text insert end "highlight will cover the extra space." spacing
+
diff --git a/tk/library/demos/tcolor b/tk/library/demos/tcolor
index 50c0e6893a0..edef7235c93 100755
--- a/tk/library/demos/tcolor
+++ b/tk/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$
 
 wm title . "Color Editor"
 
@@ -356,3 +356,4 @@ proc doUpdate {} {
 }
 
 changeColorSpace hsb
+
diff --git a/tk/library/demos/text.tcl b/tk/library/demos/text.tcl
index 97df78021f5..0cd2219c165 100644
--- a/tk/library/demos/text.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -74,3 +74,4 @@ even number of characters high and wide.  Also, if you make the window
 narrow you can see that long lines automatically wrap around onto
 additional lines so that all the information is always visible.}
 $w.text mark set insert 0.0
+
diff --git a/tk/library/demos/timer b/tk/library/demos/timer
index b2edd114786..04a68f37f3e 100755
--- a/tk/library/demos/timer
+++ b/tk/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$
 
 label .counter -text 0.00 -relief raised -width 10
 button .start -text Start -command {
@@ -38,3 +38,4 @@ proc tick {} {
 bind . <Control-c> {destroy .}
 bind . <Control-q> {destroy .}
 focus .
+
diff --git a/tk/library/demos/twind.tcl b/tk/library/demos/twind.tcl
index 75e732c6ac6..475cbd724bf 100644
--- a/tk/library/demos/twind.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -194,3 +194,4 @@ proc textWindDel w {
 proc embDefBg t {
     $t configure -background [lindex [$t configure -background] 3]
 }
+
diff --git a/tk/library/demos/vscale.tcl b/tk/library/demos/vscale.tcl
index ed78ac09347..7f1afd2a780 100644
--- a/tk/library/demos/vscale.tcl
+++ b/tk/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$
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -46,3 +46,4 @@ proc setHeight {w height} {
     $w coords poly 15 20 35 20 35 $y2 45 $y2 25 $height 5 $y2 15 $y2 15 20
     $w coords line 15 20 35 20 35 $y2 45 $y2 25 $height 5 $y2 15 $y2 15 20
 }
+
diff --git a/tk/library/demos/widget b/tk/library/demos/widget
index 05c89cdd2d1..eca4cb723c8 100755
--- a/tk/library/demos/widget
+++ b/tk/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$
 
 eval destroy [winfo child .]
 wm title . "Widget Demonstration"
@@ -389,3 +389,4 @@ proc aboutBox {} {
 Copyright (c) 1996-1997 Sun Microsystems, Inc."
 }
 
+