--- a/Tools__NewSystemBrowser.st Fri Nov 25 13:42:02 2016 +0100
+++ b/Tools__NewSystemBrowser.st Fri Nov 25 13:43:24 2016 +0100
@@ -8214,6 +8214,11 @@
label: 'Browse Classes Package Directory'
itemValue: classMenuBrowseClassesPackageDirectory
)
+ (MenuItem
+ enabled: hasSingleClassSelectedHolder
+ label: 'Browse Class Package''s Resource Directory'
+ itemValue: classMenuBrowseClassPackagesResourceDirectory
+ )
)
nil
nil
@@ -8472,6 +8477,8 @@
nil
nil
)
+
+ "Modified: / 25-11-2016 / 13:42:45 / cg"
!
classNewGroovyClassSlice
@@ -29658,6 +29665,24 @@
"Modified: / 28-02-2012 / 16:45:26 / cg"
!
+classMenuBrowseClassPackagesResourceDirectory
+ "open a filebrowser in the class package's resource directory"
+
+ |fileBrowser cls dir fn|
+
+ fileBrowser := UserPreferences fileBrowserClass.
+
+ cls := self theSingleSelectedClass theNonMetaclass.
+ dir := cls packageDirectory.
+ (dir asFilename exists and:[(fn := dir / 'resources') exists]) ifTrue:[
+ fileBrowser openIn:fn
+ ] ifFalse:[
+ fileBrowser openIn:dir
+ ]
+
+ "Created: / 25-11-2016 / 13:31:12 / cg"
+!
+
classMenuBrowseClassesPackageDirectory
"open a filebrowser in the classes package directory"