Squeak-dev August 2023

squeak-dev@lists.squeakfoundation.org

30 participants
164 discussions

The Trunk: Monticello-ct.796.mcz
by commits＠source.squeak.org 21 Aug '23

21 Aug '23

Christoph Thiede uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.796.mcz ==================== Summary ==================== Name: Monticello-ct.796 Author: ct Time: 18 August 2023, 6:28:53.816796 pm UUID: 1ed3b793-07d1-5c4f-ab54-70c9eb99ccaf Ancestors: Monticello-ct.795 Improves readability of MCWorkingCopyBrowser>>#addWorkingCopy. Thanks to Marcel (mt) & Tim (tpr) for the feedback! =============== Diff against Monticello-ct.795 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>addWorkingCopy (in category 'actions') ----- addWorkingCopy + | name packageInfo | - |name| name := Project uiManager request: 'Name of package:' translated. + name isEmptyOrNil ifTrue: [^ self]. + + packageInfo := PackageInfo registerPackageName: name. + name := packageInfo name. "PackageInfo might assign a different name, e.g., for sanitization (see PackageInfo class>>#sanitizeName:)" + workingCopy := MCWorkingCopy forPackage: (MCPackage new name: name). + workingCopyWrapper := nil. + + self repositorySelection: 0. - name isEmptyOrNil ifFalse: - [name := (PackageInfo registerPackageName: name) name. - workingCopy := MCWorkingCopy forPackage: (MCPackage new name: name). - workingCopyWrapper := nil. - self repositorySelection: 0]. self workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList. self changedButtons.!

2 1

The Inbox: HelpSystem-Core-ct.146.mcz
by commits＠source.squeak.org 21 Aug '23

21 Aug '23

Christoph Thiede uploaded a new version of HelpSystem-Core to project The Inbox: http://source.squeak.org/inbox/HelpSystem-Core-ct.146.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.146 Author: ct Time: 19 August 2023, 4:15:40.271781 pm UUID: a1a1da25-96c2-c341-8adf-fb5cc4f3009c Ancestors: HelpSystem-Core-ct.145 Proposal: In class API help topics, uses generic class for classes without extra icon. This matches the default behavior of the tree browser. However, we don't honor the showBlankClassIcons preference here to avoid coupling to the tree browser. =============== Diff against HelpSystem-Core-ct.145 =============== Item was changed: ----- Method: ClassAPIHelpTopic>>icon (in category 'accessing') ----- icon + | iconName | + iconName := ToolIcons iconForClass: self theClass name. + iconName = #blank ifTrue: [iconName := #genericClass]. + ^ ToolIcons iconNamed: iconName! - ^ ToolIcons iconNamed: (ToolIcons iconForClass: self theClass name)!

2 1

The Trunk: ST80-ct.296.mcz
by commits＠source.squeak.org 19 Aug '23

19 Aug '23

Christoph Thiede uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-ct.296.mcz ==================== Summary ==================== Name: ST80-ct.296 Author: ct Time: 19 August 2023, 7:58:38.076516 pm UUID: a472307e-1b6f-474a-9c66-c821c62711db Ancestors: ST80-mt.295 In PluggableTextView, gently handles nil selection provided by the model. This aligns with PluggableTextMorph>>#getSelection. =============== Diff against ST80-mt.295 =============== Item was changed: ----- Method: PluggableTextView>>getSelection (in category 'model access') ----- getSelection "Answer the model's selection interval." getSelectionSelector == nil ifTrue: [^ 1 to: 0]. "null selection" + ^ getSelectionSelector ifNotNil: [(model perform: getSelectionSelector) ifNil: [1 to: 0]]! - ^ getSelectionSelector ifNotNil: [model perform: getSelectionSelector] - !

1 0

The Trunk: HelpSystem-Core-ct.143.mcz
by commits＠source.squeak.org 19 Aug '23

19 Aug '23

