[squeak-dev] The Inbox: Tools-fbs.355.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri May 13 21:43:34 UTC 2011
A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.355.mcz
==================== Summary ====================
Name: Tools-fbs.355
Author: fbs
Time: 13 May 2011, 10:42:24.712 pm
UUID: 1ad68e23-29f3-024c-b421-ecf6a12bb1ea
Ancestors: Tools-laza.354
If you're looking at a method #foo, and you don't have a message category selected, and you move classes to something that also has a #foo, keep #foo selected.
=============== Diff against Tools-laza.354 ===============
Item was changed:
----- Method: Browser>>selectClassNamed: (in category 'class list') -----
selectClassNamed: aSymbolOrString
| className currentMessageCategoryName currentMessageName |
currentMessageCategoryName := [self selectedMessageCategoryName]
on: Error
do: [:ex| ex return: nil].
currentMessageName := [self selectedMessageName]
on: Error
do: [:ex| ex return: nil].
selectedClassName := aSymbolOrString ifNotNil: [ aSymbolOrString asSymbol ].
self setClassOrganizer.
"Try to reselect the category and/or selector if the new class has them."
selectedMessageCategoryName :=(self messageCategoryList includes: currentMessageCategoryName)
ifTrue: [currentMessageCategoryName]
ifFalse: [nil].
+ selectedMessageName := currentMessageName.
- selectedMessageName := (self hasMessageCategorySelected
- ifTrue: [ currentMessageName ]
- ifFalse: [ nil ]).
self hasMessageSelected ifTrue:
[self editSelection: #editMessage] ifFalse:
[self hasMessageCategorySelected ifTrue:
[self editSelection: #newMessage] ifFalse:
[self classCommentIndicated
ifTrue: [self editSelection: #editComment]
ifFalse: [self editSelection: (self hasClassSelected not
ifTrue: [(metaClassIndicated or: [ self hasSystemCategorySelected not ])
ifTrue: [#none]
ifFalse: [#newClass]]
ifFalse: [#editClass])]]].
contents := nil.
self selectedClass isNil
ifFalse: [className := self selectedClass name.
(RecentClasses includes: className)
ifTrue: [RecentClasses remove: className].
RecentClasses addFirst: className.
RecentClasses size > 16
ifTrue: [RecentClasses removeLast]].
self changed: #classSelectionChanged.
self changed: #classCommentText.
self changed: #classListIndex. "update my selection"
self changed: #messageCategoryList.
self changed: #messageList.
self changed: #relabel.
self contentsChanged!
More information about the Squeak-dev
mailing list
|