--- a/Tools__NewSystemBrowser.st	Thu Jun 21 09:12:07 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Jun 21 14:42:44 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -16641,7 +16643,7 @@
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
-            enabled: hasSingleProjectOrProjectDefinitionSelected
+            enabled: hasApplicationProjectOrDefinitionSelected
             label: 'modules.stx'
             itemValue: projectMenuShowGeneratedBuildFile:usingManager:
             translateLabel: false
@@ -16681,6 +16683,7 @@
       )
 
     "Modified: / 24-02-2017 / 11:58:06 / cg"
+    "Modified: / 21-06-2018 / 14:30:31 / Stefan Vogel"
 !
 
 projectMenuSCMExtra_CVS
@@ -21660,6 +21663,15 @@
     "Created: / 4.2.2000 / 22:02:53 / cg"
 !
 
+hasApplicationDefinitionSelected
+    ^ self selectedClassesValue contains:[:cls | 
+            cls theNonMetaclass isProjectDefinition 
+            and:[cls theNonMetaclass isApplicationDefinition]
+        ]
+
+    "Created: / 21-06-2018 / 14:21:33 / Stefan Vogel"
+!
+
 hasApplicationOrHTTPServiceClassSelectedHolder
     ^ [
         (self hasApplicationClassSelected
@@ -21670,6 +21682,19 @@
     "Created: / 04-02-2000 / 22:02:53 / cg"
 !
 
+hasApplicationProjectOrDefinitionSelected
+    |defClass|
+
+    ^ self hasApplicationDefinitionSelected 
+      or:[
+        self hasSingleProjectSelected 
+            and:[(defClass := ProjectDefinition definitionClassForPackage:self theSingleSelectedProject) isProjectDefinition
+            and:[defClass isApplicationDefinition]]
+      ].
+
+    "Created: / 21-06-2018 / 14:30:12 / Stefan Vogel"
+!
+
 hasAtMostOneClassesSelected
     ^ self selectedClassesValue size <= 1
 
@@ -48730,7 +48755,7 @@
     dummyChangeSet := ChangeSet new addAll:previousMethods; yourself.
     dummyChangeSet reverse.  "/ youngest first.
     browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet.
-    browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
+    browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
     browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[].
     browser readOnly:true.
 
@@ -48957,7 +48982,7 @@
 
         self activityNotification:nil.
         browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods.
-        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
+        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
         browser readOnly:true.
     ].
 
@@ -53605,7 +53630,7 @@
             label:[:chg | 
                 |lbl|
                 "/ lbl := chg printString
-                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
+                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
                 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
                     lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
                 ].