From 6bd6d69ffb6a80b53edcff6dec34e80495dbb585 Mon Sep 17 00:00:00 2001
From: cascade <cascade@opencascade.com>
Date: Thu, 10 Apr 2003 20:38:24 +0000
Subject: [PATCH] aliaces wsrc, wdrv, wlib, etc don't work resource

---
 src/WOKTclLib/WCOMPATIBLE.tcl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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}
-- 
2.39.5