<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: &#39;children name entry&#39;</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>classVariableNames: &#39;&#39;</div>
<div><span class="Apple-tab-span" style="white-space:pre">        </span>poolDictionaries: &#39;&#39;</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>category: &#39;Misc&#39;!</div><div><br></div><div>!DirTreeNode methodsFor: &#39;accessing&#39; stamp: &#39;jtc&#39;!</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: &#39;accessing&#39; stamp: &#39;jtc&#39;!</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: &#39;accessing&#39; stamp: &#39;jtc7&#39;!</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: &#39;accessing&#39; stamp: &#39;jtc&#39;!</div><div>getLabel</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>^ (name pathName findTokens: &#39;\&#39;) last! !</div>
<div><br></div><div>!DirTreeNode methodsFor: &#39;accessing&#39; stamp: &#39;jtc&#39;!</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: &#39;accessing&#39; stamp: &#39;jtc&#39;!</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>&quot;-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- &quot;!</div><div><br></div><div>DirTreeNode class</div>
<div><span class="Apple-tab-span" style="white-space:pre">        </span>instanceVariableNames: &#39;&#39;!</div><div><br></div><div>!DirTreeNode class methodsFor: &#39;instance creation&#39; stamp: &#39;jtc&#39;!</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>