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=66e600eb20461edd6ef315b17c79b422cc35409f;p=occt-wok.git

No comments
---

diff --git a/src/WOKStep/WOKStep_JavaCompile.tcl b/src/WOKStep/WOKStep_JavaCompile.tcl
index 8d2423c..c32bb6d 100755
--- a/src/WOKStep/WOKStep_JavaCompile.tcl
+++ b/src/WOKStep/WOKStep_JavaCompile.tcl
@@ -1,14 +1,14 @@
 
-proc WOKStep_JavaCompile::AdmFileType {} {
+proc WOKStep_JavaCompile:AdmFileType {} {
     
     return dbadmfile;
 }
 
-proc WOKStep_JavaCompile::OutputDirTypeName {} {
+proc WOKStep_JavaCompile:OutputDirTypeName {} {
     return dbtmpdir;
 }
 
-proc WOKStep_JavaCompile::HandleInputFile { ID } {
+proc WOKStep_JavaCompile:HandleInputFile { ID } {
     
     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
     
@@ -18,7 +18,7 @@ proc WOKStep_JavaCompile::HandleInputFile { ID } {
     return 0;
 }
 
-proc WOKStep_JavaCompile::ComputeIncludeDir { unit } {
+proc WOKStep_JavaCompile:ComputeIncludeDir { unit } {
     
     set allwb [w_info -A $unit]
     set unitname [wokinfo -n $unit]
@@ -42,14 +42,14 @@ proc WOKStep_JavaCompile::ComputeIncludeDir { unit } {
     return $result
 }
 
-proc WOKStep_JavaCompile::Execute { theunit args } {
+proc WOKStep_JavaCompile:Execute { theunit args } {
     
     msgprint -i -c "WOKStep_JavaCompile::Execute" "Processing unit : $theunit"
     msgprint -i -c "WOKStep_JavaCompile::Execute"
     
     set unitname [wokinfo -n $theunit]
     set failed 0
-    set incdir [WOKStep_JavaCompile::ComputeIncludeDir $theunit]
+    set incdir [WOKStep_JavaCompile:ComputeIncludeDir $theunit]
     wokparam -s%IncludeDir=$incdir
     set outdir [wokinfo -p derivated:.. $theunit]
     wokparam -s%OutDir=$outdir
diff --git a/src/WOKStep/WOKStep_JavaHeader.tcl b/src/WOKStep/WOKStep_JavaHeader.tcl
index f791b49..0e76fc2 100755
--- a/src/WOKStep/WOKStep_JavaHeader.tcl
+++ b/src/WOKStep/WOKStep_JavaHeader.tcl
@@ -1,14 +1,14 @@
 
-proc WOKStep_JavaHeader::AdmFileType {} {
+proc WOKStep_JavaHeader:AdmFileType {} {
     
     return dbadmfile;
 }
 
-proc WOKStep_JavaHeader::OutputDirTypeName {} {
+proc WOKStep_JavaHeader:OutputDirTypeName {} {
     return dbtmpdir;
 }
 
-proc WOKStep_JavaHeader::HandleInputFile { ID } {
+proc WOKStep_JavaHeader:HandleInputFile { ID } {
 
     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
     
@@ -18,7 +18,7 @@ proc WOKStep_JavaHeader::HandleInputFile { ID } {
     return 0;
 }
 
-proc WOKStep_JavaHeader::ComputeIncludeDir { unit } {
+proc WOKStep_JavaHeader:ComputeIncludeDir { unit } {
     
     set allwb [w_info -A $unit]
     set unitname [wokinfo -n $unit]
@@ -40,14 +40,14 @@ proc WOKStep_JavaHeader::ComputeIncludeDir { unit } {
     return $result
 }
 
-proc WOKStep_JavaHeader::Execute { theunit args } {
+proc WOKStep_JavaHeader:Execute { theunit args } {
 
     msgprint -i -c "WOKStep_JavaHeader::Execute" "Processing unit : $theunit"
     msgprint -i -c "WOKStep_JavaHeader::Execute"
 
     set unitname [wokinfo -n $theunit]
     set failed 0
-    set incdir [WOKStep_JavaHeader::ComputeIncludeDir $theunit]
+    set incdir [WOKStep_JavaHeader:ComputeIncludeDir $theunit]
     wokparam -s%IncludeDir=$incdir
 
     foreach ID $args {