cmdr
Check-in [e8833211e0]
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:Fixed bug in lappend for common blocks. Was not appending, but overwriting with last :(
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e8833211e0859b6f56af1c69b270c2f2c01e8bb9
User & Date: andreask 2013-10-16 17:06:36
Context
2013-10-16
19:20
Extended DSL for privates with command to record category/section information for help. Extended the help system with a by-category format, and made it default when not looking for a specific command. ATTENTION: The API between help core and formats did change, the root actor of the command tree is now supplied. New common block *category-order* to declare a bespoke ordering of categories. check-in: 465f1bd7c6 user: andreask tags: trunk
17:06
Fixed bug in lappend for common blocks. Was not appending, but overwriting with last :( check-in: e8833211e0 user: andreask tags: trunk
2013-10-15
23:46
Tweaked the auto-help command. Default to full format only when asking for a specific command, otherwise default to a simple list. check-in: f4a5130c2e user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to actor.tcl.

169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
	return
    }

    method lappend {key data} {
	debug.cmdr/actor {}
	catch { set value [my get $key] }
	lappend value $data
	dict set mystore $key $data
	return
    }

    method unset {key} {
	debug.cmdr/actor {}
	dict unset mystore $key
	return







|







169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
	return
    }

    method lappend {key data} {
	debug.cmdr/actor {}
	catch { set value [my get $key] }
	lappend value $data
	dict set mystore $key $value
	return
    }

    method unset {key} {
	debug.cmdr/actor {}
	dict unset mystore $key
	return