Index: library/lib/pp.tcl
===================================================================
diff -u -r6a19512f1c1fd4f38243f088845016ffadf48ab5 -r794498711051e665464953bdd212dfe739465315
--- library/lib/pp.tcl	(.../pp.tcl)	(revision 6a19512f1c1fd4f38243f088845016ffadf48ab5)
+++ library/lib/pp.tcl	(.../pp.tcl)	(revision 794498711051e665464953bdd212dfe739465315)
@@ -204,19 +204,37 @@
     $state flush
   }
 
-  :public method render {-noCSSClasses:switch block} {
+  :public method numbers {block} {
+    set nrlines [regsub -all \n $block \n block]
+    incr nrlines
+    set HTML ""
+    for {set i 1} {$i<=$nrlines} {incr i} {
+      append HTML [format %3d $i]\n
+    }
+    return $HTML
+  }
+
+  :public method render {{-linenumbers false} -noCSSClasses:switch block} {
     set :output ""
+    :toHTML $block
+    set HTML ${:output}
+    set :output ""
     :puts "<style type='text/css'>"
-    :puts ".nx             {color: #000000; font-weight: normal; font-style: normal;}"
+    :puts ".nx             {color: #000000; font-weight: normal; font-style: normal; padding-left: 10px}"
+    :puts "table.nx        {border-collapse: collapse; border-spacing: 3px;}"
+    :puts ".nx-linenr      {border-right: 1px solid #DDDDDD;padding-right: 5px; color: #2B547D;font-style: italic;}"
     :puts ".nx-string      {color: #779977; font-weight: normal; font-style: italic;}"
     :puts ".nx-comment     {color: #717ab3; font-weight: normal; font-style: italic;}"
     :puts ".nx-keyword     {color: #7f0055; font-weight: normal; font-style: normal;}"
     :puts ".nx-placeholder {color: #AF663F; font-weight: normal; font-style: italic;}"
     :puts ".nx-variable    {color: #AF663F; font-weight: normal; font-style: normal;}"
     :puts "</style>"
-    :puts -nonewline "<pre class='nx'>"
-    :toHTML $block
-    :puts "</pre>"
+    if {$linenumbers} {
+      :puts -nonewline "<table class='nx'><tr><td class='nx-linenr'><pre>[:numbers $block]</pre></td>"
+      :puts -nonewline "<td class='nx-body'><pre class='nx'>$HTML</pre></td></tr></table>"
+    } else {
+      :puts -nonewline "<pre class='nx'>$HTML</pre>"
+    }
     return ${:output}
   }