cmdr
Check-in [b64206b4e3]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:cmdr::help - Prevent the space allocated to descriptions in the categorized help from getting to small. Negatives trigger an error in adjust, and anything below 10 will generate very short tall columns. Better to misformat (cut at terminal edge, or wrap-around) for these cases. Bumped version to 1.3.2.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b64206b4e38233dbaa2ded02a2631f66abbd68ad
User & Date: andreask 2014-11-04 18:05:38
Context
2014-11-26
23:12
Followup on [463519edc6]. Fixed missing handling of "arglabel" data in the json, tcl, and sql help formats. check-in: 9660d12cb0 user: andreask tags: trunk
2014-11-04
18:05
cmdr::help - Prevent the space allocated to descriptions in the categorized help from getting to small. Negatives trigger an error in adjust, and anything below 10 will generate very short tall columns. Better to misformat (cut at terminal edge, or wrap-around) for these cases. Bumped version to 1.3.2. check-in: b64206b4e3 user: andreask tags: trunk
2014-10-08
21:13
When printing config state, show parameter inheritance. Plus label now showing regular names, no titling. check-in: 7501cc673b user: andreask tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to help.tcl.

   372    372   
   373    373       # With the padding all labels are the same length. We can
   374    374       # precompute the blank and the width to format the descriptions
   375    375       # into.
   376    376   
   377    377       regsub -all {[^\t]}  "$indent[lindex $labels 0]$sep" { } blank
   378    378       set w [expr {$width - [string length $blank]}]
          379  +    if {$w < 10} {
          380  +	# Force a minimum size for the description. This will cause
          381  +	# either cutting at the terminal width, and/or wrapping into
          382  +	# the next line, depending on the terminal.
          383  +	set w 10
          384  +    }
   379    385   
   380    386       # Print the commands, final formatting.
   381    387       set commands 0
   382    388       foreach label $labels desc $descs {
   383    389   	set desc [textutil::adjust::adjust $desc \
   384    390   		      -length $w \
   385    391   		      -strictlength 1]
................................................................................
   603    609       }
   604    610   
   605    611       return $categories
   606    612   }
   607    613   
   608    614   # # ## ### ##### ######## ############# #####################
   609    615   ## Ready
   610         -package provide cmdr::help 1.3.1
          616  +package provide cmdr::help 1.3.2