Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Tweak to default format selection of help, use "short" for interior nodes. |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
ac17c7fb74544ab3fe5c1cc67dda7db6 |
User & Date: | andreask 2014-02-17 20:20:11.684 |
Context
2014-02-17
| ||
23:29 | Excluded auto-added commands from categorized help. check-in: 7e77c5a0be user: andreask tags: trunk | |
20:20 | Tweak to default format selection of help, use "short" for interior nodes. check-in: ac17c7fb74 user: andreask tags: trunk | |
20:19 | Extended debug narrative at method returns. check-in: c6dc11d2a1 user: andreask tags: trunk | |
Changes
Changes to help.tcl.
︙ | ︙ | |||
132 133 134 135 136 137 138 | debug.cmdr/help {} set width [$config @width] set words [$config @cmdname] set format [$config @format] if {$format eq {}} { | | | > > > > > > > > | > | 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 | debug.cmdr/help {} set width [$config @width] set words [$config @cmdname] set format [$config @format] if {$format eq {}} { # The chosen default format depends on the presence of # additional arguments, i.e. if a specific command is asked # for, or not, and the general context (root, leaf, inner # node). if {[llength $words]} { set sub [$actor find $words] if {[llength [$sub children]]} { # Interior command node set format short } else { set format full } } else { set format by-category } } puts [format $format \ [$actor root] \ |
︙ | ︙ |