Squeak-dev July 2017

squeak-dev@lists.squeakfoundation.org

28 participants
70 discussions

The Trunk: Kernel-nice.1109.mcz
by commits＠source.squeak.org 23 Jul '17

23 Jul '17

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1109.mcz ==================== Summary ==================== Name: Kernel-nice.1109 Author: nice Time: 23 July 2017, 2:42:14.918543 pm UUID: 1496608c-48fd-4bb2-b572-46e8b61421a9 Ancestors: Kernel-eem.1108 Define gcd: and lcm: for Fraction. For example, 1/5 and 1/7 are both whole multiple of 1/35 (which is their gcd). =============== Diff against Kernel-eem.1108 =============== Item was added: + ----- Method: Fraction>>gcd: (in category 'arithmetic') ----- + gcd: aFraction + | d | + d := denominator gcd: aFraction denominator. + ^(numerator *(aFraction denominator/d) gcd: aFraction numerator*(denominator/d)) / (denominator/d*aFraction denominator)! Item was added: + ----- Method: Fraction>>lcm: (in category 'arithmetic') ----- + lcm: n + "Answer the least common multiple of the receiver and n." + + ^self // (self gcd: n) * n! Item was changed: ----- Method: Integer>>gcd: (in category 'mathematical functions') ----- gcd: anInteger "See Knuth, Vol 2, 4.5.2, Algorithm L" "Initialize" | higher u v k uHat vHat a b c d vPrime vPrimePrime q t | + anInteger denominator = 1 ifFalse: [^anInteger gcd: self]. higher := SmallInteger maxVal highBit. u := self abs max: (v := anInteger abs). v := self abs min: v. [v class == SmallInteger] whileFalse: [(uHat := u bitShift: (k := higher - u highBit)) class == SmallInteger ifFalse: [k := k - 1. uHat := uHat bitShift: -1]. vHat := v bitShift: k. a := 1. b := 0. c := 0. d := 1. "Test quotient" [(vPrime := vHat + d) ~= 0 and: [(vPrimePrime := vHat + c) ~= 0 and: [(q := uHat + a // vPrimePrime) = (uHat + b // vPrime)]]] whileTrue: ["Emulate Euclid" c := a - (q * (a := c)). d := b - (q * (b := d)). vHat := uHat - (q * (uHat := vHat))]. "Multiprecision step" b = 0 ifTrue: [v := u rem: (u := v)] ifFalse: [t := u * a + (v * b). v := u * c + (v * d). u := t]]. ^ v gcd: u! Item was changed: ----- Method: SmallInteger>>gcd: (in category 'arithmetic') ----- gcd: anInteger "See SmallInteger (Integer) | gcd:" | n m | + anInteger denominator = 1 ifFalse: [^anInteger gcd: self]. n := self. m := anInteger. [n = 0] whileFalse: [n := m \\ (m := n)]. ^ m abs!

1 0

Squeak File Glitch
by ReliableRobots.com 22 Jul '17

22 Jul '17

I ran this program and nothing happened so I added self halts and learned it can't even read the input file! Yet the File List tool reads it. Such dichotomy in behavior might be covered by a preference? I know MS Notepad, the simplest editor now allows one to store a file in ones's choice of formats. Does Squeak have a simple choice for input treatments that works in Win10? do "Read a Bible file, reformat for beter readability and html standards." | inPath ootPath inFIle outFile line words | inPath := 'C:\Users\Owner\Desktop\Website\Jesus Words\Matthew.html'. ootPath := 'C:\Users\Owner\Desktop\Website\Jesus Words\Matthew2.html'. inFIle := FileStream oldFileNamed: inPath. outFile := FileStream newFileNamed: ootPath. self halt. [(line := inFIle nextLine) notNil whileTrue:[ words := line substrings. self halt. words size >0 ifTrue:[ outFile nextPutAll: line, '<br>'; cr; lf]. ]]. inFIle close. outFile close. It is my observation that Squeak is the last gasp uttered by a mouse when it fears death. It is not a normal sound they make unless they are being eaten by a Python! I hope the Python people don't release code that simply doesn't work.

6 9

Object new becomeForward: #normal
by marcel.taeumel 20 Jul '17