Christoph Thiede uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-ct.143.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.143 Author: ct Time: 18 August 2023, 12:32:57.339041 am UUID: e8fa3f5f-0f7a-f747-a9c9-d978156280fa Ancestors: HelpSystem-Core-mt.142 Slightly refactors SearchTopic by extracting some methods. This makes it possible to customize search in subclasses by overriding #doSearch and #writeResultText (which I am doing in another project). =============== Diff against HelpSystem-Core-mt.142 =============== Item was added: + ----- Method: SearchTopic>>doSearch (in category 'private') ----- + doSearch + + (self topicsToSearch + sorted: [:t1 :t2 | t1 priorityForSearch <= t2 priorityForSearch]) + do: [:topic | + | nestedResults | + nestedResults := OrderedCollection new. + self mutex critical: [results add: topic -> nestedResults]. + self find: self term in: {topic} results: nestedResults]. + + results add: 'Search finished.'.! Item was changed: ----- Method: SearchTopic>>startSearch (in category 'private') ----- startSearch self stopSearch. results := OrderedCollection new. self topicsToSearch ifEmpty: [ self changed: #contents. ^ self]. process := [ + self doSearch. - (self topicsToSearch - sorted: [:t1 :t2 | t1 priorityForSearch <= t2 priorityForSearch]) - do: [:topic | - | nestedResults | - nestedResults := OrderedCollection new. - self mutex critical: [results add: topic -> nestedResults]. - self find: self term in: {topic} results: nestedResults]. - results add: 'Search finished.'. self triggerUpdateContents. ] forkAt: 35.! Item was changed: ----- Method: SearchTopic>>updateResultText (in category 'private') ----- updateResultText resultText := '' asText. self mutex critical: [ + self writeResultText]. - results ifNil: [^ resultText]. - results do: [:topicToResult | - topicToResult isString - ifTrue: [resultText append: ( - (topicToResult, String cr) asText - addAttribute: (TextColor color: (Color gray: 0.7)); - yourself)] - ifFalse: [ - resultText append: ( - ('\----- Matches found in ''', topicToResult key title, ''' -----\\') withCRs asText - addAttribute: (TextColor color: (Color gray: 0.7))). - topicToResult value do: [:entry | - resultText append: (self printResultEntry: entry)] - ]]]. ^ resultText! Item was added: + ----- Method: SearchTopic>>writeResultText (in category 'private') ----- + writeResultText + + results ifNil: [^ resultText]. + results do: [:topicToResult | + topicToResult isString + ifTrue: [resultText append: ( + (topicToResult, String cr) asText + addAttribute: (TextColor color: (Color gray: 0.7)); + yourself)] + ifFalse: [ + resultText append: ( + ('\----- Matches found in ''', topicToResult key title, ''' -----\\') withCRs asText + addAttribute: (TextColor color: (Color gray: 0.7))). + topicToResult value do: [:entry | + resultText append: (self printResultEntry: entry)] + ]]!

5 5

The Trunk: HelpSystem-Core-ct.145.mcz
by commits＠source.squeak.org 19 Aug '23

19 Aug '23

