Squeak-dev November 2019

squeak-dev@lists.squeakfoundation.org

23 participants
232 discussions

Debugger Through slow
by Thiede, Christoph 07 Jan '20

07 Jan '20

Hi all, take the following snippet, debug-it and press "Through": SqueakMessageCategoriesHelp asHelpTopic. For me, it makes the debugger hang really long time, as apparently the whole code execution is simulated, searching for the current context (#stepToHome:). "Over", in contrast, is faster by far, calling #completeStep: instead. Can we speed up "Through" in any way? As the button is explained as "Step into a block", we could call #completeStep: internally if the selected message does not contain a block argument, for example. Best, Christoph

3 6

Possible bug in PluggableTextMorph: Selection is reversed when rehovering text
by Christoph Thiede 06 Jan '20

06 Jan '20

Hi, I will quote the bug report from here <https://github.com/MrModder/Autocompletion/pull/25#issuecomment-513546349> : > - Open a workspace window, enter some text > - press shift+left once > - set the keyboard focus to another window > - bring focus back to the Workspace > - press shift+left once again > Instead of selecting two characters, zero characters will be selected The reason is in PluggableTextMorph>>#mouseEnter:, where the following is done: ...textMorph editor selectInterval: selectionInterval... As the selectionInterval is always positive, this operation destroys any editor state where pointIndex < markIndex. I just disabled this section in my image, and in a rush, I could not find out what is missing. What has been the purpose of this snippet? I also see this might be a debatable behavior: On the one hand, the user might be irritated when he is returning to a textmorph after a long time, trying to extend the selection with <shift>Arrow right but the selection is shrinked indead. On the other hand, I have activated the #mouseOverForKeyboardFocus setting (which is basically genius) and find it annoying that the selection behavior changes after repositioning your mouse. Has this ever been debated before? I would welcome your opinions! Best, Christoph -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

4 6

Wiki pages for screenshots & details about Squeak projects
by tim Rowledge 06 Jan '20

06 Jan '20

Whilst quickly updating the VMMaker swiki page I got lead to the exobox page, and thence the 'Screenshots of Applications created with Squeak' page and the 'Production Squeak' page. Oh my, very out of date and many missing images. If you have or had entries on such pages, please see if you can recover the missing screenshots. If there is news about the products/projects, please add it; if you know of something not listed, please add it ! tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim "Yummy" said Pooh, as he rotated Piglet slowly on the spit.

2 1

[Q][Squeak5.3a][ExternalPackage] FileList class>>#registerFileReader: has been deprecated --> How do I fix this?
by H. Hirzel 06 Jan '20

06 Jan '20

Hello When loading an external package I get the following feedback FileList class>>#registerFileReader: has been deprecated. FileList is not responsible for file reader registration anymore. Use FileServices instead. When I click on 'debug' I get registeredFileReaderClasses self deprecated: 'FileList is not responsible for file reader registration anymore. Use FileServices instead.'. FileReaderRegistry := nil. "wipe it out" ^FileServices registeredFileReaderClasses How do I deal with this? Old code? New code? Regards Hannes

2 1

The Trunk: Graphics-mt.406.mcz
by commits＠source.squeak.org 06 Jan '20

06 Jan '20

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.406.mcz ==================== Summary ==================== Name: Graphics-mt.406 Author: mt Time: 17 January 2019, 11:18:39.003727 am UUID: 027d00a7-113d-4b9f-aaec-79e3373339c1 Ancestors: Graphics-mt.405 Adds an informative string representation for LayoutFrame to support layout design and debugging. =============== Diff against Graphics-mt.405 =============== Item was added: + ----- Method: LayoutFrame>>printOn: (in category 'printing') ----- + printOn: aStream + + super printOn: aStream. + + aStream nextPutAll: '( '. + + { {'l'. self leftFraction. self leftOffset}. {'t'. self topFraction. self topOffset}. {'r'. self rightFraction. self rightOffset}. {'b'. self bottomFraction. self bottomOffset} } do: [:spec | + aStream nextPutAll: spec first; space. + + spec second printOn: aStream maxDecimalPlaces: 2. + + aStream nextPutAll: ((spec third ifNil: [0]) >= 0 ifTrue: ['+'] ifFalse: ['-']). + (spec third ifNil: [0]) abs printOn: aStream maxDecimalPlaces: 0] + separatedBy: [aStream space]. + + aStream nextPutAll: ' )'.!

3 2

The Inbox: Help-Squeak-Project-ct.72.mcz
by commits＠source.squeak.org 30 Dec '19

30 Dec '19

A new version of Help-Squeak-Project was added to project The Inbox: http://source.squeak.org/inbox/Help-Squeak-Project-ct.72.mcz ==================== Summary ==================== Name: Help-Squeak-Project-ct.72 Author: ct Time: 15 November 2019, 7:19:49.347005 pm UUID: 4fd12cfe-84a9-ef46-bb9b-127004798eea Ancestors: Help-Squeak-Project-mt.69 Migrates VersionsBrowser>>versionsHelpString into a HelpTopic class Depends on Collections-ct.861. =============== Diff against Help-Squeak-Project-mt.69 =============== Item was added: + SqueakToolsHelp subclass: #SqueakToolsVersionsBrowserHelp + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Help-Squeak-Project'! Item was added: + ----- Method: SqueakToolsVersionsBrowserHelp class>>bookName (in category 'accessing') ----- + bookName + <generated> + ^'Versions Browser'! Item was added: + ----- Method: SqueakToolsVersionsBrowserHelp class>>comparingVersions (in category 'pages') ----- + comparingVersions + <generated> + "This method was automatically generated. Edit it using:" + "SqueakToolsVersionsBrowserHelp edit: #comparingVersions" + ^(HelpTopic + title: 'Comparing versions' + contents: + 'The code pane shows the source for the selected version. If "diffing" is in effect, then differences betwen the selected version and the version before it are pointed out in the pane. Turn diffing on and off by choosing "toggle diffing" from the list pane menu, or hitting the "diffs" button, or hitting cmd-D when the cursor is over the list pane. + + To get a comparison between the selected version and the current version, choose "compare to current" from the list pane menu or hit the "compare to current" button. (This is meaningless if the current version is selected, and is unnecessary if you''''re interested in diffs from between the current version and the next-most-recent version, since the standard in-pane "diff" feature will give you that.) + + You can also compare the selected version with any other version using the "compare to version..." menu choice.!! + ]style[(13 337 19 496)b,,b,!!' readStream nextChunkText) + key: #comparingVersions; + shouldStyle: false; + yourself! Item was added: + ----- Method: SqueakToolsVersionsBrowserHelp class>>defaultPage (in category 'accessing') ----- + defaultPage + + ^ #versionsBrowser! Item was added: + ----- Method: SqueakToolsVersionsBrowserHelp class>>notes (in category 'pages') ----- + notes + <generated> + "This method was automatically generated. Edit it using:" + "SqueakToolsVersionsBrowserHelp edit: #notes" + ^(HelpTopic + title: 'Notes' + contents: + 'If further versions of the method in question have been submitted elsewhere since you launched a particular Versions Browser, it will still stay nicely up-to-date if you''re in Morphic and have asked that smart updating be maintained; if you''re in mvc or in morphic but with smart-updating turned off, a versions browser is only brought up to date when you activate its window (and when you issue "revert" from within it, of course,) and you can also use the "update list" command to make certain the versions list is up to date. + + The annotation pane in versions browsers shows information about the current version of the method in the image, not about the selected version.!! + ]style[(530 19 50 7 68),b,,i,!!' readStream nextChunkText) + key: #notes; + shouldStyle: false; + yourself! Item was added: + ----- Method: SqueakToolsVersionsBrowserHelp class>>pages (in category 'accessing') ----- + pages + <generated> + ^ #(versionsBrowser comparingVersions revertVersion privacyFeatures notes)! Item was added: + ----- Method: SqueakToolsVersionsBrowserHelp class>>privacyFeatures (in category 'pages') ----- + privacyFeatures + <generated> + "This method was automatically generated. Edit it using:" + "SqueakToolsVersionsBrowserHelp edit: #privacyFeatures" + ^(HelpTopic + title: 'Privacy features' + contents: + 'To have the selected method deleted from the current change set permanently, hit the "remove from changes" button, or choose the corresponding command in the list pane menu. This is useful if you''ve put debugging code into a method, and now want to strip it out and cleanse your current change set of all memory of the excursion.!! + ]style[(35 294)b,!!' readStream nextChunkText) + key: #privacyFeatures; + shouldStyle: false; + yourself! Item was added: + ----- Method: SqueakToolsVersionsBrowserHelp class>>revertVersion (in category 'pages') ----- + revertVersion + <generated> + "This method was automatically generated. Edit it using:" + "SqueakToolsVersionsBrowserHelp edit: #revertVersion" + ^(HelpTopic + title: 'Reverting versions' + contents: + 'To revert to an earlier version, select it (in the list pane) and then do any of the following: + * Choose "revert to this version" from the list pane menu; + * Hit the "revert" button; + * Type ENTER in the code pane; + * Type cmd-s (alt-s) in the code pane.!! + ]style[(32 64 155)b,,I1!!' readStream nextChunkText) + key: #revertVersion; + shouldStyle: false; + yourself! Item was added: + ----- Method: SqueakToolsVersionsBrowserHelp class>>versionsBrowser (in category 'pages') ----- + versionsBrowser + <generated> + "This method was automatically generated. Edit it using:" + "SqueakToolsVersionsBrowserHelp edit: #versionsBrowser" + ^(HelpTopic + title: 'What is a Versions Browser' + contents: + 'The VersionsBrowser is a window that shows all implementations of a method or a class comment that have been ever installed in past or present. Inter alia, it allows you to compare certain versions or revert earlier versions. + + Each entry in the list pane represents a version of the source code for the same method; the topmost entry is the current version, the next entry is the next most recent, etc.!! + ]style[(4 15 208 175)f1b,Rcode://VersionsBrowser browseMethod: VersionsBrowser >> #compareToOtherVersion;b,f1,!!' readStream nextChunkText) + key: #versionsBrowser; + shouldStyle: false; + yourself! Item was added: + ----- Method: VersionsBrowser>>offerVersionsHelp (in category '*Help-Squeak-Project') ----- + offerVersionsHelp + + ^ HelpBrowser openOn: SqueakToolsVersionsBrowserHelp!

2 2

The Inbox: Tools-eem.915.mcz
by commits＠source.squeak.org 30 Dec '19

30 Dec '19

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-eem.915.mcz ==================== Summary ==================== Name: Tools-eem.915 Author: eem Time: 27 November 2019, 3:33:17.283843 pm UUID: 0bbf0438-4f72-4865-9a46-10dd783724ac Ancestors: Tools-mt.914 Save and restore the texts in the receiver and context inspectors when changing selection. Key the receiver text by the class of receiver. Key the context text by the method. Hence, much like the current Pharo debugger, text state stays around and can be extended as one investigates several methods in the stack. Needs Morphic.eem.1591 (we hope cuz it ain't been committed yet). =============== Diff against Tools-mt.914 =============== Item was changed: ----- Method: CodeHolder>>formattedLabel:forSelector:inClass: (in category 'message list') ----- formattedLabel: aString forSelector: aSymbol inClass: aClass "Show deprecated messages differently so that users recognize them quickly to avoid them." | formattedLabel | + aClass ifNotNil: + [(aSymbol = #Definition or: [aSymbol = #Comment]) + ifTrue: + [aClass isDeprecated ifFalse: + [^ aString]] + ifFalse: + [(aClass isDeprecated or: [(aClass compiledMethodAt: aSymbol ifAbsent: [^ aString]) isDeprecated]) ifFalse: + [^ aString]]]. - (aSymbol = #Definition or: [aSymbol = #Comment]) - ifTrue: [aClass isDeprecated - ifFalse: [^ aString]] - ifFalse: [(aClass isDeprecated or: [(aClass compiledMethodAt: aSymbol ifAbsent: [^ aString]) isDeprecated]) - ifFalse: [^ aString]]. formattedLabel := aString asText. (self userInterfaceTheme deprecatedMessageAttributes ifNil: [{TextColor gray. TextEmphasis struckOut}]) do: [:textAttribute | formattedLabel addAttribute: textAttribute]. + ^ formattedLabel! - ^ formattedLabel.! Item was changed: CodeHolder subclass: #Debugger + instanceVariableNames: 'interruptedProcess contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject labelString message untilExpression receiverInspectorTexts contextInspectorTexts' - instanceVariableNames: 'interruptedProcess contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject labelString message untilExpression' classVariableNames: 'ContextStackKeystrokes ErrorReportServer FullStackSize InterruptUIProcessIfBlockedOnErrorInBackgroundProcess NotifierStackSize SavedExtent StackSizeLimit WantsAnnotationPane' poolDictionaries: '' category: 'Tools-Debugger'! !Debugger commentStamp: '<historical>' prior: 0! I represent the machine state at the time of an interrupted process. I also represent a query path into the state of the process. The debugger is typically viewed through a window that views the stack of suspended contexts, the code for, and execution point in, the currently selected message, and inspectors on both the receiver of the currently selected message, and the variables in the current context. Special note on recursive errors: Some errors affect Squeak's ability to present a debugger. This is normally an unrecoverable situation. However, if such an error occurs in an isolation layer, Squeak will attempt to exit from the isolation layer and then present a debugger. Here is the chain of events in such a recovery. * A recursive error is detected. * The current project is queried for an isolationHead * Changes in the isolationHead are revoked * The parent project of isolated project is returned to * The debugger is opened there and execution resumes. If the user closes that debugger, execution continues in the outer project and layer. If, after repairing some damage, the user proceeds from the debugger, then the isolationHead is re-invoked, the failed project is re-entered, and execution resumes in that world. ! Item was added: + ----- Method: Debugger>>contextAndReceiverInspectorTextMorphsDo: (in category 'user interface') ----- + contextAndReceiverInspectorTextMorphsDo: aBinaryBlock + "If both contextVariablesInspector and receiverInspector have + text morphs then evaluate aBinaryBlock with the two morphs." + ^(contextVariablesInspector notNil + and: [receiverInspector notNil]) ifTrue: + [aBinaryBlock + value: (contextVariablesInspector dependents + detect: [:d| d hasTextMorph and: [d textMorph isTextMorph]] + ifNone: [^nil]) + value: (receiverInspector dependents + detect: [:d| d hasTextMorph and: [d textMorph isTextMorph]] + ifNone: [^nil])]! Item was changed: ----- Method: Debugger>>contextStackIndex:oldContextWas: (in category 'private') ----- contextStackIndex: anInteger oldContextWas: oldContext "Change the context stack index to anInteger, perhaps in response to user selection." | isNewMethod selectedContextSlotName index | + self saveInspectorTexts. contextStackIndex := anInteger. anInteger = 0 ifTrue: [currentCompiledMethod := contents := nil. self changed: #contextStackIndex. self decorateButtons. self contentsChanged. contextVariablesInspector object: nil. receiverInspector object: self receiver. ^self]. selectedContextSlotName := contextVariablesInspector selectedSlotName. isNewMethod := oldContext == nil or: [oldContext method ~~ (currentCompiledMethod := self selectedContext method)]. isNewMethod ifTrue: [contents := self selectedMessage. self contentsChanged. self pcRange]. self changed: #contextStackIndex. self decorateButtons. contextVariablesInspector object: self selectedContext. + self setContextInspectorText. ((index := contextVariablesInspector fieldList indexOf: selectedContextSlotName) ~= 0 and: [index ~= contextVariablesInspector selectionIndex]) ifTrue: [contextVariablesInspector toggleIndex: index]. receiverInspector object: self receiver. + self setReceiverInspectorText. isNewMethod ifFalse: [self changed: #contentsSelection]! Item was changed: ----- Method: Debugger>>receiverInspectorObject:context: (in category 'accessing') ----- receiverInspectorObject: obj context: ctxt "set context before object so it can refer to context when building field list" receiverInspector context: ctxt. receiverInspector object: obj. + self setReceiverInspectorText! - ! Item was added: + ----- Method: Debugger>>saveInspectorTexts (in category 'user interface') ----- + saveInspectorTexts + "Save the texts in the two inspectors in the relevant dictionaries, keyed by either the method, in the case of + the contextVariablesInspector, or the receiver's class, in the case of the receiverInspector. Later we will + restore these texts if a context with the smae method or receiver with the same class are inspected again." + self contextAndReceiverInspectorTextMorphsDo: + [:contextTextMorph :receiverTextMorph| | key | + key := contextVariablesInspector object isContext ifTrue: [contextVariablesInspector object method]. + key ifNotNil: + [contextTextMorph text isEmpty + ifTrue: + [contextInspectorTexts ifNotNil: + [contextInspectorTexts removeKey: key ifAbsent: []]] + ifFalse: + [contextInspectorTexts ifNil: [contextInspectorTexts := IdentityDictionary new]. + contextInspectorTexts at: key put: contextTextMorph text]]. + key := receiverInspector object. + receiverTextMorph text isEmpty + ifTrue: + [receiverInspectorTexts ifNotNil: + [receiverInspectorTexts removeKey: key ifAbsent: []]] + ifFalse: + [receiverInspectorTexts ifNil: [receiverInspectorTexts := IdentityDictionary new]. + receiverInspectorTexts at: key put: receiverTextMorph text]]! Item was added: + ----- Method: Debugger>>setContextInspectorText (in category 'user interface') ----- + setContextInspectorText + (contextVariablesInspector object isContext ifTrue: [contextVariablesInspector object method]) ifNotNil: + [:key| + (contextInspectorTexts notNil + and: [contextInspectorTexts includesKey: key]) ifTrue: + [self contextAndReceiverInspectorTextMorphsDo: + [:contextTextMorph :shunnedReceiverTextMorph| + contextTextMorph setText: (contextInspectorTexts at: key)]]]! Item was added: + ----- Method: Debugger>>setReceiverInspectorText (in category 'user interface') ----- + setReceiverInspectorText + | key | + key := receiverInspector object. + (receiverInspectorTexts notNil + and: [receiverInspectorTexts includesKey: key]) ifTrue: + [self contextAndReceiverInspectorTextMorphsDo: + [:shunnedContextTextMorph :receiverTextMorph| + receiverTextMorph setText: (receiverInspectorTexts at: key)]]!

5 7

Bug in Form>>#asFormOfDepth:?
by Thiede, Christoph 19 Dec '19

19 Dec '19

Hi all, consider the following example (print it): "Example 1" f := Form extent: 1 asPoint depth: 1. f colorAt: 0 @ 0 put: Color red. g := f asFormOfDepth: 2. g colorAt: 0 @ 0 Expected output: Color red. Actual output: Color black! Other examples: "Example 2" f := Form extent: 1 asPoint depth: 1. f colorAt: 0 @ 0 put: Color red. g := f asFormOfDepth: 32. g colorAt: 0 @ 0 "--> (Color r: 0.0 g: 0.0 b: 0.004)" "Example 3" f := Form extent: 1 asPoint depth: 16. f colorAt: 0 @ 0 put: Color red. g := f asFormOfDepth: 32. g colorAt: 0 @ 0 "--> (Color r: 0.973 g: 0.0 b: 0.0)" I am not familiar with color depths, but afaik Color red could be stored exactly using only 1 bit? Do I misunderstand the concept or is this really a bad output? (I came across to this when performing #collectColors: on an 8 bit ColorForm loaded from disk, which did not work as expected.) Best, Christoph

4 7

Examples of PluggableListMorph configuration
by Marcel Taeumel 13 Dec '19

13 Dec '19

Hi, all. Update your Trunk image and try this: | model view | model := SystemNavigation default allClasses collect: #name. view := PluggableListMorph on: model list: #yourself selected: nil changeSelected: nil. view extent: 200@300. view listFilterSet: 'Hand'. view openInHand. "Play around with horizontal alignment." view listMorph cellPositioning: #leftCenter. view listMorph cellPositioning: #center. view listMorph cellPositioning: #rightCenter. "Play around with margins." view listMorph cellInset: 0. view listMorph cellInset: 3@0. view listMorph cellInset: (10@5 corner: 10@5). view listMorph cellInset: (0@ -1 corner: 0 @ -1). "Fit all contents." view listMorph hResizing: #shrinkWrap; vResizing: #shrinkWrap. "always set anyway" view hResizing: #shrinkWrap; vResizing: #shrinkWrap. "Enable horizontal scrolling" view hResizing: #rigid; hScrollBarPolicy: #whenNeeded; width: 100. "Disable horizontal scrolling" view hScrollBarPolicy: #never. Best, Marcel

3 2

The Trunk: ShoutCore-mt.76.mcz
by commits＠source.squeak.org 09 Dec '19

09 Dec '19

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-mt.76.mcz ==================== Summary ==================== Name: ShoutCore-mt.76 Author: mt Time: 21 November 2019, 3:51:18.231156 pm UUID: c0aa1566-69f3-1845-8993-0f5f67fcdb96 Ancestors: ShoutCore-eem.75 Fixes a bug with syntax highlighting for dead context's in the debugger. =============== Diff against ShoutCore-eem.75 =============== Item was changed: ----- Method: SHParserST80>>initializeInstanceVariables (in category 'parse support') ----- initializeInstanceVariables instanceVariables := classOrMetaClass ifNil: [ #() ] ifNotNil: [ classOrMetaClass allInstVarNames asArray ]. allowUnderscoreAssignments := Scanner allowUnderscoreAsAssignment. allowUnderscoreSelectors := Scanner prefAllowUnderscoreSelectors. allowBlockArgumentAssignment := Scanner allowBlockArgumentAssignment. sourcePosition := 1. arguments ifNil: [ arguments := OrderedCollection with: nil ] ifNotNil: [ arguments reset; addLast: nil ]. temporaries ifNil: [ temporaries := OrderedCollection with: nil ] ifNotNil: [ temporaries reset; addLast: nil ]. + (context notNil and: [ context isDead not ]) + ifTrue: [ self initializeVariablesFromContext ]. - context ifNotNil: [ self initializeVariablesFromContext ]. bracketDepth := 0. ranges ifNil: [ ranges := OrderedCollection new: 40 "Covers over 80% of all methods." ] ifNotNil: [ ranges reset ]! Item was changed: ----- Method: SHParserST80>>initializeVariablesFromContext (in category 'parse support') ----- initializeVariablesFromContext | contextSourcePcIndex contextSourceParser | contextSourcePcIndex := (context debuggerMap rangeForPC: context pc in: context method + contextIsActiveContext: true "... to really use the context's pc.") - contextIsActiveContext: true "little white lie to work in every situation") start. contextSourceParser := self class new classOrMetaClass: context method methodClass; environment: self environment; source: (context method getSource first: contextSourcePcIndex); yourself. contextSourceParser parse. arguments := contextSourceParser activeArguments. temporaries := contextSourceParser activeTemporaries.!

3 5

← Newer
1
2
3
4
5
6
7
...
24
Older →

Jump to page: