From: cas <cas@opencascade.com>
Date: Mon, 6 Mar 2000 17:12:59 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=0dec31c395d2cd3654cca0ed184921378d1ef2fd;p=occt-wok.git

No comments
---

diff --git a/src/WOKTclTools/EXTERNLIB b/src/WOKTclTools/EXTERNLIB
index bce35d3..42c6a25 100755
--- a/src/WOKTclTools/EXTERNLIB
+++ b/src/WOKTclTools/EXTERNLIB
@@ -1 +1 @@
-Tcl_Libs
+CSF_TclLibs
diff --git a/src/WOKTclTools/WOKTclTools_Replace.tcl b/src/WOKTclTools/WOKTclTools_Replace.tcl
index 375714e..5fa65f7 100755
--- a/src/WOKTclTools/WOKTclTools_Replace.tcl
+++ b/src/WOKTclTools/WOKTclTools_Replace.tcl
@@ -1,15 +1,15 @@
 
 
-proc WOKTclTools_Replace::AdmFileType {} {
+proc WOKTclTools_Replace:AdmFileType {} {
     return "dbadmfile";
 }
 
-proc WOKTclTools_Replace::OutputDirTypeName {} {
+proc WOKTclTools_Replace:OutputDirTypeName {} {
     return "dbtmpfile";
 }
 
 
-proc WOKTclTools_Replace::HandleInputFile { ID } { 
+proc WOKTclTools_Replace:HandleInputFile { ID } { 
 
     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
 
@@ -21,7 +21,7 @@ proc WOKTclTools_Replace::HandleInputFile { ID } {
     }
 }
 
-proc WOKTclTools_Replace::Execute { unit args } {
+proc WOKTclTools_Replace:Execute { unit args } {
     
     global tcl_interactive
 
@@ -50,13 +50,10 @@ proc WOKTclTools_Replace::Execute { unit args } {
 	regsub -all "/" " $source $target" $replstr  TheArgs
 
         if { [file exist $target] } {
-	  set A [catch {eval exec "wokcmp $TheArgs"} result ]
-	  if { $result != "" } {
-	    set result 0
-	  } else { set result 1 }
+	  set A [catch {eval "wokcmp $TheArgs"} result ]
         } else {
           set result 0 }
-
+	
 	if { ! $result } {
 	    msgprint -i -c "WOKTclTools_Replace::Execute" "Copy $source to $target"
 	    if { [file exist $target] && [wokparam -e %Station $unit] != "wnt" } {