mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-23 00:43:28 +00:00
Code Issues Releases Activity

- Fix build with Tcl/Tk 8.6 [1]

Browse Source 
- While at it, trim Makefile headers

Reported by:	bapt [1]
This commit is contained in:
Pietro Cerutti 2013-07-08 12:12:18 +00:00
parent 96149ef5a5
commit 2b7cdc2de5
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=322500
2 changed files with 38 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
net/tcpillust/Makefile
View File

@ -1,9 +1,5 @@
# New ports collection makefile for: tcpillust
# Date created: 14 April 2000
# Whom: nishida@sfc.wide.ad.jp
#
# Created by: nishida@sfc.wide.ad.jp
# $FreeBSD$
#
PORTNAME= tcpillust
PORTVERSION= 2.01

37
net/tcpillust/files/patch-tcpillust.c Normal file
View File

@ -0,0 +1,37 @@
--- tcpillust.c.orig 2013-07-08 14:06:59.000000000 +0200
+++ tcpillust.c 2013-07-08 14:09:05.000000000 +0200
@@ -93,16 +93,16 @@
interp = Tcl_CreateInterp();
if (Tcl_Init(interp) == TCL_ERROR) {
- fprintf(stderr, "Tcl_Init failed: %s\n", interp->result);
+ fprintf(stderr, "Tcl_Init failed: %s\n", Tcl_GetStringResult(interp));
exit(-1);
}
if (Tk_Init(interp) == TCL_ERROR) {
- fprintf(stderr, "Tk_Init failed: %s\n", interp->result);
+ fprintf(stderr, "Tk_Init failed: %s\n", Tcl_GetStringResult(interp));
exit(-1);
}
main_tkwin = Tk_MainWindow(interp);
if (main_tkwin == NULL) {
- fprintf(stderr, "%s\n", interp->result);
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
exit(-1);
}
@@ -169,12 +169,12 @@
{
canvas_tkwin = Tk_NameToWindow(interp, ".subframe1.canvas", main_tkwin);
if (canvas_tkwin == NULL) {
- fprintf(stderr, "%s\n", interp->result);
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
exit(-1);
}
subcanvas_tkwin = Tk_NameToWindow(interp, ".subframe2.canvas", main_tkwin);
if (subcanvas_tkwin == NULL) {
- fprintf(stderr, "%s\n", interp->result);
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
exit(-1);
}