<div>Tim, I believe something as simple as the class below would solve your problem without modifying the WATree implementation (much simpler than bending <span class="Apple-style-span" style="font-family: monospace; font-size: medium; white-space: pre; ">CFIleDirectoryTreeItems to your will)</span>:</div>
<div><br></div><div><br></div><div>Object subclass: #DirTreeNode</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>instanceVariableNames: 'children name entry'</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>classVariableNames: ''</div>
<div><span class="Apple-tab-span" style="white-space:pre">        </span>poolDictionaries: ''</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>category: 'Misc'!</div><div><br></div><div>!DirTreeNode methodsFor: 'accessing' stamp: 'jtc'!</div>
<div>children</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>self isLeaf ifTrue: [ ^ nil ].</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>children</div><div>
<span class="Apple-tab-span" style="white-space:pre">                </span>ifNil: [</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>children := OrderedCollection new.</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>name entries do: [ :entry |</div>
<div><span class="Apple-tab-span" style="white-space:pre">                                </span>children add: ((self class on: entry fullName) entry: entry) ]</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>].</div><div><br>
</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>^ children! !</div><div><br></div><div>!DirTreeNode methodsFor: 'accessing' stamp: 'jtc'!</div><div>entry</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>^ entry! !</div>
<div><br></div><div>!DirTreeNode methodsFor: 'accessing' stamp: 'jtc7'!</div><div>entry: e</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>entry := e! !</div><div><br>
</div><div>!DirTreeNode methodsFor: 'accessing' stamp: 'jtc'!</div><div>getLabel</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>^ (name pathName findTokens: '\') last! !</div>
<div><br></div><div>!DirTreeNode methodsFor: 'accessing' stamp: 'jtc'!</div><div>isLeaf</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>entry ifNil: [ ^ false ].</div>
<div><span class="Apple-tab-span" style="white-space:pre">        </span>^ self entry isDirectory not! !</div><div><br></div><div>!DirTreeNode methodsFor: 'accessing' stamp: 'jtc'!</div><div>name: n</div><div><br>
</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>name := n! !</div><div><br></div><div>"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!</div><div><br></div><div>DirTreeNode class</div>
<div><span class="Apple-tab-span" style="white-space:pre">        </span>instanceVariableNames: ''!</div><div><br></div><div>!DirTreeNode class methodsFor: 'instance creation' stamp: 'jtc'!</div><div>on: pathString</div>
<div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>^ self new</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>name: (FileDirectory on: pathString)! !</div><div><br></div>