Packages November 2021

packages@lists.squeakfoundation.org

1 participants
118 discussions

The Trunk: ST80-mt.270.mcz
by commits＠source.squeak.org 29 Nov '21

29 Nov '21

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.270.mcz ==================== Summary ==================== Name: ST80-mt.270 Author: mt Time: 29 November 2021, 6:39:04.147615 pm UUID: 746975d8-ca24-46fc-8fa3-7dde8a3ac097 Ancestors: ST80-ct.269 Complements Tools-mt.1079 =============== Diff against ST80-ct.269 =============== Item was removed: - ----- Method: ParagraphEditor>>saveContentsInFile (in category 'menu messages') ----- - saveContentsInFile - "Save the receiver's contents string to a file, prompting the user for a file-name. Suggest a reasonable file-name." - - | fileName stringToSave parentWindow labelToUse suggestedName | - stringToSave := paragraph text string. - stringToSave size = 0 ifTrue: [^ self inform: 'nothing to save.']. - parentWindow := self model dependents - detect: [:dep | dep isKindOf: SystemWindow orOf: StandardSystemView] - ifNone: [nil]. - labelToUse := parentWindow - ifNil: ['Untitled'] - ifNotNil: [parentWindow label]. - suggestedName := nil. - #(('Decompressed contents of: ' '.gz')) do: "can add more here..." - [:leaderTrailer | | lastIndex | - (labelToUse beginsWith: leaderTrailer first) ifTrue: - [suggestedName := labelToUse copyFrom: leaderTrailer first size + 1 to: labelToUse size. - (labelToUse endsWith: leaderTrailer last) - ifTrue: - [suggestedName := suggestedName copyFrom: 1 to: suggestedName size - leaderTrailer last size] - ifFalse: - [lastIndex := suggestedName lastIndexOf: $.. - (lastIndex > 1) ifTrue: - [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]]. - - suggestedName ifNil: - [suggestedName := labelToUse, '.text']. - - fileName := UIManager default saveFilenameRequest: 'File name?' translated - initialAnswer: suggestedName. - fileName isEmptyOrNil ifFalse: - [(FileStream newFileNamed: fileName) nextPutAll: stringToSave; close]!

1 0

The Trunk: Morphic-mt.1804.mcz
by commits＠source.squeak.org 29 Nov '21

29 Nov '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1804.mcz ==================== Summary ==================== Name: Morphic-mt.1804 Author: mt Time: 29 November 2021, 6:38:28.129615 pm UUID: 7dcadcec-4dd8-4376-b0f0-8e9979c444ff Ancestors: Morphic-mt.1803 Complements Tools-mt.1079. =============== Diff against Morphic-mt.1803 =============== Item was removed: - ----- Method: PluggableTextMorph>>saveContentsInFile (in category 'menu commands') ----- - saveContentsInFile - self handleEdit: [textMorph editor saveContentsInFile]! Item was changed: ----- Method: PluggableTextMorph>>update: (in category 'updating') ----- update: aSymbol aSymbol ifNil: [^self]. aSymbol == #flash ifTrue: [^self flash]. aSymbol == getTextSelector ifTrue: [ self setText: self getText. getSelectionSelector ifNotNil: [self setSelection: self getSelection]. ^ self]. aSymbol == getSelectionSelector ifTrue: [^self setSelection: self getSelection]. aSymbol == #acceptChanges ifTrue: [^ self accept]. aSymbol == #revertChanges ifTrue: [^ self cancel]. (aSymbol == #autoSelect and: [getSelectionSelector notNil]) ifTrue: [self handleEdit: [(textMorph editor) abandonChangeText; "no replacement!!" setSearch: model autoSelectString; findAgainNow "do not reset search string"]]. aSymbol == #clearUserEdits ifTrue: [^self hasUnacceptedEdits: false]. aSymbol == #wantToChange ifTrue: [self canDiscardEdits ifFalse: [^self promptForCancel]. ^self]. aSymbol == #appendEntry ifTrue: [self handleEdit: [self appendEntry]. ^self refreshWorld]. aSymbol == #appendEntryLater ifTrue: [self handleEdit: [self appendEntry]]. aSymbol == #clearText ifTrue: [self handleEdit: [self changeText: Text new]. ^self refreshWorld]. aSymbol == #bs ifTrue: [self handleEdit: [self bsText]. ^self refreshWorld]. aSymbol == #codeChangedElsewhere ifTrue: [self hasEditingConflicts: true. ^self changed]. aSymbol == #saveContents ifTrue: + [^(self respondsTo: #saveContentsInFile) ifTrue: [self saveContentsInFile]]. - [^self saveContentsInFile]. aSymbol == #showContents ifTrue: [^ self scrollToTop]. ! Item was removed: - ----- Method: TextEditor>>saveContentsInFile (in category 'menu messages') ----- - saveContentsInFile - "Save the receiver's contents string to a file, which usually prompts the user for a file name." - - self paragraph text string - ifEmpty: [self inform: 'Nothing to save.'] - ifNotEmpty: [:stringToSave | - (self model saveContents: stringToSave accessMode: #create) - ifTrue: [ - self flag: #discuss. "mt: Is this correct? Having unaccepted contents means that the model does not know about it. Do we assume that the model will also keep track of the stringToSave?" - self morph hasUnacceptedEdits: false]].!

