summaryrefslogtreecommitdiffstats
path: root/tools/tcltk-man2html.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tools/tcltk-man2html.tcl')
-rwxr-xr-xtools/tcltk-man2html.tcl33
1 files changed, 30 insertions, 3 deletions
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl
index a1b8191..2611393 100755
--- a/tools/tcltk-man2html.tcl
+++ b/tools/tcltk-man2html.tcl
@@ -299,9 +299,9 @@ proc make-man-pages {html args} {
set n [lsearch -glob $manual(pages) $pat]
if {$n >= 0} {
set f [lindex $manual(pages) $n]
- puts stderr "shuffling [file tail $f] to front"
- set manual(pages) [linsert [lreplace $manual(pages) $n $n] 0 \
- $f]
+ puts stderr "shuffling [file tail $f] to front of processing queue"
+ set manual(pages) \
+ [linsert [lreplace $manual(pages) $n $n] 0 $f]
}
}
# set manual(pages) [lrange $manual(pages) 0 5]
@@ -788,6 +788,33 @@ proc plus-pkgs {type args} {
set excluded_pages {case menubar pack-old}
set forced_index_pages {GetDash}
set process_first_patterns {*/ttk_widget.n */options.n}
+set ensemble_commands {
+ after array binary chan clock dde dict encoding file history info interp
+ memory namespace package registry self string trace update zlib
+ clipboard console grab grid image option pack place selection tk tkwait
+ winfo wm
+}
+array set exclude_refs_map {
+ history.n {exec}
+ regexp.n {string}
+ return.n {break continue error}
+ source.n {text}
+ canvas.n {bitmap text}
+ checkbutton.n {image}
+ menu.n {checkbutton radiobutton}
+ options.n {bitmap image set}
+ radiobutton.n {image}
+ scrollbar.n {set}
+}
+array set exclude_when_followed_by_map {
+ canvas.n {
+ bind widget
+ focus widget
+ image are
+ lower widget
+ raise widget
+ }
+}
try {
# Parse what the user told us to do