OCC4062 The filling of development version of WOK doesn't equivalent to release one...

diff --git a/src/WOKTclLib/osutils.tcl b/src/WOKTclLib/osutils.tcl
index 7195e8645d81bd642de4fd27ba69e643a72e1684..b3184c10091ac01c446bbb96a3321618084718b5 100755 (executable)
--- a/src/WOKTclLib/osutils.tcl
+++ b/src/WOKTclLib/osutils.tcl
@@ -145,28 +145,39 @@ proc osutils:dsp:compilable { } {
 ;#
 ;# remove from listloc OpenCascade units indesirables on NT
 ;#
-proc osutils:justwnt { listloc } {
+proc osutils:juststation {goaway listloc} {
     set lret {}
-    set goaway [list Xdps Xw ImageUtility WOKUnix]
     foreach u $listloc {
-       if { [lsearch $goaway [wokinfo -n $u]] == -1 } {
+       if { 
+            (
+               [woklocate -u $u] != ""
+               &&
+               [lsearch $goaway [wokinfo -n [woklocate -u $u]]] == -1
+            )
+            ||
+            (
+               [woklocate -u $u] == ""
+               &&
+               [lsearch $goaway [wokinfo -n $u]] == -1
+            )
+           
+       } {
            lappend lret $u
        }
     }
-    return $lret
+    return $lret       
+}
+
+proc osutils:justwnt { listloc } {
+    set goaway [list Xdps Xw ImageUtility WOKUnix]
+    return [osutils:juststation $goaway $listloc]
 }
 ;#
 ;# remove from listloc OpenCascade units indesirables on Unix
 ;#
 proc osutils:justunix { listloc } {
-    set lret {}
     set goaway [list WNT WOKNT]
-    foreach u $listloc {
-       if { [lsearch $goaway [wokinfo -n $u]] == -1 } {
-           lappend lret $u
-       }
-    }
-    return $lret
+    return [osutils:juststation $goaway $listloc]
 }
 ;#
 ;# Define libraries to link