From 7e1a116d2b79aaf80884b09ba924ed12f6032a45 Mon Sep 17 00:00:00 2001 From: Enzo-Demeulenaere Date: Tue, 4 Feb 2025 11:52:21 +0100 Subject: [PATCH] forcing fileSystem pointing to correct fileSystem --- src/NewTools-FileBrowser/StDirectoryTreePresenter.class.st | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/NewTools-FileBrowser/StDirectoryTreePresenter.class.st b/src/NewTools-FileBrowser/StDirectoryTreePresenter.class.st index d9940cdc..0bd2c62b 100644 --- a/src/NewTools-FileBrowser/StDirectoryTreePresenter.class.st +++ b/src/NewTools-FileBrowser/StDirectoryTreePresenter.class.st @@ -56,6 +56,11 @@ StDirectoryTreePresenter >> expandPath: aFileLocator [ Smalltalk os isWindows ifTrue: [ currentNode := currentNode asFileReference parent. aPathForSpec := OrderedCollection new ]. + + "This code is (a certainly wrong) way to ensure the treeNavigationPresenter widget points to the right fileSystem (that could be a MemoryStore) as it search for roots of the disk and doesn't allow to check in a MemoryStore " + "(currentNode fileReference fileSystem = aFileLocator fileSystem) + ifFalse: [ directoryTreePresenter roots: { StRootDirectoryWrapper on: aFileLocator fileSystem root }. + currentNode fileReference: aFileLocator ]." path do: [ :aPart | | subdirs |