Packages November 2019

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Morphic-eem.1596.mcz
by commits＠source.squeak.org 30 Nov '19

30 Nov '19

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1596.mcz ==================== Summary ==================== Name: Morphic-eem.1596 Author: eem Time: 29 November 2019, 4:50:37.46714 pm UUID: e4ca2f3d-c9db-4468-bb91-cf698317b2f1 Ancestors: Morphic-mt.1595 Have seNders in the text editor also look up references to literals. =============== Diff against Morphic-mt.1595 =============== Item was changed: ----- Method: TextEditor>>selectedSelector (in category 'menu messages') ----- selectedSelector "Try to make a selector out of the current text selection" + | tokens | + tokens := Scanner new typedScanTokens: self selection string. + ^tokens isEmpty ifFalse: [tokens first]! - ^self selection string findSelector! Item was changed: ----- Method: TextEditor>>sendersOfIt (in category 'menu messages') ----- sendersOfIt "Open a senders browser on the selected selector" - | aSelector | self lineSelectAndEmptyCheck: [^ self]. + self selectedSelector ifNotNil: + [:aSelector| ^self systemNavigation browseAllCallsOn: aSelector]. + self selectedLiteral ifNotNil: + [:aLiteral| ^self systemNavigation browseAllCallsOn: aLiteral]. + morph flash! - (aSelector := self selectedSelector) == nil ifTrue: [^ morph flash]. - self systemNavigation browseAllCallsOn: aSelector!

1 0

The Trunk: Tools-mt.922.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.922.mcz ==================== Summary ==================== Name: Tools-mt.922 Author: mt Time: 29 November 2019, 11:45:06.040061 am UUID: 2a67c032-4bcf-334d-898e-862aeafd93af Ancestors: Tools-mt.921 Due to recurrent requests, add an #ifNil-check for the class argument in the label-formatting methods of all code holders. Still, also document the situation in a flag comment. At least, this makes this method more robust for the upcoming release. :-) =============== Diff against Tools-mt.921 =============== 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. This is a performance critical method in the user interface." - "Show deprecated messages differently so that users recognize them quickly to avoid them." | formattedLabel | + self flag: #investigate. "mt: aClass must never be nil!! Faulty tools should override this call themselves or fix the caller site." + aClass ifNil: [^ 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.!

1 0

The Trunk: 60Deprecated-mt.66.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.66.mcz ==================== Summary ==================== Name: 60Deprecated-mt.66 Author: mt Time: 29 November 2019, 11:43:24.082061 am UUID: c4f0cc4d-13c8-5a4c-9b28-a572260ca3a0 Ancestors: 60Deprecated-mt.65 Complements Tools-mt.920/921. =============== Diff against 60Deprecated-mt.65 =============== Item was added: + ----- Method: Inspector>>selectedSlotName (in category '*60Deprecated-selecting') ----- + selectedSlotName + + self deprecated: 'Use #selectedFieldName instead.'. + ^ self selectedFieldName!

1 0

