* [PATCHES] Make insight-git with private tcl-tk to work better
@ 2018-11-24 17:40 gmail Vladimir Koković
0 siblings, 0 replies; only message in thread
From: gmail Vladimir Koković @ 2018-11-24 17:40 UTC (permalink / raw)
To: insight
[-- Attachment #1: Type: text/plain, Size: 6341 bytes --]
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 <dgp@users.sourceforge.net>
    Date:  Thu Nov 1 16:00:08 2018 +0000
  itk:
    commit 1fe969e491476abe901ea1f451c9b09d437acc11 (HEAD -> master,
origin/master, origin/HEAD)
    Author: stu <stwo@users.sourceforge.net>
    Date:  Sat Jul 21 21:53:04 2018 +0000
6. insight-git
  commit 2bc04c8d4abaab9de9d8b787f867e48ff9dc64a0 (HEAD -> master,
origin/master, origin/HEAD)
  Author: Patrick Monnerat <patrick@monnerat.net>
  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
[-- Attachment #2: insight-git-globalpref-itb.diff --]
[-- Type: text/x-patch, Size: 705 bytes --]
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 == ""} {
[-- Attachment #3: insight-git-main-tcl.diff --]
[-- Type: text/x-patch, Size: 881 bytes --]
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::*
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2018-11-24 17:40 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2018-11-24 17:40 [PATCHES] Make insight-git with private tcl-tk to work better gmail Vladimir Koković
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).