Index: library/lib/doc-tools.tcl
===================================================================
diff -u -rcfd13f351499bb4b1b1debd55f209419edf1af14 -rda29026a405568a2d35c7349664e500acb92f4b8
--- library/lib/doc-tools.tcl (.../doc-tools.tcl) (revision cfd13f351499bb4b1b1debd55f209419edf1af14)
+++ library/lib/doc-tools.tcl (.../doc-tools.tcl) (revision da29026a405568a2d35c7349664e500acb92f4b8)
@@ -1605,7 +1605,7 @@
# might fail because they contain substitution characters
# ($,[]); see nx.tcl
# ...
- catch {set preprocessed [subst $preprocessed]} msg
+ catch {set preprocessed [subst $preprocessed]} msg
return $preprocessed
}
@@ -1761,7 +1761,8 @@
:method listing {{-inline true} script} {
#return [expr {$inline?"$script
":"
$script"}] - return [expr {$inline?"
$script
":[nx::pp render [string trimright $script " \r\n"]]}]
+ set listing [expr {$inline?"$script
":[string trimright [nx::pp render [string trimright $script " \r\n"]] "\n"]}]
+ return $listing
}
:method link=tclcmd {cmd} {