Tools__NewSystemBrowser.st
changeset 17662 5f07d8b53093
parent 17627 065f07135d35
child 17691 8c9f399ca8e9
--- a/Tools__NewSystemBrowser.st	Fri Sep 01 14:26:14 2017 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Sep 01 14:26:24 2017 +0200
@@ -29931,7 +29931,7 @@
 
     |fileBrowser dir fn|
 
-    fileBrowser := UserPreferences fileBrowserClass.
+    fileBrowser := FileBrowser default.
 
     dir := aClass theNonMetaclass packageDirectory.
     (dir asFilename exists and:[(fn := dir / 'resources') exists]) ifTrue:[
@@ -29941,6 +29941,7 @@
     ]
 
     "Created: / 25-11-2016 / 15:05:01 / cg"
+    "Modified: / 01-09-2017 / 14:06:06 / cg"
 !
 
 browseClassesPackageDirectoryOf:aClassOrMeta
@@ -29955,7 +29956,7 @@
         ^ self.
     ].
     
-    fileBrowser := UserPreferences fileBrowserClass.
+    fileBrowser := FileBrowser default.
 
     dir := aClass theNonMetaclass packageDirectory.
     dir isNil ifTrue:[
@@ -29972,7 +29973,7 @@
     ]
 
     "Created: / 25-11-2016 / 15:06:05 / cg"
-    "Modified: / 24-02-2017 / 16:54:27 / cg"
+    "Modified: / 01-09-2017 / 14:06:10 / cg"
 !
 
 checkCompilabilityOf:aClass errorsOnly:errorsOnly notify:warningCollector reportFailedMethodsInto:aBlock
@@ -30680,8 +30681,10 @@
         self warn:'No resource files'.
     ].
     files do:[:eachFile |
-        UserPreferences fileBrowserClass openOn:eachFile
-    ].
+        FileBrowser default openOn:eachFile
+    ].
+
+    "Modified: / 01-09-2017 / 14:06:15 / cg"
 !
 
 classMenuExcludeFromProject
@@ -37131,12 +37134,13 @@
     ].
 
     browseFile ifTrue:[
-        UserPreferences fileBrowserClass openOn:generatedPatchFilename
+        FileBrowser default openOn:generatedPatchFilename
     ].
 
     "Created: / 26-09-2012 / 15:13:07 / cg"
     "Modified: / 17-01-2014 / 11:55:51 / sr"
     "Modified: / 07-03-2017 / 12:43:34 / stefan"
+    "Modified: / 01-09-2017 / 14:06:20 / cg"
 !
 
 doCompareClassesWithRepository:collectionOfClasses
@@ -41730,8 +41734,10 @@
 projectMenuBrowsePackageDirectory
     "open a filebrowser in the package directory"
 
-    UserPreferences fileBrowserClass
+    FileBrowser default
         openIn:(self theSingleSelectedProject asPackageId packageDirectory)
+
+    "Modified: / 01-09-2017 / 14:06:23 / cg"
 !
 
 projectMenuBuild