From 30aa80864ab882d2a31442f73b202117a606654a Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 7 Dec 1999 03:04:43 +0000
Subject: 	* library/comdlg.tcl: removed tclVerifyInteger and
 tclSortNoCase, 	they weren't used, and were not actually correct

---
 library/comdlg.tcl | 17 +----------------
 1 file changed, 1 insertion(+), 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
-- 
cgit v0.12