The Trunk: Tools-mt.921.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.921.mcz ==================== Summary ==================== Name: Tools-mt.921 Author: mt Time: 29 November 2019, 11:42:49.542061 am UUID: 73dad5fb-bcd1-f742-ab5b-e29d165d6d63 Ancestors: Tools-mt.920 Debugger: Implements the idea of inbox Tools-eem.915, which preserves inspectors' states when toggling the selected context. Because it is model-only, should work also in MVC debuggers. There might be a quick with #update:with: in PluggableTextView, though. =============== Diff against Tools-mt.920 =============== Item was changed: CodeHolder subclass: #Debugger + instanceVariableNames: 'interruptedProcess contextStack contextStackIndex contextStackList receiverInspector receiverInspectorState contextVariablesInspector contextVariablesInspectorState externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject labelString message untilExpression' - 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 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 | + self saveReceiverInspectorState. + self saveContextVariablesInspectorState. - | isNewMethod selectedContextSlotName index | 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 selectedFieldName. - 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 restoreContextVariablesInspectorState. - ((index := contextVariablesInspector fieldList indexOf: selectedContextSlotName) ~= 0 - and: [index ~= contextVariablesInspector selectionIndex]) ifTrue: - [contextVariablesInspector toggleIndex: index]. receiverInspector object: self receiver. + self restoreReceiverInspectorState. isNewMethod ifFalse: [self changed: #contentsSelection]! Item was added: + ----- Method: Debugger>>keyForContextVariablesInspectorState (in category 'user interface') ----- + keyForContextVariablesInspectorState + + ^ self contextVariablesInspector object ifNotNil: [:ctxt | ctxt method]! Item was added: + ----- Method: Debugger>>keyForReceiverInspectorState (in category 'user interface') ----- + keyForReceiverInspectorState + + ^ self receiverInspector object! Item was added: + ----- Method: Debugger>>restoreContextVariablesInspectorState (in category 'user interface') ----- + restoreContextVariablesInspectorState + "For the user's convenience. Save field selection and user-typed content in the context-variables inspector. See #saveContextVariablesInspectorState." + + contextVariablesInspectorState ifNotNil: [:stateForAll | + self keyForContextVariablesInspectorState ifNotNil: [:keyForState | + stateForAll + at: keyForState + ifPresent: [:state | + self contextVariablesInspector selectFieldNamed: state first. + state second ifNotNil: [:contentsTyped | + self contextVariablesInspector + setContentsTyped: contentsTyped]]]].! Item was added: + ----- Method: Debugger>>restoreReceiverInspectorState (in category 'user interface') ----- + restoreReceiverInspectorState + "For the user's convenience. Restore field selection and user-typed content in the receiver inspector. See #saveReceiverInspectorState." + + receiverInspectorState ifNotNil: [:stateForAll | + self keyForReceiverInspectorState ifNotNil: [:keyForState | + stateForAll + at: keyForState + ifPresent: [:state | + self receiverInspector selectFieldNamed: state first. + state second ifNotNil: [:contentsTyped | + self receiverInspector + setContentsTyped: contentsTyped]]]].! Item was added: + ----- Method: Debugger>>saveContextVariablesInspectorState (in category 'user interface') ----- + saveContextVariablesInspectorState + "For the user's convenience. Save field selection and user-typed content in the context-variables inspector. See #restoreContextVariablesInspectorState." + + | stateToSave keyForState | + (keyForState := self keyForContextVariablesInspectorState) + ifNil: [^ self]. + contextVariablesInspectorState + ifNil: [contextVariablesInspectorState := IdentityDictionary new]. + stateToSave := { + self contextVariablesInspector selectedFieldName. + self contextVariablesInspector contentsTyped }. + contextVariablesInspectorState + at: keyForState + put: stateToSave.! Item was added: + ----- Method: Debugger>>saveReceiverInspectorState (in category 'user interface') ----- + saveReceiverInspectorState + "For the user's convenience. Save field selection and user-typed content in the receiver inspector. See #restoreReceiverInspectorState." + + | stateToSave keyForState | + (keyForState := self keyForReceiverInspectorState) + ifNil: [^ self]. + receiverInspectorState + ifNil: [receiverInspectorState := IdentityDictionary new]. + stateToSave := { + self receiverInspector selectedFieldName. + self receiverInspector contentsTyped }. + receiverInspectorState + at: keyForState + put: stateToSave.!

1 0

