# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1511973892 -3600
# Node ID 971ed8beac966780274705b66359e20cfd916713
# Parent  045764df016c6bef292a91bf5e18e161bd0bae87
#DOCUMENTATION by cg
class: Tools::NewSystemBrowser
class definition
comment/format in:
	#browseMenuClassesWithDocumentationToBeAdded
	#setAcceptActionForClassComment
	#setAcceptActionForProjectComment
changed: #doAcceptClassDefinition:fullClass:usingCompiler:

diff -r 045764df016c -r 971ed8beac96 Tools__NewSystemBrowser.st
--- 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