--- a/extensions.st Fri Sep 01 14:27:21 2017 +0200
+++ b/extensions.st Fri Sep 01 14:28:07 2017 +0200
@@ -2645,21 +2645,25 @@
!UserPreferences methodsFor:'accessing-pref''d tools'!
fileBrowserClass
+ "the class to be used for file browsing
+ (used to be the simple FileBrowser, but is now the FileBrowserV2)"
+
| class className |
className := self at: #fileBrowserClassName ifAbsent:[nil].
className notNil ifTrue:[
- class := Smalltalk at: className asSymbol.
- class notNil ifTrue:[ ^ class ].
+ class := Smalltalk at: className asSymbol.
+ class notNil ifTrue:[ ^ class ].
].
"/ Old code
self useNewFileBrowser ifTrue:[
- ^ (FileBrowserV2 ? FileBrowser)
+ ^ (FileBrowserV2 ? FileBrowser)
].
^ FileBrowser
"Modified: / 03-04-2012 / 10:59:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 01-09-2017 / 14:02:29 / cg"
! !
!UserPreferences methodsFor:'accessing-pref''d tools'!