BRL-CAD/tcl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update genStubs.tcl, making it usable for Tcl 9 as well

Browse Source
This commit is contained in:
jan.nijtmans
2024-03-23 22:01:48 +00:00
parent 8197ed757c
commit 3e75600e5c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/genStubs.tcl
+2 -2
View File
@@ -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]