[squeak-dev] The Trunk: Tools-fbs.435.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jan 3 21:49:16 UTC 2013


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

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

Name: Tools-fbs.435
Author: fbs
Time: 3 January 2013, 9:48:29.766 pm
UUID: 323152c9-c77b-46ff-9412-08d9bb04a8f7
Ancestors: Tools-fbs.434

Don't use Class objects when all you care about is a name.

=============== Diff against Tools-fbs.434 ===============

Item was changed:
  ----- Method: Browser>>labelString (in category 'initialize-release') -----
  labelString
  	| label |
+ 	label := self selectedClassName
- 	label := self selectedClass
  				ifNil: [ self defaultBrowserTitle ]
+ 				ifNotNil: [ self defaultBrowserTitle, ': ', self selectedClassName asString ].
- 				ifNotNil: [ self defaultBrowserTitle, ': ', self selectedClass printString ].
  	(multiWindowState notNil
  	 and: [multiWindowState models size > 1]) ifTrue:
  		[label := (multiWindowState models indexOf: self) printString, '. ', label].
  	^label!

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



More information about the Squeak-dev mailing list