summaryrefslogtreecommitdiffstats
path: root/library/demos
diff options
context:
space:
mode:
Diffstat (limited to 'library/demos')
-rw-r--r--library/demos/button.tcl2
-rw-r--r--library/demos/check.tcl2
-rw-r--r--library/demos/combo.tcl2
-rw-r--r--library/demos/entry3.tcl2
-rw-r--r--library/demos/filebox.tcl2
-rw-r--r--library/demos/floor.tcl2
-rw-r--r--library/demos/image2.tcl2
-rw-r--r--library/demos/mclist.tcl2
-rw-r--r--library/demos/msgbox.tcl2
-rw-r--r--library/demos/rmt2
-rw-r--r--library/demos/sayings.tcl2
-rw-r--r--library/demos/style.tcl2
-rw-r--r--library/demos/tcolor2
-rw-r--r--library/demos/text.tcl2
-rw-r--r--library/demos/textpeer.tcl2
-rw-r--r--library/demos/toolbar.tcl2
-rw-r--r--library/demos/tree.tcl2
-rw-r--r--library/demos/ttkbut.tcl2
-rw-r--r--library/demos/ttkmenu.tcl2
-rw-r--r--library/demos/ttknote.tcl2
-rw-r--r--library/demos/ttkpane.tcl2
-rw-r--r--library/demos/ttkprogress.tcl2
-rw-r--r--library/demos/twind.tcl2
-rw-r--r--library/demos/unicodeout.tcl2
-rw-r--r--library/demos/widget2
25 files changed, 25 insertions, 25 deletions
diff --git a/library/demos/button.tcl b/library/demos/button.tcl
index 6bde4ba..84407f4 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.
#
-# RCS: @(#) $Id: button.tcl,v 1.8 2007/10/17 18:21:49 das Exp $
+# 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 9c39153..c9ca56a 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.
#
-# RCS: @(#) $Id: check.tcl,v 1.6 2007/10/15 21:06:17 dkf Exp $
+# 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/combo.tcl b/library/demos/combo.tcl
index 2ebce5b..521e37b 100644
--- a/library/demos/combo.tcl
+++ b/library/demos/combo.tcl
@@ -2,7 +2,7 @@
#
# This demonstration script creates several combobox widgets.
#
-# RCS: @(#) $Id: combo.tcl,v 1.2 2007/10/23 06:31:16 das Exp $
+# 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/entry3.tcl b/library/demos/entry3.tcl
index bc30745..2e54b05 100644
--- a/library/demos/entry3.tcl
+++ b/library/demos/entry3.tcl
@@ -4,7 +4,7 @@
# permitted input is constrained in some way. It also shows off a
# password entry.
#
-# RCS: @(#) $Id: entry3.tcl,v 1.6 2007/10/31 16:37:23 dkf Exp $
+# 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 209eb66..d914456 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.
#
-# RCS: @(#) $Id: filebox.tcl,v 1.8 2007/10/26 08:04:15 das Exp $
+# RCS: @(#) $Id: filebox.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/floor.tcl b/library/demos/floor.tcl
index f1004b5..4302538 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.
#
-# RCS: @(#) $Id: floor.tcl,v 1.7 2007/10/30 01:57:54 hobbs Exp $
+# 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/image2.tcl b/library/demos/image2.tcl
index 0aed1f5..0444dd4 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.
#
-# RCS: @(#) $Id: image2.tcl,v 1.10 2007/10/31 16:11:49 dkf Exp $
+# 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/mclist.tcl b/library/demos/mclist.tcl
index 6562117..18d8781 100644
--- a/library/demos/mclist.tcl
+++ b/library/demos/mclist.tcl
@@ -3,7 +3,7 @@
# This demonstration script creates a toplevel window containing a Ttk
# tree widget configured as a multi-column listbox.
#
-# RCS: @(#) $Id: mclist.tcl,v 1.2 2007/11/04 10:38:09 das Exp $
+# 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/msgbox.tcl b/library/demos/msgbox.tcl
index 52e6e30..fb986e1 100644
--- a/library/demos/msgbox.tcl
+++ b/library/demos/msgbox.tcl
@@ -2,7 +2,7 @@
#
# This demonstration script creates message boxes of various type
#
-# RCS: @(#) $Id: msgbox.tcl,v 1.5 2007/10/17 18:55:05 das Exp $
+# 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/rmt b/library/demos/rmt
index 026c35d..41cee5c 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.
#
-# RCS: @(#) $Id: rmt,v 1.5 2007/10/30 01:57:54 hobbs Exp $
+# 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/sayings.tcl b/library/demos/sayings.tcl
index ab0d247..091133e 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.
#
-# RCS: @(#) $Id: sayings.tcl,v 1.5 2007/11/02 10:15:19 dkf Exp $
+# 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/style.tcl b/library/demos/style.tcl
index 41c58d7..e62d118 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.
#
-# RCS: @(#) $Id: style.tcl,v 1.5 2007/10/15 21:06:17 dkf Exp $
+# 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 deb893d..b695c60 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.
#
-# RCS: @(#) $Id: tcolor,v 1.5 2007/10/30 01:57:55 hobbs Exp $
+# 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 96bda1d..6f25273 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.
#
-# RCS: @(#) $Id: text.tcl,v 1.7 2007/10/30 01:57:55 hobbs Exp $
+# 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 0b6e484..a93f127 100644
--- a/library/demos/textpeer.tcl
+++ b/library/demos/textpeer.tcl
@@ -4,7 +4,7 @@
# 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.2 2007/11/01 16:36:38 dkf Exp $
+# 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/toolbar.tcl b/library/demos/toolbar.tcl
index 073d538..74a490f 100644
--- a/library/demos/toolbar.tcl
+++ b/library/demos/toolbar.tcl
@@ -2,7 +2,7 @@
#
# This demonstration script creates a toolbar that can be torn off.
#
-# RCS: @(#) $Id: toolbar.tcl,v 1.2 2007/10/23 06:31:16 das Exp $
+# 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 d0af6a7..b46943a 100644
--- a/library/demos/tree.tcl
+++ b/library/demos/tree.tcl
@@ -3,7 +3,7 @@
# This demonstration script creates a toplevel window containing a Ttk
# tree widget.
#
-# RCS: @(#) $Id: tree.tcl,v 1.3 2007/11/04 10:38:09 das Exp $
+# 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 1d058eb..3d5d3a8 100644
--- a/library/demos/ttkbut.tcl
+++ b/library/demos/ttkbut.tcl
@@ -4,7 +4,7 @@
# simple Ttk widgets, such as labels, labelframes, buttons, checkbuttons and
# radiobuttons.
#
-# RCS: @(#) $Id: ttkbut.tcl,v 1.3 2007/10/22 14:21:10 dkf Exp $
+# 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 b0a42ee..235b4b1 100644
--- a/library/demos/ttkmenu.tcl
+++ b/library/demos/ttkmenu.tcl
@@ -3,7 +3,7 @@
# This demonstration script creates a toplevel window containing several Ttk
# menubutton widgets.
#
-# RCS: @(#) $Id: ttkmenu.tcl,v 1.2 2007/10/21 14:51:47 das Exp $
+# 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 c737d3a..f7c70a3 100644
--- a/library/demos/ttknote.tcl
+++ b/library/demos/ttknote.tcl
@@ -3,7 +3,7 @@
# This demonstration script creates a toplevel window containing a Ttk
# notebook widget.
#
-# RCS: @(#) $Id: ttknote.tcl,v 1.4 2007/11/04 10:38:09 das Exp $
+# 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 ad30a42..549ef3f 100644
--- a/library/demos/ttkpane.tcl
+++ b/library/demos/ttkpane.tcl
@@ -2,7 +2,7 @@
#
# This demonstration script creates a Ttk pane with some content.
#
-# RCS: @(#) $Id: ttkpane.tcl,v 1.2 2007/10/21 14:51:47 das Exp $
+# 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 e209ab3..2db6d59 100644
--- a/library/demos/ttkprogress.tcl
+++ b/library/demos/ttkprogress.tcl
@@ -2,7 +2,7 @@
#
# This demonstration script creates several progress bar widgets.
#
-# RCS: @(#) $Id: ttkprogress.tcl,v 1.2 2007/10/23 06:31:16 das Exp $
+# 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/twind.tcl b/library/demos/twind.tcl
index b3a17d8..102be12 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.
#
-# RCS: @(#) $Id: twind.tcl,v 1.10 2007/10/30 01:57:55 hobbs Exp $
+# 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 8090b24..3d733e1 100644
--- a/library/demos/unicodeout.tcl
+++ b/library/demos/unicodeout.tcl
@@ -3,7 +3,7 @@
# This demonstration script shows how you can produce output (in label
# widgets) using many different alphabets.
#
-# RCS: @(#) $Id: unicodeout.tcl,v 1.6 2007/10/30 15:44:40 dkf Exp $
+# RCS: @(#) $Id: unicodeout.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/widget b/library/demos/widget
index f3b9186..083e1d5 100644
--- a/library/demos/widget
+++ b/library/demos/widget
@@ -10,7 +10,7 @@ exec wish "$0" "$@"
# separate ".tcl" files is this directory, which are sourced by this script as
# needed.
#
-# RCS: @(#) $Id: widget,v 1.48 2007/12/05 22:29:50 hobbs Exp $
+# RCS: @(#) $Id: widget,v 1.49 2007/12/13 15:27:07 dgp Exp $
package require Tcl 8.5
package require Tk 8.5