[Pkg] The Trunk: Tools-fbs.437.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jan 4 22:51:24 UTC 2013

Frank Shearar uploaded a new version of Tools to project The Trunk:

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

Name: Tools-fbs.437
Author: fbs
Time: 4 January 2013, 10:50:47.752 pm
UUID: 8015c13b-9c21-4d50-83b4-79fdae8b37c0
Ancestors: Tools-fbs.436

We already have the organizer. No need to look it up again.

=============== Diff against Tools-fbs.436 ===============

Item was changed:
  ----- Method: Browser>>contents (in category 'accessing') -----
  	"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].
  	editSelection == #editClass 
  		ifTrue: [^self classDefinitionText].
  	editSelection == #editComment 
  			[(theClass := self selectedClass) ifNil: [^ ''].
  			comment := theClass comment.
+ 			currentCompiledMethod := classOrganizer commentRemoteStr.
- 			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
  			[^ (theClass := self selectedClassOrMetaClass) 
  				ifNil: ['']
  				ifNotNil: [theClass sourceCodeTemplate]].
  	editSelection == #editMessage
  			[^ self editContentsWithDefault:
  				[currentCompiledMethod := latestCompiledMethod.
  				self selectedMessage]].
  	self error: 'Browser internal error: unknown edit selection.'!

More information about the Packages mailing list