equal
deleted
inserted
replaced
52 LastClassSearchBoxShowedJavaOnly LastRemoteRepository |
52 LastClassSearchBoxShowedJavaOnly LastRemoteRepository |
53 LastClassDocDirectory DefaultShowCoverage LastLintedPackage |
53 LastClassDocDirectory DefaultShowCoverage LastLintedPackage |
54 LastSearchedImplementors LastSearchedSenders |
54 LastSearchedImplementors LastSearchedSenders |
55 LastComparedClassName SkipCompilabilityChecksForFastCheckin |
55 LastComparedClassName SkipCompilabilityChecksForFastCheckin |
56 DefaultShowImageResourceMethodsImages LastShowSelectorNameFilter |
56 DefaultShowImageResourceMethodsImages LastShowSelectorNameFilter |
57 LastShowNameFilter' |
57 LastShowNameFilter AutoCreateDocumentationMethod' |
58 poolDictionaries:'' |
58 poolDictionaries:'' |
59 category:'Interface-Browsers-New' |
59 category:'Interface-Browsers-New' |
60 ! |
60 ! |
61 |
61 |
62 ListEntry subclass:#OwnershipGraph |
62 ListEntry subclass:#OwnershipGraph |
26162 "searches for classes with either no documentation method, |
26162 "searches for classes with either no documentation method, |
26163 or where the documentation method includes the string 'documentation to be added'" |
26163 or where the documentation method includes the string 'documentation to be added'" |
26164 |
26164 |
26165 |searchBlock| |
26165 |searchBlock| |
26166 |
26166 |
26167 searchBlock := [ |
26167 searchBlock := |
26168 self findClassesForWhich:[:cls | |
26168 [ |
26169 |m| |
26169 self findClassesForWhich:[:cls | |
26170 |
26170 |m| |
26171 (m := cls theMetaclass compiledMethodAt:#documentation) notNil |
26171 |
26172 and:[ (( m source ? '') includesString:'documentation to be added' caseSensitive:false) |
26172 (m := cls theMetaclass compiledMethodAt:#documentation) notNil |
26173 and:[ "self halt." true ]] |
26173 and:[ (( m source ? '') includesString:'documentation to be added' caseSensitive:false) |
26174 ]. |
26174 and:[ "self halt." true ]] |
26175 ]. |
26175 ]. |
|
26176 ]. |
26176 |
26177 |
26177 self spawnClassBrowserForSearch:searchBlock sortBy:nil in:#newBuffer label:'Classes with documentation to be added' |
26178 self spawnClassBrowserForSearch:searchBlock sortBy:nil in:#newBuffer label:'Classes with documentation to be added' |
|
26179 |
|
26180 "Modified (format): / 29-11-2017 / 14:05:34 / cg" |
26178 ! |
26181 ! |
26179 |
26182 |
26180 browseMenuClassesWithFilter:aFilterBlock label:aLabelString |
26183 browseMenuClassesWithFilter:aFilterBlock label:aLabelString |
26181 |searchBlock| |
26184 |searchBlock| |
26182 |
26185 |
62749 notifying:nil |
62752 notifying:nil |
62750 ignoreErrors:true |
62753 ignoreErrors:true |
62751 ignoreWarnings:true |
62754 ignoreWarnings:true |
62752 inNameSpace:nil. |
62755 inNameSpace:nil. |
62753 parser nextToken. |
62756 parser nextToken. |
62754 (rslt class implements:#documentation) ifFalse:[ |
62757 AutoCreateDocumentationMethod == true ifTrue:[ |
62755 comment := (parser comments collect:[:c | c string]) asStringCollection asString. |
62758 (rslt class implements:#documentation) ifFalse:[ |
62756 (comment includesString:'no comment') ifFalse:[ |
62759 comment := (parser comments collect:[:c | c string]) asStringCollection asString. |
62757 (comment includesString:'the above text has been extracted') ifFalse:[ |
62760 (comment includesString:'no comment') ifFalse:[ |
62758 (comment includesString:'the empty string arguments by true values') ifFalse:[ |
62761 (comment includesString:'the above text has been extracted') ifFalse:[ |
62759 rslt class |
62762 (comment includesString:'the empty string arguments by true values') ifFalse:[ |
62760 compile:'documentation\"' withCRs,comment,'"' |
62763 rslt class |
62761 classified:'documentation'. |
62764 compile:'documentation\"' withCRs,comment,'"' |
|
62765 classified:'documentation'. |
|
62766 ] |
62762 ] |
62767 ] |
62763 ] |
62768 ] |
62764 ] |
62769 ]. |
62765 ]. |
62770 ]. |
62766 self switchToClass:rslt. |
62771 self switchToClass:rslt. |
62767 "/ self switchToClassNamed:rslt name. |
62772 "/ self switchToClassNamed:rslt name. |
62768 returnValue := true. |
62773 returnValue := true. |
62769 ] ifFalse:[ |
62774 ] ifFalse:[ |
62788 |
62793 |
62789 self codeAspect:SyntaxHighlighter codeAspectClassDefinition. |
62794 self codeAspect:SyntaxHighlighter codeAspectClassDefinition. |
62790 ^ returnValue |
62795 ^ returnValue |
62791 |
62796 |
62792 "Created: / 13-02-2000 / 22:43:59 / cg" |
62797 "Created: / 13-02-2000 / 22:43:59 / cg" |
62793 "Modified: / 22-07-2013 / 13:47:45 / cg" |
|
62794 "Modified: / 04-08-2013 / 03:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
62798 "Modified: / 04-08-2013 / 03:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
62799 "Modified: / 29-11-2017 / 14:05:08 / cg" |
62795 ! |
62800 ! |
62796 |
62801 |
62797 doAcceptClassDefinition:theCode usingCompiler:aCompilerClass |
62802 doAcceptClassDefinition:theCode usingCompiler:aCompilerClass |
62798 "tell the codeView what to do on accept. |
62803 "tell the codeView what to do on accept. |
62799 Return false, if NOT accepted (i.e. compilation canceled)" |
62804 Return false, if NOT accepted (i.e. compilation canceled)" |
63110 |
63115 |
63111 self setAcceptActionForMetaClassUsed:nil |
63116 self setAcceptActionForMetaClassUsed:nil |
63112 ! |
63117 ! |
63113 |
63118 |
63114 setAcceptActionForClassComment |
63119 setAcceptActionForClassComment |
63115 "tell the codeView what to do on accept" |
63120 "tell the codeView what to do on accept, when a class comment is being shown" |
63116 |
63121 |
63117 |currentClass| |
63122 |currentClass| |
63118 |
63123 |
63119 currentClass := self theSingleSelectedClass. |
63124 currentClass := self theSingleSelectedClass. |
63120 (currentClass isNil |
63125 (currentClass isNil |
63126 ]. |
63131 ]. |
63127 |
63132 |
63128 self setAcceptAction:[:theCode | self doAcceptClassComment:theCode]. |
63133 self setAcceptAction:[:theCode | self doAcceptClassComment:theCode]. |
63129 |
63134 |
63130 "Modified: / 10-11-2006 / 17:14:28 / cg" |
63135 "Modified: / 10-11-2006 / 17:14:28 / cg" |
|
63136 "Modified (comment): / 29-11-2017 / 14:07:05 / cg" |
63131 ! |
63137 ! |
63132 |
63138 |
63133 setAcceptActionForJavaClass |
63139 setAcceptActionForJavaClass |
63134 "tell the codeView what to do on accept and explain" |
63140 "tell the codeView what to do on accept and explain" |
63135 |
63141 |
63238 |
63244 |
63239 self setAcceptAction:[:code | self window beep]. |
63245 self setAcceptAction:[:code | self window beep]. |
63240 ! |
63246 ! |
63241 |
63247 |
63242 setAcceptActionForProjectComment |
63248 setAcceptActionForProjectComment |
63243 "tell the codeView what to do on accept" |
63249 "tell the codeView what to do on accept, when a project comment is being shown" |
63244 |
63250 |
63245 self |
63251 self |
63246 setAcceptAction:[:code | |
63252 setAcceptAction:[:code | |
63247 |package project codeLines| |
63253 |package project codeLines| |
63248 |
63254 |
63261 ]. |
63267 ]. |
63262 ]. |
63268 ]. |
63263 ]. |
63269 ]. |
63264 |
63270 |
63265 "Modified: / 25-11-2017 / 13:19:32 / cg" |
63271 "Modified: / 25-11-2017 / 13:19:32 / cg" |
|
63272 "Modified (comment): / 29-11-2017 / 14:06:32 / cg" |
63266 ! |
63273 ! |
63267 |
63274 |
63268 setDoitActionForClass |
63275 setDoitActionForClass |
63269 "tell the codeView what to do on doIt" |
63276 "tell the codeView what to do on doIt" |
63270 |
63277 |