Squeak-dev November 2023

squeak-dev@lists.squeakfoundation.org

30 participants
170 discussions

The Trunk: System-mt.1436.mcz
by commits＠source.squeak.org 28 Nov '23

28 Nov '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1436.mcz ==================== Summary ==================== Name: System-mt.1436 Author: mt Time: 28 November 2023, 10:33:10.464569 am UUID: 81edd9b9-3897-434b-840b-a628c005b995 Ancestors: System-dtl.1435 Complements Tools-mt.1241 =============== Diff against System-dtl.1435 =============== Item was changed: ----- Method: Process>>debug (in category '*System-debugging') ----- debug + "See the comment in #debugWithCue:." - "See the comment in #debugWithTitle:full:contents:." ^ self debugWithTitle: 'Debugger' translated! Item was added: + ----- Method: Process>>debugWithCue: (in category '*System-debugging') ----- + debugWithCue: invocationCue + "BEWARE!! Open a debugger on the receiver, which must neither be running nor be simulated. Examples include workspace do-its, test execution, and helper processes. If you want to begin with a certain context, use #runUntil: before calling to here. + + [ 3 + 4 ] newProcess debug. + (Process forBlock: [ 3 + 4 ]) debug. + + Note that for debugging the currently running process, which might currently simulate the receiver, use ProcessorScheduler >> #debugWithTitle:. + + (IMPLEMENTATION NOTE: The debugger interface is capable of debugging the active process correctly. However, unconditionally sending debug messages to the active process, in the past, led to a very tedious number of infinite debugger chains in an edge case when the effectiveProcess differs from the genuineProcess being executed by the VM (see ProcessorScheduler >> #activeProcess). This edge case occurs when a debugger is raised while another process is being simulated (aka process-faithful debugging, see #evaluate:onBehalfOf:), so at the very least Kernel methods should never send this message to the active process. For more information, see http://forum.world.st/I-broke-the-debugger-td5110752.html)" + + self assert: [self suspendedContext notNil "= not running"]. + self assert: [self isActiveProcess not "= not even simulated"]. + + self assert: [invocationCue process isNil]. + invocationCue process: self. + self assert: [invocationCue context isNil]. + invocationCue context: self suspendedContext. + + ^ ToolSet debugWithCue: invocationCue! Item was changed: ----- Method: Process>>debugWithTitle: (in category '*System-debugging') ----- debugWithTitle: title + "See the comment in #debugWithCue:." - "See the comment in #debugWithTitle:full:contents:." ^ self debugWithTitle: title full: true! Item was changed: ----- Method: Process>>debugWithTitle:full: (in category '*System-debugging') ----- debugWithTitle: title full: aBoolean + "See the comment in #debugWithCue:." - "See the comment in #debugWithTitle:full:contents:." ^ self debugWithTitle: title full: aBoolean contents: nil! Item was changed: ----- Method: Process>>debugWithTitle:full:contents: (in category '*System-debugging') ----- debugWithTitle: title full: bool contents: contents + "See the comment in #debugWithCue:." - "BEWARE!! Open a debugger on the receiver, which must neither be running nor be simulated. Examples include workspace do-its, test execution, and helper processes. If you want to begin with a certain context, use #runUntil: before calling to here. - - [ 3 + 4 ] newProcess debug. - (Process forBlock: [ 3 + 4 ]) debug. - - Note that for debugging the currently running process, which might currently simulate the receiver, use ProcessorScheduler >> #debugWithTitle:. - - (IMPLEMENTATION NOTE: The debugger interface is capable of debugging the active process correctly. However, unconditionally sending debug messages to the active process, in the past, led to a very tedious number of infinite debugger chains in an edge case when the effectiveProcess differs from the genuineProcess being executed by the VM (see ProcessorScheduler >> #activeProcess). This edge case occurs when a debugger is raised while another process is being simulated (aka process-faithful debugging, see #evaluate:onBehalfOf:), so at the very least Kernel methods should never send this message to the active process. For more information, see http://forum.world.st/I-broke-the-debugger-td5110752.html)" + ^ self debugWithCue: (DebuggerInvocationCue new + "process: nil;" + "context: nil;" + label: title; + contents: contents; + fullView: bool; + yourself)! - self assert: [self suspendedContext notNil "= not running"]. - self assert: [self isActiveProcess not "= not even simulated"]. - - ^ ToolSet - debugProcess: self - context: self suspendedContext - label: title - contents: contents - fullView: bool! Item was changed: ----- Method: ProcessorScheduler>>debugContext:title:full:contents: (in category '*System-Applications-debugging') ----- debugContext: aContext title: title full: aBoolean contents: contents - "Open a debugger on the currently running (i.e. genuine) process. Note that that process might actually simulate another process, which ends up here by checking #isActiveProcess. If no code simulation is involved, the genuine process will be suspended along the way -- and hopefully replaced to keep the system responsive. For the simulated case, an existing debugger should take over and leave the genuine process running, that is, simulating. Examples include (a) handling unhandled errors in a tool set and (b) introspecting thisContext to reveal dialog invocation. + self flag: #deprecated. + ^ self debugWithCue: (DebuggerInvocationCue new + "process: nil;" + context: aContext; + label: title; + contents: contents; + fullView: aBoolean; + yourself)! - Processor debugWithTitle: 'Debug' full: false contents: 'Carpe Squeak!!' - - Note that, outside code simulation, suspended processes can be debugged directly via Process >> #debugWithTitle:. " - - self assert: [thisContext hasSender: aContext]. - - ^ ToolSet - debugProcess: genuineProcess - context: aContext - label: title - contents: contents - fullView: aBoolean! Item was changed: ----- Method: ProcessorScheduler>>debugContextThat:title: (in category '*System-Applications-debugging') ----- debugContextThat: aBlock title: title + "See the comment in #debugWithCue:." - "See the comment in #debugContext:title:full:contents:." + ^ self debugWithCue: (DebuggerInvocationCue new + "process: nil;" + context: (thisContext sender findContextSuchThat: aBlock); + label: title; + "contents: nil;" + fullView: true; + yourself)! - ^ self - debugContext: (thisContext sender findContextSuchThat: aBlock) - title: title - full: true - contents: nil! Item was changed: ----- Method: ProcessorScheduler>>debugContextThat:title:full: (in category '*System-Applications-debugging') ----- debugContextThat: aBlock title: title full: aBoolean + "See the comment in #debugWithCue:." - "See the comment in #debugContext:title:full:contents:." + ^ self debugWithCue: (DebuggerInvocationCue new + "process: nil;" + context: (thisContext sender findContextSuchThat: aBlock); + label: title; + "contents: nil;" + fullView: aBoolean; + yourself)! - ^ self - debugContext: (thisContext sender findContextSuchThat: aBlock) - title: title - full: aBoolean - contents: nil! Item was changed: ----- Method: ProcessorScheduler>>debugContextThat:title:full:contents: (in category '*System-Applications-debugging') ----- debugContextThat: aBlock title: title full: aBoolean contents: contents + "See the comment in #debugWithCue:." - "See the comment in #debugContext:title:full:contents:." + ^ self debugWithCue: (DebuggerInvocationCue new + "process: nil;" + context: (thisContext sender findContextSuchThat: aBlock); + label: title; + contents: contents; + fullView: aBoolean; + yourself)! - ^ self - debugContext: (thisContext sender findContextSuchThat: aBlock) - title: title - full: aBoolean - contents: contents! Item was added: + ----- Method: ProcessorScheduler>>debugWithCue: (in category '*System-Applications-debugging') ----- + debugWithCue: invocationCue + "Open a debugger on the currently running (i.e. genuine) process. Note that that process might actually simulate another process, which ends up here by checking #isActiveProcess. If no code simulation is involved, the genuine process will be suspended along the way -- and hopefully replaced to keep the system responsive. For the simulated case, an existing debugger should take over and leave the genuine process running, that is, simulating. Examples include (a) handling unhandled errors in a tool set and (b) introspecting thisContext to reveal dialog invocation. + + Processor debugWithTitle: 'Debug' full: false contents: 'Carpe Squeak!!' + + Note that, outside code simulation, suspended processes can be debugged directly via Process >> #debugWithTitle:. " + + self assert: [invocationCue context notNil]. + self assert: [thisContext hasSender: invocationCue context]. + + self assert: [invocationCue process isNil]. + invocationCue process: genuineProcess. + + ^ ToolSet debugWithCue: invocationCue! Item was changed: ----- Method: ProcessorScheduler>>debugWithTitle: (in category '*System-Applications-debugging') ----- debugWithTitle: title + "See the comment in #debugWithCue:." - "See the comment in #debugContext:title:full:contents:." + ^ self debugWithCue: (DebuggerInvocationCue new + "process: nil;" + context: thisContext sender; + label: title; + "contents: nil;" + fullView: true; + yourself)! - ^ self - debugContext: thisContext sender - title: title - full: true - contents: nil! Item was changed: ----- Method: ProcessorScheduler>>debugWithTitle:full: (in category '*System-Applications-debugging') ----- debugWithTitle: title full: aBoolean + "See the comment in #debugWithCue:." - "See the comment in #debugContext:title:full:contents:." + ^ self debugWithCue: (DebuggerInvocationCue new + "process: nil;" + context: thisContext sender; + label: title; + "contents: nil;" + fullView: aBoolean; + yourself)! - ^ self - debugContext: thisContext sender - title: title - full: aBoolean - contents: nil! Item was changed: ----- Method: ProcessorScheduler>>debugWithTitle:full:contents: (in category '*System-Applications-debugging') ----- debugWithTitle: title full: aBoolean contents: contents + "See the comment in #debugWithCue:." + + ^ self debugWithCue: (DebuggerInvocationCue new + "process: nil;" + context: thisContext sender; + label: title; + contents: contents; + fullView: aBoolean; + yourself)! - "See the comment in #debugContext:title:full:contents:." - - ^ self - debugContext: thisContext sender - title: title - full: aBoolean - contents: contents! Item was changed: ----- Method: ToolSet class>>debugProcess:context:label:contents:fullView: (in category 'debugging') ----- debugProcess: aProcess context: aContext label: aString contents: contents fullView: aBool - "Open a debugger on the given process, which might be active, suspended, or terminated. You can also use the convenience protocol for debugging on Process and ProcessorScheduler. - - NOTE that you SHOULD NOT pass 'Processor activeProcess' directly to this method to avoid mixing code simulation with genuine code execution. Always use the indirection via ProcessorScheduler >>#debug... See also the comment in Process >> #debugWithTitle:full:contents:." + self flag: #deprecated. - "First, guard this incident to detect and handle recursive errors." - ^ Project current guardRecursiveError: aString during: [ + ^ self debugWithCue: (DebuggerInvocationCue new + process: aProcess; + context: aContext; + label: aString; + contents: contents; + fullView: aBool; + yourself)! - "In any case, log the debugging incident into an external file." - Smalltalk tryLogSqueakError: aString inContext: aContext. - - self default - ifNotNil: [:toolSet | - "Let the current tool set decide about the best tool for the job." - toolSet - debugProcess: aProcess context: aContext - label: aString contents: contents - fullView: aBool] - ifNil: [ - "There is no tool set!! :-O ... Inform the user in a simple dialog." - Project current - debugProcess: aProcess - inDialog: ('No debugger available for process:\\ Name: {1}\ Hash: {2}\ Context: {3}\ Title: {4}\ Message: {5}' translated withCRs - format: {aProcess name. aProcess hash. aContext. aString. contents})] ]! Item was added: + ----- Method: ToolSet class>>debugWithCue: (in category 'debugging') ----- + debugWithCue: invocationCue + "Open a debugger on the given process, which might be active, suspended, or terminated. You can also use the convenience protocol for debugging on Process and ProcessorScheduler. + + NOTE that you SHOULD NOT pass 'Processor activeProcess' directly to this method to avoid mixing code simulation with genuine code execution. Always use the indirection via ProcessorScheduler >>#debug... See also the comment in Process >> #debugWithTitle:full:contents:." + + self assert: [invocationCue process notNil]. + self assert: [invocationCue context notNil]. + + "First, guard this incident to detect and handle recursive errors." + ^ Project current guardRecursiveError: invocationCue label during: [ + + "In any case, log the debugging incident into an external file." + Smalltalk tryLogSqueakError: invocationCue label inContext: invocationCue context. + + self default + ifNotNil: [:toolSet | + "Let the current tool set decide about the best tool for the job." + toolSet debugWithCue: invocationCue] + ifNil: [ + "There is no tool set!! :-O ... Inform the user in a simple dialog." + Project current + debugProcess: invocationCue process + inDialog: ('No debugger available for process:\\ Name: {1}\ Hash: {2}\ Context: {3}\ Title: {4}\ Message: {5}' translated withCRs + format: { + invocationCue process name. + invocationCue process hash. + invocationCue context. + invocationCue label. + invocationCue contents})] ]!

