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/man2help.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/man2help.tcl')
| -rw-r--r-- | tools/man2help.tcl | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl index 0d9bb02..9f3d7fe 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.9 2002/03/28 02:42:40 davygrvy Exp $ +# RCS: @(#) $Id: man2help.tcl,v 1.10 2002/03/28 21:45:24 davygrvy Exp $ # # @@ -108,14 +108,19 @@ proc doDir dir { # process command line arguments if {$argc < 3} { - puts stderr "usage: $argv0 projectName version manFiles..." + puts stderr "usage: $argv0 \[options\] projectName version manFiles..." exit 1 } -set baseName [lindex $argv 0] -set version [lindex $argv 1] +set arg 0 + +if {![string compare [lindex $argv $arg] "-bitmap"]} { + set bitmap [lindex $argv [incr arg]] +} +puts [set baseName [lindex $argv [incr arg]]] +puts [set version [lindex $argv [incr arg]]] set files {} -foreach i [lrange $argv 2 end] { +foreach i [lrange $argv [incr arg] end] { set i [file join $i] if {[file isdir $i]} { foreach f [lsort [glob -directory $i "*.\[13n\]"]] { @@ -125,7 +130,6 @@ foreach i [lrange $argv 2 end] { lappend files $i } } - source [file join [file dirname [info script]] index.tcl] generateContents $baseName $version $files source [file join [file dirname [info script]] man2help2.tcl] |