[squeak-dev] The Trunk: ReleaseBuilder-tpr.240.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jan 16 02:07:31 UTC 2023


tim Rowledge uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-tpr.240.mcz

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

Name: ReleaseBuilder-tpr.240
Author: tpr
Time: 15 January 2023, 6:07:29.433305 pm
UUID: d81dabd2-1994-4810-83ad-4aac930e9dde
Ancestors: ReleaseBuilder-mt.239

Remove some variable shadowing

=============== Diff against ReleaseBuilder-mt.239 ===============

Item was changed:
  ----- Method: ReleaseBuilder class>>checkForNilCategories (in category 'scripts - support') -----
  checkForNilCategories
  
  	| nilClasses nilMethods |
  	nilClasses := OrderedCollection new.
  	nilMethods := OrderedCollection new.
  	
  	SystemNavigation default allClasses
  		do: [:cls |
  			cls category ifNil: [nilClasses add: cls].
  			{cls. cls class} do: [:b | b selectorsAndMethodsDo: [:selector :method |
+ 				(method methodClass organization categoryOfElement: selector) in: [:cat |
+ 					(cat isNil or: [cat = 'nil']) ifTrue: [
- 				(method methodClass organization categoryOfElement: selector) in: [:category |
- 					(category isNil or: [category = 'nil']) ifTrue: [
  						nilMethods add: method methodReference]]]]]
  		displayingProgress: [:behavior | 'Checking for invalid categories...' translated].
  
  	nilMethods ifNotEmpty: [
  		SystemNavigation default browseMessageList: nilMethods name: 'Messages with invalid categories' translated autoSelect: nil].
  	nilClasses ifNotEmpty: [
  		nilClasses explore].
  
  	(nilClasses notEmpty or: [nilMethods notEmpty]) ifTrue: [
  		Warning signal: 'There are classes or methods with invalid categories!!' translated].!

Item was changed:
  ----- Method: ReleaseBuilder class>>cleanUpBitstreamVeraSans (in category 'scripts - support') -----
  cleanUpBitstreamVeraSans
  
  	| descriptions styleNames default handles |
  	descriptions := OrderedCollection new.
  	styleNames := Set new.
  	default := TTFontDescription descriptionNamed: #BitstreamVeraSans.
  
  	"1) Collect the font descriptions we want to keep."
  	TTFontDescription allSubInstancesDo: [:tt |
  		styleNames add: tt name.
  		(tt familyName beginsWith: 'Bitstream Vera')
  			ifTrue: [descriptions add: tt]].
  	styleNames addAll: (TextStyle actualTextStyles select: [:ea | ea isTTCStyle]) keys. "Also aliases"
  	
  	"2) Uninstall *all* TrueType font descriptions from the system."
  	TTCFont registry removeAll.
  	TTFontDescription clearDefault; clearDescriptions.
  	styleNames do: [:styleName | TextConstants removeKey: styleName ifAbsent: []].
  	
  	"3) Install the fonts we want to have."	
  	handles := TTFontFileHandle allHandlesFromFontDescriptions: descriptions.
  	handles do: [:handle | handle installFont].
  	TTFontDescription setDefault: default. "Must do this only now. See #addAllFromFont: ... Sigh."
  	
  	"3*) Alias Bitstream Bold as ComicSansMS"
  	TextConstants at: #ComicSansMS put: (TextStyle fontArray: {(TextStyle named: #BitstreamVeraSans) defaultFont emphasized: 1 "bold"}).
  
  	"4) Configure the properties we want to use in the Squeak UI. Slightly larger glyphs to improve legibility for lower PPI. Note that such extra scaling typically does not match 0.5 points and should thus not be expressed with using a larger point size. We have glyph caches for each point size."
  	#(	BitstreamVeraSans 1.059 24 'Bitstream Vera Sans For Squeak'
  		BitstreamVeraSansMono 1.059 24 'Bitstream Vera Sans Mono For Squeak' )
+ 			groupsDo: [:styleName :scale :gap :customName | 
+ 				(TextStyle named: styleName) asHandle
- 			groupsDo: [:name :scale :gap :customName | 
- 				(TextStyle named: name) asHandle
  					rename: customName;
  					ttExtraScale: scale; ttExtraGap: gap;
  					installFont].!

Item was changed:
  ----- Method: ReleaseBuilder class>>clearCaches (in category 'scripts') -----
  clearCaches
  	"Clear caches, discard unused references, free space."
  
  	"1) Explicit clean-up of FONT-related stuff."
  	Display platformScaleFactor: nil; uiScaleFactor: 1.0.
  	self cleanUpBitstreamVeraSans.
  	StrikeFont initialize.
  
  	"2) FIRST PHASE of explicit clean-up of CODE-related stuff."
  	self discardUserObjects.
  	MCFileBasedRepository flushAllCaches.
  
  	"3) Now clean-up all STATE-related stuff."
  	Preferences chooseInitialSettings.
  	Smalltalk cleanUp: true.
  
  	"4) SECOND PHASE of explicit clean-up of CODE-related stuff. As late as possible to get rid of all references before running this."
  	Smalltalk garbageCollect.
+ 	Environment allInstancesDo: [:env | env purgeUndeclared ].
- 	Environment allInstancesDo: [:environment | environment purgeUndeclared ].
  	Undeclared removeUnreferencedKeys.
  	
  	!



More information about the Squeak-dev mailing list