1 0

The Trunk: Tools-mt.1241.mcz
by commits＠source.squeak.org 28 Nov '23

28 Nov '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1241.mcz ==================== Summary ==================== Name: Tools-mt.1241 Author: mt Time: 28 November 2023, 10:32:22.826569 am UUID: 5ecdd41c-8d57-fc45-8b23-d96784261782 Ancestors: Tools-dtl.1240 Adds DebuggerInvocationCue as an extension point to pass on more information from exceptions to the debugger. See senders of #todoDebugger if you want to make use of this new extension point. Thanks to Eliot (eem) for the idea and Jaromir (jar) for the use case via BlockCannotReturn. See discussions here: - http://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfoun… - http://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfoun… =============== Diff against Tools-dtl.1240 =============== Item was changed: ----- Method: Debugger class>>openOn:context:label:contents:fullView: (in category 'opening') ----- openOn: process context: context label: title contents: contentsStringOrNil fullView: bool - "PRIVATE!! Open a notifier or a full debugger window for the given process - at the given context. Clients MUST use a ToolSet that is configured with the - receiver class (or tool) to then debug a process via - Process >> #debug(WithTitle:) - ProcessorScheduler >> #debugWithTitle: - ToolSet >> #debugProcess:context:... - and similar messages in Process or ProcessorScheduler. - - Example invocations: - Processor debugWithTitle: 'Example'. - (Process forBlock: [3+4]) debug. - 7/0. - - Configure a new tool set like this - ToolSet default: StandardToolSet - See commentary in - Process >> #debugWithTitle:full:contents: - ProcessorScheduler >> #debugContext:title:full:contents:" + self flag: #deprecated. + + ^ self openOnCue: (DebuggerInvocationCue new + process: process; + context: context; + label: title; + contents: contentsStringOrNil; - ^ (self onProcess: process context: context) - openWithLabel: title - contents: contentsStringOrNil fullView: bool; + yourself)! - yourself! Item was added: + ----- Method: Debugger class>>openOnCue: (in category 'opening') ----- + openOnCue: invocationCue + "PRIVATE!! Open a notifier or a full debugger window for the given process + at the given context. Clients MUST use a ToolSet that is configured with the + receiver class (or tool) to then debug a process via + Process >> #debug(WithTitle:) + ProcessorScheduler >> #debugWithTitle: + ToolSet >> #debugProcess:context:... + and similar messages in Process or ProcessorScheduler. + + Example invocations: + Processor debugWithTitle: 'Example'. + (Process forBlock: [3+4]) debug. + 7/0. + + Configure a new tool set like this + ToolSet default: StandardToolSet + See commentary in + Process >> #debugWithTitle:full:contents: + ProcessorScheduler >> #debugContext:title:full:contents:" + + self flag: #todoDebugger. "mt: Use exception-specific parameters from the invocation cue such as for BlockCannotReturn. See discussions here: + - http://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfoun… + - http://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfoun… + " + + ^ (self onProcess: invocationCue process context: invocationCue context) + openWithLabel: invocationCue label + contents: invocationCue contents + fullView: invocationCue fullView; + yourself! Item was added: + Object subclass: #DebuggerInvocationCue + instanceVariableNames: 'process context label contents fullView' + classVariableNames: '' + poolDictionaries: '' + category: 'Tools-Debugger'! Item was added: + ----- Method: DebuggerInvocationCue>>contents (in category 'accessing') ----- + contents + + ^ contents! Item was added: + ----- Method: DebuggerInvocationCue>>contents: (in category 'accessing') ----- + contents: anObject + + contents := anObject.! Item was added: + ----- Method: DebuggerInvocationCue>>context (in category 'accessing') ----- + context + + ^ context! Item was added: + ----- Method: DebuggerInvocationCue>>context: (in category 'accessing') ----- + context: anObject + + context := anObject.! Item was added: + ----- Method: DebuggerInvocationCue>>fullView (in category 'accessing') ----- + fullView + + ^ fullView ifNil: [false]! Item was added: + ----- Method: DebuggerInvocationCue>>fullView: (in category 'accessing') ----- + fullView: anObject + + fullView := anObject.! Item was added: + ----- Method: DebuggerInvocationCue>>label (in category 'accessing') ----- + label + + ^ label! Item was added: + ----- Method: DebuggerInvocationCue>>label: (in category 'accessing') ----- + label: anObject + + label := anObject.! Item was added: + ----- Method: DebuggerInvocationCue>>process (in category 'accessing') ----- + process + + ^ process! Item was added: + ----- Method: DebuggerInvocationCue>>process: (in category 'accessing') ----- + process: anObject + + process := anObject.! Item was changed: ----- Method: StandardToolSet class>>debugProcess:context:label:contents:fullView: (in category 'debugging') ----- debugProcess: aProcess context: aContext label: aString contents: contents fullView: aBool + self flag: #deprecated. - (aProcess isTerminated and: [aString isNil or: [aString beginsWith: 'Debug it']]) ifTrue: [ - ^ Project uiManager inform: 'Nothing to debug. Process has terminated.\Expression optimized.' translated withCRs]. + ^ self debugWithCue: (DebuggerInvocationCue new + process: aProcess; + context: aContext; + label: aString; + contents: contents; + fullView: aBool; + yourself)! - ^ Debugger - openOn: aProcess - context: aContext - label: aString - contents: contents - fullView: aBool! Item was added: + ----- Method: StandardToolSet class>>debugWithCue: (in category 'debugging') ----- + debugWithCue: invocationCue + + (invocationCue process isTerminated and: [invocationCue label isNil or: [invocationCue label beginsWith: 'Debug it']]) ifTrue: [ + ^ Project uiManager inform: 'Nothing to debug. Process has terminated.\Expression optimized.' translated withCRs]. + + ^ Debugger openOnCue: invocationCue! Item was changed: ----- Method: StandardToolSet class>>handleError: (in category 'debugging - handlers') ----- handleError: anError "Double dispatch. Let the processor take care of that error, which usually calls back here to #debugProcess:..." + self flag: #todoDebugger. "mt: Pass exception-specific parameters to the invocation cue such as for BlockCannotReturn. See discussions here: + - http://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfoun… + - http://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfoun… + " + + ^ Processor debugWithCue: (DebuggerInvocationCue new + context: anError signalerContext; + label: anError description; + fullView: false; + "contents: nil;" + yourself)! - ^ Processor - debugContext: anError signalerContext - title: anError description - full: false - contents: nil! Item was changed: ----- Method: StandardToolSet class>>handleWarning: (in category 'debugging - handlers') ----- handleWarning: aWarning "Double dispatch. Let the processor take care of that warning, which usually calls back here to #debugProcess:..." | message | message := '{1}\\{2}' withCRs asText format: { "First, show the actual text of this warning." aWarning messageText. "Second, append some helpful information that apply to all kinds of warnings." ('{1} {2}' asText format: { 'Select "Proceed" to continue or close this window to cancel the operation.' translated. 'If you do not want to be interrupted anymore, you can {1} this kind of warning. You can also {2}, which resets such warnings on the next image startup.' translated asText format: { "Provide clickable text links so that the user can directly suppress warnings." 'always suppress' asText addAttribute: (PluggableTextAttribute evalBlock: [ aWarning class suppressWarnings. self inform: ('All ''{1}'' warnings will be suppressed.' translated format: {aWarning class name})]). 'suppress temporarily' asText addAttribute: (PluggableTextAttribute evalBlock: [ aWarning class suppressAndResetOnStartUp. self inform: ('All ''{1}'' warnings will be suppressed\and reset on the next image startup.' translated withCRs format: {aWarning class name})])}. }) addAttribute: ( "Show this helpful information in a smaller font." TextFontReference toFont: Preferences standardButtonFont)}. + + self flag: #todoDebugger. "mt: Pass exception-specific parameters to the invocation cue such as for BlockCannotReturn. See discussions here: + - http://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfoun… + - http://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfoun… + " + + ^ Processor debugWithCue: (DebuggerInvocationCue new + context: aWarning signalerContext; + label: 'Warning' translated; + fullView: false; + contents: message; + yourself)! - - ^ Processor - debugContext: aWarning signalerContext - title: 'Warning' translated - full: false - contents: message! Item was changed: ----- Method: SyntaxError>>debug (in category 'menu') ----- debug "Show the stack of the process leading to this syntax editor, typically showing the stack of the compiler as called from fileIn." + ToolSet debugWithCue: (DebuggerInvocationCue new + process: compilerProcess; + context: notification signalerContext; + label: 'Stack of the Syntax Error' translated; + "contents: nil;" + fullView: true; + yourself). - ToolSet - debugProcess: compilerProcess - context: notification signalerContext - label: 'Stack of the Syntax Error' translated - contents: nil - fullView: true. "Receiver must give up control over that process now." compilerProcess := nil. self changed: #close.!

