From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 69523 invoked by alias); 24 Nov 2018 17:40:31 -0000 Mailing-List: contact insight-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sourceware.org Received: (qmail 69507 invoked by uid 89); 24 Nov 2018 17:40:30 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-25.9 required=5.0 tests=AWL,BAYES_00,FREEMAIL_FROM,GIT_PATCH_0,GIT_PATCH_1,GIT_PATCH_2,GIT_PATCH_3,KAM_ASCII_DIVIDERS,KAM_LOTSOFHASH,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=ham version=3.3.2 spammy=H*Ad:U*insight X-HELO: mail-wr1-f47.google.com Received: from mail-wr1-f47.google.com (HELO mail-wr1-f47.google.com) (209.85.221.47) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sat, 24 Nov 2018 17:40:28 +0000 Received: by mail-wr1-f47.google.com with SMTP id q18so14960210wrx.9 for ; Sat, 24 Nov 2018 09:40:28 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:subject:to:message-id:date:user-agent:mime-version :content-language; bh=tNeoBUreX6lYjJBw77uBPVOFBKnvX2HPjTuDgy19f18=; b=FALIkXpwlYudLCw9ATihkpMhvNbAu2xxU4rsof8ohhnvdyexYpEvMUpKHzFlqoc2Ol sycVtiW3ybe/VyTNiV5G/fal5o9zIcuRQHX9z8X/0IFSKXOFBFuHunr32WeOhp8uPJiu BsTyK9sM9x5GOQMp3IiryPjEhYoWMR5Zs4GdQADx4AyVAv7NosE8J7EXwJx2LGGDg4Qd QGHQq3bI/3vv1ijuOYfZ+ALnRJ0yKohGSyyDVnebVNiGzKHG9oGtU+ZrY58/YbTw1XaD PLEcYcv11bma+FsNIysIRVDyQRnyzxQc8TDOKC6JBlOh9H7HZxZJyP+9LvKUIhYs0oB0 D9WQ== Return-Path: Received: from [192.168.0.10] ([95.180.47.253]) by smtp.gmail.com with ESMTPSA id j199sm25060964wmf.13.2018.11.24.09.40.25 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 24 Nov 2018 09:40:25 -0800 (PST) From: =?UTF-8?Q?gmail_Vladimir_Kokovi=c4=87?= Subject: [PATCHES] Make insight-git with private tcl-tk to work better To: insight@sourceware.org Message-ID: <8e677780-8b04-a13a-6ea6-2cc4c9512f93@gmail.com> Date: Sat, 24 Nov 2018 17:40:00 -0000 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Thunderbird/60.3.0 MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="------------BBA1453999707D1D826E0136" X-SW-Source: 2018-q4/txt/msg00000.txt.bz2 This is a multi-part message in MIME format. --------------BBA1453999707D1D826E0136 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 8bit Content-length: 5735 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      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      Date:   Thu Nov 1 16:00:08 2018 +0000    itk:      commit 1fe969e491476abe901ea1f451c9b09d437acc11 (HEAD -> master, origin/master, origin/HEAD)      Author: stu      Date:   Sat Jul 21 21:53:04 2018 +0000 6. insight-git    commit 2bc04c8d4abaab9de9d8b787f867e48ff9dc64a0 (HEAD -> master, origin/master, origin/HEAD)    Author: Patrick Monnerat    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" Content-length: 705 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" Content-length: 881 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--