cmdr
Check-in [febbd538cd]
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 tclconference@googlegroups.com
or submit via the online form by Sep 9.

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

Overview
Comment:Fix oops.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:febbd538cd95a584bb3b53bde1a867a7fa460b21
User & Date: andreask 2014-08-26 19:58:09
Context
2014-08-26
20:56
Fix another oops. check-in: db22847a09 user: andreask tags: trunk
19:58
Fix oops. check-in: febbd538cd user: andreask tags: trunk
19:45
Make handling of shared options official. check-in: fc97d9c23b user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to help.tcl.

541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
	set n 0
	foreach c $categories {
	    dict set map $c $n
	    incr n -10
	}
	# Special treatment of generated categories, move to end.
	set end -10000
	foreach $c generated {
	    if {$c ni $categories} continue
	    dict set map $c $end
	    incr end -10000
	}
	# Overwrite natural with custom ordering.
	dict for {c n} [$root get *category-order*] {
	    if {$c ni $categories} continue







|







541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
	set n 0
	foreach c $categories {
	    dict set map $c $n
	    incr n -10
	}
	# Special treatment of generated categories, move to end.
	set end -10000
	foreach c $generated {
	    if {$c ni $categories} continue
	    dict set map $c $end
	    incr end -10000
	}
	# Overwrite natural with custom ordering.
	dict for {c n} [$root get *category-order*] {
	    if {$c ni $categories} continue