[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
|