[squeak-dev] The Trunk: Tools-tonyg.1032.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 24 15:36:29 UTC 2021


Tony Garnock-Jones uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-tonyg.1032.mcz

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

Name: Tools-tonyg.1032
Author: tonyg
Time: 24 March 2021, 4:36:27.132139 pm
UUID: 1077d608-e946-49dd-99f0-3a55ffe06e81
Ancestors: Tools-mt.1031

Repair Browser to allow selection of classes in non-default Environments.

=============== Diff against Tools-mt.1031 ===============

Item was changed:
  ----- Method: Browser>>addTrait (in category 'traits') -----
  addTrait
  	| input trait |
  	input := UIManager default request: 'add trait'.
  	input isEmptyOrNil ifFalse: [
+ 		trait := self environment classNamed: input.
- 		trait := Smalltalk classNamed: input.
  		(trait isNil or: [trait isTrait not]) ifTrue: [
  			^self inform: 'Input invalid. ' , input , ' does not exist or is not a trait'].
  		self selectedClass setTraitComposition: self selectedClass traitComposition asTraitComposition +  trait.
  		self contentsChanged].
  !

Item was changed:
  ----- Method: Browser>>hasClassSelected (in category 'class list') -----
  hasClassSelected
+ 	^ selectedClassName notNil and: [(self environment classNamed: selectedClassName) notNil]!
- 	^ selectedClassName notNil and: [(Smalltalk classNamed: selectedClassName) notNil]!



More information about the Squeak-dev mailing list