summaryrefslogtreecommitdiffstats
path: root/tools/man2help2.tcl
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2002-03-28 21:45:24 (GMT)
committerdavygrvy <davygrvy@pobox.com>2002-03-28 21:45:24 (GMT)
commite42c56cca07ad314f38ebdb6163c7c721f568d17 (patch)
treee0ab2687f97542ecf2b79228bdccfcc951d6d2cc /tools/man2help2.tcl
parenta636510750fe34f54f3fee43e644ecc509b859cc (diff)
downloadtcl-e42c56cca07ad314f38ebdb6163c7c721f568d17.zip
tcl-e42c56cca07ad314f38ebdb6163c7c721f568d17.tar.gz
tcl-e42c56cca07ad314f38ebdb6163c7c721f568d17.tar.bz2
* tools/feather.bmp:
* tools/man2help.tcl: * tools/man2help2.tcl: * win/makefile.vc: More winhelp target fixups. Added a feather bitmap to the non-scrollable area and changed the color to be yellow from a plain white. The colors can be whatever we want them to be, but thought I would start with something bold. [Bug 527941]
Diffstat (limited to 'tools/man2help2.tcl')
-rw-r--r--tools/man2help2.tcl8
1 files changed, 6 insertions, 2 deletions
diff --git a/tools/man2help2.tcl b/tools/man2help2.tcl
index 82aa664..aef5f61 100644
--- a/tools/man2help2.tcl
+++ b/tools/man2help2.tcl
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: man2help2.tcl,v 1.7 2001/11/10 02:34:57 hobbs Exp $
+# RCS: @(#) $Id: man2help2.tcl,v 1.8 2002/03/28 21:45:24 davygrvy Exp $
#
# Global variables used by these scripts:
@@ -826,7 +826,7 @@ proc TPmacro {argList} {
# argList - List of arguments to the .TH macro.
proc THmacro {argList} {
- global file curPkg curSect curID id_keywords state curVer
+ global file curPkg curSect curID id_keywords state curVer bitmap
if {[llength $argList] != 5} {
set args [join $argList " "]
@@ -864,6 +864,10 @@ proc THmacro {argList} {
tab
text $curSect
font R
+ if {[info exist bitmap]} {
+ # a right justified bitmap
+ puts $file "\\\{bmrt $bitmap\\\}"
+ }
puts $file "\\fs20"
set state(breakPending) -1
}