From: cas <cas@opencascade.com>
Date: Fri, 5 Nov 1999 18:28:10 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=56a5d11220dcecae4345a8c067c7648e99d1eb4f;p=occt-wok.git

No comments
---

diff --git a/src/WOKOrbix/WOKOrbix_ClientObjects.tcl b/src/WOKOrbix/WOKOrbix_ClientObjects.tcl
index edeb1cd..d06e844 100755
--- 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 2f04868..4cfd081 100755
--- 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 98fc404..dbcbc85 100755
--- 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]