--- a/AbstractLauncherApplication.st Mon Apr 18 01:11:58 2016 +0200
+++ b/AbstractLauncherApplication.st Tue Apr 19 17:34:04 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1997 by eXept Software AG
All Rights Reserved
@@ -7457,7 +7455,7 @@
enabled:package notNil).
m addSeparator.
m addItem:(MenuItem
- label: (resources string:'Open File Browser on Project''s Folder')
+ label: (resources string:'Open File Browser on Package''s Folder')
itemValue:
[
|dir|
@@ -7474,7 +7472,7 @@
enabled:package notNil).
m addSeparator.
m addItem:(MenuItem
- label: (resources string:'Browse Project Definition')
+ label: (resources string:'Browse Package Definition')
itemValue:
[
defClass notNil ifTrue:[
@@ -7482,6 +7480,13 @@
].
]
enabled:defClass notNil).
+ m addItem:(MenuItem
+ label: (resources string:'Browse Package')
+ itemValue:
+ [
+ Tools::NewSystemBrowser openOnPackage:package
+ ]
+ enabled:defClass notNil).
item type == #monticelloPackage ifTrue:[
m addItem:(MenuItem