🚀 go-pugleaf

$BED8}$G$9!%(B

Tk$B$G$O%?%$%H%k$O%O!<%I%3!<%I$5$l$A$c$C$F$k$N$G!$$=$N$^$^$G$O(B
$B30$+$i$O$$$8$l$^$;$s$M!%(B

$B$J$s$H$+$9$k3HD%$b$"$j$=$&$J$N$G$9$,!$:#!$:n@.(B5$BJ,!$;n83(B10$BJ,$N(B
quick hack $B$G%Q%C%A$r$G$C$A$"$2$F$7$^$$$^$7$?(B^^;

postscript $B%&%#%8%'%C%H%3%^%s%I$K(B -title $B$H$$$&%*%W%7%g%s$,(B
$B;XDj$G$-$k$h$&$K$J$j$^$9!%=PNO$7$?$$%?%$%H%kJ8;zNs$r;XDj$7$F(B
$B2<$5$$!%(B

Tk4.1b3jp$B%Y!<%9$G$9!%(B

$BD6(Bquick hack$B$G$9$N$G!$$H$C$F$b(B risky $B$G$9!%(B

--- tkCanvPs.c.orig	Wed Apr 17 14:39:27 1996
+++ tkCanvPs.c	Fri Apr 26 09:24:55 1996
@@ -63,6 +63,7 @@
 				 * NULL means return Postscript info as
 				 * result. Malloc'ed. */
     FILE *f;			/* Open file corresponding to fileName. */
+    char *titleString;          /* Title for PostScript File */
     Tcl_HashTable fontTable;	/* Hash table containing names of all font
 				 * families used in output.  The hash table
 				 * values are not used. */
@@ -85,6 +86,8 @@
 	"", Tk_Offset(TkPostscriptInfo, colorMode), 0},
     {TK_CONFIG_STRING, "-file", (char *) NULL, (char *) NULL,
 	"", Tk_Offset(TkPostscriptInfo, fileName), 0},
+    {TK_CONFIG_STRING, "-title", (char *) NULL, (char *) NULL,
+	"", Tk_Offset(TkPostscriptInfo, titleString), 0},
     {TK_CONFIG_STRING, "-fontmap", (char *) NULL, (char *) NULL,
 	"", Tk_Offset(TkPostscriptInfo, fontVar), 0},
     {TK_CONFIG_PIXELS, "-height", (char *) NULL, (char *) NULL,
@@ -197,6 +200,7 @@
     psInfo.colorMode = NULL;
     psInfo.colorLevel = 0;
     psInfo.fileName = NULL;
+    psInfo.titleString = NULL;
     psInfo.f = NULL;
     psInfo.prepass = 0;
     Tcl_InitHashTable(&psInfo.fontTable, TCL_STRING_KEYS);
@@ -363,8 +367,13 @@
 	    (char *) NULL);
     endpwent();
 #endif /* __WIN32__ || MAC_TCL */
-    Tcl_AppendResult(canvasPtr->interp, "%%Title: Window ",
-	    Tk_PathName(canvasPtr->tkwin), "\n", (char *) NULL);
+    if (psInfo.titleString != NULL) {
+      Tcl_AppendResult(canvasPtr->interp, "%%Title: ",
+		       psInfo.titleString, "\n", (char *) NULL);
+    } else {
+      Tcl_AppendResult(canvasPtr->interp, "%%Title: Window ",
+		       Tk_PathName(canvasPtr->tkwin), "\n", (char *) NULL);
+    }
     time(&now);
     Tcl_AppendResult(canvasPtr->interp, "%%CreationDate: ",
 	    ctime(&now), (char *) NULL);