class: UserPreferences
authorClaus Gittinger <cg@exept.de>
Fri, 01 Sep 2017 14:28:07 +0200
changeset 17670 bffae5eedf0f
parent 17669 cfc508cb2145
child 17671 d6f89c8049db
class: UserPreferences comment/format in: #fileBrowserClass
extensions.st
--- 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'!