1 0

The Trunk: Collections-mt.963.mcz
by commits＠source.squeak.org 29 Nov '21

29 Nov '21

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.963.mcz ==================== Summary ==================== Name: Collections-mt.963 Author: mt Time: 29 November 2021, 6:37:20.730615 pm UUID: 1bf5e860-d210-4cac-a26f-e67611d02c23 Ancestors: Collections-mt.962 Complements Tools-mt.1079 =============== Diff against Collections-mt.962 =============== Item was removed: - ----- Method: TranscriptStream>>saveContents:accessMode: (in category 'model protocol') ----- - saveContents: stringContents accessMode: accessMode - "Interactive callback from TextEditor. See commentary in Model class." - - ^ (Project uiManager - saveFilenameRequest: 'Save text contents in file...' - initialAnswer: 'Transcript.text') - ifEmpty: [false] - ifNotEmpty: [:fileName | - Model new - saveContents: stringContents - onFileNamed: fileName - accessMode: accessMode].!

1 0

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

29 Nov '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1079.mcz ==================== Summary ==================== Name: Tools-mt.1079 Author: mt Time: 29 November 2021, 6:36:37.617615 pm UUID: c92da027-c262-4fd2-9a02-fb7bce9a6cbc Ancestors: Tools-mt.1078 Clean-up dependencies. Moves the save-contents protocol from Kernel/Collections/Morphic/ST80 to the Tools package. =============== Diff against Tools-mt.1078 =============== Item was added: + ----- Method: Model>>cleanFileNameForSave: (in category '*Tools-file out') ----- + cleanFileNameForSave: aString + "Removes selected decoration (i.e., leader+trailer) of aString. This decoration usually comes from window titles and the desire to reuse those titles as a file name. + NOTE THAT if only the decoration's leader matches, any existing file extension will be removed. + NOTE THAT if no decoration matches, the '.text' extension is appended if there is none. + SEE #defaultFileNameForSave." + + | cleanFileName | + self flag: #discuss. "mt: Rename 'save' to 'fileOut'?" + cleanFileName := aString. + + #( " 'leader' 'trailer' " + 'Decompressed contents of: ' '.gz' + "Add more here..." + ) groupsDo: [:leader :trailer | + self flag: #discuss. "mt: Maybe extract this feature into String and Text? See #withoutLeading* and #withoutTrailing*." + (cleanFileName beginsWith: leader) ifTrue: [ + cleanFileName := cleanFileName allButFirst: leader size. + (cleanFileName endsWith: trailer) + ifTrue: [cleanFileName := cleanFileName allButLast: trailer size] + ifFalse: [ + | lastIndex | + lastIndex := cleanFileName lastIndexOf: $. ifAbsent: [0]. + lastIndex > 1 ifTrue: [ + cleanFileName := cleanFileName copyFrom: 1 to: lastIndex - 1]] ]]. + + (cleanFileName = aString and: [(cleanFileName includes: $.) not]) + ifTrue: [cleanFileName := cleanFileName, '.text']. + + ^ cleanFileName! Item was added: + ----- Method: Model>>defaultFileNameForSave (in category '*Tools-file out') ----- + defaultFileNameForSave + "Answer a label that should be used as a file name when saving the receivers textual contents to disk. Note that the answer can also be a relative or absolute file path." + + self flag: #discuss. "mt: Rename 'save' to 'fileOut'?" + ^ self containingWindow + ifNil: ['Untitled'] + ifNotNil: [:window | window label]! Item was added: + ----- Method: Model>>saveContents: (in category '*Tools-file out') ----- + saveContents: stringContents + "Interactive. See #saveContents:accessMode:." + + ^ self + saveContents: stringContents + accessMode: #create! Item was added: + ----- Method: Model>>saveContents:accessMode: (in category '*Tools-file out') ----- + saveContents: stringContents accessMode: accessMode + "Interactive callback from TextEditor. Ask the user for a file name/path, suggesting a (cleaned-up) default name to accept. Answers whether the save request was successful." + + ^ (Project uiManager + saveFilenameRequest: 'Save text contents in file...' + initialAnswer: self suggestedFileNameForSave) + ifNil: [false] ifNotNil: [:answer | answer ifEmpty: [false] + ifNotEmpty: [:fileName | + self + saveContents: stringContents + onFileNamed: fileName + accessMode: accessMode]].! Item was added: + ----- Method: Model>>saveContents:onFileNamed:accessMode: (in category '*Tools-file out') ----- + saveContents: stringContents onFileNamed: fileName accessMode: accessMode + + ^ self + saveContents: stringContents + onFileNamed: fileName + accessMode: accessMode + workBlock: [:fileStream | fileStream nextPutAll: stringContents]! Item was added: + ----- Method: Model>>saveContents:onFileNamed:accessMode:workBlock: (in category '*Tools-file out') ----- + saveContents: stringContents onFileNamed: fileName accessMode: accessMode workBlock: workBlock + "Save stringContents on fileName. Answers whether the save request was successful. On success, fileName will exist, including any new directories in the relative/absolute path. + + accessMode + #create ... Prompt the user if file exists. + #update ... Replace all contents if file exists. + #append ... Append new contents if file exists." + + (FileDirectory default on: fileName) containingDirectory assureExistence. + accessMode caseOf: { + [#create] -> [FileStream newFileNamed: fileName do: workBlock]. + [#update] -> [FileStream forceNewFileNamed: fileName do: workBlock]. + [#append] -> [FileStream fileNamed: fileName do: [:s | s setToEnd. workBlock value: s]] } + otherwise: [ + self error: 'Unknown file access mode: ', accessMode printString. + ^ false]. + + Transcript showln: ('{1} contents saved (via {2}) to: {3}' format: { self class. accessMode printString. fileName }). + ^ true! Item was added: + ----- Method: Model>>suggestedFileNameForSave (in category '*Tools-file out') ----- + suggestedFileNameForSave + + ^ self cleanFileNameForSave: self defaultFileNameForSave! Item was added: + ----- Method: PluggableTextMorph>>saveContentsInFile (in category '*Tools-file out') ----- + saveContentsInFile + self handleEdit: [textMorph editor saveContentsInFile]! Item was added: + ----- Method: TextEditor>>saveContentsInFile (in category '*Tools-file out') ----- + saveContentsInFile + "Save the receiver's contents string to a file, which usually prompts the user for a file name." + + self paragraph text string + ifEmpty: [self inform: 'Nothing to save.'] + ifNotEmpty: [:stringToSave | + (self model saveContents: stringToSave accessMode: #create) + ifTrue: [ + self flag: #discuss. "mt: Is this correct? Having unaccepted contents means that the model does not know about it. Do we assume that the model will also keep track of the stringToSave?" + self morph hasUnacceptedEdits: false]].! Item was added: + ----- Method: TranscriptStream>>saveContents:accessMode: (in category '*Tools-file out') ----- + saveContents: stringContents accessMode: accessMode + "Interactive callback from TextEditor. See commentary in Model class." + + ^ (Project uiManager + saveFilenameRequest: 'Save text contents in file...' + initialAnswer: 'Transcript.text') + ifEmpty: [false] + ifNotEmpty: [:fileName | + Model new + saveContents: stringContents + onFileNamed: fileName + accessMode: accessMode].!

