Packages October 2020

packages@lists.squeakfoundation.org

1 participants
168 discussions

The Trunk: EToys-eem.413.mcz
by commits＠source.squeak.org 30 Oct '20

30 Oct '20

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.413.mcz ==================== Summary ==================== Name: EToys-eem.413 Author: eem Time: 30 October 2020, 2:54:41.532789 pm UUID: a1c04088-006b-4fcb-b94b-4d208a3e42ff Ancestors: EToys-mt.412 Fix an Undeclared variable. =============== Diff against EToys-mt.412 =============== Item was removed: - ----- Method: Mines class>>initialize (in category 'parts bin') ----- - initialize - super initialize. - "boardSizes are column, row, mines, highScore" - BoardSizes := Dictionary new. - BoardSizes at: 1 put:{8. 8. 10. 999. 'Beginner'}. - BoardSizes at: 2 put:{16. 16. 40. 999. 'Intermediate'}. - BoardSizes at: 3 put:{30. 16. 99. 999. 'Expert'}. - - ! Item was changed: ----- Method: Mines>>newGame (in category 'actions') ----- newGame | boardSize | + boardSize := MinesBoard boardSizeAt: level. - boardSize := BoardSizes at: level. timeDisplay value: 0; flash: false. timeDisplay stop. timeDisplay reset. minesDisplay value: (boardSize at: 3). hiScoreDisplay value: (boardSize at: 4). levelButton label: (boardSize at: 5) asString. self board resetBoard: level.! Item was changed: AlignmentMorph subclass: #MinesBoard instanceVariableNames: 'protoTile rows columns flashCount tileCount target actionSelector arguments gameStart gameOver boardSize' + classVariableNames: 'BoardSizes' - classVariableNames: '' poolDictionaries: '' category: 'Etoys-Squeakland-Morphic-Games'! Item was added: + ----- Method: MinesBoard class>>boardSizeAt: (in category 'accessing') ----- + boardSizeAt: level + ^BoardSizes at: level! Item was added: + ----- Method: MinesBoard class>>initialize (in category 'class initialization') ----- + initialize + "boardSizes are column, row, mines, highScore" + BoardSizes := Dictionary new. + BoardSizes at: 1 put:{8. 8. 10. 999. 'Beginner'}. + BoardSizes at: 2 put:{16. 16. 40. 999. 'Intermediate'}. + BoardSizes at: 3 put:{30. 16. 99. 999. 'Expert'}!

1 0

The Trunk: Kernel-eem.1359.mcz
by commits＠source.squeak.org 30 Oct '20

30 Oct '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1359.mcz ==================== Summary ==================== Name: Kernel-eem.1359 Author: eem Time: 30 October 2020, 12:10:07.699375 pm UUID: 1ec9a445-37fa-4256-84d8-9bdf8b52eb7d Ancestors: Kernel-eem.1358 Merge Kernel-ct.1358 Author: ct Time: 28 October 2020, 11:37:24.817544 pm UUID: c9af6acb-61cf-af42-b5fa-3afa8451bb24 Ancestors: Kernel-mt.1353 Fixes a simulation bug that occurs when executing ProtoObject >> #doesNotUnderstand:. See KernelTests-ct.388. =============== Diff against Kernel-eem.1358 =============== Item was changed: ----- Method: Context>>send:to:with:lookupIn: (in category 'controlling') ----- send: selector to: rcvr with: arguments lookupIn: lookupClass "Simulate the action of sending a message with selector and arguments to rcvr. The argument, lookupClass, is the class in which to lookup the message. This is the receiver's class for normal messages, but for super messages it will be some specific class related to the source method." | meth primIndex val ctxt | (meth := lookupClass lookupSelector: selector) ifNil: + [selector == #doesNotUnderstand: ifTrue: + [self error: 'Recursive message not understood!!' translated]. + ^self send: #doesNotUnderstand: - [^self send: #doesNotUnderstand: to: rcvr with: {(Message selector: selector arguments: arguments) lookupClass: lookupClass} lookupIn: lookupClass]. meth isCompiledMethod ifFalse: ["Object as Methods (OaM) protocol: 'The contract is that, when the VM encounters an ordinary object (rather than a compiled method) in the method dictionary during lookup, it sends it the special selector #run:with:in: providing the original selector, arguments, and receiver.'. DOI: 10.1145/2991041.2991062." + ^self send: #run:with:in: - ^ self send: #run:with:in: to: meth with: {selector. arguments. rcvr}]. meth numArgs = arguments size ifFalse: [^ self error: ('Wrong number of arguments in simulated message {1}' translated format: {selector})]. (primIndex := meth primitive) > 0 ifTrue: [val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments. (self isPrimFailToken: val) ifFalse: [^val]]. (selector == #doesNotUnderstand: and: [lookupClass == ProtoObject]) ifTrue: + [^self error: ('Simulated message {1} not understood' translated format: {arguments first selector})]. - [^ self error: ('Simulated message {1} not understood' translated format: {arguments first selector})]. ctxt := Context sender: self receiver: rcvr method: meth arguments: arguments. + (primIndex isInteger and: [primIndex > 0]) ifTrue: - (primIndex notNil and: [primIndex > 0]) ifTrue: [ctxt failPrimitiveWith: val]. ^ctxt!

