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]!
packages@lists.squeakfoundation.org