[squeak-dev] The Inbox: Tools-fbs.325.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Mar 23 08:29:17 UTC 2011
A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.325.mcz
==================== Summary ====================
Name: Tools-fbs.325
Author: fbs
Time: 23 March 2011, 7:58:32.354 am
UUID: 271d729b-2c83-544f-b919-f5f0dc5bfa0c
Ancestors: Tools-fbs.324
More references to messageListIndex, and a minor classListIndex fix: use hasClassSelected.
=============== Diff against Tools-fbs.324 ===============
Item was changed:
----- Method: Browser>>messageListIndex: (in category 'message list') -----
messageListIndex: anInteger
"Set the selected message selector to be the one indexed by anInteger."
messageListIndex := anInteger.
self editSelection: (anInteger > 0
ifTrue: [#editMessage]
ifFalse: [self messageCategoryListIndex > 0
ifTrue: [#newMessage]
+ ifFalse: [self hasClassSelected
- ifFalse: [self classListIndex > 0
ifTrue: [#editClass]
ifFalse: [#newClass]]]).
contents := nil.
self changed: #messageListIndex. "update my selection"
self contentsChanged.
self decorateButtons.!
Item was changed:
----- Method: MessageSet>>contents (in category 'contents') -----
contents
"Answer the contents of the receiver"
^ contents == nil
ifTrue: [currentCompiledMethod := nil. '']
+ ifFalse: [self hasMessageSelected
+ ifTrue: [self editContents]
+ ifFalse: [currentCompiledMethod := nil. contents]]!
- ifFalse: [messageListIndex = 0
- ifTrue: [currentCompiledMethod := nil. contents]
- ifFalse: [self editContents]]!
Item was changed:
----- Method: MessageSet>>initializeMessageList: (in category 'private') -----
initializeMessageList: anArray
"Initialize my messageList from the given list of MethodReference or string objects. NB: special handling for uniclasses."
messageList := OrderedCollection new.
anArray do: [ :each |
MessageSet
parse: each
toClassAndSelector: [ :class :sel | | s |
class ifNotNil:
[class isUniClass
ifTrue:
[s := class typicalInstanceName, ' ', sel]
ifFalse:
[s := class name , ' ' , sel , ' {' ,
((class organization categoryOfElement: sel) ifNil: ['']) , '}'].
messageList add: (
MethodReference new
setClass: class
methodSymbol: sel
stringVersion: s)]]].
messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1].
+ selectedMessageName := messageList isEmpty ifTrue: [nil] ifFalse: [messageList first selector].
contents := ''!
More information about the Squeak-dev
mailing list
|