cmdr
Check-in [ac17c7fb74]
Not logged in

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:ac17c7fb74544ab3fe5c1cc67dda7db60b7d980e
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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] \