From: cascade <cascade@opencascade.com>
Date: Thu, 10 Apr 2003 20:38:24 +0000 (+0000)
Subject: aliaces wsrc, wdrv, wlib, etc don't work resource
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=6bd6d69ffb6a80b53edcff6dec34e80495dbb585;p=occt-wok.git

aliaces wsrc, wdrv, wlib, etc don't work resource
---

diff --git a/src/WOKTclLib/WCOMPATIBLE.tcl b/src/WOKTclLib/WCOMPATIBLE.tcl
index 966f87f..92fdf79 100755
--- a/src/WOKTclLib/WCOMPATIBLE.tcl
+++ b/src/WOKTclLib/WCOMPATIBLE.tcl
@@ -14,25 +14,25 @@ proc wcd { args } {
 }
 
 proc wsrc {{entity ""}} {
-    if { $entity != "" } { wokcd -Tsource $entity } {wokcd -Tsource}
+    if { $entity != "" } { wokcd -Tsrcdir $entity } {wokcd -Tsrcdir}
 }
 
 proc wdrv {{entity ""}} {
-    if { $entity != "" } { wokcd -Tderivated $entity } {wokcd -Tderivated}
+    if { $entity != "" } { wokcd -Tdrvdir $entity } {wokcd -Tdrvdir}
 }
 
 proc wlib {{entity ""}} {
-    if { $entity != "" } { wokcd -Tlibrary $entity } {wokcd -Tlibrary}
+    if { $entity != "" } { wokcd -Tlibdir $entity } {wokcd -Tlibdir}
 }
 
 proc wbin {{entity ""}} {
-    if { $entity != "" } { wokcd -Texecutable $entity } {wokcd -Texecutable}
+    if { $entity != "" } { wokcd -Tbindir } {wokcd -Tbindir}
 }
 proc wobj {{entity ""}} {
-    if { $entity != "" } { wokcd -Tobject $entity } {wokcd -Tobject}
+    if { $entity != "" } { wokcd -Tobjdir } {wokcd -Tobjdir}
 }
 proc winc {{entity ""}} {
-    if { $entity != "" } { wokcd -Tpubinclude $entity } {wokcd -Tpubinclude}
+    if { $entity != "" } { wokcd -Tpubincdir $entity } {wokcd -Tpubincdir}
 }
 proc wadm {{entity ""}} {
     if { $entity != "" } { wokcd -Tadmfile $entity } {wokcd -Tadmfile}