1 0

The Inbox: Kernel-jar.1539.mcz
by commits＠source.squeak.org 28 Nov '23

28 Nov '23

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-jar.1539.mcz ==================== Summary ==================== Name: Kernel-jar.1539 Author: jar Time: 28 November 2023, 1:07:51.739521 am UUID: 7dfe0ed8-86ec-f54a-9b12-11c337e0e8e5 Ancestors: Kernel-jar.1538 fix a bug in runUntilErrorOrReturnFrom: that prevents removing the guard contexts if they are placed below the bottom context (or above a dead context). The bug is a part of a series of bugs described in detail in the post from 27 Nov 2023 at: https://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfou… This changeset requires and complements its ancestor Kernel-jar.1538 =============== Diff against Kernel-jar.1538 =============== Item was changed: ----- Method: Context>>runUntilErrorOrReturnFrom: (in category 'controlling') ----- runUntilErrorOrReturnFrom: aSender "ASSUMES aSender is a sender of self. Execute self's stack until aSender returns or an unhandled exception is raised. Return a pair containing the new top context and a possibly nil exception. The exception is not nil if it was raised before aSender returned and it was not handled. The exception is returned rather than openning the debugger, giving the caller the choice of how to handle it." "Self is run by jumping directly to it (the active process abandons thisContext and executes self). However, before jumping to self we insert an ensure block under aSender that jumps back to thisContext when evaluated. We also insert an exception handler under aSender that jumps back to thisContext when an unhandled exception is raised. In either case, the inserted ensure and exception handler are removed once control jumps back to thisContext." | error ctxt here topContext | here := thisContext. "Insert ensure and exception handler contexts under aSender" error := nil. ctxt := aSender insertSender: (Context contextOn: UnhandledError do: [:ex | error ifNil: [ error := ex exception. topContext := thisContext. ex resumeUnchecked: here jump] ifNotNil: [ex pass] ]). ctxt := ctxt insertSender: (Context contextEnsure: [error ifNil: [ topContext := thisContext. here jump] ]). self jump. "Control jumps to self" "Control resumes here once above ensure block or exception handler is executed" ^ error ifNil: [ "No error was raised, remove ensure context by stepping until popped" + [ctxt isDead or: [topContext isNil]] whileFalse: [topContext := topContext stepToCalleeOrNil]. - [ctxt isDead or: [topContext isNil]] whileFalse: [topContext := topContext stepToCallee]. {topContext. nil} ] ifNotNil: [ "Error was raised, remove inserted above contexts then return signaler context" aSender terminateTo: ctxt sender. "remove above ensure and handler contexts" {topContext. error} ]! Item was added: + ----- Method: Context>>stepToCalleeOrNil (in category 'private') ----- + stepToCalleeOrNil + "Step to callee or sender; step to return and answer nil in case sender cannot be returned to." + + | ctxt | + ctxt := self. + [(ctxt willReturn and: [ctxt sender isNil or: [ctxt sender isDead]]) not and: [(ctxt := ctxt step) == self]] whileTrue. + ctxt == self ifTrue: [^nil]. + ^ctxt!

