#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Fri, 18 Nov 2016 11:01:12 +0100
changeset 17081 becbe52d1c67
parent 17080 66da66f3cb75
child 17082 f467b7bbb88c
#UI_ENHANCEMENT by cg class: Tools::NewSystemBrowser changed: #flyByHelpSpec #methodTemplate
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