cmdr
Check-in [0a71af63c2]
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:Fix oops, forgotten update of by-category for the new helper procedures.
Timelines: family | ancestors | descendants | both | trunk | v0.9
Files: files | file ages | folders
SHA1: 0a71af63c27f85cf0984de2d2d622e1b49096eb1
User & Date: andreask 2013-10-31 00:48:16
Context
2013-10-31
23:22
Start the parameter documentation check-in: fc5d203228 user: andreask tags: trunk
00:48
Fix oops, forgotten update of by-category for the new helper procedures. check-in: 0a71af63c2 user: andreask tags: trunk, v0.9
00:43
Extended the json format with better section information, and outer structure. Version bumped to 0.9 check-in: a190c9c157 user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to help.tcl.

344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
...
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
    # Indent the commands and sub-categories a bit more...
    append indent "    "
    set    sep    "    "

    # Get the commands in the category, preliminary formatting
    # (labels, descriptions).

    foreach def [lsort -dict -unique $cmds($path)] {
	lassign $def syntax desc
	lappend names $syntax
	lappend descs $desc
    }
    set labels [cmdr util padr $names]

    # With the padding all labels are the same length. We can
................................................................................
		      -strictlength 1]
	set desc [textutil::adjust::indent $desc $blank 1]

	lappend lines $indent$label$sep$desc
    }

    lappend lines {}
    if {![info exists subc($path)]} return

    # Print the sub-categories, if any.
    foreach c [lsort -dict -unique $subc($path)] {
	ShowCategory $width lines [linsert $path end $c] $indent
    }
    return
}

# # ## ### ##### ######## ############# #####################
## Common utility commands.






|







 







|


|







344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
...
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
    # Indent the commands and sub-categories a bit more...
    append indent "    "
    set    sep    "    "

    # Get the commands in the category, preliminary formatting
    # (labels, descriptions).

    foreach def [lsort -dict -unique [dict get $cmds $path]] {
	lassign $def syntax desc
	lappend names $syntax
	lappend descs $desc
    }
    set labels [cmdr util padr $names]

    # With the padding all labels are the same length. We can
................................................................................
		      -strictlength 1]
	set desc [textutil::adjust::indent $desc $blank 1]

	lappend lines $indent$label$sep$desc
    }

    lappend lines {}
    if {![dict exists $subc $path]} return

    # Print the sub-categories, if any.
    foreach c [lsort -dict -unique [dict get $subc $path]] {
	ShowCategory $width lines [linsert $path end $c] $indent
    }
    return
}

# # ## ### ##### ######## ############# #####################
## Common utility commands.