summaryrefslogtreecommitdiffstats
path: root/library/demos
diff options
context:
space:
mode:
Diffstat (limited to 'library/demos')
-rw-r--r--library/demos/browse4
-rw-r--r--library/demos/dialog2.tcl4
-rw-r--r--library/demos/ixset4
-rw-r--r--library/demos/rolodex4
4 files changed, 8 insertions, 8 deletions
diff --git a/library/demos/browse b/library/demos/browse
index cd9e09a..b881b4d 100644
--- a/library/demos/browse
+++ b/library/demos/browse
@@ -1,13 +1,13 @@
#!/bin/sh
# the next line restarts using wish \
-exec wish8.4 "$0" ${1+"$@"} || exec wish "$0" ${1+"$@"}
+exec wish "$0" ${1+"$@"}
# browse --
# 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.3 2001/10/29 16:42:20 dkf Exp $
+# RCS: @(#) $Id: browse,v 1.4 2001/11/05 10:13:53 dkf Exp $
# Create a scrollbar on the right side of the main window and a listbox
# on the left side.
diff --git a/library/demos/dialog2.tcl b/library/demos/dialog2.tcl
index 0252ee0..502ac8b 100644
--- a/library/demos/dialog2.tcl
+++ b/library/demos/dialog2.tcl
@@ -2,7 +2,7 @@
#
# This demonstration script creates a dialog box with a global grab.
#
-# RCS: @(#) $Id: dialog2.tcl,v 1.2 1998/09/14 18:23:27 stanton Exp $
+# RCS: @(#) $Id: dialog2.tcl,v 1.3 2001/11/05 10:13:53 dkf Exp $
after idle {
.dialog2.msg configure -wraplength 4i
@@ -10,7 +10,7 @@ after idle {
after 100 {
grab -global .dialog2
}
-set i [tk_dialog .dialog2 "Dialog with local grab" {This dialog box uses a global grab, so it prevents you from interacting with anything on your display until you invoke one of the buttons below. Global grabs are almost always a bad idea; don't use them unless you're truly desperate.} warning 0 OK Cancel {Show Code}]
+set i [tk_dialog .dialog2 "Dialog with global grab" {This dialog box uses a global grab, so it prevents you from interacting with anything on your display until you invoke one of the buttons below. Global grabs are almost always a bad idea; don't use them unless you're truly desperate.} warning 0 OK Cancel {Show Code}]
switch $i {
0 {puts "You pressed OK"}
diff --git a/library/demos/ixset b/library/demos/ixset
index 8e6df3d..3ae2689 100644
--- a/library/demos/ixset
+++ b/library/demos/ixset
@@ -1,6 +1,6 @@
#!/bin/sh
# the next line restarts using wish \
-exec wish8.4 "$0" ${1+"$@"} || exec wish "$0" ${1+"$@"}
+exec wish "$0" ${1+"$@"}
# ixset --
# A nice interface to "xset" to change X server settings
@@ -9,7 +9,7 @@ exec wish8.4 "$0" ${1+"$@"} || exec wish "$0" ${1+"$@"}
# 91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
# 92/08/01 : pda@masi.ibp.fr : cleaning
#
-# RCS: @(#) $Id: ixset,v 1.3 2001/10/30 10:17:07 dkf Exp $
+# RCS: @(#) $Id: ixset,v 1.4 2001/11/05 10:13:53 dkf Exp $
#
# Button actions
diff --git a/library/demos/rolodex b/library/demos/rolodex
index 8245a67..e117edf 100644
--- a/library/demos/rolodex
+++ b/library/demos/rolodex
@@ -1,6 +1,6 @@
#!/bin/sh
# the next line restarts using wish \
-exec wish8.4 "$0" ${1+"$@"} || exec wish "$0" ${1+"$@"}
+exec wish "$0" ${1+"$@"}
# rolodex --
# This script was written as an entry in Tom LaStrange's rolodex
@@ -8,7 +8,7 @@ exec wish8.4 "$0" ${1+"$@"} || exec wish "$0" ${1+"$@"}
# feel of a rolodex program, although it's lifeless and doesn't
# actually do the rolodex application.
#
-# RCS: @(#) $Id: rolodex,v 1.3 2001/10/30 10:17:07 dkf Exp $
+# RCS: @(#) $Id: rolodex,v 1.4 2001/11/05 10:13:53 dkf Exp $
foreach i [winfo child .] {
catch {destroy $i}