# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1479463272 -3600
# Node ID becbe52d1c676a2dc55f944c709c758614ff2d2e
# Parent  66da66f3cb753c1b88003fca2d1be45d3f6ad303
#UI_ENHANCEMENT by cg
class: Tools::NewSystemBrowser
changed:
	#flyByHelpSpec
	#methodTemplate

diff -r 66da66f3cb75 -r becbe52d1c67 Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Fri Nov 18 10:53:03 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Fri Nov 18 11:01:12 2016 +0100
@@ -316,7 +316,7 @@
 'Launch the selected application'
 
 #packageSelectedApplication
-'Package the selected application for deployment'
+'Package the selected application or library for deployment'
 
 #runTestCases
 'Run selected testCase(s)'
@@ -382,7 +382,7 @@
     ].
     ^ spec.
 
-    "Modified: / 09-08-2012 / 09:37:10 / cg"
+    "Modified: / 18-11-2016 / 11:00:42 / cg"
 ! !
 
 !NewSystemBrowser class methodsFor:'image specs'!
@@ -46343,12 +46343,15 @@
     
     (cls notNil and:[ cls isMeta and:[(cls implements:#documentation) not]]) ifTrue:[
         self theSingleSelectedProtocol = 'documentation' ifTrue:[
+            cls theNonMetaclass isProjectDefinition ifTrue:[
+                ^ templateProvider methodTemplateForPackageDocumentation
+            ].
             ^ templateProvider methodTemplateForDocumentation
         ].    
     ].    
     ^ templateProvider methodTemplate
 
-    "Modified: / 28-02-2012 / 16:59:30 / cg"
+    "Modified: / 18-11-2016 / 10:50:35 / cg"
 !
 
 methodsPreviousVersionCode