Tools__NewSystemBrowser.st
changeset 17110 45636718d2af
parent 17101 9b91c6fa4709
child 17112 0f00fead4c89
--- 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"