svn commit: r322500 - in head/net/tcpillust: . files

[Pietro Cerutti]

Author: gahr
Date: Mon Jul  8 12:12:18 2013
New Revision: 322500
URL: http://svnweb.freebsd.org/changeset/ports/322500

Log:
  - Fix build with Tcl/Tk 8.6 [1]
  - While at it, trim Makefile headers
  
  Reported by:	bapt [1]

Added:
  head/net/tcpillust/files/patch-tcpillust.c   (contents, props changed)
Modified:
  head/net/tcpillust/Makefile   (contents, props changed)

Modified: head/net/tcpillust/Makefile
==============================================================================
--- head/net/tcpillust/Makefile	Mon Jul  8 12:05:45 2013	(r322499)
+++ head/net/tcpillust/Makefile	Mon Jul  8 12:12:18 2013	(r322500)
@@ -1,9 +1,5 @@
-# New ports collection makefile for:	tcpillust
-# Date created:		14 April 2000
-# Whom:			nishida at sfc.wide.ad.jp
-#
+# Created by: nishida at sfc.wide.ad.jp
 # $FreeBSD$
-#
 
 PORTNAME=	tcpillust
 PORTVERSION=	2.01

Added: head/net/tcpillust/files/patch-tcpillust.c
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/net/tcpillust/files/patch-tcpillust.c	Mon Jul  8 12:12:18 2013	(r322500)
@@ -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);
+ 	}
+