diff options
| author | davygrvy <davygrvy@pobox.com> | 2002-03-28 21:45:24 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2002-03-28 21:45:24 (GMT) |
| commit | e42c56cca07ad314f38ebdb6163c7c721f568d17 (patch) | |
| tree | e0ab2687f97542ecf2b79228bdccfcc951d6d2cc /tools/man2help2.tcl | |
| parent | a636510750fe34f54f3fee43e644ecc509b859cc (diff) | |
| download | tcl-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.tcl | 8 |
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 } |