[PATCHES] Make insight-git with private tcl-tk to work better

This is a multi-part message in MIME format.
--------------BBA1453999707D1D826E0136
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit

Hi,


My environment is:

------------------------------------------------------------------------------------------------------------------

1. Manjaro 18.0 GNU/Linux distribution based on the Arch Linux


2. uname -a : 4.19.2-1-MANJARO #1 SMP PREEMPT Tue Nov 13 22:35:25 UTC 
2018 x86_64 GNU/Linux


3. gcc --version : gcc (GCC) 8.2.1 20180831


4. KDE : Platform Version 4.14.38


5. core-tcl-tk-git

    tcl:

      commit d62d8343bde5c146acb6accacb62767e163ca184 (HEAD -> 
core-8-branch)
      Merge: dad5d7461 8d785ff25
      Date: Fri Nov 23 17:16:46 2018 +0100

    tk:

      commit dd90d977afe31b9e44a4276a8afa44c9a003c679 (HEAD -> master, 
origin/master, origin/HEAD)
      Merge: 1fca50a99 8efcde1ec
      Author: culler <culler>
      Date:   Wed Nov 21 06:44:28 2018 +0000

    itcl:

      commit e24ed2eea109c40641aca2febb840153a700a98e (HEAD -> master, 
tag: itcl-4-1-2, origin/master, origin/HEAD)
      Author: dgp <[email protected]>
      Date:   Thu Nov 1 16:00:08 2018 +0000

    itk:

      commit 1fe969e491476abe901ea1f451c9b09d437acc11 (HEAD -> master, 
origin/master, origin/HEAD)
      Author: stu <[email protected]>
      Date:   Sat Jul 21 21:53:04 2018 +0000


6. insight-git

    commit 2bc04c8d4abaab9de9d8b787f867e48ff9dc64a0 (HEAD -> master, 
origin/master, origin/HEAD)
    Author: Patrick Monnerat <[email protected]>
    Date:   Fri Nov 16 20:18:06 2018 +0100


7. insight-build:

cd insight
autoconf
./configure \
--prefix=/opt/insight-git \
--with-tcl=/mnt/sdd1/home/src/core-tcl-tk-git/core-tcl-tk-install/lib \
--with-tk=/mnt/sdd1/home/src/core-tcl-tk-git/core-tcl-tk-install/lib \
--disable-binutils                    \
--disable-elfcpp                    \
--disable-gas                        \
--disable-gold                        \
--disable-gprof                        \
--disable-ld                        \
--disable-rpath                        \
--disable-zlib                        \
--enable-sim                        \
--with-expat                        \
--with-python                        \
--without-libunwind > ../configure-out1.log 2>&1

make -j4 > ../make-out1.log 2>&1
make install > ../make-install-out1.log 2>&1


8. vk-insight.sh

#!/bin/bash
set -v
set -e
MANJARO=/mnt/sdd1/home/src/core-tcl-tk-git/core-tcl-tk-install
export TCLLIBPATH="$MANJARO/lib/tcl8.7 $MANJARO/lib/tk8.7 
$MANJARO/lib/itcl4.1.2 $MANJARO/lib/iwidgets4.0 $MANJARO/lib/itk4.1.0 
$MANJARO/lib $TCLLIBPATH"
export TCL_LIBRARY=$TCLLIBPATH
export ITCL_LIBRARY="$MANJARO/lib/itcl4.1.2"
export TKLIBRARY="$MANJARO/lib/tk8.7"
export TK_LIBRARY=$TKLIBRARY
export ITK_LIBRARY="$MANJARO/lib/itk4.1.0"
export 
LD_LIBRARY_PATH=$MANJARO/lib:$MANJARO/lib/itcl4.1.2:$MANJARO/lib/itk4.1.0:$MANJARO/lib/thread2.9a1
export GDBTK_DEBUG=1
export GDBTK_DEBUGFILE=/tmp/vk-insight.log
MYPATH=$MANJARO/bin:$PATH
set +v
echo "."
echo "MANJARO=$MANJARO"
echo "TCLLIBPATH=$TCLLIBPATH"
echo "TCL_LIBRARY=$TCL_LIBRARY"
echo "ITCL_LIBRARY=$ITCL_LIBRARY"
echo "TKLIBRARY=$TKLIBRARY"
echo "TK_LIBRARY=$TK_LIBRARY"
echo "ITK_LIBRARY=$ITK_LIBRARY"
echo "LD_LIBRARY_PATH=$LD_LIBRARY_PATH"
echo "GDBTK_DEBUG=$GDBTK_DEBUG"
echo "GDBTK_DEBUGFILE=$GDBTK_DEBUGFILE"
echo "MYPATH=$MYPATH"
echo "."
set -v
PATH=$MYPATH /opt/insight-git/bin/insight "$@" &
exit 0

------------------------------------------------------------------------------------------------------------------


insight-git-main-tcl.diff:

--------------------------

