diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-23 22:01:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-23 22:01:48 (GMT) |
| commit | fd2678faff6b8604c4a46f1638c961f5950825ba (patch) | |
| tree | 7ccd34762d789123452f0930c5bf70a3174d1186 /tools | |
| parent | 97d587ac544c98c1b98ad7e4b189dd83baa3587f (diff) | |
| download | tcl-fd2678faff6b8604c4a46f1638c961f5950825ba.zip tcl-fd2678faff6b8604c4a46f1638c961f5950825ba.tar.gz tcl-fd2678faff6b8604c4a46f1638c961f5950825ba.tar.bz2 | |
Update genStubs.tcl, making it usable for Tcl 9 as well
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 28138e2..3c99645 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] |