]> OCCT Git - occt-wok.git/commitdiff
No comments
authorcas <cas@opencascade.com>
Wed, 20 Dec 2000 18:10:41 +0000 (18:10 +0000)
committercas <cas@opencascade.com>
Wed, 20 Dec 2000 18:10:41 +0000 (18:10 +0000)
src/CDLFront/CDLFront_Replace.tcl

index 9495e70384b404a6127ce001958fc92f9e59a9e8..4f812677d7ab73d5151f938e7c1ca66642aa9c7d 100755 (executable)
@@ -12,7 +12,7 @@ proc CDLFront_Replace:HandleInputFile { ID } {
     scan $ID "%\[^:\]:%\[^:\]:%\[^:\]"  unit type name
     
     switch $name {
-         step.tab.c  {return 1;} 
+         CDL.tab.c  {return 1;} 
        default {
            return 0;
        }
@@ -21,7 +21,7 @@ proc CDLFront_Replace:HandleInputFile { ID } {
 
 proc CDLFront_Replace:Execute { unit args } {
     
-    msgprint -i -c "CDLFront_Replace::Execute" "Copying of CDLFront includes  $unit $args "
+    msgprint -i -c "CDLFront_Replace::Execute" "Copying of CDLFront derivated files  $unit $args "
 
     global tcl_interactive