tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.1010.mcz
==================== Summary ====================
Name: Tools-tpr.1010 Author: tpr Time: 29 October 2020, 11:10:57.263788 am UUID: 1ef23108-8885-419e-ad82-66b42e985086 Ancestors: Tools-eem.1009
Fix a bug introduced in Tools-tpr.1008 that made window labels go away in a few cases.
=============== Diff against Tools-eem.1009 ===============
Item was changed: ----- Method: ChangedMessageSet class>>openMessageList:name:autoSelect:changeSet: (in category 'opening') ----- openMessageList: messageList name: labelString autoSelect: autoSelectString changeSet: aChangeSet | messageSet | messageSet := self messageList: messageList. messageSet changeSet: aChangeSet. + messageSet autoSelectString: autoSelectString; + setInitialLabel: labelString. + ToolBuilder open: messageSet! - messageSet autoSelectString: autoSelectString. - ToolBuilder open: messageSet label: labelString.!
Item was changed: ----- Method: MessageNames class>>openMessageNames (in category 'instance creation') ----- openMessageNames "Open a new instance of the receiver in the active world" + ^(ToolBuilder open: self new) model - ^(ToolBuilder open: self new label: 'Message Names') model
"MessageNames openMessageNames" !
Item was added: + ----- Method: MessageNames>>windowTitle (in category 'toolbuilder') ----- + windowTitle + + ^ 'Message Names'!
Item was changed: ----- Method: MessageSet class>>openMessageList:name: (in category 'instance creation') ----- + openMessageList: messageList name: labelString - openMessageList: anArray name: aString "Create a standard system view for the message set on the list, anArray. The label of the view is aString."
+ self openMessageList: messageList name: labelString autoSelect: nil! - self open: (self messageList: anArray) name: aString!
Item was changed: ----- Method: MessageSet>>windowTitle (in category 'user interface') ----- windowTitle "just return the basic label for now"
+ ^String streamContents: + [:str| str nextPutAll: windowLabel; + space; + nextPut: $[; + nextPutAll: messageList size asString; + nextPut: $] + ]! - ^windowLabel!