From: cas <cas@opencascade.com>
Date: Wed, 10 May 2000 18:00:30 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=eb38a46d233b0dde147905ee1ff36ba35984f6fd;p=occt-wok.git

No comments
---

diff --git a/src/WOKTclLib/FILES b/src/WOKTclLib/FILES
index 4048737..9a75664 100755
--- a/src/WOKTclLib/FILES
+++ b/src/WOKTclLib/FILES
@@ -75,6 +75,8 @@ srcinc:::factory_open.xpm
 srcinc:::file.xpm
 srcinc:::frontal.xpm
 srcinc:::frontal_open.xpm
+srcinc:::jini.xpm
+srcinc:::jini_open.xpm
 srcinc:::gettable.xpm
 srcinc:::idl.xpm
 srcinc:::idl_open.xpm
@@ -143,3 +145,4 @@ srcinc:::wokQUE.tcl
 srcinc:::wcompare.tcl
 srcinc:::envir.xpm
 srcinc:::envir_open.xpm
+srcinc:::MdtvLogo33x120b.gif
diff --git a/src/WOKTclLib/MkBuild.tcl b/src/WOKTclLib/MkBuild.tcl
index bfd48b2..941acb6 100755
--- a/src/WOKTclLib/MkBuild.tcl
+++ b/src/WOKTclLib/MkBuild.tcl
@@ -2,6 +2,7 @@ proc wokBuild { {fast 0} } {
 
     global IWOK_WINDOWS
     global IWOK_GLOBALS
+    global env
     set w $IWOK_GLOBALS(toplevel)
     set top [frame $w.thu -bd 1 -relief raised]
     
@@ -73,7 +74,8 @@ proc wokBuild { {fast 0} } {
 
     set arr [$w.l subwidget arrow] ; tixBalloon $arr.bal ; $arr.bal bind $arr -msg "Last spots"
 
-    button $w.mdtv -image [tix getimage MatraDatavision] -command wokSeeLayout
+    ;#button $w.mdtv -image [tix getimage MatraDatavision] -command wokSeeLayout
+    button $w.mdtv -image [image create photo -file $env(WOK_LIBRARY)/MdtvLogo33x120b.gif] -command wokSeeLayout
     tixBalloon $w.mdtv.bal
     $w.mdtv.bal bind $w.mdtv -msg "See Layout"
 
diff --git a/src/WOKTclLib/WCOMPATIBLE.tcl b/src/WOKTclLib/WCOMPATIBLE.tcl
index f61fe81..966f87f 100755
--- a/src/WOKTclLib/WCOMPATIBLE.tcl
+++ b/src/WOKTclLib/WCOMPATIBLE.tcl
@@ -40,7 +40,7 @@ proc wadm {{entity ""}} {
 
 
 proc wls { args } {
-    set f [lsearch -regexp $args {-[pniCtexscfOrd]} ]
+    set f [lsearch -regexp $args {-[pnijCtexscfOrd]} ]
     if { $f != -1 } {
 	set ft [lindex [split [lindex $args $f] -] 1]
 	set lx {}
diff --git a/src/WOKTclLib/wok.tcl b/src/WOKTclLib/wok.tcl
index 61a7810..256c3ee 100755
--- a/src/WOKTclLib/wok.tcl
+++ b/src/WOKTclLib/wok.tcl
@@ -51,7 +51,7 @@ proc iwok { args } {
     ;#tix addbitmapdir /adv_23/WOK/k3dev/iwok/src/WOKTclLib  ;# THUY EM
 
     ;# ucreate -P dans factory/workshop/ => erreur ?!!!
-    set IWOK_GLOBALS(ucreate-P) [list {p package} {s schema} {i interface} {C client} {e engine} {x executable} {n nocdlpack} {t toolkit} {r resource} {O documentation} {c ccl} {f frontal} {d delivery} {I idl} {S server}]
+    set IWOK_GLOBALS(ucreate-P) [list {j jini} {p package} {s schema} {i interface} {C client} {e engine} {x executable} {n nocdlpack} {t toolkit} {r resource} {O documentation} {c ccl} {f frontal} {d delivery} {I idl} {S server}]
 
     foreach type $IWOK_GLOBALS(ucreate-P) {
 	set st [lindex $type 0]