The Trunk: System-cmm.820.mcz

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!