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 |
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 139 140 141 142 143 144 145 146 147 148 149 |
debug.cmdr/help {}
set width [$config @width]
set words [$config @cmdname]
set format [$config @format]
if {$format eq {}} {
# Default depends on the presence of additional arguments,
# i.e. if a specific command is asked for, or not.
if {[llength $words]} {
set format full
} else {
set format by-category
}
}
puts [format $format \
[$actor root] \
|
| | > > > > > > > > | > |
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] \
|