diff options
Diffstat (limited to 'library/demos')
| -rw-r--r-- | library/demos/browse | 4 | ||||
| -rw-r--r-- | library/demos/dialog2.tcl | 4 | ||||
| -rw-r--r-- | library/demos/ixset | 4 | ||||
| -rw-r--r-- | library/demos/rolodex | 4 |
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} |