From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 5014 invoked by alias); 23 Mar 2012 22:13:26 -0000 Received: (qmail 5002 invoked by uid 22791); 23 Mar 2012 22:13:26 -0000 X-SWARE-Spam-Status: No, hits=-6.3 required=5.0 tests=AWL,BAYES_00,RCVD_IN_DNSWL_HI,SPF_HELO_PASS,T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from mx1.redhat.com (HELO mx1.redhat.com) (209.132.183.28) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 23 Mar 2012 22:13:07 +0000 Received: from int-mx10.intmail.prod.int.phx2.redhat.com (int-mx10.intmail.prod.int.phx2.redhat.com [10.5.11.23]) by mx1.redhat.com (8.14.4/8.14.4) with ESMTP id q2NMD7Nx021083 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Fri, 23 Mar 2012 18:13:07 -0400 Received: from valrhona.uglyboxes.com (ovpn01.gateway.prod.ext.phx2.redhat.com [10.5.9.1]) by int-mx10.intmail.prod.int.phx2.redhat.com (8.14.4/8.14.4) with ESMTP id q2NMD3AI029023 (version=TLSv1/SSLv3 cipher=DHE-RSA-CAMELLIA256-SHA bits=256 verify=NO) for ; Fri, 23 Mar 2012 18:13:06 -0400 Message-ID: <4F6CF56F.9080101@redhat.com> Date: Fri, 23 Mar 2012 22:13:00 -0000 From: Keith Seitz User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:10.0.1) Gecko/20120209 Thunderbird/10.0.1 MIME-Version: 1.0 To: insight Subject: [PATCH/itcl] Fix running in builddir Content-Type: multipart/mixed; boundary="------------050909040008020908040007" X-IsSubscribed: yes 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 X-SW-Source: 2012-q1/txt/msg00035.txt.bz2 This is a multi-part message in MIME format. --------------050909040008020908040007 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Content-length: 686 Hi, I haven't been using built-in tcl et al for a while, but with the recent patch submissions, I decided to give it a whirl. Turns out that insight would no longer run from the build directory. I tracked this down to a failure to instantiate an iwidgets::scrolledtext widget. This happens because the auto_path for iwidgets is set relative to the build directory, and that's not where the actual scripts files are. To run from the build directory, we also need to add the source directory to the auto_path. This is what this patch does. Keith itcl/iwidgets/ChangeLog 2012-03-23 Keith Seitz * iwidgets.tcl.in: Add source directories to the auto_path. --------------050909040008020908040007 Content-Type: text/x-patch; name="run-from-builddir.patch" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="run-from-builddir.patch" Content-length: 944 Index: itcl/iwidgets/iwidgets.tcl.in =================================================================== RCS file: /cvs/src/src/itcl/iwidgets/iwidgets.tcl.in,v retrieving revision 1.2 diff -u -p -r1.2 iwidgets.tcl.in --- itcl/iwidgets/iwidgets.tcl.in 22 Jul 2008 20:32:46 -0000 1.2 +++ itcl/iwidgets/iwidgets.tcl.in 23 Mar 2012 20:39:53 -0000 @@ -25,7 +25,13 @@ namespace eval ::iwidgets { variable version @VERSION@ } +set cvsSrcDir [file join $iwidgets::library .. .. .. src itcl iwidgets] +set gitSrcDir [file join $iwidgets::library .. .. .. gdb itcl iwidgets] lappend auto_path $iwidgets::library \ [file join $iwidgets::library generic] \ - [file join $iwidgets::library scripts] + [file join $iwidgets::library scripts] \ + [file join $cvsSrcDir generic] \ + [file join $cvsSrcDir scripts] \ + [file join $gitSrcDir generic] \ + [file join $gitSrcDir scripts] package provide Iwidgets $iwidgets::version --------------050909040008020908040007--