From owner-freebsd-ports  Tue Jan 23 12:15:46 1996
Return-Path: owner-ports
Received: (from root@localhost)
          by freefall.freebsd.org (8.7.3/8.7.3) id MAA13150
          for ports-outgoing; Tue, 23 Jan 1996 12:15:46 -0800 (PST)
Received: from deceased.hb.north.de (deceased.hb.north.de [194.94.232.249])
          by freefall.freebsd.org (8.7.3/8.7.3) with SMTP id MAA13143
          for <ports@freebsd.org>; Tue, 23 Jan 1996 12:15:38 -0800 (PST)
Received: from jelal.hb.north.de by deceased.hb.north.de with uucp
	(Smail3.1.29.1) id m0tep6u-000ZNsC; Tue, 23 Jan 96 21:14 MET
Received: by jelal.hb.north.de (SMail-ST 0.95gcc/2.5+)
	id AA00369; Tue, 23 Jan 1996 19:11:50 +0100 (CET)
Received: (from nox@localhost) by saturn (8.6.11/8.6.9) id SAA11343; Tue, 23 Jan 1996 18:53:58 +0100
From: Juergen Lock <nox@jelal.hb.north.de>
Message-Id: <199601231753.SAA11343@saturn>
Subject: spectcl-01a
To: ports@freebsd.org
Date: Tue, 23 Jan 1996 18:53:57 +0100 (MET)
Cc: hasty@rah.star-gate.com
X-Mailer: ELM [version 2.4 PL24]
MIME-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Sender: owner-ports@freebsd.org
Precedence: bulk

I think Amancio asked for this but i seem to have lost the mail...

 The trick(?) is to use the supplied blt_table, the independently
distributed BLT packages were all incompatible. (at least 1.8 and 1.9)

 Someone please clean this up and sync the paths with the `official'
tk4.1 port, mine is in /usr/local/lib/tk4.1...  and ask archie
for a MASTER_SITE, sorry :)

 hope it helps,
	Juergen

# This is a shell archive.  Save it in a file, remove anything before
# this line, and then unpack it by entering "sh file".  Note, it may
# create directories; files and directories will be owned by you and
# have default permissions.
#
# This archive contains:
#
#	Makefile
#	patches/
#	patches/patch-aa
#	patches/patch-ab
#
echo x - Makefile
sed 's/^X//' >Makefile << 'END-of-Makefile'
X
XPKGNAME=	specTcl-0.1a
XDISTNAME=	SpecTcl-0.1a
XCATEGORIES+=	x11
X
X
Xdo-configure:
X	(cd ${WRKSRC}/blt_table; PREFIX=/usr/local TCLCONFIGINFO=/usr/local/lib/tcl7.5a2 ./configure)
X
XINSTALL=/usr/bin/install -c -o bin -g bin
XINSTALL_PROGRAM=/usr/bin/install -c -s -o bin -g bin -m 555
X
Xdo-build:
X	(cd ${WRKSRC}/blt_table; make PREFIX=/usr/local X11BASE=/usr/X11R6)
X
Xdo-install:
X	mkdir -p /usr/local/lib/SpecTcl/help
X	${INSTALL} ${WRKSRC}/*.tk ${WRKSRC}/*.tcl ${WRKSRC}/*.xbm /usr/local/lib/SpecTcl
X	${INSTALL} ${WRKSRC}/help/* /usr/local/lib/SpecTcl/help
X	${INSTALL} ${WRKSRC}/spectcl /usr/local/bin
X	${INSTALL} ${WRKSRC}/blt_table/Blt.so /usr/local/lib/tk4.1
X
X.include <bsd.port.mk>
END-of-Makefile
echo c - patches/
mkdir -p patches/ > /dev/null 2>&1
echo x - patches/patch-aa
sed 's/^X//' >patches/patch-aa << 'END-of-patches/patch-aa'
XIndex: bind.tk
X@@ -39,7 +39,11 @@
X 	widget_extract .sample_$widget sample_$widget
X 	form_build .generic.form sample_$widget
X 	if {![winfo ismapped .generic]} {
X-		parray Geometry
X+
X+		if [array exists Geometry] {
X+			parray Geometry
X+		}
X+		#parray Geometry
X 		wm deiconify .generic
X 		catch {wm geometry .generic $Geometry(generic)}
X 	}
XIndex: blt_table/Makefile.in
X@@ -7,7 +7,8 @@
X SHLIB_LD =		@SHLIB_LD@
X SHLIB_SUFFIX =		@SHLIB_SUFFIX@
X CC = cc
X-SRC_DIR =		/usr/local/tcl/src
X+#SRC_DIR =		/usr/local/tcl/src
X+SRC_DIR =		/usr/local/include
X VERSION = 		a1
X START=.
X 
X@@ -23,7 +24,8 @@
X 	-I${SRC_DIR}/tcl7.5${VERSION} \
X 	-I${SRC_DIR}/tk4.1${VERSION}/generic \
X 	-I${SRC_DIR}/tk4.1${VERSION}/unix \
X-	-I/usr/openwin/include \
X+	-I/usr/X11R6/include \
X+	-I/usr/local/include \
X 	 ${SHLIB_CFLAGS} $(AC_FLAGS)
X 
X all: Blt${SHLIB_SUFFIX}
XIndex: filters.tk
X@@ -33,6 +33,9 @@
X 
X proc InFilter_font {variable args} {
X 	upvar $variable data
X+	if {![regexp {^-.*} $data]} {
X+		set data [exec xprop -font $data | sed -n "2,15{s/.* = /-/;p;}" | tr -d \\012 ]
X+	}
X 	set fields [split $data -]
X 	if {[llength $fields] != 15} {
X 		uplevel "set $variable {}"
XIndex: spectcl
X@@ -6,7 +6,7 @@
X # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
X #
X # Change DIR to the directory that contains the SpecTcl source files
X-DIR=/usr/local/SpecTcl
X+DIR=/usr/local/lib/SpecTcl
X 
X # Change WISH to the pathname of your tk4.1a2 (or >) wish binary
X WISH=/usr/local/bin/wish4.1
END-of-patches/patch-aa
echo x - patches/patch-ab
sed 's/^X//' >patches/patch-ab << 'END-of-patches/patch-ab'
XIndex: main.tk
X@@ -20,6 +20,10 @@
X catch {blt_table}	;# force autoloading
X 
X if {[info commands blt_table] == ""} {
X+	load /usr/local/lib/tk4.1/Blt[info sharedlibextension] BLT
X+}
X+
X+if {[info commands blt_table] == ""} {
X 	tk_dialog .exit "Version Error" \
X 		"SpecTcl requires the \"blt_table\" geometry manager" \
X 		error 0 OK
END-of-patches/patch-ab
exit