cmdr
Check-in [98315e9657]
Not logged in

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
Context
2014-02-07
20:39
Rename "_find" to "internal_find" instead of diddling with export. check-in: a2da845671 user: andreask tags: trunk, release, release-1-1, v1.1, cmdr-1-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
Hide Diffs Unified Diffs 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]