Bert Freudenberg uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-bf.369.mcz

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

Name: Tools-bf.369
Author: bf
Time: 25 July 2011, 1:53:10.449 pm
UUID: 5a6e4b62-4914-406e-b5e2-71f2be15e8cd
Ancestors: Tools-btc.368

If the user changes a class comment in the SystemBrowser's annotation pane, make it do what the user expects. See http://stackoverflow.com/questions/6802798

=============== Diff against Tools-btc.368 ===============

Item was added:
+ ----- Method: Browser>>annotation: (in category 'annotation') -----
+ annotation: aText 
+ 	"The user accepted aText in our annotation pane"
+ 	| theClass |
+ 	(theClass := self selectedClass) ifNil: [^false].
+ 	self editSelection == #editClass
+ 		ifTrue: [
+ 			self stripNaggingAttributeFromComment: aText.
+ 			theClass comment: aText stamp: Utilities changeStamp.
+ 			self changed: #classCommentText.
+ 			^ true].
+ 	^ false
+ !

Item was added:
+ ----- Method: Browser>>stripNaggingAttributeFromComment: (in category 'class comment pane') -----
+ stripNaggingAttributeFromComment: aText
+ 	^aText removeAttribute: TextColor red from: 1 to: aText size!

Item was added:
+ ----- Method: CodeHolder>>acceptAnnotation: (in category 'annotation') -----
+ acceptAnnotation: aString 
+ 	"The user accepted aString in our annotion pane.  Return false because by default we cannot edit annotations"
+ 	^ false
+ !

Item was added:
+ ----- Method: CodeHolder>>annotation: (in category 'annotation') -----
+ annotation: aString 
+ 	"The user accepted aString in our annotation pane.  Return false because by default we cannot edit annotations"
+ 	^ false
+ !

Item was changed:
  ----- Method: CodeHolder>>buildCodePaneWith: (in category 'toolbuilder') -----
  buildCodePaneWith: builder
  	| textSpec top buttonSpec annoSpec |
  	self wantsOptionalButtons ifTrue: [
  		top := builder pluggablePanelSpec new.
  		top children: OrderedCollection new.
  		buttonSpec := self buildOptionalButtonsWith: builder.
  		buttonSpec frame: self optionalButtonsFrame.
  		top children add: buttonSpec].
  	textSpec := builder pluggableCodePaneSpec new.
  	textSpec 
  		model: self;
  		getText: #contents; 
  		setText: #contents:notifying:; 
  		selection: #contentsSelection; 
  		menu: #codePaneMenu:shifted:.
  	self wantsAnnotationPane ifTrue: [
  		top ifNil: [
  			top := builder pluggablePanelSpec new.
  			top children: OrderedCollection new].
  		annoSpec := builder pluggableInputFieldSpec new.
+ 		annoSpec model: self; getText: #annotation; setText: #annotation:. 
- 		annoSpec model: self; getText: #annotation. 
  		annoSpec frame: self annotationFrame.
  		top children add: annoSpec].
  	top ifNotNil: [
  		textSpec frame: self textFrame.
  		top children add: textSpec].
  	^top ifNil: [textSpec]!