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