--- 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