From 030f4c023479b3098d9231c080dc0563872dbdd9 Mon Sep 17 00:00:00 2001 From: davygrvy Date: Wed, 8 May 2002 04:21:07 +0000 Subject: Made code samples use the Courier New fixed-width font. Changes from Peter Spjuth . --- tools/man2help.tcl | 4 ++-- 1 file 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 -- cgit v0.12