Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fixed buglet in the help setup. Add the main (root) name to the command prefix when not in a cli shell. Bumped cmdr::help to version 1.0.1. |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
60dbdef1b0807df26b358590a6aa05e7 |
User & Date: | andreask 2014-01-13 21:03:16.198 |
Context
2014-01-30
| ||
18:09 | Fixed missing initialization in the main help generator. check-in: 3a146bdf51 user: andreask tags: trunk | |
2014-01-13
| ||
21:03 | Fixed buglet in the help setup. Add the main (root) name to the command prefix when not in a cli shell. Bumped cmdr::help to version 1.0.1. check-in: 60dbdef1b0 user: andreask tags: trunk | |
2013-12-18
| ||
20:29 | Fix broken requirements cmdr::help::json and *::sql. Were not updated to v1. check-in: d46922cc52 user: andreask tags: trunk | |
Changes
Changes to help.tcl.
︙ | ︙ | |||
53 54 55 56 57 58 59 | proc ::cmdr::help::query {actor words} { debug.cmdr/help {} # Resolve chain of words (command name path) to the actor # responsible for that command, starting from the specified actor. # This is very much a convenience command. | > > > > > > > > > | | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | proc ::cmdr::help::query {actor words} { debug.cmdr/help {} # Resolve chain of words (command name path) to the actor # responsible for that command, starting from the specified actor. # This is very much a convenience command. set root [$actor root] set prefix $words if {![$root exists *in-shell*] || ![$root get *in-shell*]} { # Not in the shell, put executable's name into the prefix. set prefix [linsert $prefix 0 [$root name]] } return [[query-actor $actor $words] help $prefix] } proc ::cmdr::help::query-actor {actor words} { debug.cmdr/help {} # Resolve chain of words (command name path) to the actor # responsible for that command, starting from the specified actor. # This is very much a convenience command. |
︙ | ︙ | |||
506 507 508 509 510 511 512 | return $categories } # # ## ### ##### ######## ############# ##################### ## Ready | | | 515 516 517 518 519 520 521 522 | return $categories } # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::help 1.0.1 |