The Trunk: Tools-mt.920.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.920.mcz ==================== Summary ==================== Name: Tools-mt.920 Author: mt Time: 29 November 2019, 11:40:09.779061 am UUID: 2a38fb46-276b-3949-a8d1-f1ac037e257a Ancestors: Tools-tpr.919 In inspector classes, make use of #setContents: (Kernel-mt.1284). Add a way to get/set the user-typed contents in the value pane, which is not the expression pane. =============== Diff against Tools-tpr.919 =============== Item was changed: ----- Method: DictionaryInspector>>removeSelection (in category 'menu') ----- removeSelection selectionIndex = 0 ifTrue: [^ self changed: #flash]. object removeKey: (keyArray at: selectionIndex - self numberOfFixedFields). selectionIndex := 0. + self setContents: ''. - contents := ''. self calculateKeyArray. self changed: #inspectObject. self changed: #selectionIndex. self changed: #fieldList. self changed: #selection.! Item was changed: StringHolder subclass: #Inspector + instanceVariableNames: 'object selectionIndex timeOfLastListUpdate selectionUpdateTime context expression shouldStyleValuePane contentsTyped' - instanceVariableNames: 'object selectionIndex timeOfLastListUpdate selectionUpdateTime context expression shouldStyleValuePane' classVariableNames: '' poolDictionaries: '' category: 'Tools-Inspector'! !Inspector commentStamp: '<historical>' prior: 0! I represent a query path into the internal representation of an object. As a StringHolder, the string I represent is the value of the currently selected variable of the observed object.! Item was added: + ----- Method: Inspector>>contentsTyped (in category 'accessing') ----- + contentsTyped + + ^ contentsTyped! Item was added: + ----- Method: Inspector>>contentsTyped: (in category 'accessing') ----- + contentsTyped: aStringOrText + + contentsTyped := aStringOrText.! Item was changed: ----- Method: Inspector>>modelWakeUpIn: (in category 'accessing') ----- modelWakeUpIn: aWindow | newText | self updateListsAndCodeIn: aWindow. newText := self contentsIsString ifTrue: [newText := self selection] ifFalse: ["keep it short to reduce time to compute it" self selectionPrintString ]. + self setContents: newText.! - newText = contents ifFalse: - [contents := newText. - self changed: #contents]! Item was changed: ----- Method: Inspector>>printStringErrorText (in category 'private') ----- printStringErrorText | nm | nm := self selectionIndex < 3 ifTrue: ['self'] + ifFalse: [self selectedFieldName]. - ifFalse: [self selectedSlotName]. ^ (nm ifNil: ['no selection'] ifNotNil: [nm first isDigit ifTrue: ['<error in printString: evaluate "(self at: ' , nm , ') printString" to debug>'] ifFalse: ['<error in printString: evaluate "' , nm , ' printString" to debug>'] ]) asText! Item was added: + ----- Method: Inspector>>selectFieldNamed: (in category 'selecting') ----- + selectFieldNamed: aString + + self selectedFieldName = aString ifTrue: [^ self]. + self toggleIndex: (self fieldList indexOf: aString).! Item was added: + ----- Method: Inspector>>selectedFieldName (in category 'selecting') ----- + selectedFieldName + + ^ self fieldList at: self selectionIndex ifAbsent: []! Item was removed: - ----- Method: Inspector>>selectedSlotName (in category 'selecting') ----- - selectedSlotName - - ^ self fieldList at: self selectionIndex ifAbsent: []! Item was added: + ----- Method: Inspector>>setContents: (in category 'initialize-release') ----- + setContents: aStringOrText + + super setContents: aStringOrText. + self contentsTyped: nil.! Item was added: + ----- Method: Inspector>>setContentsTyped: (in category 'initialize-release') ----- + setContentsTyped: aStringOrText + "Simulate typing." + + self contentsTyped: aStringOrText. + self changed: #editString with: aStringOrText.! Item was changed: ----- Method: Inspector>>stepAt:in: (in category 'stepping') ----- stepAt: millisecondClockValue in: aWindow | newText | (Preferences smartUpdating and: [(millisecondClockValue - self timeOfLastListUpdate) > 8000]) "Not more often than once every 8 seconds" ifTrue: [self updateListsAndCodeIn: aWindow. timeOfLastListUpdate := millisecondClockValue]. newText := self contentsIsString ifTrue: [self selection] ifFalse: ["keep it short to reduce time to compute it" self selectionPrintString ]. + self setContents: newText.! - newText = contents ifFalse: - [contents := newText. - self changed: #contents]! Item was changed: ----- Method: Inspector>>toggleIndex: (in category 'selecting') ----- toggleIndex: anInteger "The receiver has a list of variables of its inspected object. One of these is selected. If anInteger is the index of this variable, then deselect it. Otherwise, make the variable whose index is anInteger be the selected item." + | newText | selectionUpdateTime := 0. selectionIndex = anInteger ifTrue: ["same index, turn off selection" selectionIndex := 0. + newText := ''] - contents := ''] ifFalse: ["different index, new selection" shouldStyleValuePane := false. selectionIndex := anInteger. self contentsIsString + ifTrue: [newText := self selection] + ifFalse: [newText := self selectionPrintString]]. + self setContents: newText. - ifTrue: [contents := self selection] - ifFalse: [contents := self selectionPrintString]]. self changed: #selection. - self changed: #contents. self changed: #selectionIndex.! Item was changed: ----- Method: Inspector>>typeValue: (in category 'selecting') ----- typeValue: aTextOrString shouldStyleValuePane := true. + contentsTyped := aTextOrString. + self changed: #style.! - self changed: #style! Item was changed: ----- Method: Inspector>>update (in category 'accessing') ----- update "Reshow contents, assuming selected value may have changed." + | newText | selectionIndex = 0 ifFalse: [self contentsIsString + ifTrue: [newText := self selection] + ifFalse: [newText := self selectionPrintString]. + self setContents: newText. - ifTrue: [contents := self selection] - ifFalse: [contents := self selectionPrintString]. - self changed: #contents. self changed: #selection. self changed: #selectionIndex]! Item was changed: ----- Method: SetInspector>>removeSelection (in category 'menu') ----- removeSelection (selectionIndex <= object class instSize) ifTrue: [^ self changed: #flash]. object remove: self selection. selectionIndex := 0. + self setContents: ''. - contents := ''. self changed: #inspectObject. self changed: #fieldList. self changed: #selection. self changed: #selectionIndex.!

