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