Packages August 2023

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Kernel-eem.1524.mcz
by commits＠source.squeak.org 23 Aug '23

23 Aug '23

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1524.mcz ==================== Summary ==================== Name: Kernel-eem.1524 Author: eem Time: 22 August 2023, 6:09:03.223832 pm UUID: 99f7ba8e-761f-4711-92c2-2818c08e064d Ancestors: Kernel-eem.1523 eliminagte duplicate line endings in forkNamed: =============== Diff against Kernel-eem.1523 =============== Item was changed: ----- Method: BlockClosure>>forkNamed: (in category 'scheduling') ----- forkNamed: aString - "Create and schedule a Process running the code in the receiver and + having the given name." - having the given name." - - - ^ self newProcess name: aString; resume!

1 0

The Trunk: Tools-eem.1231.mcz
by commits＠source.squeak.org 23 Aug '23

23 Aug '23

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.1231.mcz ==================== Summary ==================== Name: Tools-eem.1231 Author: eem Time: 22 August 2023, 5:38:02.314287 pm UUID: 517866f8-199a-40d8-87a5-d6d4ed0c7e99 Ancestors: Tools-mt.1230 Robustness on reloading Workspace contents. The file might not exist (e.g. copy an image to another machine but don't copy associated workspace files). An exception should not occur on start up if the backing file is missing. =============== Diff against Tools-mt.1230 =============== Item was changed: ----- Method: Model>>loadContentsFromFileNamed:workBlock: (in category '*Tools-file out') ----- loadContentsFromFileNamed: fileName workBlock: workBlock + [FileStream - FileStream readOnlyFileNamed: fileName + do: [:stream | workBlock value: stream]] + on: FileDoesNotExistException + do: [^false]. - do: [:stream | workBlock value: stream]. ^ true!

1 0

The Trunk: Kernel-eem.1523.mcz
by commits＠source.squeak.org 22 Aug '23

22 Aug '23

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1523.mcz ==================== Summary ==================== Name: Kernel-eem.1523 Author: eem Time: 22 August 2023, 12:55:52.155147 pm UUID: a4d61d2f-cc75-4b8c-9615-cef127a2b3fd Ancestors: Kernel-ct.1522 Rename Process's threadId inst var to threadAffinity while we still can. This is in response to Leon Matthes correctly pointing out that the variable is an affinity, not an id. Thanks! =============== Diff against Kernel-ct.1522 =============== Item was changed: Link subclass: #Process + instanceVariableNames: 'suspendedContext priority myList threadAffinity effectiveProcess name island env' - instanceVariableNames: 'suspendedContext priority myList threadId effectiveProcess name island env' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Processes'! + !Process commentStamp: 'eem 8/22/2023 12:52' prior: 0! - !Process commentStamp: 'eem 10/9/2021 15:34' prior: 0! I represent an independent path of control in the system. This path of control may be stopped (by sending the message suspend) in such a way that it can later be restarted (by sending the message resume). When any one of several paths of control can be advanced, the single instance of ProcessorScheduler named Processor determines which one will actually be advanced, partly using the value of priority. Instance Variables: N.B. The first four are used by the virtual machine. They must be defined, and defined in this order, suspendedContext: <Context|nil> priority: <Integer> myList: <LinkedList|nil> + threadAffinity: <Integer|nil> - threadId: <Integer|nil> effectiveProcess: <Process|nil> name: <String|nil> island: <Island|nil> env: <Dictionary|nil> effectiveProcess - if not nil effectiveProcess is a process I am running on behalf of. Used by the execution simulation machinery (used by the debugger) to ensure that Processor activeProcess et al answer the expected result when simulating execution (e.g. when debugging). See evaluate:onBehalfOf: and senders. env - if not nil this is a Dictionary providing process-specific variables. See e.g. environmentAt:*, DynamicVariable and ProcessSpecificVariable. island - used by Tweak and Croquet to partition the image into multiple address spaces myList - if nil, I am either suspended or the active process. If not nil it is either some condition variable (Semaphore, Mutex) that I am blocked waiting on, or it is the LinkedList in ProcessorScheduler quiescentProcesses that holds the processes for my priority that are not the current active process but still runnable. name - if not nil this is my name, used for information, see e.g. the names of processes displayed in the ProcessBrowser priority - my scheduling priority, which corresponds to the index in ProcessorScheduler quiescentProcesses that holds the LinkedList of processes at this priority. If I am running but quiescent, changing priority involves changing priority and myList. suspendedContext - if nil, then I am either the active process or I have been terminated. If not nil it is the Context at the hot end of my stack + threadAffinity + - if not nil then it is an integer value set by the VM that controls how I interact with underlying native threads. If positive, the threadAffinity is that of some native thread known to the VM, and the VM will ensure that when I am running, I will be running on that native thread. If negative, the absolute value of threadAffinity is that of some thread known to the VM, and the VM will ensure that when I am running, I will *not* be running on that native thread. Set by the VM. Not to be set manually. Meaningful only on threaded VMs (which do not mean VMs with a threaded heartbeat). It is required to be my fourth instance variable. See SmalltalkImage >> #processHasThreadAffinityInstVar: for further information.! - threadId - - if not nil then it is an integer value set by the VM that controls how I interact with underlying native threads. If positive, the threadId is that of some native thread known to the VM, and the VM will ensure that when I am running, I will be running on that native thread. If negative, the absolute value of threadId is that of some thread known to the VM, and the VM will ensure that when I am running, I will *not* be running on that native thread. Set by the VM. Not to be set manually. Meaningful only on threaded VMs (which do not mean VMs with a threaded heartbeat). It is required to be my fourth instance variable. See SmalltalkImage >> #processHasThreadIdInstVar: for further information.! Item was changed: + (PackageInfo named: 'Kernel') postscript: '"Make sure the 4th inst var of Process is threadAffinity, not threadId" - (PackageInfo named: 'Kernel') postscript: '"Turn on the enableIPv6 preference for trunk." + (Process instVarNames at: 4) = ''threadId'' ifTrue: + [Process instVarNames at: 4 put: ''threadAffinity'' copy]'! - NetNameResolver enableIPv6: true. - '!

1 0

The Trunk: Morphic-mt.2124.mcz
by commits＠source.squeak.org 22 Aug '23

22 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2124.mcz ==================== Summary ==================== Name: Morphic-mt.2124 Author: mt Time: 22 August 2023, 3:49:57.137291 pm UUID: 2c9c6495-9f89-1942-abd0-b1875e91fffb Ancestors: Morphic-mt.2123 Fix typo. =============== Diff against Morphic-mt.2123 =============== Item was changed: ----- Method: TextEditor>>endOfLine: (in category 'private') ----- endOfLine: position "Redefined in subclasses using Paragraph support" | targetLine | + targetLine := paragraph lines at: (paragraph lineIndexForPoint:position). - targetLine := paragraph lines at: (paragraph lineIndexFor: position). ^ targetLine = paragraph lastLine ifFalse: [ targetLine last ] ifTrue: [ targetLine last + 1 ]!

1 0

The Trunk: Tools-mt.1230.mcz
by commits＠source.squeak.org 22 Aug '23

22 Aug '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1230.mcz ==================== Summary ==================== Name: Tools-mt.1230 Author: mt Time: 22 August 2023, 10:05:29.672936 am UUID: e51a04af-92dd-ad4f-858b-7771958ef91a Ancestors: Tools-mt.1229 Fixes a minor regression in MessageNames that just surfaced since we can now show #Comment #Definition and #Hierarchy of classes in that tool. The instVar currentCompiledMethod is overloaded and also holds a RemoteString if #Comment of a class is shown. Other tools do already account for that. Here, we just have to rely on the working implementation of #selectedClassOrMetaClass to implemented the desired feature, which is to select the first method of the current class if possible. Thanks to Nicolas (nice) for documenting this bug! See https://github.com/squeak-smalltalk/squeak-object-memory/issues/93 =============== Diff against Tools-mt.1229 =============== Item was changed: ----- Method: MessageNames>>selectorListIndex: (in category 'selector list') ----- selectorListIndex: anInteger "Set the selectorListIndex as specified, and propagate consequences" + + | currentClass newMessageListIndex | + currentClass := self selectedClassOrMetaClass. + - | methodClass index | - methodClass := currentCompiledMethod ifNotNil: [currentCompiledMethod methodClass]. selectorListIndex := anInteger. self changed: #selectorListIndex. messageList := self computeMessageList. self changed: #messageList. - messageList size > 1 ifTrue: - [methodClass ifNotNil: [index := messageList findFirst: [:methodRef| methodRef actualClass = methodClass]]]. "If a method of the same class exists, select that, otherwise select the first message if any." + newMessageListIndex := (messageList size > 1 and: [currentClass notNil]) + ifTrue: [1 max: (messageList findFirst: [:methodRef | methodRef actualClass = currentClass])] + ifFalse: [1 min: messageList size]. + + self messageListIndex: newMessageListIndex.! - self messageListIndex: (index ifNil: [1 min: messageList size])!

1 0

The Trunk: Tools-mt.1229.mcz
by commits＠source.squeak.org 22 Aug '23

22 Aug '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1229.mcz ==================== Summary ==================== Name: Tools-mt.1229 Author: mt Time: 22 August 2023, 9:18:14.136936 am UUID: 257407b9-3922-514c-a045-dc98da8fe2ff Ancestors: Tools-ct.1228 Fixes minor regression in message-set's unified message labels. =============== Diff against Tools-ct.1228 =============== Item was changed: ----- 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) + ifNil: ['' "i.e., #Comment #Definition #Hierarchy"]. - class organization categoryOfElement: selector. class category }!

1 0

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.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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2023