1 0

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

29 Nov '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1078.mcz ==================== Summary ==================== Name: Tools-mt.1078 Author: mt Time: 29 November 2021, 5:40:09.040615 pm UUID: c2a87084-33a1-4a59-ac39-4b74a4035f8e Ancestors: Tools-pre.1077 In workspaces, fixes minor issue with how #fileDirectory and #windowTitle are stored. Thanks to Christoph (ct) for pointing this out. =============== Diff against Tools-pre.1077 =============== Item was changed: ----- Method: Workspace>>fileDirectory (in category 'accessing') ----- fileDirectory "Answer the current directory for save-contents requests." + ^ (self valueOfProperty: #fileDirectory) ifNil: [FileDirectory default]! - ^ self valueOfProperty: #fileDirectory ifAbsent: [FileDirectory default]! Item was changed: ----- Method: Workspace>>windowTitle (in category 'accessing') ----- windowTitle + ^ (self valueOfProperty: #windowTitle) ifNil: ['Workspace']! - ^ self valueOfProperty: #windowTitle ifAbsent: ['Workspace']!

1 0

The Trunk: Tools-pre.1077.mcz
by commits＠source.squeak.org 29 Nov '21

29 Nov '21

Patrick Rein uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-pre.1077.mcz ==================== Summary ==================== Name: Tools-pre.1077 Author: pre Time: 29 November 2021, 11:53:31.567297 am UUID: d1d2b6a9-1db1-1947-b4b6-5a57fd00945d Ancestors: Tools-mt.1076 Slightly improves the documentation of the dependency browser and refactors the dependency computation by splitting it up into single methods describing the individual steps. =============== Diff against Tools-mt.1076 =============== Item was changed: CodeHolder subclass: #DependencyBrowser instanceVariableNames: 'packageList packageDeps packageDepsList classDeps classDepsList classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex autoSelectString windowTitle' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! + !DependencyBrowser commentStamp: 'pre 11/29/2021 11:48' prior: 0! - !DependencyBrowser commentStamp: 'fbs 5/6/2011 11:29' prior: 0! A simple dependency browser showing five panes: [1]: Packages: The list of available packages in the system. + [2]: Package Dependencies: The packages the currently selected package depends on. + [3]: Class Dependencies: The classes the currently selected package [1] depends on (filtered by the selected required package [2]). + [4]: Class List: The classes in the currently selected package [1] containing the references to the class dependencies [3]. + [5]: Messages: The messages in the currently selected package [1] and class [4] that contain the references to the class dependencies [3]. + + # Implementation + The dependencies are pre-computed whenever the selected package changes [1], see #computePackageAndClassDependencies.! - [2]: Package Dependencies: The dependent packages of the currently selected package. - [3]: Class Dependencies: The classes causing the dependencies. - [4]: Class List: The classes introducing the dependencies. - [5]: Messages: The messages introducing the dependencies.! Item was changed: ----- Method: DependencyBrowser class>>openInvertedOn: (in category 'opening') ----- openInvertedOn: requiredPackageNames "DependencyBrowser openInvertedOn: #(Monticello)" | model | model := self new. ^ ToolBuilder open: ( model packageList: (model packageList select: [:packageName | + model computePackageAndClassDependencies: packageName. - model computePackageDependencies: packageName. model packageDeps includesAnyOf: requiredPackageNames]); windowTitle: ('Dependency Browser (inverted on {1})' format: {requiredPackageNames}); yourself) ! Item was changed: + ----- Method: DependencyBrowser>>classDeps (in category 'class dependencies') ----- - ----- Method: DependencyBrowser>>classDeps (in category 'class deps') ----- classDeps "Class dependencies for the currently selected package" packageDeps ifNil: [^ #()]. ^ (packageDeps at: self packageDepsSelection ifAbsent:[#()]) sort. ! Item was changed: + ----- Method: DependencyBrowser>>classDepsIndex (in category 'class dependencies') ----- - ----- Method: DependencyBrowser>>classDepsIndex (in category 'class deps') ----- classDepsIndex "Class dependency selection" ^classDepsIndex ifNil:[0]! Item was changed: + ----- Method: DependencyBrowser>>classDepsIndex: (in category 'class dependencies') ----- - ----- Method: DependencyBrowser>>classDepsIndex: (in category 'class deps') ----- classDepsIndex: idx "Class dependency selection" classDepsIndex := idx. self changed: #classDepsIndex. classList := nil. self changed: #classList. self classListIndex: (idx = 0 ifTrue: [0] ifFalse: [1]).! Item was changed: + ----- Method: DependencyBrowser>>classDepsKey:from: (in category 'class dependencies') ----- - ----- Method: DependencyBrowser>>classDepsKey:from: (in category 'class deps') ----- classDepsKey: aCharacter from: aPluggableListMorphPlus aCharacter = $N ifTrue: [^ self referencesToIt: (self classDeps at: self classDepsIndex)].! Item was changed: + ----- Method: DependencyBrowser>>classDepsList (in category 'class dependencies') ----- - ----- Method: DependencyBrowser>>classDepsList (in category 'class deps') ----- classDepsList "Class dependencies for the currently selected package" | checkDef checkExt | checkDef := [:mref | mref selector = #Definition]. checkExt := [:mref | mref category notNil and: [mref category first = $*]]. ^ classDepsList ifNil: [ classDepsList := self classDeps. classDepsList := classDepsList collect: [:className | String streamContents: [:label | label nextPutAll: className. (self depsForClassNamed: className allSatisfy: checkDef) ifTrue: [label nextPutAll: ' (defs only)'] ifFalse: [(self depsForClassNamed: className allSatisfy: checkExt) ifTrue: [label nextPutAll: ' *exts only'] ifFalse: [ (self depsForClassNamed: className anySatisfy: checkDef) ifTrue: [label nextPutAll: ' ()']. (self depsForClassNamed: className anySatisfy: checkExt) ifTrue: [label nextPutAll: ' *']]]]]]! Item was changed: + ----- Method: DependencyBrowser>>classDepsMenu: (in category 'class dependencies') ----- - ----- Method: DependencyBrowser>>classDepsMenu: (in category 'class deps') ----- classDepsMenu: aMenu ^aMenu! Item was changed: + ----- Method: DependencyBrowser>>classDepsSelection (in category 'class dependencies') ----- - ----- Method: DependencyBrowser>>classDepsSelection (in category 'class deps') ----- classDepsSelection "Class dependency selection" ^(self classDepsIndex between: 1 and: self classDeps size) ifTrue:[self classDeps at: self classDepsIndex].! Item was added: + ----- Method: DependencyBrowser>>computeClassDependenciesFor: (in category 'private - dependencies') ----- + computeClassDependenciesFor: packageInfo + + packageInfo classes do: [:pkgClass | + "Add the superclass and SharedPools as dependencies." + (classDeps at: (pkgClass superclass ifNil: [ProtoObject]) name + ifAbsentPut: [OrderedCollection new]) add: + (MethodReference class: pkgClass selector: #Definition). + pkgClass sharedPools do: [:sharedPool | + sharedPool isBehavior ifTrue: [ + (classDeps at: sharedPool name + ifAbsentPut: [OrderedCollection new]) add: + (MethodReference class: pkgClass selector: #Definition)]]]. + + packageInfo coreMethods do: [:mref | + mref compiledMethod allLiteralsDo: [:lit | + (lit isVariableBinding and: [lit value isBehavior]) ifTrue: [ + (classDeps at: lit value name ifAbsentPut: [OrderedCollection new]) + add: mref]]]. + + packageInfo extensionMethods do: [:mref | + (classDeps at: mref actualClass name ifAbsentPut: [OrderedCollection new]) + add: mref]. + ! Item was added: + ----- Method: DependencyBrowser>>computePackageAndClassDependencies: (in category 'private - dependencies') ----- + computePackageAndClassDependencies: pkgName + "Compute the dependencies for the given package" + | packageInfo | + classDeps := Dictionary new. + packageDeps := Dictionary new. + pkgName ifNil: [^ self]. + packageInfo := PackageOrganizer default + packageNamed: pkgName + ifAbsent:["unloaded" ^ self]. + + self + computeClassDependenciesFor: packageInfo; + computePackageDependencies. + + (packageDeps removeKey: pkgName ifAbsent: [#()]) do: [:each | + classDeps removeKey: each ifAbsent: []].! Item was added: + ----- Method: DependencyBrowser>>computePackageDependencies (in category 'private - dependencies') ----- + computePackageDependencies + + classDeps keys do:[:className| | aClass pkg | + aClass := Smalltalk classNamed: className. + pkg := aClass ifNil: [nil] ifNotNil: [PackageOrganizer default packageOfClass: aClass ifNone:[nil]]. + pkg + ifNil:[ + Transcript cr; show: 'WARNING: No package for ', className. + (classDeps removeKey: className) do:[:each| Transcript crtab; show: each]] + ifNotNil:[ + (packageDeps at: pkg name ifAbsentPut:[OrderedCollection new]) add: className]].! Item was removed: - ----- Method: DependencyBrowser>>computePackageDependencies: (in category 'package deps') ----- - computePackageDependencies: pkgName - "Compute the dependencies for the given package" - | pi | - classDeps := Dictionary new. - packageDeps := Dictionary new. - pkgName ifNil:[^self]. - pi := PackageOrganizer default packageNamed: pkgName ifAbsent:[^self]. "unloaded" - pi classes do:[:pkgClass | - (classDeps at: (pkgClass superclass ifNil:[ProtoObject]) name - ifAbsentPut:[OrderedCollection new]) add: - (MethodReference class: pkgClass selector: #Definition). - pkgClass sharedPools do: [:sharedPool | - sharedPool isBehavior ifTrue: [ - (classDeps at: sharedPool name - ifAbsentPut:[OrderedCollection new]) add: - (MethodReference class: pkgClass selector: #Definition)]]]. - - pi coreMethods do:[:mref| - mref compiledMethod allLiteralsDo:[:lit | - (lit isVariableBinding and: [lit value isBehavior]) ifTrue:[ - (classDeps at: lit value name ifAbsentPut:[OrderedCollection new]) - add: mref]]]. - - pi extensionMethods do:[:mref| - (classDeps at: mref actualClass name ifAbsentPut: [OrderedCollection new]) - add: mref]. - - classDeps keys do:[:className| | aClass pkg | - aClass := Smalltalk classNamed: className. - pkg := aClass ifNil: [nil] ifNotNil: [PackageOrganizer default packageOfClass: aClass ifNone:[nil]]. - pkg ifNil:[ - Transcript cr; show: 'WARNING: No package for ', className. - (classDeps removeKey: className) do:[:each| Transcript crtab; show: each]. - ] ifNotNil:[ - (packageDeps at: pkg name ifAbsentPut:[OrderedCollection new]) add: className. - ]. - ]. - - (packageDeps removeKey: pkgName ifAbsent:[#()]) do:[:each| - classDeps removeKey: each ifAbsent:[]. - ].! Item was changed: + ----- Method: DependencyBrowser>>packageDeps (in category 'package dependencies') ----- - ----- Method: DependencyBrowser>>packageDeps (in category 'package deps') ----- packageDeps "Package dependencies for the currently selected package" packageDeps ifNil:[ packageDeps := Dictionary new. Cursor wait showWhile:[ + self computePackageAndClassDependencies: self packageListSelection. - self computePackageDependencies: self packageListSelection. ]. ]. ^packageDeps keys sort! Item was changed: + ----- Method: DependencyBrowser>>packageDepsIndex (in category 'package dependencies') ----- - ----- Method: DependencyBrowser>>packageDepsIndex (in category 'package deps') ----- packageDepsIndex "Current package dependencies selection" ^packageDepsIndex ifNil:[0]! Item was changed: + ----- Method: DependencyBrowser>>packageDepsIndex: (in category 'package dependencies') ----- - ----- Method: DependencyBrowser>>packageDepsIndex: (in category 'package deps') ----- packageDepsIndex: aNumber "Current package dependencies selection" packageDepsIndex := aNumber. self changed: #packageDepsIndex. classDepsList := nil. self changed: #classDepsList. self classDepsIndex: (aNumber = 0 ifTrue: [0] ifFalse: [1]). ! Item was changed: + ----- Method: DependencyBrowser>>packageDepsList (in category 'package dependencies') ----- - ----- Method: DependencyBrowser>>packageDepsList (in category 'package deps') ----- packageDepsList "Package dependencies for the currently selected package" | checkDef checkExt | checkDef := [:mref | mref selector = #Definition]. checkExt := [:mref | mref category notNil and: [mref category first = $*]]. ^ packageDepsList ifNil: [ packageDepsList := self packageDeps. packageDepsList := packageDepsList collect: [:packageName | String streamContents: [:label | label nextPutAll: packageName. (self depsForPackageNamed: packageName allSatisfy: checkDef) ifTrue: [label nextPutAll: ' (defs only)'] ifFalse: [(self depsForPackageNamed: packageName allSatisfy: checkExt) ifTrue: [label nextPutAll: ' *exts only'] ifFalse: [ (self depsForPackageNamed: packageName anySatisfy: checkDef) ifTrue: [label nextPutAll: ' ()']. (self depsForPackageNamed: packageName anySatisfy: checkExt) ifTrue: [label nextPutAll: ' *']]]]]]! Item was changed: + ----- Method: DependencyBrowser>>packageDepsMenu: (in category 'package dependencies') ----- - ----- Method: DependencyBrowser>>packageDepsMenu: (in category 'package deps') ----- packageDepsMenu: aMenu ^aMenu! Item was changed: + ----- Method: DependencyBrowser>>packageDepsSelection (in category 'package dependencies') ----- - ----- Method: DependencyBrowser>>packageDepsSelection (in category 'package deps') ----- packageDepsSelection "Current package dependencies selection" ^(self packageDepsIndex between: 1 and: self packageDeps size) ifTrue:[self packageDeps at: self packageDepsIndex]! Item was changed: ----- Method: DependencyBrowser>>selectedMessage (in category 'contents') ----- selectedMessage "Source code for currently selected message" | className methodName mref | className := self classListSelection. methodName := self messageListSelection. mref := (classDeps at: self classDepsSelection ifAbsent:[#()]) detect:[:mr| mr actualClass name = className and:[mr methodSymbol = methodName]] ifNone:[nil]. + mref ifNil:[^ self class comment]. + mref methodSymbol == #Definition ifTrue:[^ mref actualClass definition]. - mref ifNil:[^self class comment]. - mref methodSymbol == #Definition ifTrue:[^mref actualClass definition]. ^mref sourceCode!

