summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-12-07 03:04:43 (GMT)
committerhobbs <hobbs>1999-12-07 03:04:43 (GMT)
commit30aa80864ab882d2a31442f73b202117a606654a (patch)
tree973c3df0edc0c6ecf4d91c46d0cb67c9973e8f27
parent99500b84a95eed7448896625fac1a870e2565227 (diff)
downloadtk-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.tcl17
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