1 0

The Trunk: Kernel-mt.1284.mcz
by commits＠source.squeak.org 29 Nov '19

29 Nov '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1284.mcz ==================== Summary ==================== Name: Kernel-mt.1284 Author: mt Time: 29 November 2019, 11:37:15.422061 am UUID: 8058d02f-d2cd-b942-aa93-095fa963a523 Ancestors: Kernel-mt.1283 Adds a message to set new contents and notify all dependents. To be used by subclasses to remove extra #changed: calles and to provide a better hook to do something else when updating the contents. =============== Diff against Kernel-mt.1283 =============== Item was added: + ----- Method: StringHolder>>setContents: (in category 'initialize-release') ----- + setContents: aString + + self contents = aString ifTrue: [^ self]. + self contents: aString. + self changed: #contents.!

1 0

The Trunk: Collections-kfr.812.mcz
by commits＠source.squeak.org 27 Nov '19

27 Nov '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-kfr.812.mcz ==================== Summary ==================== Name: Collections-kfr.812 Author: kfr Time: 4 November 2018, 4:41:29.534614 pm UUID: 93f849c9-8b62-e04c-b8e0-ab2a7c2d728c Ancestors: Collections-eem.811 Print the matrix so one can see the rows and columns =============== Diff against Collections-eem.811 =============== Item was added: + ----- Method: Matrix>>printMatrix (in category 'printing') ----- + printMatrix + "Answer a String whose characters are a description of the receiver layed out in rows and columns" + + ^ String streamContents: [:aStream | + 1 + to: nrows + do: [:iRow | + 1 + to: ncols + do: [:iCols | + aStream + print: (self at: iRow at: iCols). + aStream tab: 2]. + aStream cr]]!

1 0

