diff options
| author | hobbs <hobbs@noemail.net> | 1999-12-07 03:04:42 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 1999-12-07 03:04:42 (GMT) |
| commit | 57c6b4afad47f5dc116084b781a3f5755c202041 (patch) | |
| tree | 973c3df0edc0c6ecf4d91c46d0cb67c9973e8f27 /library | |
| parent | a2b36c1c3023e92476d6c9c0f85e8f0f275a0105 (diff) | |
| download | tk-57c6b4afad47f5dc116084b781a3f5755c202041.zip tk-57c6b4afad47f5dc116084b781a3f5755c202041.tar.gz tk-57c6b4afad47f5dc116084b781a3f5755c202041.tar.bz2 | |
* library/comdlg.tcl: removed tclVerifyInteger and tclSortNoCase,
they weren't used, and were not actually correct
FossilOrigin-Name: c981b72bac49451149777a7e0f809510578ab66d
Diffstat (limited to 'library')
| -rw-r--r-- | library/comdlg.tcl | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/library/comdlg.tcl b/library/comdlg.tcl index f603a6a..972a538 100644 --- a/library/comdlg.tcl +++ b/library/comdlg.tcl @@ -3,7 +3,7 @@ # Some functions needed for the common dialog boxes. Probably need to go # in a different file. # -# RCS: @(#) $Id: comdlg.tcl,v 1.5 1999/09/02 17:02:52 hobbs Exp $ +# RCS: @(#) $Id: comdlg.tcl,v 1.6 1999/12/07 03:04:43 hobbs Exp $ # # Copyright (c) 1996 Sun Microsystems, Inc. # @@ -97,21 +97,6 @@ proc tclListValidFlags {v} { return $errormsg } -# This procedure is used to sort strings in a case-insenstive mode. -# -proc tclSortNoCase {str1 str2} { - string compare -nocase $str1 $str2 -} - - -# Gives an error if the string does not contain a valid integer -# number -# -proc tclVerifyInteger {string} { - lindex {1 2 3} $string -} - - #---------------------------------------------------------------------- # # Focus Group |