From d7285b5739ff558791fd4cdf1ec975e9db096acd Mon Sep 17 00:00:00 2001 From: "donal.k.fellows@manchester.ac.uk" Date: Mon, 5 Nov 2001 10:13:53 +0000 Subject: Minor fixes from wohnivec@iol.cz Thanks! --- ChangeLog | 8 ++++++++ library/demos/browse | 4 ++-- library/demos/dialog2.tcl | 4 ++-- library/demos/ixset | 4 ++-- library/demos/rolodex | 4 ++-- 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 + + * 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 * 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} -- cgit v0.12