From 97f88df75ad7a4b6a80bab48bc0755d3d4d438be Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Wed, 24 Nov 1999 18:03:07 +0000
Subject: [PATCH] No comments

---
 src/WOKTclTools/WOKTclTools_Replace.tcl        | 14 +++++++-------
 src/WOKTclTools/WOKTclTools_TriggerHandler.cxx |  1 +
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/src/WOKTclTools/WOKTclTools_Replace.tcl b/src/WOKTclTools/WOKTclTools_Replace.tcl
index e5ef193..4575262 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
 
@@ -49,15 +49,15 @@ proc WOKTclTools_Replace:Execute { unit args } {
 
 	regsub -all "/" " $source $target" $replstr  TheArgs
 
-	set A [catch {eval "wokcmp $TheArgs"} result ]
+	set A [catch {eval exec "cmp $TheArgs"} result ]
 
-	if { [wokparam -e %Station $unit] == "wnt" && $result != "" } {
+	if { $result != "" } {
 	    set result 0
 	} else { set result 1 }
 	
 	if { ! $result } {
 	    msgprint -i -c "WOKTclTools_Replace::Execute" "Copy $source to $target"
-	    if { [wokparam -e %Station $unit] != "wnt" } {
+	    if { [file exist $target] && [wokparam -e %Station $unit] != "wnt" } {
 		eval exec "chmod u+w $target"
 	    }
 	    eval exec "$copycmd $TheArgs"
diff --git a/src/WOKTclTools/WOKTclTools_TriggerHandler.cxx b/src/WOKTclTools/WOKTclTools_TriggerHandler.cxx
index 9bf7536..ff2df9a 100755
--- a/src/WOKTclTools/WOKTclTools_TriggerHandler.cxx
+++ b/src/WOKTclTools/WOKTclTools_TriggerHandler.cxx
@@ -22,6 +22,7 @@
 #include <tcl.h>
 
 extern Standard_IMPORT Handle(WOKTclTools_Interpretor) CurrentInterp;
+//Standard_IMPORT Handle(WOKTclTools_Interpretor) CurrentInterp;
 
 Standard_EXPORT WOKUtils_TriggerStatus WOKTclTools_TriggerHandler(WOKUtils_Trigger &atrigger)
 {  
-- 
2.39.5