20 Jul '17

Hi, there. Why are there guards to prevent forward-becoming to immediates (chars, ints) but not to symbols? This will break your image: "Object new becomeForward: #normal" ... because Cursor class MNU #normal ... :-) Either this is a bug or forward-becoming to symbols is not intended at all. Best, Marcel -- View this message in context: http://forum.world.st/Object-new-becomeForward-normal-tp4955525.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

6 12

Immutability and become
by Bert Freudenberg 20 Jul '17

20 Jul '17

On Tue, Jul 18, 2017 at 4:46 PM, Levente Uzonyi <leves(a)caesar.elte.hu> wrote: > On Tue, 18 Jul 2017, Bert Freudenberg wrote: > > I don't know how the VM handles immutability in this case, but it's >> possible that it wouldn't let #become*: affect immutable objects. >> >> >> I think that would be fine, you should be able to become an immutable >> object and vice versa. >> >> On the other hand, I'm sure it would let you change fields of >> immutable objects via #become*:, but that's not an issue in your case. >> >> >> This is debatable ... I would rather have the VM raise an error when >> trying to become a field of an immutable object. Immutable should mean >> immutable, no? >> > > #become: would become slow again if we had to find all objects referencing > the one we're about to swap. Or, we'd have to make the whole object graph > immutable when we make an object immutable. In that case #become: could > just fail when the receiver or the argument is immutable. > +1 for making the whole object graph be immutable. And "mutableObj becomeForward: immutableObj copyHash: false" should be the only allowed become case. - Bert - - Bert -

6 8

UK Smalltalk User Group Meeting - Monday, 31st July
by Giovanni Corriga 20 Jul '17

20 Jul '17

The next meeting of the UK Smalltalk User Group Meeting will be on Monday, 31st July. We'll meet at a new venue The City Pride ( http://www.cityprideclerkenwell.co.uk/ ) at 7pm. If you'd like to join us, you can just show up at the pub. You can also sign up in advance at the meeting's Meetup page: https://www.meetup.com/UKSTUG/events/241876612/ . See you there!

1 0

The Inbox: Collections-bf.761.mcz
by commits＠source.squeak.org 20 Jul '17

20 Jul '17

Bert Freudenberg uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-bf.761.mcz ==================== Summary ==================== Name: Collections-bf.761 Author: bf Time: 20 July 2017, 12:42:02.196604 pm UUID: 5b68150c-4eb0-4210-9fac-c4aa09623b6d Ancestors: Collections-eem.760 Remove ByteArray>>at:put: and fix the fallback code in ByteArray>>#replaceFrom:to:with:startingAt: to match prim 105 =============== Diff against Collections-eem.760 =============== Item was removed: - ----- Method: ByteArray>>at:put: (in category 'accessing') ----- - at: index put: value - <primitive: 61> "try primitiveAtPut, convert value to integer if that fails and try again" - ^ self byteAt: index put: value asInteger - ! Item was changed: ----- Method: ByteArray>>replaceFrom:to:with:startingAt: (in category 'private') ----- replaceFrom: start to: stop with: replacement startingAt: repStart "Primitive. This destructively replaces elements from start to stop in the receiver starting at index, repStart, in the collection, replacement. Answer the receiver. Range checks are performed in the primitive only. Optional. See Object documentation whatIsAPrimitive." <primitive: 105> + replacement isString + ifFalse: + [super replaceFrom: start to: stop with: replacement startingAt: repStart] + ifTrue: + [ "use String>>byteAt: to mimic prim 105" + | index repOff | + repOff := repStart - start. + index := start - 1. + [(index := index + 1) <= stop] + whileTrue: [self at: index put: (replacement byteAt: repOff + index)]] + ! - super replaceFrom: start to: stop with: replacement startingAt: repStart!

1 0

Parsing privateAuthorsRaw for a changes browser
by Eliot Miranda 19 Jul '17

19 Jul '17

