Starting with Tcl 9.0, lower-case package-names are recommended

68 files changed, 68 insertions, 72 deletions

diff --git a/library/demos/anilabel.tcl b/library/demos/anilabel.tcl
index be1b402..6662f9a 100644
--- a/library/demos/anilabel.tcl
+++ b/library/demos/anilabel.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .anilabel
 catch {destroy $w}
diff --git a/library/demos/aniwave.tcl b/library/demos/aniwave.tcl
index 1f7e8f3..50de429 100644
--- a/library/demos/aniwave.tcl
+++ b/library/demos/aniwave.tcl
@@ -8,7 +8,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .aniwave
 catch {destroy $w}
diff --git a/library/demos/arrow.tcl b/library/demos/arrow.tcl
index 5674be9..e30406b 100644
--- a/library/demos/arrow.tcl
+++ b/library/demos/arrow.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 # scl --
 # Scales an integer according to the display's current scaling percentage.
diff --git a/library/demos/bind.tcl b/library/demos/bind.tcl
index 8b56639..179310a 100644
--- a/library/demos/bind.tcl
+++ b/library/demos/bind.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .bind
 catch {destroy $w}
diff --git a/library/demos/bitmap.tcl b/library/demos/bitmap.tcl
index 453987d..2787efa 100644
--- a/library/demos/bitmap.tcl
+++ b/library/demos/bitmap.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 # bitmapRow --
 # Create a row of bitmap items in a window.
diff --git a/library/demos/browse b/library/demos/browse
index d107f28..e401034 100644
--- a/library/demos/browse
+++ b/library/demos/browse
@@ -7,7 +7,7 @@ exec wish "$0" ${1+"$@"}
 # directory and allows you to open files or subdirectories by
 # double-clicking.
 
-package require Tk
+package require tk
 
 # 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 0169c2a..d7cd4ce 100644
--- a/library/demos/button.tcl
+++ b/library/demos/button.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .button
 catch {destroy $w}
diff --git a/library/demos/check.tcl b/library/demos/check.tcl
index 96ff251..2623618 100644
--- a/library/demos/check.tcl
+++ b/library/demos/check.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .check
 catch {destroy $w}
diff --git a/library/demos/clrpick.tcl b/library/demos/clrpick.tcl
index ba50b75..7322bcf 100644
--- a/library/demos/clrpick.tcl
+++ b/library/demos/clrpick.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .clrpick
 catch {destroy $w}
diff --git a/library/demos/colors.tcl b/library/demos/colors.tcl
index f1f931d..3a79cb1 100644
--- a/library/demos/colors.tcl
+++ b/library/demos/colors.tcl
@@ -8,7 +8,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .colors
 catch {destroy $w}
diff --git a/library/demos/combo.tcl b/library/demos/combo.tcl
index 53e5a27..7f33fa9 100644
--- a/library/demos/combo.tcl
+++ b/library/demos/combo.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .combo
 catch {destroy $w}
diff --git a/library/demos/cscroll.tcl b/library/demos/cscroll.tcl
index ed21310..e209a63 100644
--- a/library/demos/cscroll.tcl
+++ b/library/demos/cscroll.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .cscroll
 catch {destroy $w}
diff --git a/library/demos/ctext.tcl b/library/demos/ctext.tcl
index 6874226..0fbb450 100644
--- a/library/demos/ctext.tcl
+++ b/library/demos/ctext.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .ctext
 catch {destroy $w}
diff --git a/library/demos/entry1.tcl b/library/demos/entry1.tcl
index f41c2ab..f6b087e 100644
--- a/library/demos/entry1.tcl
+++ b/library/demos/entry1.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .entry1
 catch {destroy $w}
diff --git a/library/demos/entry2.tcl b/library/demos/entry2.tcl
index ac82c6a..7f15ee1 100644
--- a/library/demos/entry2.tcl
+++ b/library/demos/entry2.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .entry2
 catch {destroy $w}
