summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordonal.k.fellows@manchester.ac.uk <dkf>2001-11-05 10:13:53 (GMT)
committerdonal.k.fellows@manchester.ac.uk <dkf>2001-11-05 10:13:53 (GMT)
commitd7285b5739ff558791fd4cdf1ec975e9db096acd (patch)
tree29412b5bbd1a0e5fc46f272ea981b7c2ceb0d0db
parent09c020171584afcdf437a20bc9e136f51be09f81 (diff)
downloadtk-d7285b5739ff558791fd4cdf1ec975e9db096acd.zip
tk-d7285b5739ff558791fd4cdf1ec975e9db096acd.tar.gz
tk-d7285b5739ff558791fd4cdf1ec975e9db096acd.tar.bz2
Minor fixes from wohnivec@iol.cz Thanks!
-rw-r--r--ChangeLog8
-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
5 files changed, 16 insertions, 8 deletions
diff --git a/ChangeLog b/ChangeLog
index 3c049d8..c89dc08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2001-11-05 Donal K. Fellows <fellowsd@cs.man.ac.uk>
+
+ * library/demos/dialog2.tcl: Typo-fix.
+ * library/demos/browse, library/demos/ixset, library/demos/rolodex:
+ Installation does version number fixup, so we shouldn't. Thanks
+ to wohnivec@iol.cz for pointing these (thankfully minor) problems
+ out.
+
2001-10-30 Donal K. Fellows <fellowsd@cs.man.ac.uk>
* library/demos/widget: Integrated labelframe item into the labels
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}