summaryrefslogtreecommitdiffstats
path: root/library/comdlg.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/comdlg.tcl')
-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