Hi All, I had reason to condense changes and then was curious to look for older versions. But when I came to open a changes browser on the newly condensed changes file the UTF-8 decoder failed to parse the source for SystemNavigation class>>privateAuthorsRaw. Something breaks the string at the e acute in Stéphane, and then the decoder gets hopelessly confused. To reproduce: In a trunk 6.x image do Smalltalk condenseChanges then open a file list, select the changes file, and then click the recent changes button. here's the SqueakDebug.log: InvalidUTF8: Invalid utf8: Â©phane Rollandin#spfa!Stephane Schitter#stefs!Stephanie Hamburg#MUTTLYSTEPHANIE!Stephen Smith#sst!Stephen Travis Pope#stp!Stephen Vincent Pair#svp!Steve Davies#sld!Steve Elkins#sge!Steve Fuller#snf!Steve Gilbert#slg!Steve Hunter#skh!Steve Knight#knighty!Steve Mccusker#smcc!Steve Messamore#slm!Steve Sanderson#sms!Steve Wart#swart!Steve Wessels#!Steven Darcy#SMD!Steven Greenberg#greenbes!Steven Rodriguez#optionshiftk!Steven Swerling#sps!Sudheendra Hangal#hangal!Sungjin Chun#chunsj!Suzuki Tetsuya#tetsuya!Syed Abid#taxman!Syed Masoodahmad#masden56!Sylvia Sharma#sharma!Symon Chalk#symonc!Takashi Yamamiya#tak!Tansel Ersavas#mte#MTE!Tarek Demiati#TD!Ted Bracht#TB#TB1!Ted Kaehler#tk!Terry Jenkins#TCJ!Thierry Reignier#TREG!Thijs Janssen#TJ!Thomas Bernitt#tber!Thomas FrÃƒÂ¶b#thf!Thomas Hemme#Namamazu!Thomas J Keller#TJK!Thomas Kowark#tk!Thomas M. Breuel#tmb!Thomas Mahler#ThMa!Thomas Stambaugh#tms!Thomas Zimmermann#TZ!Tim Cuthbertson#tec!Tim Felgentreff#tfel!Tim Lewis#TimLewis!Tim Olson#tao!Tim Rowledge#TPR#tpr!Timm Knape#tik!Timothy Falconer#teefal!Timothy M#tty!Timothy Retz#tgr!Tobias Isenberg#ti!Tobias Pape#topa!Todd Blanchard#tb!Tom Counsell#tamc!Tom Dailey#td!Tom Koenig#tlk!Tom Plick#tap!Tom Rushworth#tbr!Tommy Thorn#tt!Tomohiro Oda#TO!Tony Garnock-Jones#tonyg!Tony Zampogna#zamp!Torge Husfeldt#th!Torsten Bergmann#tbn#TBN!Torsten Sadowski#ts!Travis Kay#tkay#tlk!Trygve Reenskaug#TRee!Tyler Coumbes#mtc!Tzaddi Beltaine#tsb!Udo Schneider#udos!Vaidotas DidÃ…Â¾balis#vd!Vassili Bykov#vb!Vernon Marsden#vmars!Vijay Mathew Pandyalakal#vmp!Vladimir Janousek#vj!Volker BÃƒÂ¤cker#volker!Wally Cash#wac!Walter Wilhelm#ww!Ward Cunningham#ward!Wayne Braun#wb!Wayne D. Elias#wdelias!Webb Mcdonald#wxm!Wilkes Joiner#dwj!Willem van Asperen#wva!William Hess#WFH!William Hidden#whidden!Wolfgang Eder#edw!Wolfgang Helbig#whg!Woon Yeo#!Wuilmer Olaya Bardales#wob!Yagendra Dutt Tripathi#yd!Yang Ha Nguyen#yhm!Yann Monclair#YM!Yanni Chiu#yj!Yasuji Nakayama#yasuji!Yoshiki Ohshima#yo!Yuji Ichikawa#ich!Yunhee Lee#yhl!Yutaka Kamite#yk!Zdenek Novy#Zdenye#ZN!Zeljko Nesic#Poparasan!Zeynep Besen#zeyno' 12 July 2017 9:42:40.918319 am VM: Mac OS - Smalltalk Image: Squeak6.0alpha [latest update: #17347] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Users/eliot/Squeak/Squeak5.1 Trusted Dir /foobar/tooBar/forSqueak/bogus/ Untrusted Dir /Users/eliot/Library/Preferences/Squeak/Internet/My Squeak/ UTF8TextConverter class>>errorMalformedInput: Receiver: UTF8TextConverter Arguments and temporary variables: aString: 'Â©phane Rollandin#spfa!Stephane Schitter#stefs!Stephanie Hamburg#MUTTL...etc... Receiver's instance variables: superclass: TextConverter methodDict: a MethodDictionary(#backFromStream:->(UTF8TextConverter>>#backFromS...etc... format: 65538 instanceVariables: nil organization: ('conversion' backFromStream: decodeString: encodeString: errorMalformedInput:...etc... subclasses: nil name: #UTF8TextConverter classPool: a Dictionary(#StrictUtf8Conversions->nil ) sharedPools: nil environment: Smalltalk category: #'Multilingual-TextConversion' latin1Map: #[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...etc... latin1Encodings: #(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ...etc... UTF8TextConverter class>>decodeByteString: Receiver: UTF8TextConverter Arguments and temporary variables: aByteString: 'Â©phane Rollandin#spfa!Stephane Schitter#stefs!Stephanie Hamburg#M...etc... outStream: a WriteStream lastIndex: 1 nextIndex: 1 byte1: 169 byte2: nil byte3: nil byte4: nil unicode: nil Receiver's instance variables: superclass: TextConverter methodDict: a MethodDictionary(#backFromStream:->(UTF8TextConverter>>#backFromS...etc... format: 65538 instanceVariables: nil organization: ('conversion' backFromStream: decodeString: encodeString: errorMalformedInput:...etc... subclasses: nil name: #UTF8TextConverter classPool: a Dictionary(#StrictUtf8Conversions->nil ) sharedPools: nil environment: Smalltalk category: #'Multilingual-TextConversion' latin1Map: #[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...etc... latin1Encodings: #(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ...etc... UTF8TextConverter>>decodeString: Receiver: an UTF8TextConverter Arguments and temporary variables: aString: 'Â©phane Rollandin#spfa!Stephane Schitter#stefs!Stephanie Hamburg#MUTTL...etc... result: nil Receiver's instance variables: latin1Map: #[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...etc... latin1Encodings: #(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ...etc... UTF8TextConverter>>nextChunkFromStream: Receiver: an UTF8TextConverter Arguments and temporary variables: input: MultiByteFileStream: '/Users/eliot/Squeak/Squeak5.1/trunk6projectLoad.ch...etc... Receiver's instance variables: latin1Map: #[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...etc... latin1Encodings: #(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ...etc... MultiByteFileStream>>nextChunk Receiver: MultiByteFileStream: '/Users/eliot/Squeak/Squeak5.1/trunk6projectLoad.changes' Arguments and temporary variables: Receiver's instance variables: ChangeList class>>browseRecentLogOn: Receiver: ChangeList Arguments and temporary variables: origChangesFile: MultiByteFileStream: '/Users/eliot/Squeak/Squeak5.1/trunk6proj...etc... end: 13286751 done: false block: 7195999 pos: 7198297 changesFile: MultiByteFileStream: '/Users/eliot/Squeak/Squeak5.1/trunk6projectL...etc... position: nil prevBlock: 7197023 chunk: #('privateAuthorsRaw ^ ''Aaron Reichow#ajr!Abigail Sanchez#as!Adam Eng...etc... Receiver's instance variables: superclass: CodeHolder methodDict: a MethodDictionary(#acceptFrom:->(ChangeList>>#acceptFrom: "a CompiledMethod...etc... format: 65548 instanceVariables: #('changeList' 'list' 'listIndex' 'listSelections' 'file' 'l...etc... organization: ('accessing' changeList changes:file: currentChange file listHasSingleEntry...etc... subclasses: {ChangeListForProjects . VersionsBrowser} name: #ChangeList classPool: nil sharedPools: nil environment: nil category: #'Tools-Changes' ChangeList class>>browseRecentLogOnPath: Receiver: ChangeList Arguments and temporary variables: fullName: '/Users/eliot/Squeak/Squeak5.1/trunk6projectLoad.changes' Receiver's instance variables: superclass: CodeHolder methodDict: a MethodDictionary(#acceptFrom:->(ChangeList>>#acceptFrom: "a CompiledMethod...etc... format: 65548 instanceVariables: #('changeList' 'list' 'listIndex' 'listSelections' 'file' 'l...etc... organization: ('accessing' changeList changes:file: currentChange file listHasSingleEntry...etc... subclasses: {ChangeListForProjects . VersionsBrowser} name: #ChangeList classPool: nil sharedPools: nil environment: nil category: #'Tools-Changes' _,,,^..^,,,_ best, Eliot

4 5

Improving formatting [was: [Pharo-dev] Big claps for Epicea (small request!)]
by Eliot Miranda 19 Jul '17

19 Jul '17

On Wed, Jul 19, 2017 at 2:16 PM, Nicolas Cellier < nicolas.cellier.aka.nice(a)gmail.com> wrote: > format before diff is in the top 5 of my most hated default. > As an author, I try to write short methods and adhere to a standard format > (Kent Beck like). > > But I want the freedom to use derogation when the format helps > comprehension. > If I did the effort of using a special formatting, the last thing that I > want is a "smart" tool that undo my work. > The best time to format code is when we accept it, and only if there is a > quick way to undo/bypass if we don't like it. > > The formatter is dumb. > Let's illustrate it with literals among other things. > > I might want to write 16rBADA55, but I'm sure i never want to read > 12245589, it makes no sense ;) > (hey, this is a real example you can find in VMMaker sources, not just the > production of my ill brain). > I'd love to see literal nodes in the compilers be intelligent enough to know what base a literal number was in. It might be as simple as maintaining the literal characters that make up a token and printing using those, perhaps only if the token is a member of a particular set of classes. And remember this applies to numeric literals in Array and ByteArray literals too. > And if I make an effort to format a character encoding table on several > lines to have it readable > #( > line1 > line2 > ... > lineN ). > I'm pretty sure I never want to diff a single line with about 1024 > columns... > Th above approach might also handle this case well, although I wonder about comments. > > So please make this an option (with a default to false)! > > 2017-07-19 22:27 GMT+02:00 Mariano Martinez Peck <marianopeck(a)gmail.com>: > >> Hi Martin, >> >> Thank you VERY MUCH for Epicea. I just had a crash and it was way more >> comfortable to recover changes. >> >> One small request would be to allow "Pretty Print" in the diff to the >> changes to be applied. Many times I changed formatting etc so for when >> viewing changes, viewing with same formatting helps me to see the actual >> changes and not formatting changes. >> >> Thanks! >> >> -- >> Mariano >> http://marianopeck.wordpress.com >> > > -- _,,,^..^,,,_ best, Eliot

1 0

The Trunk: Morphic-mt.1347.mcz
by commits＠source.squeak.org 19 Jul '17

19 Jul '17

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1347.mcz ==================== Summary ==================== Name: Morphic-mt.1347 Author: mt Time: 18 July 2017, 10:11:56.69381 am UUID: f95fc4b5-03e5-2f45-9a3f-087fb10cae98 Ancestors: Morphic-eem.1346 Regarding window colors and window listing, improve robustness for models that do not subclass Model and forget to provide #windowColorToUse. Note that we could have added that message to Object but I do prefer not to clutter the interface any further. =============== Diff against Morphic-eem.1346 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu - windows') ----- listWindowsOn: menu | windows | windows := self allVisibleWindows sorted: [:winA :winB | ((winA model isNil or: [winB model isNil]) or: [winA model name = winB model name]) ifTrue: [winA label < winB label] ifFalse: [winA model name < winB model name]]. windows ifEmpty: [ menu addItem: [ :item | item contents: 'No Windows' translated; isEnabled: false ] ]. windows do: [ :each | + | windowColor | + windowColor := (each model respondsTo: #windowColorToUse) + ifTrue: [each model windowColorToUse] + ifFalse: [UserInterfaceTheme current get: #uniformWindowColor for: Model]. menu addItem: [ :item | item contents: (self windowMenuItemLabelFor: each); + icon: (self colorIcon: windowColor); - icon: (each model ifNotNil: [self colorIcon: each model windowColorToUse]); target: each; selector: #comeToFront; subMenuUpdater: self selector: #windowMenuFor:on: arguments: { each }; action: [ each beKeyWindow; expand ] ] ]. menu addLine; add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe; addItem: [:item | item contents: 'Close all windows without changes'; target: self; icon: MenuIcons smallBroomIcon; selector: #closeAllWindows]; add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces.!

4 3

Re: [squeak-dev] The Trunk: System-jr.927.mcz
by Jakob Reschke 16 Jul '17

16 Jul '17

The indenting was previously discarded in MessageSet>>#initializeMessageList:, when the strings were parsed into class and selector. If the input list elements are MethodReferences already, they remain unchanged. Since all elements coming from SystemNavigation>>#methodHierarchyBrowserForClass:selector: are now MethodReferences, the indentation from this method appears. 2017-07-16 20:59 GMT+02:00 Chris Muller <asqueaker(a)gmail.com>: > This appears to have caused, when using the the "inheritance (i)" > function, the list of methods to have indentations which weren't there > before and interferes with the ability to begin tracing. > > It appears nothing was changed with the "stringVersion" of the > MethodReference so it's not quickly evident why it's indenting... > > On Sun, Mar 5, 2017 at 9:57 AM, <commits(a)source.squeak.org> wrote: >> David T. Lewis uploaded a new version of System to project The Trunk: >> http://source.squeak.org/trunk/System-jr.927.mcz >> >> ==================== Summary ==================== >> >> Name: System-jr.927 >> Author: jr >> Time: 28 February 2017, 1:18:53.473081 am >> UUID: 7c830682-637d-e94b-b695-9f1d7499e19b >> Ancestors: System-ul.926 >> >> improve environment awareness of references >> >> also support Text as stringVersion of MethodReference >> (so Lexicon could use method references) >> >> =============== Diff against System-ul.926 =============== >> >> Item was changed: >> Object subclass: #ClassReference >> + instanceVariableNames: 'classSymbol stringVersion classIsMeta environment' >> - instanceVariableNames: 'classSymbol stringVersion classIsMeta' >> classVariableNames: '' >> poolDictionaries: '' >> category: 'System-Tools'! >> >> !ClassReference commentStamp: '<historical>' prior: 0! >> A ClassReference is is a lightweight proxy for a Class's definition. Allows class definitions to be viewed in MessageLists >> >> Instance Variables >> classSymbol: Symbol for method's class (without class keyword if meta) >> stringVersion: the class's definition >> >> ! >> >> Item was changed: >> ----- Method: ClassReference>>= (in category 'comparisons') ----- >> = anotherMethodReference >> "Answer whether the receiver and the argument represent the >> same object." >> ^ self species == anotherMethodReference species >> and: [self classSymbol = anotherMethodReference classSymbol >> + and: [self classIsMeta = anotherMethodReference classIsMeta >> + and: [self environment == anotherMethodReference environment]]]! >> - and: [self classIsMeta = anotherMethodReference classIsMeta]]! >> >> Item was changed: >> ----- Method: ClassReference>>actualClass (in category 'accessing') ----- >> actualClass >> | actualClass | >> + environment ifNil: [^ nil]. >> + actualClass := environment at: classSymbol ifAbsent: [^nil]. >> + ^classIsMeta ifTrue: [actualClass theMetaClass] ifFalse: [actualClass]! >> - actualClass := Smalltalk at: classSymbol ifAbsent: [^nil]. >> - ^classIsMeta ifTrue: [actualClass class] ifFalse: [actualClass]! >> >> Item was added: >> + ----- Method: ClassReference>>environment (in category 'accessing') ----- >> + environment >> + >> + ^ environment! >> >> Item was added: >> + ----- Method: ClassReference>>hash (in category 'comparisons') ----- >> + hash >> + "Answer a SmallInteger whose value is related to the receiver's >> + identity." >> + ^ (self species hash bitXor: self classSymbol hash) >> + bitXor: self environment hash! >> >> Item was added: >> + ----- Method: ClassReference>>printOn: (in category 'printing') ----- >> + printOn: aStream >> + | actualClass | >> + "Print the receiver on a stream" >> + actualClass := classSymbol asString. >> + classIsMeta ifTrue: [actualClass := actualClass, ' class']. >> + super printOn: aStream. >> + aStream nextPutAll: ' ', actualClass! >> >> Item was added: >> + ----- Method: ClassReference>>setClassSymbol:classIsMeta:environment:stringVersion: (in category 'initialize-release') ----- >> + setClassSymbol: classSym classIsMeta: isMeta environment: anEnvironment stringVersion: aString >> + >> + classSymbol := classSym. >> + classIsMeta := isMeta. >> + stringVersion := aString, ' (definition)'. >> + environment := anEnvironment! >> >> Item was changed: >> ----- Method: ClassReference>>setStandardClass: (in category 'initialize-release') ----- >> setStandardClass: aClass >> >> self >> setClassSymbol: aClass theNonMetaClass name >> classIsMeta: aClass isMeta >> + environment: aClass environment >> stringVersion: aClass name! >> >> Item was changed: >> ----- Method: MethodReference class>>class:selector: (in category 'instance creation') ----- >> class: aClass selector: aSelector >> + ^ self class: aClass selector: aSelector environment: aClass environment.! >> - ^ self class: aClass selector: aSelector environment: Smalltalk globals.! >> >> Item was changed: >> ----- Method: MethodReference>>= (in category 'comparing') ----- >> = anotherMethodReference >> "Answer whether the receiver and the argument represent the >> same object." >> ^ self species == anotherMethodReference species >> and: [self classSymbol = anotherMethodReference classSymbol >> and: [self classIsMeta = anotherMethodReference classIsMeta >> + and: [self methodSymbol = anotherMethodReference methodSymbol >> + and: [self environment == anotherMethodReference environment]]]]! >> - and: [self methodSymbol = anotherMethodReference methodSymbol]]]! >> >> Item was changed: >> ----- Method: MethodReference>>asString (in category 'converting') ----- >> asString >> >> + ^(stringVersion ifNil: [ self stringVersionDefault ]) asString! >> - ^stringVersion ifNil: [ self stringVersionDefault ]! >> >> Item was added: >> + ----- Method: MethodReference>>asStringOrText (in category 'converting') ----- >> + asStringOrText >> + >> + ^stringVersion ifNil: [ self stringVersionDefault ]! >> >> Item was changed: >> ----- Method: MethodReference>>setClass:methodSymbol:stringVersion: (in category 'initialize-release') ----- >> setClass: aClass methodSymbol: methodSym stringVersion: aString >> >> classSymbol := aClass theNonMetaClass name. >> classIsMeta := aClass isMeta. >> methodSymbol := methodSym. >> + environment := aClass environment. >> stringVersion := aString.! >> >> Item was changed: >> ----- Method: MethodReference>>setStandardClass:methodSymbol: (in category 'initialize-release') ----- >> setStandardClass: aClass methodSymbol: methodSym >> >> classSymbol := aClass theNonMetaClass name. >> + environment := aClass environment. >> classIsMeta := aClass isMeta. >> methodSymbol := methodSym. >> stringVersion := nil.! >> >> Item was changed: >> ----- Method: MethodReference>>stringVersion (in category 'accessing') ----- >> stringVersion >> >> + ^stringVersion ifNil: [self asStringOrText]! >> - ^stringVersion! >> >> 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 | >> 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: (MethodReference new >> + setClass: cl >> + methodSymbol: selectorSymbol >> + stringVersion: tab , cl name, ' ', selectorSymbol)]. >> - [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: (MethodReference new >> + setClass: theClassOrMeta >> + methodSymbol: selectorSymbol >> + stringVersion: tab , stab , theClassOrMeta name, ' ', selectorSymbol)]] >> - 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 ] ]! >> >> Item was changed: >> ----- Method: SystemOrganizer>>classify:under: (in category 'accessing') ----- >> classify: element under: newCategory >> | oldCategory class | >> + self flag: #environments. "do we want notifications for classes in other environments?" >> oldCategory := self categoryOfElement: element. >> super classify: element under: newCategory. >> class := Smalltalk at: element ifAbsent: [^ self]. >> self == SystemOrganization ifTrue: [ >> SystemChangeNotifier uniqueInstance >> class: class >> recategorizedFrom: oldCategory >> to: newCategory]! >> >> >

1 0