diff options
| author | davygrvy <davygrvy@pobox.com> | 2002-05-08 04:21:07 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2002-05-08 04:21:07 (GMT) |
| commit | 030f4c023479b3098d9231c080dc0563872dbdd9 (patch) | |
| tree | e72dcafd7b06bb9a2506ccbbe43a7eb9bc716933 | |
| parent | 6a9dc1249fd050fdbc5fcafe4a1a98330835a7c4 (diff) | |
| download | tcl-030f4c023479b3098d9231c080dc0563872dbdd9.zip tcl-030f4c023479b3098d9231c080dc0563872dbdd9.tar.gz tcl-030f4c023479b3098d9231c080dc0563872dbdd9.tar.bz2 | |
Made code samples use the Courier New fixed-width font. Changes from
Peter Spjuth <peter.spjuth@space.se>.
| -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 |