1 0

The Trunk: EToys-dtl.509.mcz
by commits＠source.squeak.org 27 Nov '23

27 Nov '23

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-dtl.509.mcz ==================== Summary ==================== Name: EToys-dtl.509 Author: dtl Time: 25 November 2023, 5:23:42.432774 pm UUID: ddbcb0de-59ad-4980-b768-d5b34db91d15 Ancestors: EToys-dtl.508 Clean up package categories =============== Diff against EToys-dtl.508 =============== Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! SystemOrganization addCategory: #'Etoys-OLPC-Display'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-SpeechBubbles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Intersection'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Simplification'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Triangulation'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Components'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Experimental'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Mentoring'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Navigators'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Postscript Filters'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Formatter'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Forms'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser Entities'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Tokenizer'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet WordNet'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'! SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'! SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'! SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'! SystemOrganization addCategory: #'Etoys-Squeakland-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Support'! SystemOrganization addCategory: #'Etoys-Tests'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'! SystemOrganization addCategory: #'Etoys-Widgets'! SystemOrganization addCategory: #'Etoys-Help'! - SystemOrganization addCategory: #'Etoys-Morphic-Worlds'! - SystemOrganization addCategory: #'Etoys-Tools-Base'! - SystemOrganization addCategory: #'Etoys-MorphicExtras-Widgets'! - SystemOrganization addCategory: #'Etoys-MorphicExtras-Flaps'! - SystemOrganization addCategory: #'Etoys-Morphic-Pluggable Widgets'! - SystemOrganization addCategory: #'Etoys-Tools-Browser'! SystemOrganization addCategory: #'Etoys-Morphic-Windows'! SystemOrganization addCategory: #'Etoys-Morphic-Text Support'! SystemOrganization addCategory: #'Etoys-Morphic-Explorer'! + SystemOrganization addCategory: #'Etoys-MorphicExtras-Flaps'! + SystemOrganization addCategory: #'Etoys-MorphicExtras-Widgets'! + SystemOrganization addCategory: #'Etoys-Morphic-Pluggable Widgets'! + SystemOrganization addCategory: #'Etoys-Morphic-Worlds'! SystemOrganization addCategory: #'Etoys-MorphicExtras-Obsolete'! + SystemOrganization addCategory: #'Etoys-Tools-Browser'! + SystemOrganization addCategory: #'Etoys-Tools-Base'!

