Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.434.mcz

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

Name: Tools-fbs.434
Author: fbs
Time: 3 January 2013, 8:30:01.897 pm
UUID: ca7203ee-5227-4b9e-afe9-4fc7b1a5a8cd
Ancestors: Tools-cwp.433

Pulling these bits out makes new kinds of Browsers able to partially override behaviour.

=============== Diff against Tools-cwp.433 ===============

Item was changed:
  ----- Method: Browser>>contents (in category 'accessing') -----
  contents
  	"Depending on the current selection, different information is retrieved.
  	Answer a string description of that information. This information is the
  	method of the currently selected class and message."
  
  	| comment theClass latestCompiledMethod |
  	latestCompiledMethod := currentCompiledMethod.
  	currentCompiledMethod := nil.
  
  	editSelection == #newTrait
  		ifTrue: [^ClassDescription newTraitTemplateIn: self selectedSystemCategory].
  	editSelection == #none ifTrue: [^ ''].
  	editSelection == #editSystemCategories 
  		ifTrue: [^ systemOrganizer printString].
  	editSelection == #newClass 
+ 		ifTrue: [^ self newClassContents].
- 		ifTrue: [^ (theClass := self selectedClass)
- 			ifNil:
- 				[Class template: self selectedSystemCategory]
- 			ifNotNil:
- 				[Class templateForSubclassOf: theClass category: self selectedSystemCategory]].
  	editSelection == #editClass 
  		ifTrue: [^self classDefinitionText].
  	editSelection == #editComment 
  		ifTrue:
  			[(theClass := self selectedClass) ifNil: [^ ''].
  			comment := theClass comment.
  			currentCompiledMethod := theClass organization commentRemoteStr.
  			^ comment size = 0
  				ifTrue: ['This class has not yet been commented.']
  				ifFalse: [comment]].
  	editSelection == #hierarchy 
  		ifTrue: [^self selectedClassOrMetaClass printHierarchy].
  	editSelection == #editMessageCategories 
  		ifTrue: [^ self classOrMetaClassOrganizer printString].
  	editSelection == #newMessage
  		ifTrue:
  			[^ (theClass := self selectedClassOrMetaClass) 
  				ifNil: ['']
  				ifNotNil: [theClass sourceCodeTemplate]].
  	editSelection == #editMessage
  		ifTrue:
  			[^ self editContentsWithDefault:
  				[currentCompiledMethod := latestCompiledMethod.
  				self selectedMessage]].
  
  	self error: 'Browser internal error: unknown edit selection.'!

Item was added:
+ ----- Method: Browser>>newClassContents (in category 'accessing') -----
+ newClassContents
+ 	| theClass |
+ 	^ (theClass := self selectedClass)
+ 		ifNil:
+ 			[Class template: self selectedSystemCategory]
+ 		ifNotNil:
+ 			[Class templateForSubclassOf: theClass category: self selectedSystemCategory]!