[Pkg] The Trunk: HelpSystem-Core-kks.109.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Mar 16 18:44:35 UTC 2019


Eliot Miranda uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-kks.109.mcz

==================== Summary ====================

Name: HelpSystem-Core-kks.109
Author: kks
Time: 11 March 2019, 5:53:49.057526 pm
UUID: 8af65911-c2ec-496a-ad84-87fdfb32339a
Ancestors: HelpSystem-Core-pre.108

Method topics are now linked to their definitions on both Instance and Class side. When you notice methods without comments, adding them in just one click away.

=============== Diff against HelpSystem-Core-pre.108 ===============

Item was changed:
  ----- Method: ClassAPIHelpBuilder>>buildMethodTopicsOn:for: (in category 'private building') -----
  buildMethodTopicsOn: topic for: aClass
  	
+ 	topic contents: (MethodListHelpTopic forClass: aClass) contents!
- 	topic contents: (String streamContents: [ :stream |
- 		aClass selectors sort do: [ :selector |
- 			stream 
- 				nextPutAll: aClass name;
- 				nextPutAll: '>>';
- 				nextPutAll: selector asString;
- 				cr;
- 				nextPutAll: (
- 					(aClass commentsAt: selector)
- 						at: 1
- 						ifAbsent: [ 'Method has no comment.' ]);
- 				cr; cr ] ])!

Item was changed:
  AbstractHelpTopic subclass: #MethodListHelpTopic
  	instanceVariableNames: 'theClass'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'HelpSystem-Core-Model'!
+ 
+ !MethodListHelpTopic commentStamp: 'kks 3/11/2019 17:41' prior: 0!
+ I list all the methods along with their comments in a given class with the methods linked to their definitions.!

Item was added:
+ ----- Method: MethodListHelpTopic class>>forClass: (in category 'instance creation') -----
+ forClass: aClass
+ 	"Create a new method list for a given class or metaclass.
+ 	
+ 		(MethodListHelpTopic forClass: Behavior class) contents edit
+ 	"
+ 	
+ 	^(self new)
+ 		theClass: aClass;
+ 		yourself!

Item was changed:
  ----- Method: MethodListHelpTopic>>contents (in category 'accessing') -----
  contents
+ 	^Text new in: [ :sections |
- 
- 	^ (String streamContents: [ :stream |
  		self theClass selectors sort do: [ :selector |
+ 			sections
+ 				append: (self headingFor: selector inClass: theClass);
+ 				append: Character cr;
+ 				append: ((self theClass commentsAt: selector)
- 			stream 
- 				nextPutAll: self theClass name;
- 				nextPutAll: '>>';
- 				nextPutAll: selector asString;
- 				cr;
- 				nextPutAll: (
- 					(self theClass commentsAt: selector)
  						at: 1
  						ifAbsent: [ '-' ]);
+ 				append: Character cr;
+ 				append: Character cr ].
+ 		sections]!
- 				cr; cr ] ])!

Item was added:
+ ----- Method: MethodListHelpTopic>>headingFor:inClass: (in category 'private') -----
+ headingFor: aSelector inClass: aClass
+ 	| att |
+ 	att := TextLink new classAndMethod: aClass name, '>>', aSelector.
+ 	^(Text fromString: att info) addAttribute: att.!



More information about the Packages mailing list