3 5

The Inbox: HelpSystem-Core-ct.147.mcz
by commits＠source.squeak.org 27 Nov '23

27 Nov '23

Christoph Thiede uploaded a new version of HelpSystem-Core to project The Inbox: http://source.squeak.org/inbox/HelpSystem-Core-ct.147.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.147 Author: ct Time: 20 November 2023, 9:57:13.942141 pm UUID: 84d43c72-399b-4cc4-a12a-e039e5070a1d Ancestors: HelpSystem-Core-ct.145 In help browsers, do not spawn a search topic for an empty search term. =============== Diff against HelpSystem-Core-ct.145 =============== Item was changed: ----- Method: HelpBrowser>>searchTerm: (in category 'searching') ----- searchTerm: aTextOrString "Spawn a new search topic." | topic term | self okToChange ifFalse: [^ self]. + aTextOrString ifEmpty: [^ self]. "do not bother SearchTopic with empty search terms" term := aTextOrString asString. topic := self searchTopic subtopics detect: [:t | t term = term] ifNone: [ | newTopic | newTopic := SearchTopic new term: term; yourself. self searchTopic addSubtopic: newTopic. newTopic addDependent: self. "Tell me about your updates." newTopic]. "self changed: #searchTerm." "Select results and expand searches node if necessary." self currentTopicPath: {self searchTopic. topic}. self assert: self currentTopic == topic. topic topicsToSearch: self toplevelTopics allButLast; startSearch.!

