[Seaside] WATree

[William Harford]

I am having a little trouble with WATree. I feel like I am doing  
something obviously wrong but I can not figure it out.

I am trying to get WATree to give me a directory listing with the  
ability to download the files. I have been able to get it to work on  
the first level of the tree but none of the subdirectories will  
expand.  I click the "+" and the page reloades but the "+" stays a  
"+" and the tree does not expand.

I am using WATree like so ....


tree _ WATree new.
tree labelBlock: [ :dir | dir localName ].
tree root: (FileDirectory on: (self extraFilesPath));	
	childrenBlock: [ :dir | |d |
			
			( dir isKindOf:FileStream ) ifTrue:[
				#()
			]ifFalse:[
			((FileDirectory on:(dir fullName)) entries) collect:[:de |
				( de at: 4 ) ifTrue:[
					d _ dir directoryNamed:  ( de at: 1 ).
				] ifFalse:[
					d _ dir fileNamed:  ( de at: 1 ).
					
				].
				d.
		]]
		];
		selectBlock: [:file |
			self session download: (file file contents)
			mimeType: ('application/octet-stream')
			filename: (file name). ];
		canSelectBlock: [ :file | file isKindOf:FileStream].


Why do subdirectories not expand ?

Thanks
Will