From 2c10a459aa40e566b1f439a4118580d605d4678c Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Tue, 19 Dec 2000 18:18:42 +0000
Subject: [PATCH] No comments

---
 src/WOKTclLib/WOKVC.SCCS       |  2 +-
 src/WOKTclLib/WOKVC.tcl        |  1 +
 src/WOKTclLib/Wok_Init.tcl     | 13 ++++++++++++-
 src/WOKTclLib/wokCreations.tcl |  3 +++
 4 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/src/WOKTclLib/WOKVC.SCCS b/src/WOKTclLib/WOKVC.SCCS
index dec40e0..0edd68b 100755
--- a/src/WOKTclLib/WOKVC.SCCS
+++ b/src/WOKTclLib/WOKVC.SCCS
@@ -217,7 +217,7 @@ proc wokIntegre:BASE:Execute { VERBOSE command {fileid stdout} } {
 ;# retourne une string  contenant le diff de Sfile dans les versions v1 et v2
 ;#;<
 proc wokIntegre:BASE:diff { sfile v1 v2 } {
-    return [exec sccsdiff -p $sfile -r$v1 -r$v2]
+    return [exec sccsdiff -p -b $sfile -r$v1 -r$v2]
 }
 ;#;>
 ;# retourne une string  contenant le contenu de la version v de sfile. 
diff --git a/src/WOKTclLib/WOKVC.tcl b/src/WOKTclLib/WOKVC.tcl
index d27f253..922dcd0 100755
--- a/src/WOKTclLib/WOKVC.tcl
+++ b/src/WOKTclLib/WOKVC.tcl
@@ -142,6 +142,7 @@ proc wokIntegrebase  { } {
             ;#
             ;# Lecture du report
             ;#  
+	    catch { unset table info notes }
             set stat [wokStore:Report:Process normal $REPORT table info notes]
             if { $stat == -1 } {
                 wokIntegreCleanup $broot table [list $jnlid] $dirtmp 
diff --git a/src/WOKTclLib/Wok_Init.tcl b/src/WOKTclLib/Wok_Init.tcl
index 237bce3..f6406bc 100755
--- a/src/WOKTclLib/Wok_Init.tcl
+++ b/src/WOKTclLib/Wok_Init.tcl
@@ -1,3 +1,14 @@
+set __initenv__ [array get env]
+
+proc __restore_env__ {} {
+  global env __initenv__
+  set m [array size env]
+  for {set i 0} {$i < $m} {incr i} {
+    set k [array startsearch env]
+    unset env([array nextelement env $k])
+  }
+  array set env $__initenv__
+}
 
 auto_load wok_cd_proc
 auto_load wok_exit_proc
@@ -16,7 +27,7 @@ global WOK_GLOBALS;
 
 set WOK_GLOBALS(setenv_proc,term)  1
 set WOK_GLOBALS(setenv_proc,emacs) 1
-set WOK_GLOBALS(setenv_proc,tcl)   0
+set WOK_GLOBALS(setenv_proc,tcl)   1
 
 set WOK_GLOBALS(cd_proc,term)      1
 set WOK_GLOBALS(cd_proc,emacs)     1
diff --git a/src/WOKTclLib/wokCreations.tcl b/src/WOKTclLib/wokCreations.tcl
index 4eb405f..5b04ae7 100755
--- a/src/WOKTclLib/wokCreations.tcl
+++ b/src/WOKTclLib/wokCreations.tcl
@@ -134,6 +134,9 @@ proc wokWbtree:Tree { tree hli ent name ima } {
 	    }
 	}
     }
+    if { [info procs ${name}.wokhasq] == "${name}.wokhasq" } {
+	$hli entryconfigure ${ent}^${name} -image [${name}.wokhasq]
+    }
     return
 }
 
-- 
2.39.5