[squeak-dev] The Trunk: Tools-tpr.1010.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Oct 29 18:11:01 UTC 2020


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!



More information about the Squeak-dev mailing list