diff --git a/library/demos/entry3.tcl b/library/demos/entry3.tcl
index f229de6..f6c2e8c 100644
--- a/library/demos/entry3.tcl
+++ b/library/demos/entry3.tcl
@@ -8,7 +8,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .entry3
 catch {destroy $w}
diff --git a/library/demos/filebox.tcl b/library/demos/filebox.tcl
index a8f5c32..06dacc8 100644
--- a/library/demos/filebox.tcl
+++ b/library/demos/filebox.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .filebox
 catch {destroy $w}
diff --git a/library/demos/floor.tcl b/library/demos/floor.tcl
index 81920ed..9632a44 100644
--- a/library/demos/floor.tcl
+++ b/library/demos/floor.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 # floorDisplay --
 # Recreate the floorplan display in the canvas given by "w".  The
diff --git a/library/demos/fontchoose.tcl b/library/demos/fontchoose.tcl
index 4353a4d..de9e854 100644
--- a/library/demos/fontchoose.tcl
+++ b/library/demos/fontchoose.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .fontchoose
 catch {destroy $w}
diff --git a/library/demos/form.tcl b/library/demos/form.tcl
index 4d80437..f0f3109 100644
--- a/library/demos/form.tcl
+++ b/library/demos/form.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .form
 catch {destroy $w}
diff --git a/library/demos/goldberg.tcl b/library/demos/goldberg.tcl
index 860d03c..5a5b462 100644
--- a/library/demos/goldberg.tcl
+++ b/library/demos/goldberg.tcl
@@ -40,7 +40,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .goldberg
 catch {destroy $w}
diff --git a/library/demos/hello b/library/demos/hello
index d10b8d5..d5e733d 100644
--- a/library/demos/hello
+++ b/library/demos/hello
@@ -6,7 +6,7 @@ exec wish "$0" ${1+"$@"}
 # Simple Tk script to create a button that prints "Hello, world".
 # Click on the button to terminate the program.
 
-package require Tk
+package require tk
 
 # 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 26745bc..777b195 100644
--- a/library/demos/hscale.tcl
+++ b/library/demos/hscale.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .hscale
 catch {destroy $w}
diff --git a/library/demos/icon.tcl b/library/demos/icon.tcl
index c8c1e18..14e1c0b 100644
--- a/library/demos/icon.tcl
+++ b/library/demos/icon.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .icon
 catch {destroy $w}
diff --git a/library/demos/image1.tcl b/library/demos/image1.tcl
index c174a92..1e67e24 100644
--- a/library/demos/image1.tcl
+++ b/library/demos/image1.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .image1
 catch {destroy $w}
diff --git a/library/demos/image2.tcl b/library/demos/image2.tcl
index 9691b87..f3aab60 100644
--- a/library/demos/image2.tcl
+++ b/library/demos/image2.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 # loadDir --
 # This procedure reloads the directory listbox from the directory
diff --git a/library/demos/items.tcl b/library/demos/items.tcl
index 335971b..70afcee 100644
--- a/library/demos/items.tcl
+++ b/library/demos/items.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .items
 catch {destroy $w}
diff --git a/library/demos/ixset b/library/demos/ixset
index 3457ed7..11ec531 100644
--- a/library/demos/ixset
+++ b/library/demos/ixset
@@ -9,7 +9,7 @@ exec wish8.7 "$0" ${1+"$@"}
 #   91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
 #   92/08/01 : pda@masi.ibp.fr : cleaning
 
-package require Tk
+package require tk
 
 #
 # Button actions
diff --git a/library/demos/knightstour.tcl b/library/demos/knightstour.tcl
index 8367477..76b6a4f 100644
--- a/library/demos/knightstour.tcl
+++ b/library/demos/knightstour.tcl
@@ -21,7 +21,7 @@
 #	If you let it repeat then it will choose random start positions
 #	for each new tour.
 
