[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
|