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: |
98315e9657b19f56832132cb342023b8 |
| 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
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]
|