No comments

diff --git a/src/WOKOrbix/WOKOrbix_ClientObjects.tcl b/src/WOKOrbix/WOKOrbix_ClientObjects.tcl
index edeb1cdb89d4a42b7f65f3e31e8d849387eb6fe8..d06e8442ece6c6dc81a6295c9df91f3e12c8eb92 100755 (executable)
--- a/src/WOKOrbix/WOKOrbix_ClientObjects.tcl
+++ b/src/WOKOrbix/WOKOrbix_ClientObjects.tcl
@@ -1,14 +1,14 @@
 
-proc WOKOrbix_ClientObjects::AdmFileType {} {
+proc WOKOrbix_ClientObjects:AdmFileType {} {
     
     return dbadmfile;
 }
 
-proc WOKOrbix_ClientObjects::OutputDirTypeName {} {
+proc WOKOrbix_ClientObjects:OutputDirTypeName {} {
     return dbtmpdir;
 }
 
-proc WOKOrbix_ClientObjects::HandleInputFile { ID } {
+proc WOKOrbix_ClientObjects:HandleInputFile { ID } {
 
     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
     
@@ -20,10 +20,10 @@ proc WOKOrbix_ClientObjects::HandleInputFile { ID } {
     return 0;
 }
 
-proc WOKOrbix_ClientObjects::Execute { unit args } {
+proc WOKOrbix_ClientObjects:Execute { unit args } {
 
-    msgprint -i -c "WOKOrbix_ClientObjects::Execute" "Processing client objects : $unit"
-    msgprint -i -c "WOKOrbix_ClientObjects::Execute"
+    msgprint -i -c "WOKOrbix_ClientObjects:Execute" "Processing client objects : $unit"
+    msgprint -i -c "WOKOrbix_ClientObjects:Execute"
 
     set unitname [wokinfo -n $unit]
  

diff --git a/src/WOKOrbix/WOKOrbix_IDLCompile.cxx b/src/WOKOrbix/WOKOrbix_IDLCompile.cxx
index 2f0486812fb3aeef1d2ed01a6c72520d98fef52a..4cfd081c5d90f7ebb4f96c4a9aca51901ca78e42 100755 (executable)
--- a/src/WOKOrbix/WOKOrbix_IDLCompile.cxx
+++ b/src/WOKOrbix/WOKOrbix_IDLCompile.cxx
@@ -213,6 +213,7 @@ _TEST_BREAK();
          fails->Append(infile);
          ErrorMsg << "WOKOrbix_IDLCompile::Execute" << "Failed    : " << infile->File()->Name() << endm;           
          break;
+         default: break;
        }
     }
 

diff --git a/src/WOKOrbix/WOKOrbix_ServerObjects.tcl b/src/WOKOrbix/WOKOrbix_ServerObjects.tcl
index 98fc40415f2d476ac14c8bb585cbc96299325ad9..dbcbc85b779c92fafa17e3a6dfb1ade172732499 100755 (executable)
--- a/src/WOKOrbix/WOKOrbix_ServerObjects.tcl
+++ b/src/WOKOrbix/WOKOrbix_ServerObjects.tcl
@@ -1,14 +1,14 @@
 
-proc WOKOrbix_ServerObjects::AdmFileType {} {
+proc WOKOrbix_ServerObjects:AdmFileType {} {
     
     return dbadmfile;
 }
 
-proc WOKOrbix_ServerObjects::OutputDirTypeName {} {
+proc WOKOrbix_ServerObjects:OutputDirTypeName {} {
     return dbtmpdir;
 }
 
-proc WOKOrbix_ServerObjects::HandleInputFile { ID } {
+proc WOKOrbix_ServerObjects:HandleInputFile { ID } {
 
     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
     
@@ -21,10 +21,10 @@ proc WOKOrbix_ServerObjects::HandleInputFile { ID } {
     return 0;
 }
 
-proc WOKOrbix_ServerObjects::Execute { unit args } {
+proc WOKOrbix_ServerObjects:Execute { unit args } {
 
-    msgprint -i -c "WOKOrbix_ServerObjects::Execute" "Processing server objects : $unit"
-    msgprint -i -c "WOKOrbix_ServerObjects::Execute"
+    msgprint -i -c "WOKOrbix_ServerObjects:Execute" "Processing server objects : $unit"
+    msgprint -i -c "WOKOrbix_ServerObjects:Execute"
 
     set unitname [wokinfo -n $unit]