No comments

diff --git a/src/WOKStep/WOKStep_JavaCompile.tcl b/src/WOKStep/WOKStep_JavaCompile.tcl
index 8d2423cbc9d29f785d54a2e96e8cfcf885c48232..c32bb6d8a2834c534c2d52995a9e5a7701ead722 100755 (executable)
--- 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 f791b496e6fb186efee1491f2a9891f68d2929dc..0e76fc2718047dc27b0e7a5a1746179816d56147 100755 (executable)
--- 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 {