Comment the Smalltalk Sketch methods

[hilaire]

Smalltalk sketch method could be documented by adding a comment at the top of each method of the class DrGeoSketch.
For example, by commenting:

DrGeoSketch>>Point:
point: aPointOrBlock
"Create a new point defined by a coordinates or a block of code.
	sketch point: 5@0.
	sketch point: [5 atRandom @ (10 atRandom - 5)]"
	^ aPointOrBlock isPoint 
		ifTrue:  [self finalizePoint: (DrGPointFreeItem newWith: {aPointOrBlock})]
		ifFalse: [self finalizePoint: (DrGPointBlockItem newWith: (OrderedCollection with: aPointOrBlock)	)]

Then from the Smalltalk Sketch editor, with the code autocompletion tool of the editor, the user can read the comment by pressing the keys Tab then -> :