1 0

The Trunk: Morphic-mt.1803.mcz
by commits＠source.squeak.org 29 Nov '21

29 Nov '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1803.mcz ==================== Summary ==================== Name: Morphic-mt.1803 Author: mt Time: 29 November 2021, 11:17:49.411615 am UUID: 8dc2a08e-8d6a-40a8-9363-63825d568895 Ancestors: Morphic-mt.1802 Adds confirmation dialog to avoid inadvertent loss of unsaved work via keyboard shortcuts. The shorcut is CTRL+L, which might be triggered via CTRL+PageDown, depending on your platform and preferences. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-November/217224… =============== Diff against Morphic-mt.1802 =============== Item was changed: ----- Method: TextEditor>>cancel (in category 'menu messages') ----- cancel "Cancel the changes made so far to this text" + + model okToChange + ifTrue: [morph cancelEdits].! - morph cancelEdits!

1 0

The Trunk: Kernel-nice.1428.mcz
by commits＠source.squeak.org 28 Nov '21

28 Nov '21

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1428.mcz ==================== Summary ==================== Name: Kernel-nice.1428 Author: nice Time: 28 November 2021, 10:44:44.154815 pm UUID: a8a214a1-7879-4782-8dd7-910f183fda65 Ancestors: Kernel-nice.1427 Simplify code for integer division, and marginally fast up some edge case like (SmallInteger / LargeInteger) Discussion: Integer was trying to handle case of exact division (Integer / Integer) by performing a quorem operation (digitDiv:neg:), in the hope that avoiding the creation of an unecessary Fraction intermediate would fast things up. But it appears that digitDiv:neg: does no good nowadays. - primitive 10 for SmallInteger/SmallInteger case, - primitive 30 for Integer/Integer case (up to 64 bits) already handle exact division (their sole purpose if they exist!). If 10 & 30 are not implemented (they are optional), probably we do not care that much about such micro optimization anyway. in mixed cases: - (SmallInteger / LargeInteger), division cannot be exact - except for 0 receiver, so we're just wasting time Anyway, digitDiv:neg: creates a LargeInteger object for each SmallInteger receiver/argument, and an Array for the resulting quotient and remainder, so in term of creating intermediate objects, it's not much better. It is also pure waste of time if division is inexact - and division tend to not be cheap for LargeInteger. Also, gcd: algorithm used in Fraction>>#reduced performs well enough in the case of exact division. While at it, only handle zero divide in Integer/Integer case. Let further dispatching handle the case for mixed Integer/Number arithmetic (Integer shall mind its own business). Note that Fraction>>#setNumerator:denominator: already signal the ZeroDivide, but would not resume: correctly (we send #reduced to the result, which assumes that it is a Fraction) Warning: benchmarking and understanding the marginal fast-up is not easy, because we have: - a special bytecode for division - special primitive for 64 bits integer range - jit for some of those primitives that's many cases. Thanks to https://github.com/pharo-project/pharo/pull/10385 for asking. =============== Diff against Kernel-nice.1427 =============== Item was changed: ----- Method: Integer>>/ (in category 'arithmetic') ----- / aNumber "Refer to the comment in Number / " - | quoRem | aNumber isInteger ifTrue: + [aNumber isZero + ifTrue: [^(ZeroDivide dividend: self) signal]. + ^ (Fraction numerator: self denominator: aNumber) reduced]. - [quoRem := self divideByInteger: aNumber. - (quoRem at: 2) = 0 - ifTrue: [^ (quoRem at: 1) normalize] - ifFalse: [^ (Fraction numerator: self denominator: aNumber) reduced]]. ^ aNumber adaptToInteger: self andSend: #/! Item was changed: ----- Method: SmallInteger>>/ (in category 'arithmetic') ----- / aNumber "Primitive. This primitive (for /) divides the receiver by the argument and returns the result if the division is exact. Fail if the result is not a whole integer. Fail if the argument is 0 or is not a SmallInteger. Optional. No Lookup. See Object documentation whatIsAPrimitive." <primitive: 10> + ^super / aNumber! - aNumber isZero ifTrue: [^(ZeroDivide dividend: self) signal]. - ^(aNumber isMemberOf: SmallInteger) - ifTrue: [(Fraction numerator: self denominator: aNumber) reduced] - ifFalse: [super / aNumber]!