1 0

The Trunk: Kernel-eem.1358.mcz
by commits＠source.squeak.org 30 Oct '20

30 Oct '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1358.mcz ==================== Summary ==================== Name: Kernel-eem.1358 Author: eem Time: 30 October 2020, 12:04:50.705166 pm UUID: 9e6daea9-3c8f-4ffa-99ab-e76c50af41d0 Ancestors: Kernel-eem.1356, Kernel-ct.1357 Merge Kernel-ct.1357 Author: ct Time: 28 October 2020, 9:30:35.577652 pm UUID: efd94ae0-26ab-0c4f-b854-52f414ff2d3e Ancestors: Kernel-eem.1354 Implement missing simulation of objects as methods. In the past, it was not possible to debug/simulate code that used objects as methods properly. (Thanks to Marcel for the hint!) This very simple commit adds support of the OaM protocol [1] to the simulation machinery. Now you can debug all tests in TestObjectsAsMethods as you would expect, instead of crashing your image! Update: Uploaded a third time, this time with Kent Beck block formatting preserved. [1] "The [Objects as Methods] contract is that, when the VM encounters an ordinary object (rather than a compiled method) in the method dictionary during lookup, it sends it the special selector #run:with:in: providing the original selector, arguments, and receiver.". DOI: 10.1145/2991041.2991062. =============== Diff against Kernel-eem.1356 =============== Item was changed: ----- Method: Context>>send:to:with:lookupIn: (in category 'controlling') ----- send: selector to: rcvr with: arguments lookupIn: lookupClass + "Simulate the action of sending a message with selector and arguments to rcvr. The argument, lookupClass, is the class in which to lookup the message. This is the receiver's class for normal messages, but for super messages it will be some specific class related to the source method." - "Simulate the action of sending a message with selector and arguments - to rcvr. The argument, lookupClass, is the class in which to lookup the - message. This is the receiver's class for normal messages, but for super - messages it will be some specific class related to the source method." | meth primIndex val ctxt | (meth := lookupClass lookupSelector: selector) ifNil: [^self send: #doesNotUnderstand: to: rcvr with: {(Message selector: selector arguments: arguments) lookupClass: lookupClass} lookupIn: lookupClass]. + + meth isCompiledMethod ifFalse: + ["Object as Methods (OaM) protocol: 'The contract is that, when the VM encounters an ordinary object (rather than a compiled method) in the method dictionary during lookup, it sends it the special selector #run:with:in: providing the original selector, arguments, and receiver.'. DOI: 10.1145/2991041.2991062." + ^ self send: #run:with:in: + to: meth + with: {selector. arguments. rcvr}]. + + meth numArgs = arguments size ifFalse: + [^ self error: ('Wrong number of arguments in simulated message {1}' translated format: {selector})]. - meth numArgs ~= arguments size ifTrue: - [^self error: 'Wrong number of arguments in simulated message ', selector printString]. (primIndex := meth primitive) > 0 ifTrue: [val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments. + (self isPrimFailToken: val) ifFalse: - (self isPrimFailToken: val) ifFalse: [^val]]. + (selector == #doesNotUnderstand: and: [lookupClass == ProtoObject]) ifTrue: + [^ self error: ('Simulated message {1} not understood' translated format: {arguments first selector})]. + - [^self error: 'Simulated message ', arguments first selector, ' not understood']. ctxt := Context sender: self receiver: rcvr method: meth arguments: arguments. + (primIndex notNil and: [primIndex > 0]) ifTrue: - primIndex > 0 ifTrue: [ctxt failPrimitiveWith: val]. + ^ctxt!

1 0

The Trunk: Compiler-eem.451.mcz
by commits＠source.squeak.org 30 Oct '20

