summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorwelch <welch>1998-11-12 06:22:05 (GMT)
committerwelch <welch>1998-11-12 06:22:05 (GMT)
commitb1408af4cd445e62b82b98c356f16679156721be (patch)
treed1a13d11dea1c563f7520277c52daaa641436c76
parent12290a69b42f92f73bce38490cee049fe5de8d16 (diff)
downloadtk-b1408af4cd445e62b82b98c356f16679156721be.zip
tk-b1408af4cd445e62b82b98c356f16679156721be.tar.gz
tk-b1408af4cd445e62b82b98c356f16679156721be.tar.bz2
Removed lint
-rw-r--r--library/msgbox.tcl4
-rw-r--r--library/scrlbar.tcl8
-rw-r--r--library/tk.tcl16
-rw-r--r--library/tkfbox.tcl4
-rw-r--r--library/xmfbox.tcl6
5 files changed, 19 insertions, 19 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl
index a0631b4..093afdf 100644
--- a/library/msgbox.tcl
+++ b/library/msgbox.tcl
@@ -3,7 +3,7 @@
# Implements messageboxes for platforms that do not have native
# messagebox support.
#
-# RCS: @(#) $Id: msgbox.tcl,v 1.3 1998/09/14 18:23:24 stanton Exp $
+# RCS: @(#) $Id: msgbox.tcl,v 1.4 1998/11/12 06:22:05 welch Exp $
#
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
#
@@ -65,7 +65,7 @@ proc tkMessageBox {args} {
error "bad window path name \"$data(-parent)\""
}
- case $data(-type) {
+ switch -- $data(-type) {
abortretryignore {
set buttons {
{abort -width 6 -text Abort -under 0}
diff --git a/library/scrlbar.tcl b/library/scrlbar.tcl
index 956c94f..48f2c11 100644
--- a/library/scrlbar.tcl
+++ b/library/scrlbar.tcl
@@ -3,7 +3,7 @@
# This file defines the default bindings for Tk scrollbar widgets.
# It also provides procedures that help in implementing the bindings.
#
-# RCS: @(#) $Id: scrlbar.tcl,v 1.3 1998/09/14 18:23:24 stanton Exp $
+# RCS: @(#) $Id: scrlbar.tcl,v 1.4 1998/11/12 06:22:05 welch Exp $
#
# Copyright (c) 1994 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -312,7 +312,7 @@ proc tkScrollByUnits {w orient amount} {
if {[llength $info] == 2} {
uplevel #0 $cmd scroll $amount units
} else {
- uplevel #0 $cmd [expr [lindex $info 2] + $amount]
+ uplevel #0 $cmd [expr {[lindex $info 2] + $amount}]
}
}
@@ -337,7 +337,7 @@ proc tkScrollByPages {w orient amount} {
if {[llength $info] == 2} {
uplevel #0 $cmd scroll $amount pages
} else {
- uplevel #0 $cmd [expr [lindex $info 2] + $amount*([lindex $info 1] - 1)]
+ uplevel #0 $cmd [expr {[lindex $info 2] + $amount*([lindex $info 1] - 1)}]
}
}
@@ -360,7 +360,7 @@ proc tkScrollToPos {w pos} {
if {[llength $info] == 2} {
uplevel #0 $cmd moveto $pos
} else {
- uplevel #0 $cmd [expr round([lindex $info 0]*$pos)]
+ uplevel #0 $cmd [expr {round([lindex $info 0]*$pos)}]
}
}
diff --git a/library/tk.tcl b/library/tk.tcl
index f876feb..195b05b 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -3,7 +3,7 @@
# Initialization script normally executed in the interpreter for each
# Tk-based application. Arranges class bindings for widgets.
#
-# RCS: @(#) $Id: tk.tcl,v 1.4 1998/09/14 18:23:25 stanton Exp $
+# RCS: @(#) $Id: tk.tcl,v 1.5 1998/11/12 06:22:05 welch Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -145,13 +145,13 @@ switch $tcl_platform(platform) {
# ----------------------------------------------------------------------
if {$tcl_platform(platform) != "macintosh"} {
- source $tk_library/button.tcl
- source $tk_library/entry.tcl
- source $tk_library/listbox.tcl
- source $tk_library/menu.tcl
- source $tk_library/scale.tcl
- source $tk_library/scrlbar.tcl
- source $tk_library/text.tcl
+ source [file join $tk_library button.tcl]
+ source [file join $tk_library entry.tcl]
+ source [file join $tk_library listbox.tcl]
+ source [file join $tk_library menu.tcl]
+ source [file join $tk_library scale.tcl]
+ source [file join $tk_library scrlbar.tcl]
+ source [file join $tk_library text.tcl]
}
# ----------------------------------------------------------------------
diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl
index 361323f..2fa9578 100644
--- a/library/tkfbox.tcl
+++ b/library/tkfbox.tcl
@@ -11,7 +11,7 @@
# files by clicking on the file icons or by entering a filename
# in the "Filename:" entry.
#
-# RCS: @(#) $Id: tkfbox.tcl,v 1.7 1998/09/14 18:23:25 stanton Exp $
+# RCS: @(#) $Id: tkfbox.tcl,v 1.8 1998/11/12 06:22:05 welch Exp $
#
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
#
@@ -1254,7 +1254,7 @@ proc tkFDialog_ActivateEnt {w} {
set path [lindex $list 1]
set file [lindex $list 2]
- case $flag {
+ switch -- $flag {
OK {
if {![string compare $file ""]} {
# user has entered an existing (sub)directory
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)
}