1 0

The Trunk: Kernel-nice.1427.mcz
by commits＠source.squeak.org 28 Nov '21

28 Nov '21

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1427.mcz ==================== Summary ==================== Name: Kernel-nice.1427 Author: nice Time: 28 November 2021, 6:42:41.820989 pm UUID: 6681ef5b-1b4a-42e1-95cf-ac56a7757b58 Ancestors: Kernel-ct.1426, Kernel-eem.1426 Merge Kernel-ct.1426, Kernel-eem.1426 =============== Diff against Kernel-ct.1426 =============== Item was added: + ----- Method: Message>>hasIdenticalContentsAs: (in category 'comparing') ----- + hasIdenticalContentsAs: aMessage + "Answer if the argument's selector and arguments are identically equal to those of the receiver. + It is assumed that the argument aMessage is, in fact, a message." + selector ~~ aMessage selector ifTrue: + [^false]. + 1 to: args size do: + [:i| (args at: i) ~~ (aMessage arguments at: i) ifTrue: [^false]]. + ^true! Item was changed: ----- Method: Object>>doesNotUnderstand: (in category 'error handling') ----- doesNotUnderstand: aMessage "Handle the fact that there was an attempt to send the given message to the receiver but the receiver does not understand this message (typically sent from the machine when a message + is sent to the receiver and no method is defined for that selector). - is sent to the receiver and no method is defined for that selector)." + Raise the MessageNotUnderstood signal. If it is caught, answer + the result supplied by the exception handler. If it is not caught, + answer the result of resending the message within a guard for + infinite recursion. This allows, for example, the programmer to + implement the method and continue." + "Testing: (3 activeProcess)" | exception resumeValue | (exception := MessageNotUnderstood new) message: aMessage; receiver: self. resumeValue := exception signal. + ^exception reachedDefaultHandler "i.e. exception was not caught..." + ifTrue: + [[aMessage sentTo: self] + on: MessageNotUnderstood + do: [:ex| + (self == ex receiver + and: [aMessage hasIdenticalContentsAs: ex message]) ifFalse: + [ex pass]. + self error: 'infinite recursion in doesNotUnderstand:']] - ^exception reachedDefaultHandler - ifTrue: [aMessage sentTo: self] ifFalse: [resumeValue]!