The Trunk: Collections-mt.864.mcz
by commits＠source.squeak.org 27 Nov '19

27 Nov '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.864.mcz ==================== Summary ==================== Name: Collections-mt.864 Author: mt Time: 27 November 2019, 10:46:36.719363 am UUID: 5e0200f3-d834-4849-93ad-393e5b2b1af2 Ancestors: Collections-mt.863, Collections-kfr.812 Merges Collections-kfr.812 but renames #printMatrix to the existing #stringForReadout. We might want to use that one for ObjectExplorer ... See Object >> #asExplorerString. =============== Diff against Collections-mt.863 =============== Item was added: + ----- Method: Matrix>>stringForReadout (in category 'printing') ----- + stringForReadout + "Answer a String whose characters are a description of the receiver layed out in rows and columns" + + ^ String streamContents: [:aStream | + 1 + to: self rowCount + do: [:iRow | + 1 + to: self columnCount + do: [:iCols | + aStream + print: (self at: iRow at: iCols). + aStream tab: 2]. + aStream cr]]!

1 0

The Trunk: Kernel-mt.1283.mcz
by commits＠source.squeak.org 27 Nov '19

27 Nov '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1283.mcz ==================== Summary ==================== Name: Kernel-mt.1283 Author: mt Time: 27 November 2019, 10:25:51.203363 am UUID: 04694a24-76a1-a941-b664-645ffc7f27e6 Ancestors: Kernel-nice.1282 Removes Kernel -> Regex dependency. =============== Diff against Kernel-nice.1282 =============== Item was changed: ----- Method: BlockClosure>>valueSupplyingAnswers: (in category 'evaluating') ----- valueSupplyingAnswers: aListOfPairs "evaluate the block using a list of questions / answers that might be called upon to automatically respond to Object>>confirm: or FillInTheBlank requests" ^self on: ProvideAnswerNotification do: [ :notification | | caption | caption := notification messageText withSeparatorsCompacted. "to remove new lines" aListOfPairs detect: [ :each | caption = each first or: [ (caption includesSubstring: each first caseSensitive: false) or: [ (each first match: caption) or: [ (caption respondsTo: #matchesRegex:) + and: [ [caption matchesRegex: each first] on: Error do: [false] ] ] ] ] ] - and: [ [caption matchesRegex: each first] on: RegexSyntaxError do: [false] ] ] ] ] ] ifFound: [ :answer | notification resume: answer second ] ifNone: [ (ProvideAnswerNotification signal: notification messageText) ifNil: [ notification resume ] ifNotNil: [ :outerAnswer | notification resume: outerAnswer ] ] ]!

1 0

The Trunk: MorphicExtrasTests-mt.6.mcz
by commits＠source.squeak.org 27 Nov '19

27 Nov '19

Marcel Taeumel uploaded a new version of MorphicExtrasTests to project The Trunk: http://source.squeak.org/trunk/MorphicExtrasTests-mt.6.mcz ==================== Summary ==================== Name: MorphicExtrasTests-mt.6 Author: mt Time: 27 November 2019, 10:24:35.984363 am UUID: 3d508d97-0a4c-8546-9d8f-9ce4823c6400 Ancestors: MorphicExtrasTests-pre.5 Tests for simple setter/getter moved to and extended in StringSystemSupportTest in the package Tests-System-Support. =============== Diff against MorphicExtrasTests-pre.5 =============== Item was removed: - TestCase subclass: #MorphicExtrasSymbolExtensionsTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'MorphicExtrasTests-Flaps'! Item was removed: - ----- Method: MorphicExtrasSymbolExtensionsTest>>testAsSimpleSetterReturnsSetterSelector (in category 'as yet unclassified') ----- - testAsSimpleSetterReturnsSetterSelector - self assert: #foo: equals: #foo asSimpleSetter. - - "And it really is 'simple':" - self assert: #foo:: equals: #foo: asSimpleSetter.!

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 November 2019