diff options
| author | welch <welch> | 1998-11-12 06:22:05 (GMT) |
|---|---|---|
| committer | welch <welch> | 1998-11-12 06:22:05 (GMT) |
| commit | b1408af4cd445e62b82b98c356f16679156721be (patch) | |
| tree | d1a13d11dea1c563f7520277c52daaa641436c76 /library/xmfbox.tcl | |
| parent | 12290a69b42f92f73bce38490cee049fe5de8d16 (diff) | |
| download | tk-b1408af4cd445e62b82b98c356f16679156721be.zip tk-b1408af4cd445e62b82b98c356f16679156721be.tar.gz tk-b1408af4cd445e62b82b98c356f16679156721be.tar.bz2 | |
Removed lint
Diffstat (limited to 'library/xmfbox.tcl')
| -rw-r--r-- | library/xmfbox.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl index 17d85ad..15ff0ac 100644 --- a/library/xmfbox.tcl +++ b/library/xmfbox.tcl @@ -4,7 +4,7 @@ # Unix platform. This implementation is used only if the # "tk_strictMotif" flag is set. # -# RCS: @(#) $Id: xmfbox.tcl,v 1.5 1998/09/14 18:23:25 stanton Exp $ +# RCS: @(#) $Id: xmfbox.tcl,v 1.6 1998/11/12 06:22:05 welch Exp $ # # Copyright (c) 1996 Sun Microsystems, Inc. # @@ -314,7 +314,7 @@ proc tkMotifFDialog_BrowseDList {w} { set list [tkMotifFDialog_InterpFilter $w] set data(filter) [lindex $list 1] - case $subdir { + switch -- $subdir { . { set newSpec [file join $data(selectPath) $data(filter)] } @@ -344,7 +344,7 @@ proc tkMotifFDialog_ActivateDList {w} { $data(fList) selection clear 0 end - case $subdir { + switch -- $subdir { . { set newDir $data(selectPath) } |