From cee7e4cc5362d30be712b975e9cabe310b16ce39 Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Wed, 18 Jul 2001 18:23:40 +0000
Subject: [PATCH] No comments

---
 src/WOKTclLib/MkBuild.tcl | 10 +++++++---
 src/WOKTclLib/osutils.tcl | 15 ++++++++++++---
 src/WOKTclLib/wok.tcl     | 38 ++++++++++++++++++++++++++++++--------
 src/WOKTclLib/wokEDF.tcl  | 17 +++++------------
 4 files changed, 54 insertions(+), 26 deletions(-)

diff --git a/src/WOKTclLib/MkBuild.tcl b/src/WOKTclLib/MkBuild.tcl
index d0c6944..7ac39b7 100755
--- a/src/WOKTclLib/MkBuild.tcl
+++ b/src/WOKTclLib/MkBuild.tcl
@@ -74,9 +74,13 @@ proc wokBuild { {fast 0} } {
 
     set arr [$w.l subwidget arrow] ; tixBalloon $arr.bal ; $arr.bal bind $arr -msg "Last spots"
 
-    button $w.mdtv -image [image create photo -file $env(WOK_LIBRARY)/opencascade.gif] ;#command wokSeeLayout
-    ;#tixBalloon $w.mdtv.bal
-    ;#$w.mdtv.bal bind $w.mdtv -msg "See Layout"
+    if [file exists $env(WOK_LIBRARY)/images/opencascade.gif] {
+	set ogif $env(WOK_LIBRARY)/images/opencascade.gif
+    } else {
+	set ogif $env(WOK_LIBRARY)/opencascade.gif
+    }
+    button $w.mdtv -image [image create photo -file $ogif] 
+
 
     tixForm $dis -left $lastbut  -bottom $top -top $w.mnu
 
diff --git a/src/WOKTclLib/osutils.tcl b/src/WOKTclLib/osutils.tcl
index 1d24c47..cb2c889 100755
--- a/src/WOKTclLib/osutils.tcl
+++ b/src/WOKTclLib/osutils.tcl
@@ -177,9 +177,12 @@ proc osutils:tk:close { ltk } {
 	    }
 	}
     }
-    if ![lempty $recurse] {
-	set result [concat $result [osutils:tk:close $recurse]]
-    }
+    ;#    if ![lempty $recurse] {
+	;#	set result [concat $result [osutils:tk:close $recurse]]
+	;#    }
+	if { $recurse != {} } {
+	    set result [concat $result [osutils:tk:close $recurse]]
+	}
     return $result
 }
 ;#
@@ -224,6 +227,12 @@ proc osutils:tk:units { tkloc {typed 0} } {
 	    if { $typed == 2 } {
 		lappend l [list [uinfo -c $fu] $fu]
 	    }
+	    if { $typed == 3 } {
+		lappend l [list [uinfo -t $fu] [wokinfo -n $fu]]
+	    }
+	    if { $typed == 4 } {
+		lappend l [list [uinfo -t $fu] $fu]
+	    }
 	} else {
 	    puts stderr "Unit inconnue $u"
 	}
diff --git a/src/WOKTclLib/wok.tcl b/src/WOKTclLib/wok.tcl
index a4bae9f..b66e726 100755
--- a/src/WOKTclLib/wok.tcl
+++ b/src/WOKTclLib/wok.tcl
@@ -1,4 +1,17 @@
 
+proc iwokNotYetImplemented { } {
+puts stderr \
+	    {
+	This proc is not available on this version of Tcl/Tk.
+	The commands used to prepare, store and integrate as available as
+        respectively : wprepare , wstore , and wintegre.
+        See online help for these commands.
+    }
+}
+
+
+
+
 proc iwokUsage { } {
     puts stderr {Usage : iwok [-fh] }
     puts stderr ""
@@ -11,24 +24,33 @@ proc iwok { args } {
 
     global IWOK_GLOBALS
     global env
-    
+    global tcl_platform    
+    global tcl_version
+
     if { [lsearch $args -h] != -1 } {
 	iwokUsage
 	return
     }
 
+
+
+    regsub -all {\.[^.]*} $tcl_version "" major
+    if { $major == 8 } {
+	iwokNotYetImplemented 
+	return
+    }
+
+    if [catch {package require Tix} statix ] {
+	puts stderr "$statix"
+	return
+    }
+    
     set fast 0
     if { [lsearch $args -f] != -1 } { set fast 1 }
 
     catch {wokKillAll}
 
-    if {[wokparam -e %Station] == "lin"} {
-      package ifneeded Tk 8.0 "load [list /usr/lib/libtk8.0.so]"
-    }
-    package require Tk
 
-    package require Tix
-    
     set IWOK_GLOBALS(windows) {}
     set IWOK_GLOBALS(toplevel) .wok[join [split [id user][id host] .] _]
     set IWOK_GLOBALS(toplevel,geometry) 1200x80+10+30
@@ -53,7 +75,7 @@ proc iwok { args } {
     set IWOK_GLOBALS(boldfont) [tix option get bold_font]
 
     ;# ucreate -P dans factory/workshop/ => erreur ?!!!
-    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}  {m module}]
+    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]
diff --git a/src/WOKTclLib/wokEDF.tcl b/src/WOKTclLib/wokEDF.tcl
index 49c11ee..3ab9901 100755
--- a/src/WOKTclLib/wokEDF.tcl
+++ b/src/WOKTclLib/wokEDF.tcl
@@ -66,7 +66,6 @@ proc wokEDF:EditFile { file } {
     switch -- $IWOK_GLOBALS(EDF,EDITOR) {
 	
 	connected_emacs {
-	    wokemacs findfile  $IWOK_GLOBALS(EDF,clients) $file
 	}
 	
 	iwok_editor {
@@ -96,20 +95,14 @@ proc wokEDF:EDITOR { } {
     global env
     global IWOK_GLOBALS
     global tcl_platform
-    set cnx [wokemacs clients]
-    if { $cnx != {} } {
-	set IWOK_GLOBALS(EDF,clients) $cnx
-	return connected_emacs
-    } else {
-	if { "$tcl_platform(platform)" == "unix" } {
-	    if {[info exists env(EDITOR)]} {
-		return $env(EDITOR)
-	    } else {
-		return iwok_editor
-	    }
+    if { "$tcl_platform(platform)" == "unix" } {
+	if {[info exists env(EDITOR)]} {
+	    return $env(EDITOR)
 	} else {
 	    return iwok_editor
 	}
+    } else {
+	return iwok_editor
     }
 }
 ;#
-- 
2.39.5