From: cas <cas@opencascade.com>
Date: Wed, 2 Aug 2000 18:16:55 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=9baca3ea1de11ca2c5ce1c80f4e25aafa99811c3;p=occt-wok.git

No comments
---

diff --git a/src/WOKTclLib/arb.tcl b/src/WOKTclLib/arb.tcl
index f5e2cdb..15104eb 100755
--- a/src/WOKTclLib/arb.tcl
+++ b/src/WOKTclLib/arb.tcl
@@ -97,7 +97,7 @@ proc DependenceTree_getunittk { pkname location } {
 	    if {![info exist arrayoftk($atk)]} {
 		set pkfile [woklocate -p ${atk}:PACKAGES: $location]
 		set arrayoftk($atk) 1
-		if {[clength $pkfile]} {
+		if {[string length $pkfile]} {
 		    set lst {}
 		    for_file udintk $pkfile {
 			set arrayoftk($udintk) $atk
diff --git a/src/WOKTclLib/pinstall.tcl b/src/WOKTclLib/pinstall.tcl
index b82928a..7f4dc37 100755
--- a/src/WOKTclLib/pinstall.tcl
+++ b/src/WOKTclLib/pinstall.tcl
@@ -29,7 +29,7 @@ proc pinstall {args} {
     cd $theullibdir
     foreach atempld [glob *.ldt] {
 	source $atempld
-	set goodlen [expr [clength $atempld] - 2]
+	set goodlen [expr [string length $atempld] - 2]
 	set aldfile [crange $atempld 0 $goodlen]
 	set ldfileid [open $aldfile w]
 	puts $ldfileid [WOKDeliv_Makeld $thefact]
diff --git a/src/WOKTclLib/wokinterp.tcl b/src/WOKTclLib/wokinterp.tcl
index 77e67aa..dd538f4 100755
--- a/src/WOKTclLib/wokinterp.tcl
+++ b/src/WOKTclLib/wokinterp.tcl
@@ -260,7 +260,7 @@ proc woksh_emacs {args} {
 		
 		set tooolong 0
 		
-		if { [clength $theline] > 100} {
+		if { [string length $theline] > 100} {
 		    set tooolong 1
 
 		    set thelongcmdfile "/tmp/wokenv_[id process]_${format}_long"
@@ -273,9 +273,9 @@ proc woksh_emacs {args} {
 			unlink $thelongcmdfile
 		    }
 		    
-		    while { [clength $theline] > 100} {
+		    while { [string length $theline] > 100} {
 			exp_send_user  -- "[crange $theline 0 100]\\\n"
-			set theline [crange $theline 101 [clength $theline]]
+			set theline [crange $theline 101 [string length $theline]]
 		    }
 		    
 		    exp_send_user -- "$theline\n"