diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-03 10:03:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-03 10:03:00 (GMT) |
| commit | 126d43773ca468803c238c2deb4c947f80f4f68d (patch) | |
| tree | dbd0427d6b1849b96e11daacbebe2c45f381066c | |
| parent | 7dc8ac4c07c22c671d73cda80c899a453da3407c (diff) | |
| download | tcl-126d43773ca468803c238c2deb4c947f80f4f68d.zip tcl-126d43773ca468803c238c2deb4c947f80f4f68d.tar.gz tcl-126d43773ca468803c238c2deb4c947f80f4f68d.tar.bz2 | |
slightly better formatting, both in genStubs.tcl and in the generated XXX_DEPRECATED functions.
| -rw-r--r-- | tools/genStubs.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 5956711..830ba2b 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -470,9 +470,10 @@ proc genStubs::makeDecl {name decl index} { append text "/* $index */\n" if {[info exists stubs($name,deprecated,$index)]} { - set line "[string toupper $libraryName]_DEPRECATED(\"$stubs($name,deprecated,$index)\")\n$rtype" + append text "[string toupper $libraryName]_DEPRECATED(\"$stubs($name,deprecated,$index)\")\n" + set line "$rtype" } else { - set line "$scspec $rtype" + set line "$scspec $rtype" } set count [expr {2 - ([string length $line] / 8)}] append line [string range "\t\t\t" 0 $count] |