[squeak-dev] The Trunk: System-cmm.820.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 27 18:47:08 UTC 2016


Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.820.mcz

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

Name: System-cmm.820
Author: cmm
Time: 27 April 2016, 1:46:21.665246 pm
UUID: a30bc5d7-68d0-4c48-a929-6fe8c5e3a32e
Ancestors: System-ul.819

- Make reference to the new automaticTimezone preference from the useLocal preference description.
- Guard from error after the "There is no inheritance of someSelector" popup.

=============== Diff against System-ul.819 ===============

Item was changed:
  ----- Method: Locale class>>initialize (in category 'class initialization') -----
  initialize
  	"Locale initialize"
- 
  	Smalltalk addToStartUpList: Locale.
+ 	Preferences
+ 		addPreference: #useLocale
+ 		categories: #('general' )
+ 		default: false
+ 		balloonHelp: 'Use the system locale to set the system language, etc., at startup.  For time-zone handling, see automaticTimezone.'!
- 	Preferences addPreference: #useLocale
- 		categories: #('general') default: false 
- 		balloonHelp: 'Use the system locale to set the system language etc at startup'.!

Item was changed:
  ----- Method: SystemNavigation>>methodHierarchyBrowserForClass:selector: (in category 'browse') -----
  methodHierarchyBrowserForClass: aClass selector: selectorSymbol
  	"Create and schedule a message set browser on all implementors of the 
  	currently selected message selector. Do nothing if no message is selected."
  	"SystemNavigation default 
  		methodHierarchyBrowserForClass: ParagraphEditor 
  		selector: #isControlActive"
+ 	| list aClassNonMeta isMeta tab compiledMethod window |
- 	| list aClassNonMeta isMeta tab |
  	aClass ifNil: [^ self].
  	aClass isTrait ifTrue: [^ self].
  	selectorSymbol ifNil: [^ self].
  	aClassNonMeta := aClass theNonMetaClass.
  	isMeta := aClassNonMeta ~~ aClass.
  	list := OrderedCollection new.
  	tab := ''.
  	aClass allSuperclasses reverseDo:
  		[:cl |
  		(cl includesSelector: selectorSymbol) ifTrue:
  			[list addLast: tab , cl name, ' ', selectorSymbol].
  		tab := tab , '  '].
  	aClassNonMeta allSubclassesWithLevelDo:
  		[:cl :level | | theClassOrMeta stab |
  		theClassOrMeta := isMeta ifTrue: [cl class] ifFalse: [cl].
  		(theClassOrMeta includesSelector: selectorSymbol) ifTrue:
  			[stab := ''.  1 to: level do: [:i | stab := stab , '  '].
  			list addLast: tab , stab , theClassOrMeta name, ' ', selectorSymbol]]
  	 	startingLevel: 0.
+ 	window := self browseMessageList: list name: 'Inheritance of ' , selectorSymbol.
+ 	window isSystemWindow ifTrue: 
+ 		[ window model
+ 			deselectAll ; 
+ 			yourself.
+ 		compiledMethod := aClass compiledMethodAt: selectorSymbol ifAbsent:[nil].
+ 		compiledMethod ifNotNil: [ window model selectReference: compiledMethod methodReference ] ]!
- 	(self browseMessageList: list name: 'Inheritance of ' , selectorSymbol
- ) model
- 		deselectAll ;
- 		selectReference: (aClass>>selectorSymbol) methodReference!



More information about the Squeak-dev mailing list