cmdr
Check-in [ac17c7fb74]
Not logged in
Myself Home DocumentationDownloads Tickets | Timeline Branches Tags Wiki Login

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.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
Unified Diff 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] \
︙︙