diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-23 18:17:28 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-23 18:17:28 (GMT) |
commit | 8bc88423e036120f1dbce374801771c7369be379 (patch) | |
tree | 5b8e3af088b9237482fa34466188dbe5f0f0612f /tools | |
parent | 6be2ca61097c74d946f750de0dd259c180ba0d8a (diff) | |
download | tcl-8bc88423e036120f1dbce374801771c7369be379.zip tcl-8bc88423e036120f1dbce374801771c7369be379.tar.gz tcl-8bc88423e036120f1dbce374801771c7369be379.tar.bz2 |
Backport formatting from 9.0. Revise genStubs.tcl such that dummy entries are only generated for Tcl 8.x, not for 9.0
Diffstat (limited to 'tools')
-rw-r--r-- | tools/genStubs.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 89e4ccc..87de58c 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -822,9 +822,9 @@ proc genStubs::forAllStubs {name slotProc onAll textVar # TkIntStubs entry 113 for aqua is in fact at position # 114 in the table, entry 114 at position 116 etc). eval {append temp} $skipString - set temp "[string range $temp 0 end-1] /*\ + set temp "# if TCL_MAJOR_VERSION < 9\n[string range $temp 0 end-1] /*\ Dummy entry for stubs table backwards\ - compatibility */\n" + compatibility */\n# endif /* TCL_MAJOR_VERSION < 9 */\n" } if {$slot($plat)} { append temp [$slotProc $name $stubs($name,$plat,$i) $i] |