-package require Tk
+package require tk
 
 # Return a list of accessible squares from a given square
 proc ValidMoves {square} {
diff --git a/library/demos/label.tcl b/library/demos/label.tcl
index d2823e1..0644de8 100644
--- a/library/demos/label.tcl
+++ b/library/demos/label.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .label
 catch {destroy $w}
diff --git a/library/demos/labelframe.tcl b/library/demos/labelframe.tcl
index b40bd54..08e8a23 100644
--- a/library/demos/labelframe.tcl
+++ b/library/demos/labelframe.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .labelframe
 catch {destroy $w}
diff --git a/library/demos/mac_styles.tcl b/library/demos/mac_styles.tcl
index 33fa888..3fff03c 100644
--- a/library/demos/mac_styles.tcl
+++ b/library/demos/mac_styles.tcl
@@ -8,12 +8,10 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
-
 set w .mac_styles
 catch {destroy $w}
 toplevel $w
-package require Tk
+package require tk
 wm title $w "Tk Aqua Widgets"
 wm iconname $w "mac_styles"
 positionWindow $w
diff --git a/library/demos/mac_tabs.tcl b/library/demos/mac_tabs.tcl
index 16771a8..fea9b03 100644
--- a/library/demos/mac_tabs.tcl
+++ b/library/demos/mac_tabs.tcl
@@ -8,12 +8,11 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 catch {font create giant -family {Times New Roman} -size 64}
 set w .mac_tabs
 catch {destroy $w}
 toplevel $w
-package require Tk
 wm title $w "Tabbed Windows in Aqua"
 wm iconname $w "mac_tabs"
 positionWindow $w
diff --git a/library/demos/mac_wm.tcl b/library/demos/mac_wm.tcl
index 3272623..105c12c 100644
--- a/library/demos/mac_wm.tcl
+++ b/library/demos/mac_wm.tcl
@@ -8,12 +8,11 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .mac_wm
 catch {destroy $w}
 toplevel $w
-package require Tk
 wm title $w "Tk Aqua Window Styles"
 wm iconname $w "mac_wm"
 positionWindow $w
diff --git a/library/demos/mclist.tcl b/library/demos/mclist.tcl
index 086fbf5..a60a00f 100644
--- a/library/demos/mclist.tcl
+++ b/library/demos/mclist.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .mclist
 catch {destroy $w}
diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl
index d43a374..2a8ad1c 100644
--- a/library/demos/menu.tcl
+++ b/library/demos/menu.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .menu
 catch {destroy $w}
diff --git a/library/demos/menubu.tcl b/library/demos/menubu.tcl
index cb52f43..a45fe84 100644
--- a/library/demos/menubu.tcl
+++ b/library/demos/menubu.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .menubu
 catch {destroy $w}
diff --git a/library/demos/msgbox.tcl b/library/demos/msgbox.tcl
index 6f34e16..1c9a319 100644
--- a/library/demos/msgbox.tcl
+++ b/library/demos/msgbox.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .msgbox
 catch {destroy $w}
diff --git a/library/demos/paned1.tcl b/library/demos/paned1.tcl
index 829988a..8e2568b 100644
--- a/library/demos/paned1.tcl
+++ b/library/demos/paned1.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .paned1
 catch {destroy $w}
diff --git a/library/demos/paned2.tcl b/library/demos/paned2.tcl
index 73af21d..feb0254 100644
--- a/library/demos/paned2.tcl
+++ b/library/demos/paned2.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .paned2
 catch {destroy $w}
diff --git a/library/demos/pendulum.tcl b/library/demos/pendulum.tcl
index d76a1ec..060c070 100644
--- a/library/demos/pendulum.tcl
+++ b/library/demos/pendulum.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .pendulum
 catch {destroy $w}
diff --git a/library/demos/plot.tcl b/library/demos/plot.tcl
index 5df318b..32bc2d5 100644
--- a/library/demos/plot.tcl
+++ b/library/demos/plot.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .plot
 catch {destroy $w}
diff --git a/library/demos/puzzle.tcl b/library/demos/puzzle.tcl
index 30c0562..aab5744 100644
--- a/library/demos/puzzle.tcl
+++ b/library/demos/puzzle.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 # puzzleSwitch --
 # This procedure is invoked when the user clicks on a particular button;
diff --git a/library/demos/radio.tcl b/library/demos/radio.tcl
index 41f8db2..c6f5135 100644
--- a/library/demos/radio.tcl
+++ b/library/demos/radio.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .radio
 catch {destroy $w}
diff --git a/library/demos/rmt b/library/demos/rmt
index 00bdc9d..21c6ca0 100644
--- a/library/demos/rmt
+++ b/library/demos/rmt
@@ -7,7 +7,7 @@ exec wish "$0" ${1+"$@"}
 # Tk applications.  It allows you to select an application and
 # then type commands to that application.
 
-package require Tk
+package require tk
 
 wm title . "Tk Remote Controller"
 wm iconname . "Tk Remote"
diff --git a/library/demos/rolodex b/library/demos/rolodex
index abbf028..d528cb5 100644
--- a/library/demos/rolodex
+++ b/library/demos/rolodex
@@ -8,7 +8,7 @@ exec wish8.7 "$0" ${1+"$@"}
 # feel of a rolodex program, although it's lifeless and doesn't
 # actually do the rolodex application.
 
-package require Tk
+package require tk
 
 foreach i [winfo child .] {
     catch {destroy $i}
diff --git a/library/demos/ruler.tcl b/library/demos/ruler.tcl
index 0b78370..761892e 100644
--- a/library/demos/ruler.tcl
+++ b/library/demos/ruler.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 # rulerMkTab --
 # This procedure creates a new triangular polygon in a canvas to
diff --git a/library/demos/sayings.tcl b/library/demos/sayings.tcl
index 3458016..b7be791 100644
--- a/library/demos/sayings.tcl
+++ b/library/demos/sayings.tcl
@@ -8,7 +8,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .sayings
 catch {destroy $w}
diff --git a/library/demos/search.tcl b/library/demos/search.tcl
index b4beb28..f4913f8 100644
--- a/library/demos/search.tcl
+++ b/library/demos/search.tcl
@@ -8,7 +8,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 # textLoadFile --
 # This procedure below loads a file into a text widget, discarding
diff --git a/library/demos/spin.tcl b/library/demos/spin.tcl
index b08ed16..203850d 100644
--- a/library/demos/spin.tcl
+++ b/library/demos/spin.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .spin
 catch {destroy $w}
diff --git a/library/demos/states.tcl b/library/demos/states.tcl
index e2acd80..4e14fd5 100644
--- a/library/demos/states.tcl
+++ b/library/demos/states.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .states
 catch {destroy $w}
diff --git a/library/demos/style.tcl b/library/demos/style.tcl
index a529a03..a32f3a6 100644
--- a/library/demos/style.tcl
+++ b/library/demos/style.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .style
 catch {destroy $w}
diff --git a/library/demos/tcolor b/library/demos/tcolor
index 0aa133b..b349c5b 100644
--- a/library/demos/tcolor
+++ b/library/demos/tcolor
@@ -7,7 +7,7 @@ exec wish "$0" ${1+"$@"}
 # create colors using either the RGB, HSB, or CYM color spaces
 # and apply the color to existing applications.
 
-package require Tk
+package require tk
 wm title . "Color Editor"
 
 # Global variables that control the program:
diff --git a/library/demos/text.tcl b/library/demos/text.tcl
index 2736b88..130a4a5 100644
--- a/library/demos/text.tcl
+++ b/library/demos/text.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .text
 catch {destroy $w}
diff --git a/library/demos/textpeer.tcl b/library/demos/textpeer.tcl
index 83e8e14..7dd55a7 100644
--- a/library/demos/textpeer.tcl
+++ b/library/demos/textpeer.tcl
@@ -8,7 +8,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .textpeer
 catch {destroy $w}
diff --git a/library/demos/timer b/library/demos/timer
index 6b61ca4..2d96ec4 100644
--- a/library/demos/timer
+++ b/library/demos/timer
@@ -5,7 +5,7 @@ exec wish "$0" ${1+"$@"}
 # timer --
 # This script generates a counter with start and stop buttons.
 
-package require Tk
+package require tk
 
 label .counter -text 0.00 -relief raised -width 10 -padx 2m -pady 1m
 button .start -text Start -command {
diff --git a/library/demos/toolbar.tcl b/library/demos/toolbar.tcl
index c8248e3..50d4e49 100644
--- a/library/demos/toolbar.tcl
+++ b/library/demos/toolbar.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .toolbar
 destroy $w
diff --git a/library/demos/tree.tcl b/library/demos/tree.tcl
index 1cc70f8..fe06ce1 100644
--- a/library/demos/tree.tcl
+++ b/library/demos/tree.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .tree
 catch {destroy $w}
diff --git a/library/demos/ttkbut.tcl b/library/demos/ttkbut.tcl
index 86e4382..f567790 100644
--- a/library/demos/ttkbut.tcl
+++ b/library/demos/ttkbut.tcl
@@ -8,7 +8,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .ttkbut
 catch {destroy $w}
diff --git a/library/demos/ttkmenu.tcl b/library/demos/ttkmenu.tcl
index aad5aa0..35cf935 100644
--- a/library/demos/ttkmenu.tcl
+++ b/library/demos/ttkmenu.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .ttkmenu
 catch {destroy $w}
diff --git a/library/demos/ttknote.tcl b/library/demos/ttknote.tcl
index 5e5551d..d1d15f9 100644
--- a/library/demos/ttknote.tcl
+++ b/library/demos/ttknote.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .ttknote
 catch {destroy $w}
diff --git a/library/demos/ttkpane.tcl b/library/demos/ttkpane.tcl
index bae8716..749f940 100644
--- a/library/demos/ttkpane.tcl
+++ b/library/demos/ttkpane.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .ttkpane
 catch {destroy $w}
diff --git a/library/demos/ttkprogress.tcl b/library/demos/ttkprogress.tcl
index e5d0e22..6e5068e 100644
--- a/library/demos/ttkprogress.tcl
+++ b/library/demos/ttkprogress.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .ttkprogress
 catch {destroy $w}
diff --git a/library/demos/ttkscale.tcl b/library/demos/ttkscale.tcl
index e08d9b2..6aeb11c 100644
--- a/library/demos/ttkscale.tcl
+++ b/library/demos/ttkscale.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .ttkscale
 catch {destroy $w}
diff --git a/library/demos/twind.tcl b/library/demos/twind.tcl
index 5268fdf..b974456 100644
--- a/library/demos/twind.tcl
+++ b/library/demos/twind.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 # Make an Aqua button's fill color match its parent's background
 proc blend {bt} {
diff --git a/library/demos/unicodeout.tcl b/library/demos/unicodeout.tcl
index 1ecc064..0f3dc2d 100644
--- a/library/demos/unicodeout.tcl
+++ b/library/demos/unicodeout.tcl
@@ -7,7 +7,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .unicodeout
 catch {destroy $w}
diff --git a/library/demos/vscale.tcl b/library/demos/vscale.tcl
index 3a041a6..f1529c0 100644
--- a/library/demos/vscale.tcl
+++ b/library/demos/vscale.tcl
@@ -6,7 +6,7 @@ if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
 }
 
-package require Tk
+package require tk
 
 set w .vscale
 catch {destroy $w}
diff --git a/library/demos/widget b/library/demos/widget
index d931b89..b6811d8 100644
--- a/library/demos/widget
+++ b/library/demos/widget
@@ -10,7 +10,7 @@ exec wish "$0" ${1+"$@"}
 # separate ".tcl" files is this directory, which are sourced by this script as
 # needed.
 
-package require Tk	8.6-
+package require tk
 package require msgcat
 
 eval destroy [winfo child .]