diff options
author | davygrvy <davygrvy@noemail.net> | 2002-05-08 04:21:06 (GMT) |
---|---|---|
committer | davygrvy <davygrvy@noemail.net> | 2002-05-08 04:21:06 (GMT) |
commit | 0ba75bfd1cff89f83aa0f7db1f0fb075ef3eb274 (patch) | |
tree | e72dcafd7b06bb9a2506ccbbe43a7eb9bc716933 | |
parent | ccfcd0b3525edaa548732555e6022f46ecfaed76 (diff) | |
download | tcl-0ba75bfd1cff89f83aa0f7db1f0fb075ef3eb274.zip tcl-0ba75bfd1cff89f83aa0f7db1f0fb075ef3eb274.tar.gz tcl-0ba75bfd1cff89f83aa0f7db1f0fb075ef3eb274.tar.bz2 |
Made code samples use the Courier New fixed-width font. Changes from
Peter Spjuth <peter.spjuth@space.se>.
FossilOrigin-Name: 7b3e44778839e86d9ffeb1b7365c764543fce30a
-rw-r--r-- | tools/man2help.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl index 7982e37..9b9fb52 100644 --- a/tools/man2help.tcl +++ b/tools/man2help.tcl @@ -6,7 +6,7 @@ # # Copyright (c) 1996 by Sun Microsystems, Inc. # -# RCS: @(#) $Id: man2help.tcl,v 1.11 2002/03/28 21:52:41 davygrvy Exp $ +# RCS: @(#) $Id: man2help.tcl,v 1.12 2002/05/08 04:21:07 davygrvy Exp $ # # @@ -59,7 +59,7 @@ proc generateHelp {basename files} { set file [open [file join [file dirname [info script]] $basename.rtf] w] fconfigure $file -translation crlf - puts $file "\{\\rtf1\\ansi \\deff0\\deflang1033\{\\fonttbl\{\\f0\\froman\\fcharset0\\fprq2 Times New Roman\;\}\}" + puts $file "\{\\rtf1\\ansi \\deff0\\deflang1033\{\\fonttbl\{\\f0\\froman\\fcharset0\\fprq2 Times New Roman\;\}\{\\f1\\fmodern\\fcharset0\\fprq1 Courier New\;\}\}" foreach f $files { puts "Pass 2 -- $f" flush stdout |