#UI_ENHANCEMENT by cg
class: Tools::NewSystemBrowser
changed:
#flyByHelpSpec
#methodTemplate
--- 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