Artifact
539250e733e7504c35cd71796a0b443d046beab8:
Attachment "man2help.tcl.patch" to
ticket [572635ffff]
added by
wilkason
2002-06-23 08:57:45.
cvs -z7 diff -w man2help.tcl (in directory C:\CVS\sourceforge\tcl\tools\)
Index: man2help.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/tools/man2help.tcl,v
retrieving revision 1.12
diff -w -r1.12 man2help.tcl
26c26
< set fd [open [file join [file dirname [info script]] $basename$version.cnt] w]
---
> set fd [open $basename$version.cnt w]
60c60
< set file [open [file join [file dirname [info script]] $basename.rtf] w]
---
> set file [open $basename.rtf w]
120c120
< set baseName [lindex $argv [incr arg]]
---
> set baseName [lindex $argv $arg]