Skip site navigation (1)Skip section navigation (2)
Date:      Tue, 23 Jan 1996 18:53:57 +0100 (MET)
From:      Juergen Lock <nox@jelal.hb.north.de>
To:        ports@freebsd.org
Cc:        hasty@rah.star-gate.com
Subject:   spectcl-01a
Message-ID:  <199601231753.SAA11343@saturn>

next in thread | raw e-mail | index | archive | help
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




Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199601231753.SAA11343>