cmdr
Check-in [eed0a736d5]
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:history - Added help for the entire ensemble. Version bumped to 0.2.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: eed0a736d517f47b6a268bda8009762669d8c2ae
User & Date: andreask 2015-11-03 17:27:51
Original Comment: cmdr::history - Added help for the entire ensemble. Version bumped to 0.2.
Context
2015-11-04
22:37
Prep work for an 1.2 release. Draft list of changes since 1.1 check-in: 76b7d37836 user: andreask tags: trunk
2015-11-03
17:27
history - Added help for the entire ensemble. Version bumped to 0.2. check-in: eed0a736d5 user: andreask tags: trunk
2015-07-15
23:31
Extended v-type "time" to accept positive integers as seconds in epoch, above iso8601 timestamps. Bumped to version 1.1 check-in: 1f24482658 user: andreask tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to history.tcl.

    84     84       debug.cmdr/history {}
    85     85       # cmdr shandler to use.
    86     86       # The actor is the officer to extend.
    87     87   
    88     88       # (***) Detect recursive entry through the extend statements
    89     89       # below. Use this to make 'history list' the default of the whole
    90     90       # history officer. And, of course, prevent infinite recursion.
           91  +    # Lastly, not leastly, add help describing the entire ensemble.
    91     92   
    92     93       if {[$actor name] eq "history"} {
    93         -	$actor learn {default list}
           94  +	$actor learn {
           95  +	    default list
           96  +	    #section Introspection {Command history}
           97  +	    description {
           98  +		Manage the command history.
           99  +	    }
          100  +	}
    94    101   	return
    95    102       }
    96    103   
    97    104       # (1) Intercept dispatch and record all user commands.
    98    105       #
    99    106       # Note how this is NOT attached to the history officer itself.
   100    107       # Execution of history management commands is not recorded in the
................................................................................
   415    422       } else {
   416    423   	return "Keep $limit entries"
   417    424       }
   418    425   }
   419    426   
   420    427   # # ## ### ##### ######## ############# #####################
   421    428   ## Ready
   422         -package provide cmdr::history 0.1
          429  +package provide cmdr::history 0.2
   423    430   return