cmdr
Check-in [98315e9657]
Not logged in
Myself Home DocumentationDownloads Tickets | Timeline Branches Tags Wiki Login

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

Overview
Comment:Oops. Have to export method "_find" for proper operation (in the recursion).
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 98315e9657b19f56832132cb342023b87151ba9d
User & Date: andreask 2014-02-07 18:23:39.542
Context
2014-02-07
20:39
Rename "_find" to "internal_find" instead of diddling with export. check-in: a2da845671 user: andreask tags: cmdr-1-1, release, release-1-1, trunk, v1.1
18:23
Oops. Have to export method "_find" for proper operation (in the recursion). check-in: 98315e9657 user: andreask tags: trunk
2014-02-06
18:35
Regenerated embedded docs. check-in: 2659fd6b13 user: aku tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to officer.tcl.
︙︙
140
141
142
143
144
145
146

147
148
149
150
151
152
153

	# responsible for that command, starting from the current
	# actor.  This is very much a convenience method built on top
	# of lookup (see above).

	my _find $words {}
    }


    method _find {words prefix} {
	if {![llength $words]} {
	    return [self]
	}

	set word [lindex $words 0]
	if {[llength $words] <= 1} {








>








140
141
142
143
144
145
146
147
148
149
150
151
152
153
154

	# responsible for that command, starting from the current
	# actor.  This is very much a convenience method built on top
	# of lookup (see above).

	my _find $words {}
    }

    export _find
    method _find {words prefix} {
	if {![llength $words]} {
	    return [self]
	}

	set word [lindex $words 0]
	if {[llength $words] <= 1} {
︙︙
Changes to private.tcl.
︙︙
70
71
72
73
74
75
76

77
78
79
80
81
82
83


    # # ## ### ##### ######## #############

    method find {words} {
	my _find $words {}
    }


    method _find {words prefix} {
	if {![llength $words]} {
	    return [self]
	}
	# Privates do not have subordinates to look up.
	# We now have a bad command name argument to help.
	set word  [lindex $words 0]








>








70
71
72
73
74
75
76
77
78
79
80
81
82
83
84


    # # ## ### ##### ######## #############

    method find {words} {
	my _find $words {}
    }

    export _find
    method _find {words prefix} {
	if {![llength $words]} {
	    return [self]
	}
	# Privates do not have subordinates to look up.
	# We now have a bad command name argument to help.
	set word  [lindex $words 0]
︙︙