A new version of ToolBuilder-Morphic was added to project The Inbox:
http://source.squeak.org/inbox/ToolBuilder-Morphic-jr.276.mcz==================== Summary ====================
Name: ToolBuilder-Morphic-jr.276
Author: jr
Time: 14 May 2021, 1:39:52.580866 pm
UUID: d1ad461b-3cb1-e54a-86e1-b31edc1eefe2
Ancestors: ToolBuilder-Morphic-mt.275
Allow to browse a directory that is not beneath the disk file system roots.
For example, with the FileSystem API you can create in-memory file systems. Without this change it is currently impossible to browse directories in such file systems which have their own roots.
=============== Diff against ToolBuilder-Morphic-mt.275 ===============
Item was changed:
----- Method: FileAbstractSelectionDialog>>rootDirectoryList (in category 'directory tree') -----
rootDirectoryList
"Return a list of know root directories; forms the root nodes ot the directory tree morph"
| dirList dir |
dir := FileDirectory root.
dirList := self subDirectoriesOf: dir.
dirList isEmpty ifTrue:[dirList := Array with: FileDirectory default].
+ directory ifNotNil:
+ [| current parent | current := directory.
+ [(parent := current containingDirectory) ~= dir]
+ whileTrue: [current := parent].
+ (dirList includes: current) ifFalse: [dirList := dirList, {current}]].
^dirList ,(ServerDirectory servers values) "looks odd because #servers returns the Dictionary of known servers with local names instead of the actaul server directories"!
Locked
