The Trunk: PackageInfo-Base-ct.81.mcz

Christoph Thiede uploaded a new version of PackageInfo-Base to project The Trunk:
http://source.squeak.org/trunk/PackageInfo-Base-ct.81.mcz

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

Name: PackageInfo-Base-ct.81
Author: ct
Time: 5 July 2026, 12:45:30.28938 am
UUID: c89e9882-0ab5-491c-aec8-bf09e8c8a2c3
Ancestors: PackageInfo-Base-ct.80

Fixes multi-environment issues when accessing classes of a package. All other accessors already refer to the current environment correctly.

=============== Diff against PackageInfo-Base-ct.80 ===============

Item was changed:
  ----- Method: PackageInfo>>foreignClasses (in category 'listing') -----
  foreignClasses
  	| s environment |
  	s := IdentitySet new.
  	environment := Environment current.
  	self foreignSystemCategories
+ 		do: [:c | (environment organization listAtCategoryNamed: c)
- 		do: [:c | (SystemOrganization listAtCategoryNamed: c)
  				do: [:cl | 
  					| cls | 
  					cls := environment valueOf: cl.
  					s add: cls;
  					  add: cls class]].
  	^ s!

Item was changed:
  ----- Method: PackageInfo>>foreignSystemCategories (in category 'listing') -----
  foreignSystemCategories
+ 	^ Environment current organization categories
- 	^ SystemOrganization categories
  		reject: [:cat | self includesSystemCategory: cat] !

Item was changed:
  ----- Method: PackageInfo>>includesClassNamed: (in category 'testing') -----
  includesClassNamed: aClassName
+ 	^ self includesSystemCategory: ((Environment current organization categoryOfElement: aClassName) ifNil: [^false])!
- 	^ self includesSystemCategory: ((SystemOrganization categoryOfElement: aClassName) ifNil: [^false])!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]