2 1

Squeak 6.0: Monticello-mt.783.mcz
by commits＠source.squeak.org 27 Nov '23

27 Nov '23

Marcel Taeumel uploaded a new version of Monticello to project Squeak 6.0: http://source.squeak.org/squeak60/Monticello-mt.783.mcz ==================== Summary ==================== Name: Monticello-mt.783 Author: mt Time: 27 November 2023, 2:22:15.647901 pm UUID: a4cba6a3-a3a0-034b-b17c-81adc2034581 Ancestors: Monticello-mt.782 Fixes regression (i.e. missing #withCRs) in flush-cache dialog text. =============== Diff against Monticello-mt.782 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>flushCachedVersions (in category 'actions') ----- flushCachedVersions | beforeBytes afterBytes beforeVersions afterVersions | Cursor wait showWhile: [ Smalltalk garbageCollect. beforeBytes := Smalltalk bytesLeft: true. beforeVersions := MCVersion allSubInstances size. MCFileBasedRepository flushAllCaches. afterBytes := Smalltalk bytesLeft: true. afterVersions := MCVersion allSubInstances size. ]. + ^self inform: ('{1} versions flushed\{2} bytes reclaimed' translated withCRs format: {beforeVersions - afterVersions. beforeBytes - afterBytes})! - ^self inform: ('{1} versions flushed\{2} bytes reclaimed' translated format: {beforeVersions - afterVersions. beforeBytes - afterBytes})!

