The Trunk: System-tpr.1186.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-tpr.1186.mcz

commits-2
tim Rowledge uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-tpr.1186.mcz

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

Name: System-tpr.1186
Author: tpr
Time: 25 October 2020, 6:04:37.06521 pm
UUID: 63e37c9d-9d2c-4164-bf71-a0452572ed62
Ancestors: System-tpr.1181, System-mt.1185

Remove the no-longer needed (mis)calculation of the window label. Accompanies Tools-tpr.1008

Hopefully this has merged correctly and won't result in chaos...

=============== Diff against System-mt.1185 ===============

Item was changed:
  ----- Method: SystemNavigation>>browseMessageList:name:autoSelect: (in category 'browse') -----
  browseMessageList: messageListOrBlock name: labelString autoSelect: autoSelectString
  "Create and schedule a MessageSet browser on the message list. If messageListOrBlock is a block, then evaluate it to get the message list."
 
+ | messageList |
- | messageList title |
  messageList := messageListOrBlock isBlock
  ifTrue: [ Cursor wait showWhile: messageListOrBlock ]
  ifFalse: [ messageListOrBlock ].
  messageList size = 0 ifTrue: [
  ^self inform: 'There are no', String cr, labelString ].
- title := messageList size > 1
- ifFalse: [ labelString ]
- ifTrue: [ labelString, ' [', messageList size printString, ']' ].
  ^ ToolSet
  browseMessageSet: messageList
+ name: labelString
- name: title
  autoSelect: autoSelectString!