1 0

The Trunk: MonticelloConfigurations-ct.168.mcz
by commits＠source.squeak.org 27 Nov '21

27 Nov '21

Christoph Thiede uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-ct.168.mcz ==================== Summary ==================== Name: MonticelloConfigurations-ct.168 Author: ct Time: 27 November 2021, 10:14:34.434227 pm UUID: 85e3cdcd-20f3-0646-a2fb-dadf3883b511 Ancestors: MonticelloConfigurations-eem.167 Complements System-ct.1258 (robustizes CI status badge query). =============== Diff against MonticelloConfigurations-eem.167 =============== Item was changed: ----- Method: MCMcmUpdater>>updateMessageFor: (in category 'private') ----- updateMessageFor: previousUpdateLevel + ^ ('Update completed. Version: {1} Update: {3}{2} Url: <a href="{4}">{4}</a> Map: ''{5}'' CI status: <a href="{8}"><img src="{7}" /> {9}</a>{6}' translated format: { - ^ ('Update completed. Version: {1} Update: {3}{2} Url: <a href="{4}">{4}</a> Map: ''{5}'' TravisCI status: <a href="{8}"><img src="{7}" /> {9}</a>{6}' translated format: { SystemVersion current version. SystemVersion current highestUpdate. previousUpdateLevel = SystemVersion current highestUpdate ifTrue: [''] ifFalse: [previousUpdateLevel asString, ' -> ']. self repository. MCMcmUpdater updateMapName. SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | ' ', (d copyReplaceAll: String cr with: ' ')]. SystemVersion current ciStatusBadgeUrl. SystemVersion current ciStatusPageUrl. + SystemVersion current ciStatusTimestamp ifNil: ['(build inaccessible!!)' translated]. - SystemVersion current ciStatusTimestamp. }) asTextFromHtml!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2021