diff --git 
a/mnt/sdd1/home/src/insight-git/insight/gdbtk/library/main.tcl 
b/opt/insight-git/share/insight1.0/main.tcl
index 1561cd5..39d1aaf 100644
--- a/mnt/sdd1/home/src/insight-git/insight/gdbtk/library/main.tcl
+++ b/opt/insight-git/share/insight1.0/main.tcl
@@ -56,6 +56,8 @@ if {[info exists auto_path]} {
  # Require the packages we need.  Most are loaded already, but this 
will catch
  # any odd errors... :

+puts ""
+puts "insight auto_path is:$::auto_path"
  foreach p {{tcl 8.5} {tk 8.5} {itcl 3.3} {itk 3.3} {iwidgets 4.0} 
{gdbtk 1.0} {combobox 2.2} {debug 1.0}} {
    set failed [catch {package require [lindex $p 0]} msg]
    if {$failed} {
@@ -74,7 +76,7 @@ foreach p {{tcl 8.5} {tk 8.5} {itcl 3.3} {itk 3.3} 
{iwidgets 4.0} {gdbtk 1.0} {c
      }
      exit -1
    }
-  #puts "Loaded [lindex $p 0] $msg"
+  puts "Loaded [lindex $p 0] $msg"
  }

  namespace import itcl::*

------------------------------------------------------------------------------------------------------------------


insight-git-globalpref-itb.diff:

--------------------------------

diff --git 
a/mnt/sdd1/home/src/insight-git/insight/gdbtk/library/globalpref.itb 
b/opt/insight-git/share/insight1.0/globalpref.itb
index 0b0eeba..7fe9a07 100644
--- a/mnt/sdd1/home/src/insight-git/insight/gdbtk/library/globalpref.itb
+++ b/opt/insight-git/share/insight1.0/globalpref.itb
@@ -147,6 +147,10 @@ itcl::body GlobalPref::_build_win {} {
    set fam [lremove $fam "fangsong ti"]
    set fam [lremove $fam "newspaper"]
    set fam [lremove $fam "palatino linotype"]
+  set fam [lremove $fam "Noto Sans"]
+  set fam [lremove $fam "Noto Naskh Arabic UI"]
+  set fam [lremove $fam "Noto Nastaliq Urdu"]
+  set fam [lremove $fam "Noto Color Emoji"]
    set fam [lsort $fam]

    if {$font_cache == ""} {

------------------------------------------------------------------------------------------------------------------


Vladimir Koković, DP senior(68)

24.Nov 2018, Belgrade, Serbia



--------------BBA1453999707D1D826E0136
Content-Type: text/x-patch;
 name="insight-git-globalpref-itb.diff"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="insight-git-globalpref-itb.diff"

diff --git a/mnt/sdd1/home/src/insight-git/insight/gdbtk/library/globalpref.itb b/opt/insight-git/share/insight1.0/globalpref.itb
index 0b0eeba..7fe9a07 100644
--- a/mnt/sdd1/home/src/insight-git/insight/gdbtk/library/globalpref.itb
+++ b/opt/insight-git/share/insight1.0/globalpref.itb
@@ -147,6 +147,10 @@ itcl::body GlobalPref::_build_win {} {
   set fam [lremove $fam "fangsong ti"]
   set fam [lremove $fam "newspaper"]
   set fam [lremove $fam "palatino linotype"]
+  set fam [lremove $fam "Noto Sans"]
+  set fam [lremove $fam "Noto Naskh Arabic UI"]
+  set fam [lremove $fam "Noto Nastaliq Urdu"]
+  set fam [lremove $fam "Noto Color Emoji"]
   set fam [lsort $fam]
 
   if {$font_cache == ""} {


--------------BBA1453999707D1D826E0136
Content-Type: text/x-patch;
 name="insight-git-main-tcl.diff"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="insight-git-main-tcl.diff"

diff --git a/mnt/sdd1/home/src/insight-git/insight/gdbtk/library/main.tcl b/opt/insight-git/share/insight1.0/main.tcl
index 1561cd5..39d1aaf 100644
--- a/mnt/sdd1/home/src/insight-git/insight/gdbtk/library/main.tcl
+++ b/opt/insight-git/share/insight1.0/main.tcl
@@ -56,6 +56,8 @@ if {[info exists auto_path]} {
 # Require the packages we need.  Most are loaded already, but this will catch
 # any odd errors... :
 
+puts ""
+puts "insight auto_path is:$::auto_path"
 foreach p {{tcl 8.5} {tk 8.5} {itcl 3.3} {itk 3.3} {iwidgets 4.0} {gdbtk 1.0} {combobox 2.2} {debug 1.0}} {
   set failed [catch {package require [lindex $p 0]} msg]
   if {$failed} {
@@ -74,7 +76,7 @@ foreach p {{tcl 8.5} {tk 8.5} {itcl 3.3} {itk 3.3} {iwidgets 4.0} {gdbtk 1.0} {c
     }
     exit -1
   }
-  #puts "Loaded [lindex $p 0] $msg"
+  puts "Loaded [lindex $p 0] $msg"
 }
 
 namespace import itcl::*


--------------BBA1453999707D1D826E0136--