From 292586311ef8be3a708e6cc8e6967ddc395dc7cb Mon Sep 17 00:00:00 2001
From: cascade <cascade@opencascade.com>
Date: Thu, 23 Oct 2003 09:43:51 +0000
Subject: [PATCH] automatization of WOK creation resources only

---
 src/WOKTclLib/Wok_Init.tcl | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/src/WOKTclLib/Wok_Init.tcl b/src/WOKTclLib/Wok_Init.tcl
index f6406bc..7fe43ca 100755
--- a/src/WOKTclLib/Wok_Init.tcl
+++ b/src/WOKTclLib/Wok_Init.tcl
@@ -9,6 +9,20 @@ proc __restore_env__ {} {
   }
   array set env $__initenv__
 }
+proc UNC { path } {
+
+ if { [cindex $path 0] == "{" && [cindex $path [clength $path]-1] == "}" } {
+  set path [crange $path 1 [clength $path]-2]
+ }
+
+ if { [cindex $path 0] == "\\" && [cindex $path 1] == "\\"} {
+  set path "//[crange $path 2 [clength $path]]"
+ }
+
+ return $path
+
+}
+
 
 auto_load wok_cd_proc
 auto_load wok_exit_proc
@@ -36,5 +50,8 @@ set WOK_GLOBALS(cd_proc,tcl)       1
 set WOK_GLOBALS(source_proc,term)  1
 set WOK_GLOBALS(source_proc,emacs) 1
 set WOK_GLOBALS(source_proc,tcl)   1
-
+update
 set WOK_GLOBALS(wokinterp,tclcommands) "Winfo|finfo|pinfo|screate|sinfo|srm|ucreate|uinfo|umake|urm|w_info|wcreate|wokcd|wokclose|wokinfo|wokparam|wokprofile|wokenv|wrm|wmove|msclear|wprepare|wstore|wintegre|upack|iwok|wsrc|wdrv|wls|wcd|cd"
+update
+
+
-- 
2.39.5