30 Oct '20

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.451.mcz ==================== Summary ==================== Name: Compiler-eem.451 Author: eem Time: 30 October 2020, 12:01:09.305583 pm UUID: 30f155c7-a9c4-4cb8-bac6-f5089bbf7b36 Ancestors: Compiler-ct.450 just recategorizations. =============== Diff against Compiler-tobe.448 =============== Item was changed: + ----- Method: BytecodeEncoder>>generateBlockMethodOfClass:trailer:from: (in category 'method generation') ----- - ----- Method: BytecodeEncoder>>generateBlockMethodOfClass:trailer:from: (in category 'method encoding') ----- generateBlockMethodOfClass: aCompiledBlockClass trailer: trailer from: blockNode "Generate a CompiledBlock for the block whose parse tree is blockNode." "The closure analysis should already have been done." | blkSize header literals locals method nLits stack | self assert: blockNode blockExtent notNil. self assert: rootNode notNil. blkSize := blockNode sizeCodeForEvaluatedFullClosureValue: self. locals := blockNode localsNodes. self noteBlockExtent: blockNode blockExtent hasLocals: locals. header := self computeMethodHeaderForNumArgs: blockNode arguments size numTemps: locals size numLits: (nLits := (literals := self allLiteralsForBlockMethod) size) primitive: 0. method := trailer createMethod: blkSize class: aCompiledBlockClass header: header. 1 to: nLits do: [:lit | (method literalAt: lit put: (literals at: lit)) isCompiledCode ifTrue: [(literals at: lit) outerCode: method]]. self streamToMethod: method. stack := ParseStack new init. stack position: method numTemps. blockMethod := method. "For BytecodeEncoder>>pc & BytecodeEncoder>>nextPC" [blockNode emitCodeForEvaluatedFullClosureValue: stack encoder: self] on: Error "If an attempt is made to write too much code the method will be asked" do: [:ex| "to grow, and the grow attempt will fail in CompiledCode class>>#newMethodViaNewError" ex signalerContext sender method = (CompiledCode class>>#newMethodViaNewError) ifTrue: [^self error: 'Compiler code size discrepancy'] ifFalse: [ex pass]]. stack position ~= (method numTemps + 1) ifTrue: [^self error: 'Compiler stack discrepancy']. stream position ~= (method size - trailer size) ifTrue: [^self error: 'Compiler code size discrepancy']. method needsFrameSize: stack size - method numTemps. ^method! Item was changed: + ----- Method: BytecodeEncoder>>generateMethodOfClass:trailer:from: (in category 'method generation') ----- - ----- Method: BytecodeEncoder>>generateMethodOfClass:trailer:from: (in category 'method encoding') ----- generateMethodOfClass: aCompiledMethodClass trailer: trailer from: methodNode "The receiver is the root of a parse tree. Answer an instance of aCompiledMethodClass. The argument, trailer, is arbitrary but is typically either the reference to the source code that is stored with every CompiledMethod, or an encoding of the method's temporary names." | primErrNode blkSize nLits locals literals header method stack | primErrNode := methodNode primitiveErrorVariableName ifNotNil: [self fixTemp: methodNode primitiveErrorVariableName]. methodNode ensureClosureAnalysisDone. self rootNode: methodNode. "this is for BlockNode>>sizeCodeForClosureValue:" blkSize := (methodNode block sizeCodeForEvaluatedValue: self) + (methodNode primitive > 0 ifTrue: [self sizeCallPrimitive: methodNode primitive] ifFalse: [0]) + (primErrNode ifNil: [0] ifNotNil: [primErrNode index: methodNode arguments size + methodNode temporaries size; sizeCodeForStore: self "The VM relies on storeIntoTemp: (129)"]). locals := methodNode arguments, methodNode temporaries, (primErrNode ifNil: [#()] ifNotNil: [{primErrNode}]). self noteBlockExtent: methodNode block blockExtent hasLocals: locals. header := self computeMethodHeaderForNumArgs: methodNode arguments size numTemps: locals size numLits: (nLits := (literals := self allLiterals) size) primitive: methodNode primitive. method := trailer createMethod: blkSize class: aCompiledMethodClass header: header. 1 to: nLits do: [:lit | (method literalAt: lit put: (literals at: lit)) isCompiledCode ifTrue: [(literals at: lit) outerCode: method]]. self streamToMethod: method. stack := ParseStack new init. methodNode primitive > 0 ifTrue: [self genCallPrimitive: methodNode primitive]. primErrNode ifNotNil: [primErrNode emitCodeForStore: stack encoder: self]. stack position: method numTemps. [methodNode block emitCodeForEvaluatedValue: stack encoder: self] on: Error "If an attempt is made to write too much code the method will be asked" do: [:ex| "to grow, and the grow attempt will fail in CompiledCode class>>#newMethodViaNewError" ex signalerContext sender method = (CompiledCode class>>#newMethodViaNewError) ifTrue: [^self error: 'Compiler code size discrepancy'] ifFalse: [ex pass]]. stack position ~= (method numTemps + 1) ifTrue: [^self error: 'Compiler stack discrepancy']. stream position ~= (method size - trailer size) ifTrue: [^self error: 'Compiler code size discrepancy']. method needsFrameSize: stack size - method numTemps. ^method! Item was added: + ----- Method: CompilationCue>>source: (in category 'accessing') ----- + source: aString + + source := aString. + sourceStream := source readStream.! Item was changed: + ----- Method: EncoderForSistaV1>>computeMethodHeaderForNumArgs:numTemps:numLits:primitive: (in category 'method generation') ----- - ----- Method: EncoderForSistaV1>>computeMethodHeaderForNumArgs:numTemps:numLits:primitive: (in category 'method encoding') ----- computeMethodHeaderForNumArgs: numArgs numTemps: numTemps numLits: numLits primitive: primitiveIndex numTemps > 63 ifTrue: [^self error: 'Cannot compile -- too many temporary variables']. numLits > 65535 ifTrue: [^self error: 'Cannot compile -- too many literals']. ^SmallInteger minVal "sign bit is the flag for the alternative bytecode set" + (numArgs bitShift: 24) + (numTemps bitShift: 18) "+ (largeBit bitShift: 17)" "largeBit gets filled in later" + numLits + (primitiveIndex > 0 ifTrue: [1 bitShift: 16] ifFalse: [0])! Item was changed: + ----- Method: EncoderForSistaV1>>genCallInlinePrimitive: (in category 'bytecode generation') ----- - ----- Method: EncoderForSistaV1>>genCallInlinePrimitive: (in category 'extended bytecode generation') ----- genCallInlinePrimitive: primitiveIndex " 248 (2) 11111000 iiiiiiii mssjjjjj Call Primitive #iiiiiiii + (jjjjj * 256) m=1 means inlined primitive, no hard return after execution. ss defines the unsafe operation set used to encode the operations. (ss = 0 means sista unsafe operations, ss = 01 means lowcode operations, other numbers are not used)" "N.B. We could have made CallPrimitive a 2-byte code taking an extension, but that would complicate the VM's determination of the primitive number and the primitive error code store since the extension, being optional, would make the sequence variable length." (primitiveIndex < 1 or: [primitiveIndex > 32767]) ifTrue: [self outOfRangeError: 'primitive index' index: primitiveIndex range: 1 to: 32767]. stream nextPut: 248; nextPut: (primitiveIndex bitAnd: 255); nextPut: (primitiveIndex bitShift: -8) + 128! Item was changed: + ----- Method: EncoderForSistaV1>>genPushFullClosure:numCopied: (in category 'bytecode generation') ----- - ----- Method: EncoderForSistaV1>>genPushFullClosure:numCopied: (in category 'extended bytecode generation') ----- genPushFullClosure: compiledBlockLiteralIndex numCopied: numCopied "By default the closure will have an outer context and the receiver will be fetched from the current context" self genPushFullClosure: compiledBlockLiteralIndex numCopied: numCopied receiverOnStack: false ignoreOuterContext: false! Item was changed: + ----- Method: EncoderForSistaV1>>genPushFullClosure:numCopied:receiverOnStack:ignoreOuterContext: (in category 'bytecode generation') ----- - ----- Method: EncoderForSistaV1>>genPushFullClosure:numCopied:receiverOnStack:ignoreOuterContext: (in category 'extended bytecode generation') ----- genPushFullClosure: compiledBlockLiteralIndex numCopied: numCopied receiverOnStack: receiverOnStack ignoreOuterContext: ignoreOuterContext "* 249 11111001 xxxxxxxx siyyyyyy push Closure Compiled block literal index xxxxxxxx (+ Extend A * 256) numCopied yyyyyy receiverOnStack: s = 1 ignoreOuterContext: i = 1" | extendedIndex | (numCopied < 0 or: [numCopied > 64]) ifTrue: [self outOfRangeError: 'num copied' index: numCopied range: 1 to: 64]. (compiledBlockLiteralIndex < 0 or: [compiledBlockLiteralIndex > 32767]) ifTrue: [^self outOfRangeError: 'index' index: compiledBlockLiteralIndex range: 0 to: 32767]. (extendedIndex := compiledBlockLiteralIndex) > 255 ifTrue: [self genUnsignedSingleExtendA: extendedIndex // 256. extendedIndex := extendedIndex \\ 256]. stream nextPut: 249; nextPut: extendedIndex; nextPut: receiverOnStack asBit << 7 + (ignoreOuterContext asBit << 6) + numCopied! Item was changed: + ----- Method: EncoderForSistaV1>>genSendDirectedSuper:numArgs: (in category 'bytecode generation') ----- - ----- Method: EncoderForSistaV1>>genSendDirectedSuper:numArgs: (in category 'extended bytecode generation') ----- genSendDirectedSuper: selectorLiteralIndex numArgs: nArgs | extendedIndex | (selectorLiteralIndex < 0 or: [selectorLiteralIndex > 65535]) ifTrue: [^self outOfRangeError: 'selectorLiteralIndex' index: selectorLiteralIndex range: 0 to: 65535]. (nArgs < 0 or: [nArgs > 31]) ifTrue: [^self outOfRangeError: 'numArgs' index: nArgs range: 0 to: 31 "!!!!"]. (extendedIndex := selectorLiteralIndex) > 31 ifTrue: [self genUnsignedMultipleExtendA: extendedIndex // 32. extendedIndex := extendedIndex \\ 32]. "Bit 6 of the ExtB byte is the directed send flag. Bit 6 allows for future expansion to up to 255 args." self genUnsignedSingleExtendB: nArgs // 8 + 64. "235 11101011 iiiiijjj Send To Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments" stream nextPut: 235; nextPut: nArgs \\ 8 + (extendedIndex * 8)! Item was changed: ----- Method: Parser>>notify:at: (in category 'error handling') ----- notify: string at: location | messageText | messageText := '"' , string , ' ->"'. cue requestor isNil ifTrue: [ | notification | (encoder == self or: [encoder isNil]) ifTrue: [^ self fail "failure setting up syntax error"]. (notification := SyntaxErrorNotification + cue: (cue copy + source: (source contents asText + copyReplaceFrom: location + to: location - 1 + with: messageText); + yourself) - inClass: encoder classEncoding - withCode: (source contents asText - copyReplaceFrom: location - to: location - 1 - with: messageText) doitFlag: doitFlag errorMessage: string location: location) signal. notification tryNewSourceIfAvailable] ifFalse: [cue requestor notify: messageText at: location in: source]. ^ self fail! Item was changed: Error subclass: #SyntaxErrorNotification + instanceVariableNames: 'cue doitFlag errorMessage location newSource' - instanceVariableNames: 'inClass code doitFlag errorMessage location newSource' classVariableNames: '' poolDictionaries: '' category: 'Compiler-Exceptions'! + !SyntaxErrorNotification commentStamp: 'ct 10/24/2020 00:01' prior: 0! - !SyntaxErrorNotification commentStamp: 'nice 9/18/2013 22:16' prior: 0! A SyntaxErrorNotification is an Exception occuring when compiling a Smalltalk source code with incorrect syntax. Note that in interactive mode, this exception is not raised because the Compiler will interact directly with source code editor. The defaultAction is to raise a SyntaxError pop up window so as to enable interactive handling even in non interactive mode. Instance Variables + cue: <CompilationCue> - category: <String | nil> - code: <String | Text | Stream> doitFlag: <Boolean> errorMessage: <String> - inClass: <Behavior> location: <Integer> newSource: <String | Text | Stream | nil> + cue + - the cue for compilation, including receiver class, optional context, and original source code - category - - the category in which the method will be classified - code - - the source code to be compiled or evaluated - doitFlag - true if this is a doIt (code to evaluate), false if this is a method (code of a method to be compiled) errorMessage - contains information about the syntax error - inClass - - target class in which to compile the method - location - position in the source code where the syntax error occured newSource + - eventually hold a source code replacement typically passed by the SyntaxError window! - - eventually hold a source code replacement typically passed by the SyntaxError window - ! Item was added: + ----- Method: SyntaxErrorNotification class>>cue:doitFlag:errorMessage:location: (in category 'instance creation') ----- + cue: aCue doitFlag: doitFlag errorMessage: errorString location: location + + ^ self new + setCue: aCue + doitFlag: doitFlag + errorMessage: errorString + location: location! Item was changed: + ----- Method: SyntaxErrorNotification class>>inClass:withCode:doitFlag:errorMessage:location: (in category 'instance creation') ----- - ----- Method: SyntaxErrorNotification class>>inClass:withCode:doitFlag:errorMessage:location: (in category 'exceptionInstantiator') ----- inClass: aClass withCode: codeString doitFlag: doitFlag errorMessage: errorString location: location + + self deprecated: 'ct: Use #cue:doitFlag:errorMessage:location:'. + ^ self + cue: (CompilationCue source: codeString class: aClass requestor: nil) - ^self new - setClass: aClass - code: codeString doitFlag: doitFlag errorMessage: errorString location: location! Item was added: + ----- Method: SyntaxErrorNotification>>context (in category 'accessing') ----- + context + + ^ cue context! Item was added: + ----- Method: SyntaxErrorNotification>>environment (in category 'accessing') ----- + environment + + ^ cue environment! Item was changed: ----- Method: SyntaxErrorNotification>>errorClass (in category 'accessing') ----- errorClass + + ^ cue getClass! - ^inClass! Item was changed: ----- Method: SyntaxErrorNotification>>errorCode (in category 'accessing') ----- errorCode + + ^ cue source! - ^code! Item was changed: ----- Method: SyntaxErrorNotification>>messageText (in category 'accessing') ----- messageText ^ super messageText + ifEmpty: [messageText := self errorCode]! - ifEmpty: [messageText := code]! Item was changed: ----- Method: SyntaxErrorNotification>>reparse:notifying:ifFail: (in category 'accessing') ----- reparse: aString notifying: aController ifFail: failBlock "Try to parse if aString has correct syntax, but do not evaluate/install any code. In case of incorrect syntax, execute failBlock and let a Compiler interact with the requestor. In case of correct syntax, set newSource." + + (doitFlag ifTrue: [nil class] ifFalse: [self errorClass]) newCompiler + compileCue: (cue copy + source: aString; + requestor: aController; + yourself) + noPattern: doitFlag + ifFail: failBlock. + newSource := aString.! - doitFlag - ifTrue: [nil class newCompiler compileNoPattern: aString in: nil class notifying: aController ifFail: failBlock] - ifFalse: [inClass newCompiler compile: aString in: inClass notifying: aController ifFail: failBlock]. - newSource := aString! Item was removed: - ----- Method: SyntaxErrorNotification>>setClass:code:doitFlag:errorMessage:location: (in category 'accessing') ----- - setClass: aClass code: codeString doitFlag: aBoolean errorMessage: errorString location: anInteger - inClass := aClass. - code := codeString. - doitFlag := aBoolean. - errorMessage := errorString. - location := anInteger! Item was added: + ----- Method: SyntaxErrorNotification>>setCue:doitFlag:errorMessage:location: (in category 'initialize-release') ----- + setCue: aCue doitFlag: aBoolean errorMessage: errorString location: anInteger + + cue := aCue. + doitFlag := aBoolean. + errorMessage := errorString. + location := anInteger!

1 0

The Trunk: Tools-tpr.1014.mcz
by commits＠source.squeak.org 30 Oct '20

30 Oct '20

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.1014.mcz ==================== Summary ==================== Name: Tools-tpr.1014 Author: tpr Time: 30 October 2020, 11:35:44.264054 am UUID: 5649c88a-0205-4ae7-abc7-f0b420348d4a Ancestors: Tools-mt.1013 Yet a nother tiny bit of collateral damage fro mwhacking the MessageSet classes - the flaps related build of the RecentMessageSet was not getting a window label. Somehow the odler version was simply dragging in the class name, which wasn't really very helpful anyway. This updates it to have the same name as the 'norammly opened variety. There is probably some more refactoring that could be done. =============== Diff against Tools-mt.1013 =============== Item was changed: ----- Method: Utilities class>>recentSubmissionsWindow (in category '*Tools') ----- recentSubmissionsWindow "Answer a SystemWindow holding recent submissions" | messageSet | messageSet := RecentMessageSet messageList: RecentMessages default methodReferences. + messageSet + autoSelectString: nil; + setInitialLabel: 'Recent Submissions'. - messageSet autoSelectString: nil. ^ ToolBuilder build: messageSet!

1 0

The Trunk: Tools-mt.1013.mcz
by commits＠source.squeak.org 30 Oct '20

30 Oct '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1013.mcz ==================== Summary ==================== Name: Tools-mt.1013 Author: mt Time: 30 October 2020, 6:39:01.425754 pm UUID: 3fca46e0-aeec-d443-a197-80a731362fdb Ancestors: Tools-mt.1012 Fixes strange init bug that was triggered through "ReleaseBuilder prepareEnvironment": windowLabel was nil for the RecentMessageSet. Might be related to that recent reset of all pragma preferences plus the changes in MessageSet labels. =============== Diff against Tools-mt.1012 =============== Item was changed: ----- Method: MessageSet>>initialize (in category 'initialize-release') ----- initialize + super initialize. + + messageList := OrderedCollection new. + windowLabel := ''.! - messageList := OrderedCollection new.!

1 0

The Trunk: Tools-mt.1012.mcz
by commits＠source.squeak.org 30 Oct '20

30 Oct '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1012.mcz ==================== Summary ==================== Name: Tools-mt.1012 Author: mt Time: 30 October 2020, 5:43:57.205709 pm UUID: 4d5b840d-943d-2e4a-ba5d-35d6a4c3aaff Ancestors: Tools-eem.1011 Speed up updates in inspectors -- and thus debuggers --, which results in a quicker response when clicking "step into/over/through" many times in a row. Removes last traces of polling updates in debugger, which is not needed because of how #updateInspectors is used there. Also fixes a bug with "step through", which was not updating both inspectors correctly. =============== Diff against Tools-eem.1011 =============== Item was changed: ----- Method: BasicInspector>>streamInstanceVariablesOn: (in category 'fields - streaming') ----- streamInstanceVariablesOn: aStream + | attributesForInstVars | + attributesForInstVars := (UserInterfaceTheme current get: #instVar for: #SHTextStylerST80) ifNil: [#()]. + (thisContext objectClass: self object) allInstVarNames withIndexDo: [:name :index | aStream nextPut: ((self newFieldForType: #instVar key: name) + name: name; styleName: attributesForInstVars; - name: name asString; - shouldStyleName: true; valueGetter: [:object | thisContext object: object instVarAt: index]; valueGetterExpression: ('thisContext object: {1} instVarAt: {2}' format: { 'self'. index }); valueSetter: [:object :value | thisContext object: object instVarAt: index put: value]; yourself)].! Item was removed: - ----- Method: Debugger>>step (in category 'stepping - morphic') ----- - step - "Update the inspectors." - - receiverInspector ifNotNil: [receiverInspector step]. - contextVariablesInspector ifNotNil: [contextVariablesInspector step]. - ! Item was changed: ----- Method: Debugger>>stepIntoBlock (in category 'context stack menu') ----- stepIntoBlock "Send messages until you return to the present method context. Used to step into a block in the method." + | currentContext newContext | + self okToChange ifFalse: [^ self]. + self checkContextSelection. + currentContext := self selectedContext. self handleLabelUpdatesIn: + [interruptedProcess stepToHome: currentContext] - [interruptedProcess stepToHome: self selectedContext] whenExecuting: self selectedContext. + newContext := interruptedProcess stepToSendOrReturn. + self contextStackIndex > 1 + ifTrue: [self resetContext: newContext] + ifFalse: + [newContext == currentContext + ifTrue: [self changed: #contentsSelection. + self updateInspectors] + ifFalse: [self resetContext: newContext]].! - self resetContext: interruptedProcess stepToSendOrReturn! Item was removed: - ----- Method: Debugger>>updateCodePaneIfNeeded (in category 'self-updating') ----- - updateCodePaneIfNeeded - "Ignore. We must not update code but stick to particular compiled methods on the stack."! Item was changed: + ----- Method: Debugger>>updateInspectors (in category 'self-updating') ----- - ----- Method: Debugger>>updateInspectors (in category 'stepping - morphic') ----- updateInspectors "Update the inspectors on the receiver's variables." receiverInspector == nil ifFalse: [receiverInspector update]. contextVariablesInspector == nil ifFalse: [contextVariablesInspector update]! Item was removed: - ----- Method: Debugger>>wantsSteps (in category 'stepping - morphic') ----- - wantsSteps - - ^ true! Item was added: + ----- Method: Debugger>>wantsStepsIn: (in category 'self-updating') ----- + wantsStepsIn: aWindow + + ^ false! Item was changed: ----- Method: Inspector>>fieldSelf (in category 'fields') ----- fieldSelf ^ (self newFieldForType: #self key: #self) + name: 'self'; styleName: ((UserInterfaceTheme current get: #self for: #SHTextStylerST80) ifNil: [#()]); - shouldStyleName: true; valueGetter: [:object | object]; valueSetter: [:object :value | self object: value]; "Switch to another object-under-inspection." yourself! Item was changed: ----- Method: Inspector>>streamInstanceVariablesOn: (in category 'fields - streaming') ----- streamInstanceVariablesOn: aStream + | attributesForInstVars | + attributesForInstVars := (UserInterfaceTheme current get: #instVar for: #SHTextStylerST80) ifNil: [#()]. + (self object perform: #class "do not inline send of #class, receiver could be a proxy") allInstVarNames withIndexDo: [:name :index | aStream nextPut: ((self newFieldForType: #instVar key: name) + name: name; styleName: attributesForInstVars; - shouldStyleName: true; valueGetter: [:object | object instVarNamed: name]; valueSetter: [:object :value | object instVarNamed: name put: value]; yourself)].! Item was changed: ----- Method: Inspector>>textColorForError (in category 'user interface') ----- textColorForError + ^ TextColor color: ((UserInterfaceTheme current get: #errorColor for: #TestRunner) ifNil: [Color red])! - ^ TextColor color: ((self userInterfaceTheme get: #errorColor for: #TestRunner) ifNil: [Color red])! Item was changed: ----- Method: InspectorField>>deEmphasizeName (in category 'initialization') ----- deEmphasizeName self flag: #hardcoded. + self styleName: + {TextColor color: + ((UserInterfaceTheme current get: #balloonTextColor for: #PluggableTextMorphPlus) + ifNil: [Color gray])}.! - self name: (self name asText - addAttribute: (TextColor color: (self userInterfaceTheme get: #balloonTextColor for: #PluggableTextMorphPlus)); - yourself).! Item was changed: ----- Method: InspectorField>>emphasizeName (in category 'initialization') ----- emphasizeName - | regularEmphasis customEmphasis | - self flag: #hardcoded. + self styleName: { + self isCustom + ifFalse: [TextEmphasis italic] + ifTrue: [TextColor color: + ((UserInterfaceTheme current get: #highlightTextColor for: #SimpleHierarchicalListMorph) + ifNil: [Color red])]}! - regularEmphasis := TextEmphasis italic. - customEmphasis := TextColor color: ((self userInterfaceTheme get: #highlightTextColor for: #SimpleHierarchicalListMorph) ifNil: [Color red]). - - self name: (self name asText - addAttribute: (self isCustom ifTrue: [customEmphasis] ifFalse: [regularEmphasis]); - yourself).! Item was added: + ----- Method: InspectorField>>styleName: (in category 'initialization') ----- + styleName: someTextAttributesOrColors + + self name: (self name asText + addAllAttributes: (someTextAttributesOrColors + collect: [:ea | ea isColor ifTrue: [TextColor color: ea] ifFalse: [ea]]); + yourself).!

1 0

The Trunk: Kernel-eem.1356.mcz
by commits＠source.squeak.org 30 Oct '20

30 Oct '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1356.mcz ==================== Summary ==================== Name: Kernel-eem.1356 Author: eem Time: 30 October 2020, 7:55:52.516141 am UUID: 589e93d6-d597-46f2-a09c-9d646902f1e1 Ancestors: Kernel-eem.1355 selectorJustSentOrSelf (used in process termination) must be able to handle being at the start of a method. =============== Diff against Kernel-eem.1355 =============== Item was changed: ----- Method: InstructionStream>>selectorJustSentOrSelf (in category 'scanning') ----- selectorJustSentOrSelf "If this instruction follows a send, answer the send's selector, otherwise answer self." | method | method := self method. + ^method encoderClass selectorToSendOrItselfFor: self in: method at: (self previousPc ifNil: [^self])! - ^method encoderClass selectorToSendOrItselfFor: self in: method at: self previousPc!

1 0

The Trunk: Tools-eem.1011.mcz
by commits＠source.squeak.org 30 Oct '20

30 Oct '20

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.1011.mcz ==================== Summary ==================== Name: Tools-eem.1011 Author: eem Time: 29 October 2020, 9:22:00.000467 pm UUID: ffdfbc30-2976-4a66-bada-49278510b8ba Ancestors: Tools-tpr.1010 Fix the regression ot Recent Messages in Tools-tpr.1010 =============== Diff against Tools-tpr.1010 =============== Item was added: + ----- Method: RecentMessageSet>>initializeMessageList: (in category 'private') ----- + initializeMessageList: anArray + "Initialize my messageList from the given list of MethodReference or string objects. NB: special handling for uniclasses. + Do /not/ replace the elements of anArray if they are already MethodReferences, so as to allow users to construct richer systems, such as differencers between existing and edited versions of code." + messageList := OrderedCollection new. + anArray do: + [:each | each isMethodReference + ifTrue: [messageList addLast: each] + ifFalse: + [ MessageSet + parse: each + toClassAndSelector: + [ : class : sel | class ifNotNil: [ messageList addLast: (MethodReference class: class selector: sel) ] ] ] ]. + messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1]. + contents := String empty!

1 0

The Trunk: Tools-tpr.1010.mcz
by commits＠source.squeak.org 29 Oct '20

29 Oct '20

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.1010.mcz ==================== Summary ==================== Name: Tools-tpr.1010 Author: tpr Time: 29 October 2020, 11:10:57.263788 am UUID: 1ef23108-8885-419e-ad82-66b42e985086 Ancestors: Tools-eem.1009 Fix a bug introduced in Tools-tpr.1008 that made window labels go away in a few cases. =============== Diff against Tools-eem.1009 =============== Item was changed: ----- Method: ChangedMessageSet class>>openMessageList:name:autoSelect:changeSet: (in category 'opening') ----- openMessageList: messageList name: labelString autoSelect: autoSelectString changeSet: aChangeSet | messageSet | messageSet := self messageList: messageList. messageSet changeSet: aChangeSet. + messageSet autoSelectString: autoSelectString; + setInitialLabel: labelString. + ToolBuilder open: messageSet! - messageSet autoSelectString: autoSelectString. - ToolBuilder open: messageSet label: labelString.! Item was changed: ----- Method: MessageNames class>>openMessageNames (in category 'instance creation') ----- openMessageNames "Open a new instance of the receiver in the active world" + ^(ToolBuilder open: self new) model - ^(ToolBuilder open: self new label: 'Message Names') model "MessageNames openMessageNames" ! Item was added: + ----- Method: MessageNames>>windowTitle (in category 'toolbuilder') ----- + windowTitle + + ^ 'Message Names'! Item was changed: ----- Method: MessageSet class>>openMessageList:name: (in category 'instance creation') ----- + openMessageList: messageList name: labelString - openMessageList: anArray name: aString "Create a standard system view for the message set on the list, anArray. The label of the view is aString." + self openMessageList: messageList name: labelString autoSelect: nil! - self open: (self messageList: anArray) name: aString! Item was changed: ----- Method: MessageSet>>windowTitle (in category 'user interface') ----- windowTitle "just return the basic label for now" + ^String streamContents: + [:str| str nextPutAll: windowLabel; + space; + nextPut: $[; + nextPutAll: messageList size asString; + nextPut: $] + ]! - ^windowLabel!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2020