#DOCUMENTATION by cg
class: Tools::NewSystemBrowser
class definition
comment/format in:
#browseMenuClassesWithDocumentationToBeAdded
#setAcceptActionForClassComment
#setAcceptActionForProjectComment
changed: #doAcceptClassDefinition:fullClass:usingCompiler:
--- a/Tools__NewSystemBrowser.st Wed Nov 29 12:27:33 2017 +0100
+++ b/Tools__NewSystemBrowser.st Wed Nov 29 17:44:52 2017 +0100
@@ -54,7 +54,7 @@
LastSearchedImplementors LastSearchedSenders
LastComparedClassName SkipCompilabilityChecksForFastCheckin
DefaultShowImageResourceMethodsImages LastShowSelectorNameFilter
- LastShowNameFilter'
+ LastShowNameFilter AutoCreateDocumentationMethod'
poolDictionaries:''
category:'Interface-Browsers-New'
!
@@ -26164,17 +26164,20 @@
|searchBlock|
- searchBlock := [
- self findClassesForWhich:[:cls |
- |m|
-
- (m := cls theMetaclass compiledMethodAt:#documentation) notNil
- and:[ (( m source ? '') includesString:'documentation to be added' caseSensitive:false)
- and:[ "self halt." true ]]
- ].
- ].
+ searchBlock :=
+ [
+ self findClassesForWhich:[:cls |
+ |m|
+
+ (m := cls theMetaclass compiledMethodAt:#documentation) notNil
+ and:[ (( m source ? '') includesString:'documentation to be added' caseSensitive:false)
+ and:[ "self halt." true ]]
+ ].
+ ].
self spawnClassBrowserForSearch:searchBlock sortBy:nil in:#newBuffer label:'Classes with documentation to be added'
+
+ "Modified (format): / 29-11-2017 / 14:05:34 / cg"
!
browseMenuClassesWithFilter:aFilterBlock label:aLabelString
@@ -62751,17 +62754,19 @@
ignoreWarnings:true
inNameSpace:nil.
parser nextToken.
- (rslt class implements:#documentation) ifFalse:[
- comment := (parser comments collect:[:c | c string]) asStringCollection asString.
- (comment includesString:'no comment') ifFalse:[
- (comment includesString:'the above text has been extracted') ifFalse:[
- (comment includesString:'the empty string arguments by true values') ifFalse:[
- rslt class
- compile:'documentation\"' withCRs,comment,'"'
- classified:'documentation'.
+ AutoCreateDocumentationMethod == true ifTrue:[
+ (rslt class implements:#documentation) ifFalse:[
+ comment := (parser comments collect:[:c | c string]) asStringCollection asString.
+ (comment includesString:'no comment') ifFalse:[
+ (comment includesString:'the above text has been extracted') ifFalse:[
+ (comment includesString:'the empty string arguments by true values') ifFalse:[
+ rslt class
+ compile:'documentation\"' withCRs,comment,'"'
+ classified:'documentation'.
+ ]
]
]
- ]
+ ].
].
self switchToClass:rslt.
"/ self switchToClassNamed:rslt name.
@@ -62790,8 +62795,8 @@
^ returnValue
"Created: / 13-02-2000 / 22:43:59 / cg"
- "Modified: / 22-07-2013 / 13:47:45 / cg"
"Modified: / 04-08-2013 / 03:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 29-11-2017 / 14:05:08 / cg"
!
doAcceptClassDefinition:theCode usingCompiler:aCompilerClass
@@ -63112,7 +63117,7 @@
!
setAcceptActionForClassComment
- "tell the codeView what to do on accept"
+ "tell the codeView what to do on accept, when a class comment is being shown"
|currentClass|
@@ -63128,6 +63133,7 @@
self setAcceptAction:[:theCode | self doAcceptClassComment:theCode].
"Modified: / 10-11-2006 / 17:14:28 / cg"
+ "Modified (comment): / 29-11-2017 / 14:07:05 / cg"
!
setAcceptActionForJavaClass
@@ -63240,7 +63246,7 @@
!
setAcceptActionForProjectComment
- "tell the codeView what to do on accept"
+ "tell the codeView what to do on accept, when a project comment is being shown"
self
setAcceptAction:[:code |
@@ -63263,6 +63269,7 @@
].
"Modified: / 25-11-2017 / 13:19:32 / cg"
+ "Modified (comment): / 29-11-2017 / 14:06:32 / cg"
!
setDoitActionForClass