1 0

The Trunk: Monticello-mt.805.mcz
by commits＠source.squeak.org 27 Nov '23

27 Nov '23

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.805.mcz ==================== Summary ==================== Name: Monticello-mt.805 Author: mt Time: 27 November 2023, 2:21:19.803485 pm UUID: 1fa477fb-13f1-b54a-b0d3-48d3fbccc59c Ancestors: Monticello-ct.804 Fixes regression (i.e. missing #withCRs) in flush-cache dialog text. =============== Diff against Monticello-ct.804 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>flushCachedVersions (in category 'actions') ----- flushCachedVersions | beforeBytes afterBytes beforeVersions afterVersions | Cursor wait showWhile: [ Smalltalk garbageCollect. beforeBytes := Smalltalk bytesLeft: true. beforeVersions := MCVersion allSubInstances size. MCFileBasedRepository flushAllCaches. afterBytes := Smalltalk bytesLeft: true. afterVersions := MCVersion allSubInstances size. ]. + ^self inform: ('{1} versions flushed\{2} bytes reclaimed' translated withCRs format: {beforeVersions - afterVersions. beforeBytes - afterBytes})! - ^self inform: ('{1} versions flushed\{2} bytes reclaimed' translated format: {beforeVersions - afterVersions. beforeBytes - afterBytes})!

1 0

The Inbox: Morphic-ct.2143.mcz
by commits＠source.squeak.org 27 Nov '23

27 Nov '23

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.2143.mcz ==================== Summary ==================== Name: Morphic-ct.2143 Author: ct Time: 26 November 2023, 9:55:30.823036 pm UUID: 8796e939-547c-594a-adac-248f3625166c Ancestors: Morphic-dtl.2142 Proposal: From drop selectors in PasteUpMorph, answer the newly created morph. For instance, this makes it easy to customize these morphs or include them into another tool: (Project current world dropInspectorField: (Inspector on: ActiveHand) fields third event: self currentEvent) openInWindow extent: 200 px @ 100 px. =============== Diff against Morphic-dtl.2142 =============== Item was changed: ----- Method: PasteUpMorph>>dropExplorerField:from:event: (in category 'event handling') ----- dropExplorerField: anExplorerField from: anExplorer event: evt + "Create and answer a self-updating morph that serves as a compact watcher for the dropped explorer field." - "Create a self-updating morph that serves as a compact watcher for the dropped explorer field." | scope | scope := anExplorer currentParent ifNil: [Dictionary newFrom: {anExplorerField} "root"] ifNotNil: [:parent | parent value]. + ^ (scope inspectorClass on: scope) fields - (scope inspectorClass on: scope) fields detect: [:field | field name = anExplorerField key or: [field name = anExplorerField key printString]] ifFound: [:inspectorField | self dropInspectorField: inspectorField rememberInspector + event: evt]! - event: evt].! Item was changed: ----- Method: PasteUpMorph>>dropInspectorField:event: (in category 'event handling') ----- dropInspectorField: anInspectorField event: evt + "Create a self-updating morph that serves as a compact watcher for the dropped inspector field. Answer the new morph." - "Create a self-updating morph that serves as a compact watcher for the dropped inspector field." | watcher | watcher := PluggableButtonMorph new changeTableLayout; cellPositioning: #topLeft; model: [anInspectorField inspector object inspect]; action: #value; yourself. watcher addMorph: ((UpdatingStringMorph on: anInspectorField selector: #value) stepTime: 1000 "msecs"; yourself); addMorph: (('of ', (anInspectorField inspector object printString truncateWithElipsisTo: 40)) asMorph font: Preferences standardBalloonHelpFont yourself); addMorph: (anInspectorField name asString asMorph font: Preferences standardBalloonHelpFont emphasis: TextEmphasis bold emphasisCode; yourself). watcher center: evt position. watcher bounds: (watcher bounds translatedToBeWithin: self bounds). + watcher openInWorld. + ^ watcher! - watcher openInWorld.! Item was changed: ----- Method: PasteUpMorph>>dropSourceCode:event: (in category 'event handling') ----- dropSourceCode: anObject event: evt + "Open and answer a tool on the dropped object." (anObject isMethodReference and: [anObject isValid]) ifTrue: [^ self dropSourceCode: anObject compiledMethod event: evt]. (anObject isClassReference and: [anObject isValid]) ifTrue: [^ self dropSourceCode: anObject actualClass event: evt]. (anObject isBehavior or: [anObject isCompiledMethod]) ifTrue: [ | tool window | tool := anObject isBehavior ifTrue: [SystemBrowser default new setClass: anObject] ifFalse: [CodeHolder new setClass: anObject methodClass selector: anObject selector]. window := ToolBuilder open: tool. window center: evt position. + window bounds: (window bounds translatedToBeWithin: self bounds). + ^ window]. - window bounds: (window bounds translatedToBeWithin: self bounds)]. + ^ anObject isString + ifTrue: [anObject edit]! - anObject isString - ifTrue: [anObject edit].!

