diff options
Diffstat (limited to 'library/demos')
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 |