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} {
Index: library/nx/nx.nxd
===================================================================
diff -u -r77df24420621ac25993e4ca25f27e67bcd7da905 -rda29026a405568a2d35c7349664e500acb92f4b8
--- library/nx/nx.nxd (.../nx.nxd) (revision 77df24420621ac25993e4ca25f27e67bcd7da905)
+++ library/nx/nx.nxd (.../nx.nxd) (revision da29026a405568a2d35c7349664e500acb92f4b8)
@@ -118,7 +118,6 @@
# ::nx::Class create AClass
# ::nx::Class AnotherClass; # This fails: "Method 'AnotherClass' unknown for ::nx::Class."
# '''
-#
# Note that this method is also invoked internally when executing
# <<@class.method {Class new}>>.
#