Christoph Thiede uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-ct.145.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.145 Author: ct Time: 19 August 2023, 4:04:35.502781 pm UUID: a4636ce2-ee17-554b-b226-571f3ec822ab Ancestors: HelpSystem-Core-ct.144 Fixes and documentation for SearchTopic: * Fixes off-by-one error for titleHitInterval (that led to a DNU when canceling/jumping to the end of the result text). * Documents structure of resultEntry tuple and harmonizes names. * Documents existing bugs/limitations of search. =============== Diff against HelpSystem-Core-ct.144 =============== Item was changed: ----- Method: SearchTopic>>find:in:results: (in category 'searching') ----- find: term in: path results: results + | resultEntry topic contents index | - | resultTemplate topic contents index | topic := path last. + resultEntry := Array new: 6. "{topicPath. titleHitInterval?. contentExcerptInterval?. contentExcerpt?. leadingContext? (not in use). contentHitInterval?}" + resultEntry at: 1 put: path. - resultTemplate := Array new: 6. - resultTemplate at: 1 put: path. contents := topic title asString. (index := contents findString: term startingAt: 1 caseSensitive: false) > 0 ifTrue: [ + resultEntry at: 2 put: (index to: index + term size - 1) ]. - resultTemplate at: 2 put: (index to: index + term size) ]. + contents := topic contents asString withSqueakLineEndings. - contents := topic contents asString withSqueakLineEndings. (index := contents findString: term startingAt: 1 caseSensitive: false) > 0 ifTrue: [ | leadingContext trailingContext i | leadingContext := 0. trailingContext := 0. i := index. [i notNil] whileTrue: [ (leadingContext = 2 or: [i = 1]) ifTrue: [ leadingContext := i = 1 ifTrue: [i] ifFalse: [i+1]. i := nil] ifFalse: [ ((contents at: i) = Character cr) ifTrue: [ leadingContext := leadingContext + 1]. i := i - 1] ]. i := index + term size. [i notNil] whileTrue: [ (trailingContext = 2 or: [i >= contents size]) ifTrue: [ trailingContext := i = contents size ifTrue: [i] ifFalse: [i-1]. i := nil] ifFalse: [ ((contents at: i) = Character cr) ifTrue: [ trailingContext := trailingContext + 1]. i := i + 1] ]. + resultEntry - resultTemplate at: 3 put: (index - leadingContext + 1 to: index - leadingContext + term size); at: 4 put: (contents copyFrom: leadingContext to: trailingContext); at: 5 put: leadingContext; at: 6 put: (index to: index + term size - 1) ]. + (resultEntry second notNil "match in title" or: [resultEntry third notNil "match in contents"]) ifTrue: [ + self mutex critical: [ results add: resultEntry ]. - (resultTemplate second notNil "match in title" or: [resultTemplate third notNil "match in contents"]) ifTrue: [ - self mutex critical: [ results add: resultTemplate ]. self triggerUpdateContents]. topic isSearchable ifTrue: [ + self flag: #todo. "Selecting nested results (#searchResultSelected) currently does not work because the model usually has a different instance of the topic than retrieved here." + self flag: #bug. "For cyclic #subtopics, search never stops." topic subtopics do: [:t | self find: term in: path, {t} results: results]].! Item was changed: ----- Method: SearchTopic>>printResultEntry: (in category 'searching') ----- printResultEntry: entry + | resultEntry topicPath topic | - | resultEntry topic | resultEntry := '' asText. + topicPath := entry first. + topic := topicPath last. - topic := entry first last. + resultEntry append: + (topic title asText + addAttribute: TextEmphasis bold; + yourself). + entry second ifNotNil: [:titleHitInterval | + resultEntry + addAttribute: (TextColor color: Color green muchDarker) + from: titleHitInterval first + to: titleHitInterval last]. - entry second notNil - ifFalse: [resultEntry append: ( - (topic title) asText - addAttribute: TextEmphasis bold)] - ifTrue: [resultEntry append: ( - (topic title) asText - addAttribute: TextEmphasis bold; - addAttribute: (TextColor color: Color green muchDarker) - from: entry second first - to: entry second last)]. + resultEntry append: ' ' asText , ('({1})' asText - resultEntry append: (' ' asText , ('({1})' asText addAttribute: (PluggableTextAttribute evalBlock: [ + | contentHitInterval | + self changed: #searchResultSelected with: topicPath. + contentHitInterval := entry sixth. + self changed: #searchResultContentsSelected with: contentHitInterval]); + format: {'open topic' translated}). - self changed: #searchResultSelected with: entry first. - self changed: #searchResultContentsSelected with: entry sixth]); - format: {'open topic' translated})). resultEntry append: String cr. resultEntry append: ( + ('> ', ((topicPath allButLast collect: [:t | t title]) joinSeparatedBy: ' > ')) asText - ('> ', ((entry first allButLast collect: [:t | t title]) joinSeparatedBy: ' > ')) asText addAttribute: (TextColor color: (Color gray: 0.7))). resultEntry append: String cr. + entry fourth ifNil: [resultEntry append: '\\' withCRs] ifNotNil: [:contentHitText | + | text contentHitInterval | + text := contentHitText asText. + contentHitInterval := entry third. - entry fourth ifNil: [resultEntry append: '\\' withCRs] ifNotNil: [:contents | - | text | - text := contents asText. text addAttribute: (TextColor color: Color green muchDarker) + from: contentHitInterval first + to: contentHitInterval last; - from: entry third first - to: entry third last; addAttribute: TextEmphasis bold + from: contentHitInterval first + to: contentHitInterval last. - from: entry third first - to: entry third last. resultEntry append: text withBlanksTrimmed; + append: '\\' withCRs]. - append: '\\' withCRs. - - ]. ^ resultEntry!

1 0

The Trunk: HelpSystem-Core-ct.144.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Christoph Thiede uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-ct.144.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.144 Author: ct Time: 18 August 2023, 10:33:20.809279 pm UUID: acd95395-96d3-9e49-9078-0308239e9026 Ancestors: HelpSystem-Core-ct.143 Documents new extension points from previous version in SearchTopic. Adds multilingual support. Thanks to Marcel for the feedback! =============== Diff against HelpSystem-Core-ct.143 =============== Item was changed: + ----- Method: SearchTopic>>doSearch (in category 'searching') ----- - ----- Method: SearchTopic>>doSearch (in category 'private') ----- doSearch + "Extension point. Subclasses may override this, e.g., to implement different search strategies." (self topicsToSearch sorted: [:t1 :t2 | t1 priorityForSearch <= t2 priorityForSearch]) do: [:topic | | nestedResults | nestedResults := OrderedCollection new. self mutex critical: [results add: topic -> nestedResults]. self find: self term in: {topic} results: nestedResults]. + results add: 'Search finished.' translated.! - results add: 'Search finished.'.! Item was changed: + ----- Method: SearchTopic>>printResultEntry: (in category 'searching') ----- - ----- Method: SearchTopic>>printResultEntry: (in category 'private') ----- printResultEntry: entry | resultEntry topic | resultEntry := '' asText. topic := entry first last. entry second notNil ifFalse: [resultEntry append: ( (topic title) asText addAttribute: TextEmphasis bold)] ifTrue: [resultEntry append: ( (topic title) asText addAttribute: TextEmphasis bold; addAttribute: (TextColor color: Color green muchDarker) from: entry second first to: entry second last)]. + resultEntry append: (' ' asText , ('({1})' asText - resultEntry append: (' (open topic)' asText addAttribute: (PluggableTextAttribute evalBlock: [ self changed: #searchResultSelected with: entry first. + self changed: #searchResultContentsSelected with: entry sixth]); + format: {'open topic' translated})). - self changed: #searchResultContentsSelected with: entry sixth])). resultEntry append: String cr. resultEntry append: ( ('> ', ((entry first allButLast collect: [:t | t title]) joinSeparatedBy: ' > ')) asText addAttribute: (TextColor color: (Color gray: 0.7))). resultEntry append: String cr. entry fourth ifNil: [resultEntry append: '\\' withCRs] ifNotNil: [:contents | | text | text := contents asText. text addAttribute: (TextColor color: Color green muchDarker) from: entry third first to: entry third last; addAttribute: TextEmphasis bold from: entry third first to: entry third last. resultEntry append: text withBlanksTrimmed; append: '\\' withCRs. ]. ^ resultEntry! Item was changed: ----- Method: SearchTopic>>startSearch (in category 'private') ----- startSearch self stopSearch. results := OrderedCollection new. self topicsToSearch ifEmpty: [ self changed: #contents. ^ self]. process := [ - self doSearch. + self triggerUpdateContents + ] forkAt: Processor userBackgroundPriority.! - - self triggerUpdateContents. - - ] forkAt: 35.! Item was changed: + ----- Method: SearchTopic>>updateContents (in category 'searching') ----- - ----- Method: SearchTopic>>updateContents (in category 'private') ----- updateContents self mutex critical: [ updatePending := false ]. resultText := nil. self changed: #contents with: self.! Item was changed: + ----- Method: SearchTopic>>writeResultText (in category 'searching') ----- - ----- Method: SearchTopic>>writeResultText (in category 'private') ----- writeResultText + "Extension point. Subclasses may override this, e.g., to customize the representation of results." results ifNil: [^ resultText]. results do: [:topicToResult | topicToResult isString ifTrue: [resultText append: ( (topicToResult, String cr) asText addAttribute: (TextColor color: (Color gray: 0.7)); yourself)] ifFalse: [ resultText append: ( + '\----- Matches found in ''{1}'' -----\\' withCRs translated asText + addAttribute: (TextColor color: (Color gray: 0.7)); + format: {topicToResult key title}). - ('\----- Matches found in ''', topicToResult key title, ''' -----\\') withCRs asText - addAttribute: (TextColor color: (Color gray: 0.7))). topicToResult value do: [:entry | resultText append: (self printResultEntry: entry)] ]]!

1 0

The Trunk: Help-Squeak-TerseGuide-ct.17.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Christoph Thiede uploaded a new version of Help-Squeak-TerseGuide to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-TerseGuide-ct.17.mcz ==================== Summary ==================== Name: Help-Squeak-TerseGuide-ct.17 Author: ct Time: 18 August 2023, 12:34:12.962041 am UUID: 8b1fdaa1-4030-984d-949e-c3c96efa3103 Ancestors: Help-Squeak-TerseGuide-ct.16 Updates terse guide on dialogs. FillInTheBlank should not be used directly and UIManager should be accessed through Project. =============== Diff against Help-Squeak-TerseGuide-ct.16 =============== Item was changed: ----- Method: TerseGuideHelp class>>misc (in category 'pages') ----- misc "This method was automatically generated. Edit it using:" "TerseGuideHelp edit: #misc" + <generated> + ^(HelpTopic - ^HelpTopic title: 'Miscellaneous' contents: '| x | Smalltalk condenseChanges. "compress the change file" + x := Project uiManager request: ''Prompt Me''. "prompt user for input using a flexible UI dispatcher" - x := FillInTheBlank request: ''Prompt Me''. "prompt user for input" - x := UIManager default request: ''Prompt Me''. "prompt user for input using a flexible UI dispatcher" Utilities openCommandKeyHelp + !!' readStream nextChunkText) + key: #misc; + shouldStyle: true; + yourself! - !!' readStream nextChunkText!

1 0

The Inbox: Morphic-ct.2123.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.2123.mcz ==================== Summary ==================== Name: Morphic-ct.2123 Author: ct Time: 18 August 2023, 12:38:52.587041 am UUID: f33ab5bd-ef1a-fe43-b920-7aabf5286687 Ancestors: Morphic-mt.2122 Fixes PluggableTreeMorph>>#updateMorph:/the #objectChanged event for item classes that do not support refreshing their item. #objectChanged makes still sense because it is the only convenient way for the model to update the children of an item, even if the item itself cannot be changed. =============== Diff against Morphic-mt.2122 =============== Item was added: + ----- Method: ListItemWrapper>>refresh (in category 'private') ----- + refresh + "Update our item from the model, if applicable. Subclasses may override this. Sent from PluggableTreeMorph>>#updateMorph:."!

4 3

The Trunk: Tools-ct.1226.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1226.mcz ==================== Summary ==================== Name: Tools-ct.1226 Author: ct Time: 15 August 2023, 3:40:21.19103 pm UUID: 359aded0-9d41-d447-ac76-82497dc3c070 Ancestors: Tools-mt.1225, Tools-ct.935 In message traces, honors the preference useUnifiedMessageLabels (by merging Tools-ct.935). =============== Diff against Tools-mt.1225 =============== Item was changed: ----- Method: MessageSet>>initializeMessageList: (in category 'private') ----- initializeMessageList: anArray "Initialize my messageList from the given list of MethodReference or string objects. NB: special handling for uniclasses. Do /not/ replace the elements of anArray if they are already MethodReferences, so as to allow users to construct richer systems, such as differencers between existing and edited versions of code. NOTE THAT we must support anArray to already have the desired amount and order of elements such as for the 'method inheritance' view, where all elements are prefixed with spaces to indicate the inheritance tree." | isOrdered | isOrdered := anArray size > 1 and: [anArray second isMethodReference] and: [anArray second stringVersion first = Character space]. messageList := isOrdered ifTrue: [OrderedCollection new] ifFalse: [Set new]. anArray do: [:each | each isMethodReference ifTrue: [messageList add: each] ifFalse: [ MessageSet parse: each toClassAndSelector: [ : class : sel | class ifNotNil: [ messageList add: (MethodReference class: class selector: sel) ] ] ] ]. isOrdered ifFalse: [messageList := messageList asOrderedCollection sort]. "Unify labels if wanted." self class useUnifiedMessageLabels ifTrue: [ messageList withIndexDo: + [ : each : index | + each stringVersion: (self indentionPrefixOfSize: (self indentionsIn: each stringVersion)) , (self unifiedMessageLabelFor: each) ] ]. - [ : each : index | | cls | - cls := each actualClass. - each stringVersion: - (self indentionPrefixOfSize: (self indentionsIn: each stringVersion)) - , (cls - ifNil: [each asString] - ifNotNil: - [cls isUniClass - ifTrue: [cls typicalInstanceName, ' ', each selector] - ifFalse: - [ cls name , ' ' , each selector , ' {' - , ((cls organization categoryOfElement: each selector) ifNil: ['']) , '}' - , ' {', cls category, '}' ] ]) ] ]. messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1]. contents := String empty! Item was added: + ----- Method: MessageSet>>unifiedMessageLabelFor: (in category 'private') ----- + unifiedMessageLabelFor: aMethodReference + + | class selector | + class := aMethodReference actualClass ifNil: [^ aMethodReference asString]. + selector := aMethodReference selector. + class isUniClass ifTrue: [ + ^ '{1} {2}' format: {class typicalInstanceName. selector}]. + ^ '{1} {2} \{{3}\} \{{4}\}' format: { + class. + selector. + class organization categoryOfElement: selector. + class category }! Item was changed: ----- Method: MessageTrace>>addChildMessages:autoSelectString: (in category 'building') ----- addChildMessages: methodReferences autoSelectString: aString | currentIndentionLevel addables selectables selectableString newAnchor | selectableString := aString keywords ifEmpty: [ String empty ] ifNotEmptyDo: [ : keywords | "we can probably do something more precise here; perhaps recombining the extracted keywords into a single selector? Then again all usages of this method seem to already enforce use of a selector" aString ]. [ (messageListIndex between: 1 and: autoSelectStrings size) ] whileFalse: [ autoSelectStrings add: selectableString ]. currentIndentionLevel := self currentIndentionLevel. + "Don't add multiple copies of the same method, if a method is already in the list we will merely select it." - "Don't add mulitple copies of the same method, if a method is already in the list we will merely select it." addables := methodReferences reject: [ : each | messageList includes: each ]. addables do: [ : each | + each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel + 1) + , (self class useUnifiedMessageLabels + ifTrue: [self unifiedMessageLabelFor: each] + ifFalse: [each asStringOrText]). - each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel + 1) , each asStringOrText. messageList add: each afterIndex: self messageListIndex. autoSelectStrings add: nil afterIndex: self messageListIndex. messageSelections add: false afterIndex: self messageListIndex ]. selectables := addables copy addAll: (methodReferences select: [ : each | messageList includes: each ]) ; yourself. self deselectAll. anchorIndex := nil. selectables do: [ : each | self messageAt: (newAnchor := messageList indexOf: each) beSelected: true. anchorIndex ifNil: [ anchorIndex := newAnchor ] ]. self changed: #messageList. "Select the first child method." self messageListIndex: (selectables size > 0 ifTrue: [ messageList indexOf: selectables last ] ifFalse: [ messageList ifEmpty: [ 0 ] ifNotEmpty: [ 1 ] ])! Item was changed: ----- Method: MessageTrace>>addParentMessages:autoSelectString: (in category 'building') ----- addParentMessages: methodReferences autoSelectString: aString | currentIndentionLevel addables selectables | addables := methodReferences reject: [ : each | messageList includes: each ]. "we may need to process aString here in a similar manner to that in #addChildMessages:autoSelectString:" selectables := addables copy addAll: (methodReferences select: [ : each | messageList includes: each ]) ; yourself. currentIndentionLevel := self currentIndentionLevel. (currentIndentionLevel = 0 and: [ addables notEmpty ]) ifTrue: [ self indentEverything. currentIndentionLevel := 1 ]. addables do: [ : each | + each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel - 1) + , (self class useUnifiedMessageLabels + ifTrue: [self unifiedMessageLabelFor: each] + ifFalse: [each asStringOrText]). - each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel - 1) , each asStringOrText. messageList add: each afterIndex: self messageListIndex - 1. autoSelectStrings add: aString afterIndex: self messageListIndex - 1. messageSelections add: false afterIndex: self messageListIndex - 1 ]. self deselectAll. selectables do: [ : each | | messageIndex | messageIndex := messageList indexOf: each. self messageAt: messageIndex beSelected: true. autoSelectStrings at: messageIndex put: aString ]. self changed: #messageList. anchorIndex := messageListIndex. selectables size > 0 ifTrue: [ self messageListIndex: (messageList indexOf: selectables first) ]!

4 6

Squeak 32 bit vm for run 64 bit .images on old hardware
by Edgar De Cleene 18 Aug '23

18 Aug '23

Folks I wish run modern 64 bit .images in old Mac mini 2010 Which VM could be ? Thanks in advance Edgar @morplenauta

4 6

← Newer
1
...
6
7
8
9
10
11
12
...
17
Older →

Jump to page: