Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | When printing config state, show parameter inheritance. Plus label now showing regular names, no titling. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
7501cc673bf9d4480faa37bbf1af629a |
| User & Date: | andreask 2014-10-08 21:13:20.493 |
Context
|
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 | |
|
2014-09-19
| ||
| 17:52 | cmdr::parameter - Utility DSL commands for easy locking (disallow) and trivial accss to siblings (touch, touch?). Semantic change for when-* hooks. Now storing a list and multiple when-set definitions accumulate. Tweaking locking error message to use better name of the locked parameter. check-in: 9fc3922163 user: andreask tags: trunk | |
Changes
Changes to config.tcl.
| ︙ | ︙ | |||
1384 1385 1386 1387 1388 1389 1390 |
set text {}
set alldefined 1
set somebad 0
foreach label $labels para $plist {
set para [my lookup $para]
| | | 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 |
set text {}
set alldefined 1
set somebad 0
foreach label $labels para $plist {
set para [my lookup $para]
#set label [string totitle $label 0 0]
set required [$para required]
set islist [$para list]
set defined [$para set?]
try {
set value [$para value]
if {$value eq {}} {
|
| ︙ | ︙ | |||
1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 |
set alldefined 0
} else {
#set label "$label "
}
if {$full} {
append label " ("
append label [expr {[$para ordered] ? "o":"-"}]
append label [expr {[$para cmdline] ? "c":"-"}]
append label [expr {[$para list] ? "L":"-"}]
append label [expr {[$para presence] ? "P":"-"}]
append label [expr {[$para documented] ? "d":"-"}]
append label [expr {[$para isbool] ? "B":"-"}]
append label [expr {[$para hasdefault] ? "D":"-"}]
append label [expr {[$para set?] ? "!":"-"}]
append label [expr {[$para defered] ? ">":"-"}]
| > < < | 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 |
set alldefined 0
} else {
#set label "$label "
}
if {$full} {
append label " ("
append label [expr {[$para inherited [self]] ? "^":"-"}]
append label [expr {[$para ordered] ? "o":"-"}]
append label [expr {[$para cmdline] ? "c":"-"}]
append label [expr {[$para list] ? "L":"-"}]
append label [expr {[$para presence] ? "P":"-"}]
append label [expr {[$para documented] ? "d":"-"}]
append label [expr {[$para isbool] ? "B":"-"}]
append label [expr {[$para hasdefault] ? "D":"-"}]
append label [expr {[$para set?] ? "!":"-"}]
append label [expr {[$para defered] ? ">":"-"}]
append label [expr {[$para required] ? "/.." : [$para threshold] < 0 ? "/pt":"/th"}]
append label ")"
set sfx { }
} else {
append label [expr {[$para list] ? " L":" "}]
set sfx { }
}
|
| ︙ | ︙ |
Changes to parameter.tcl.
| ︙ | ︙ | |||
183 184 185 186 187 188 189 190 191 192 193 194 195 196 |
}
method flag {} {
my Option $mylabel
}
# Core classification properties
method ordered {} { return $myisordered }
method cmdline {} { return $myiscmdline }
method required {} { return $myisrequired }
method defered {} { return $myisdefered }
method nopromote {} { return $mynopromote }
method list {} { return $myislist }
| > > > | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 |
}
method flag {} {
my Option $mylabel
}
# Core classification properties
method inherited {config} {
expr {$config ne [my config]}
}
method ordered {} { return $myisordered }
method cmdline {} { return $myiscmdline }
method required {} { return $myisrequired }
method defered {} { return $myisdefered }
method nopromote {} { return $mynopromote }
method list {} { return $myislist }
|
| ︙ | ︙ |