diff options
| author | hobbs <hobbs> | 1999-12-07 03:04:43 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-12-07 03:04:43 (GMT) |
| commit | 30aa80864ab882d2a31442f73b202117a606654a (patch) | |
| tree | 973c3df0edc0c6ecf4d91c46d0cb67c9973e8f27 | |
| parent | 99500b84a95eed7448896625fac1a870e2565227 (diff) | |
| download | tk-30aa80864ab882d2a31442f73b202117a606654a.zip tk-30aa80864ab882d2a31442f73b202117a606654a.tar.gz tk-30aa80864ab882d2a31442f73b202117a606654a.tar.bz2 | |
* library/comdlg.tcl: removed tclVerifyInteger and tclSortNoCase,
they weren't used, and were not actually correct
| -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 |