2 1

Current Squeak on VM Candidate
by ken.dickey＠whidbey.com 27 Nov '23

27 Nov '23

Squeak6.0-22104 on Raspberry Pi 4 under Raspian Linux. Rebuilt squeak.cog.spur build.assert from sources: opensmalltalk-vm-202311211431.tar.gz I am still seeing sqAllocateMemorySegmentOfSizeAboveAllocatedSizeInto mmap: Cannot allocate memory when I run the unit tests before updating, but not after. See attached screen captures for unit test details before and after Update Squeak. FYI, -KenD

1 0

The Inbox: Kernel-jar.1538.mcz
by commits＠source.squeak.org 27 Nov '23

27 Nov '23

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-jar.1538.mcz ==================== Summary ==================== Name: Kernel-jar.1538 Author: jar Time: 27 November 2023, 12:00:15.196233 am UUID: d37b82ee-c73e-ed4b-be1c-478b708c5d9c Ancestors: Kernel-jar.1537 fix stepOver bug when debugging e.g. [[self halt. ^ 1] on: BlockCannotReturn do: [:ex | ex resume] ] fork (step over halt and then stepover ^1 you get a nonsensical error as a result of decoding nil as an instruction) the root cause is in the #return:from: method: it only checks whether aSender is dead but ignores the possibility that aSender sender may be nil or dead This changeset requires its ancestor Kernel-jar.1537 (Please remove Kernel-jar.1535 from the Inbox) =============== Diff against Kernel-jar.1537 =============== Item was changed: Error subclass: #BlockCannotReturn + instanceVariableNames: 'pc result deadHome finalContext' - instanceVariableNames: 'pc result deadHome' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Exceptions'! !BlockCannotReturn commentStamp: '<historical>' prior: 0! This class is private to the EHS implementation. Its use allows for ensured execution to survive code such as: [self doThis. ^nil] ensure: [self doThat] Signaling or handling this exception is not recommended.! Item was added: + ----- Method: BlockCannotReturn>>finalContext (in category 'accessing') ----- + finalContext + + ^ finalContext! Item was added: + ----- Method: BlockCannotReturn>>finalContext: (in category 'accessing') ----- + finalContext: context + + finalContext := context! Item was changed: ----- Method: Context>>cannotReturn:to: (in category 'private') ----- cannotReturn: result to: homeContext "The receiver tried to return result to homeContext that cannot be returned from. + Capture the return context/pc in a BlockCannotReturn. Nil the pc to prevent repeat - Capture the return pc in a BlockCannotReturn. Nil the pc to prevent repeat attempts and/or invalid continuation. Answer the result of raising the exception." + | exception previousPc | - | exception | exception := BlockCannotReturn new. + previousPc := pc ifNotNil: [self previousPc]. exception result: result; deadHome: homeContext; + finalContext: self; + pc: previousPc. - pc: self previousPc. pc := nil. ^exception signal! Item was changed: ----- Method: Context>>return:from: (in category 'instruction decoding') ----- return: value from: aSender "For simulation. Roll back self to aSender and return value from it. Execute any unwind blocks on the way. ASSUMES aSender is a sender of self" | newTop | - aSender isDead ifTrue: - [^self send: #cannotReturn: to: self with: {value}]. newTop := aSender sender. + (aSender isDead or: [newTop isNil or: [newTop isDead]]) ifTrue: + [^self pc: nil; send: #cannotReturn: to: self with: {value}]. (self findNextUnwindContextUpTo: newTop) ifNotNil: "Send #aboutToReturn:through: with nil as the second argument to avoid this bug: Cannot #stepOver '^2' in example '[^2] ensure: []'. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-June/220975.html" [^self send: #aboutToReturn:through: to: self with: {value. nil}]. self releaseTo: newTop. newTop ifNotNil: [newTop push: value]. ^newTop!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
17
Older →

Jump to page: