[Pkg] The Trunk: Tools-cmm.341.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Apr 17 20:20:42 UTC 2011
Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.341.mcz
==================== Summary ====================
Name: Tools-cmm.341
Author: cmm
Time: 17 April 2011, 3:20:07.96 pm
UUID: 0c4e52aa-e8e2-4fa4-a115-f1bd35ec6667
Ancestors: Tools-ul.340
Reverted MessageSet>>messageListIndex: to fix auto-selection of search strings in MessageSets.
=============== Diff against Tools-ul.340 ===============
Item was changed:
----- Method: MessageSet>>messageListIndex: (in category 'message list') -----
+ messageListIndex: anInteger
+ "Set the index of the selected item to be anInteger."
+
- messageListIndex: anInteger
- "Set the selected message selector to be the one indexed by anInteger."
messageListIndex := anInteger.
+ contents :=
+ messageListIndex ~= 0
+ ifTrue: [self selectedMessage]
+ ifFalse: [''].
+ self changed: #messageListIndex. "update my selection"
+ self editSelection: #editMessage.
-
- self editSelection: (anInteger > 0
- ifTrue: [#editMessage]
- ifFalse: [self messageCategoryListIndex > 0
- ifTrue: [#newMessage]
- ifFalse: [self hasClassSelected
- ifTrue: [#editClass]
- ifFalse: [#newClass]]]).
- contents := ''.
- self changed: #messageListIndex. "update my selection"
self contentsChanged.
+ (messageListIndex ~= 0 and: [ autoSelectString notNil and: [ self contents notEmpty ] ]) ifTrue: [ self changed: #autoSelect ].
+ self decorateButtons
+ !
- self decorateButtons.!
More information about the Packages
mailing list