Packages September 2021

packages@lists.squeakfoundation.org

1 participants
33 discussions

The Trunk: Tools-eem.1064.mcz
by commits＠source.squeak.org 08 Sep '21

08 Sep '21

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.1064.mcz ==================== Summary ==================== Name: Tools-eem.1064 Author: eem Time: 7 September 2021, 8:38:04.292324 pm UUID: 2544ee88-6941-42d9-bc13-e3b384fb4708 Ancestors: Tools-ul.1063 Fix some shadowed inst var warnings in the inspector; 'object' is an inst var name but was used as a block arg name in a few methods. =============== Diff against Tools-ul.1063 =============== Item was changed: ----- Method: BasicInspector>>fieldSelf (in category 'fields') ----- fieldSelf ^ (self newFieldForType: #self key: #self) name: 'self'; emphasizeName; + valueGetter: [:obj | self basicObjectPrintString]; printValueAsIs; - valueGetter: [:object | self basicObjectPrintString]; printValueAsIs; valueGetterExpression: 'self'; + valueSetter: [:obj :value | self object: value]; "Switch to another object-under-inspection." - valueSetter: [:object :value | self object: value]; "Switch to another object-under-inspection." yourself! Item was changed: ----- Method: BasicInspector>>streamInstanceVariablesOn: (in category 'fields - streaming') ----- streamInstanceVariablesOn: aStream | attributesForInstVars | attributesForInstVars := (UserInterfaceTheme current get: #instVar for: #SHTextStylerST80) ifNil: [#()]. (thisContext objectClass: self object) allInstVarNames withIndexDo: [:name :index | aStream nextPut: ((self newFieldForType: #instVar key: name) name: name; styleName: attributesForInstVars; + valueGetter: [:obj | thisContext object: obj instVarAt: index]; - valueGetter: [:object | thisContext object: object instVarAt: index]; valueGetterExpression: ('thisContext object: {1} instVarAt: {2}' format: { 'self'. index }); + valueSetter: [:obj :value | thisContext object: obj instVarAt: index put: value]; - valueSetter: [:object :value | thisContext object: object instVarAt: index put: value]; yourself)].! Item was changed: ----- Method: Inspector>>fieldAllInstVars (in category 'fields') ----- fieldAllInstVars ^ (self newFieldForType: #all key: #allInstVars) name: self allInstVarsTranslated; emphasizeName; + valueGetter: [:obj | obj longPrintString]; printValueAsIs; - valueGetter: [:object | object longPrintString]; printValueAsIs; yourself! Item was changed: ----- Method: Inspector>>fieldSelf (in category 'fields') ----- fieldSelf ^ (self newFieldForType: #self key: #self) name: 'self'; styleName: ((UserInterfaceTheme current get: #self for: #SHTextStylerST80) ifNil: [#()]); + valueGetter: [:obj | obj]; + valueSetter: [:obj :value | self object: value]; "Switch to another object-under-inspection." - valueGetter: [:object | object]; - valueSetter: [:object :value | self object: value]; "Switch to another object-under-inspection." yourself! Item was changed: ----- Method: Inspector>>streamInstanceVariablesOn: (in category 'fields - streaming') ----- streamInstanceVariablesOn: aStream | attributesForInstVars | attributesForInstVars := (UserInterfaceTheme current get: #instVar for: #SHTextStylerST80) ifNil: [#()]. (self object perform: #class "do not inline send of #class, receiver could be a proxy") allInstVarNames withIndexDo: [:name :index | aStream nextPut: ((self newFieldForType: #instVar key: name) name: name; styleName: attributesForInstVars; + valueGetter: [:obj | obj instVarNamed: name]; + valueSetter: [:obj :value | obj instVarNamed: name put: value]; - valueGetter: [:object | object instVarNamed: name]; - valueSetter: [:object :value | object instVarNamed: name put: value]; yourself)].!

1 0

The Trunk: Collections-ct.956.mcz
by commits＠source.squeak.org 06 Sep '21

06 Sep '21

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.956.mcz ==================== Summary ==================== Name: Collections-ct.956 Author: ct Time: 6 September 2021, 12:53:37.645964 pm UUID: be4f9619-60ba-b44e-8d86-44535b9be3ad Ancestors: Collections-ul.955 After SOH has been added to the list of separator characters, reset CharacterSet caches to make sure #separators etc. are in sync again. Complements Collections-dtl.954. =============== Diff against Collections-ul.955 =============== Item was changed: + (PackageInfo named: 'Collections') postscript: '"Definition of separators has been updated, update CharacterSet caches too" + CharacterSet cleanUp: false.'! - (PackageInfo named: 'Collections') postscript: '"Gently move ByteArray down the hierarchy. - Since neither the format, nor the layout does change, there is no need to create a new class, nor to migrate the instances/subinstances. - ClassBuilder would do too much work and would prevent us to change such basic and dangerous classes (notably, CompiledCode is a subclass of ByteArray)." - - ByteArray superclass removeSubclass: ByteArray. - ByteArray superclass: UnsignedIntegerArray. - ByteArray class superclass: UnsignedIntegerArray class. - UnsignedIntegerArray addSubclass: ByteArray. - '!

1 0

The Trunk: KernelTests-ul.405.mcz
by commits＠source.squeak.org 05 Sep '21

05 Sep '21

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.405.mcz ==================== Summary ==================== Name: KernelTests-ul.405 Author: ul Time: 3 September 2021, 4:09:29.590259 pm UUID: 48026890-9fb9-41cc-9ece-0d951fbc77e9 Ancestors: KernelTests-nice.404 - deprecate ifNotNilDo:, #ifNil:ifNotNilDo: and #ifNotNilDo:ifNil: =============== Diff against KernelTests-nice.404 =============== Item was added: + ----- Method: ObjectTest>>testIfNotNilDoDeprecation (in category 'tests') ----- + testIfNotNilDoDeprecation + + #(ifNotNilDo: #ifNil:ifNotNilDo: #ifNotNilDo:ifNil:) do: [ :selector | + | senders | + senders := self systemNavigation allCallsOn: selector. + self + assert: senders size = 1 + description: (String streamContents: [ :stream | + | thisSelector | + stream + nextPutAll: 'Unexpected senders of '; + print: selector; + nextPutAll: ': '. + thisSelector := thisContext method selector. + (senders reject: [ :each | + (each actualClass == self class + and: [ each selector == thisSelector ]) ]) + do: [ :each | + stream + nextPutAll: each actualClass name; + nextPutAll: ' >> '; + print: each selector ] + separatedBy: [ stream nextPut: ', ' ] ]) ]!

1 0

The Trunk: Kernel-ul.1409.mcz
by commits＠source.squeak.org 05 Sep '21

05 Sep '21

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1409.mcz ==================== Summary ==================== Name: Kernel-ul.1409 Author: ul Time: 3 September 2021, 4:15:37.925846 pm UUID: 44b68d6f-f84b-4319-bfe0-8db351b7f018 Ancestors: Kernel-eem.1408 - deprecate ifNotNilDo:, #ifNil:ifNotNilDo: and #ifNotNilDo:ifNil: =============== Diff against Kernel-eem.1408 =============== Item was removed: - ----- Method: Object>>ifNil:ifNotNilDo: (in category 'accessing') ----- - ifNil: nilBlock ifNotNilDo: aBlock - "Evaluate aBlock with the receiver as its argument." - - ^ aBlock value: self - ! Item was removed: - ----- Method: Object>>ifNotNilDo: (in category 'accessing') ----- - ifNotNilDo: aBlock - "Evaluate the given block with the receiver as its argument." - - ^ aBlock value: self - ! Item was removed: - ----- Method: Object>>ifNotNilDo:ifNil: (in category 'accessing') ----- - ifNotNilDo: aBlock ifNil: nilBlock - "Evaluate aBlock with the receiver as its argument." - - ^ aBlock value: self - ! Item was removed: - ----- Method: UndefinedObject>>ifNil:ifNotNilDo: (in category 'testing') ----- - ifNil: nilBlock ifNotNilDo: ifNotNilBlock - "Evaluate the block for nil because I'm == nil" - - ^ nilBlock value! Item was removed: - ----- Method: UndefinedObject>>ifNotNilDo: (in category 'testing') ----- - ifNotNilDo: aBlock - "Override to do nothing." - - ^ self - ! Item was removed: - ----- Method: UndefinedObject>>ifNotNilDo:ifNil: (in category 'testing') ----- - ifNotNilDo: ifNotNilBlock ifNil: nilBlock - "If I got here, I am nil, so evaluate the block nilBlock" - - ^ nilBlock value!

1 0

The Trunk: 60Deprecated-ul.96.mcz
by commits＠source.squeak.org 05 Sep '21

05 Sep '21

Levente Uzonyi uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-ul.96.mcz ==================== Summary ==================== Name: 60Deprecated-ul.96 Author: ul Time: 3 September 2021, 4:16:18.381279 pm UUID: 73ae59f8-2544-4a04-b04f-ef3ffb085f8c Ancestors: 60Deprecated-nice.95 - deprecate ifNotNilDo:, #ifNil:ifNotNilDo: and #ifNotNilDo:ifNil: =============== Diff against 60Deprecated-nice.95 =============== Item was added: + ----- Method: Object>>ifNil:ifNotNilDo: (in category '*60Deprecated-accessing') ----- + ifNil: nilBlock ifNotNilDo: aBlock + + self flag: #deprecated. "#ifNil:ifNotNil: does the job" + ^self ifNil: nilBlock ifNotNil: aBlock! Item was added: + ----- Method: Object>>ifNotNilDo: (in category '*60Deprecated-accessing') ----- + ifNotNilDo: aBlock + + self flag: #deprecated. "#ifNotNil: does the job" + ^self ifNotNil: aBlock + ! Item was added: + ----- Method: Object>>ifNotNilDo:ifNil: (in category '*60Deprecated-accessing') ----- + ifNotNilDo: aBlock ifNil: nilBlock + + self flag: #deprecated. "#ifNotNil:ifNil: does the job" + ^self ifNotNil: aBlock ifNil: nilBlock + !

1 0

The Trunk: EToys-ul.448.mcz
by commits＠source.squeak.org 03 Sep '21

03 Sep '21

Levente Uzonyi uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ul.448.mcz ==================== Summary ==================== Name: EToys-ul.448 Author: ul Time: 3 September 2021, 3:50:47.825369 pm UUID: 32822614-0663-4add-b1f3-cbbf4c906a6d Ancestors: EToys-nice.447 - ifNotNilDo: -> ifNotNil: =============== Diff against EToys-nice.447 =============== Item was changed: ----- Method: ScriptEditorMorph>>dismiss (in category 'buttons') ----- dismiss "Dismiss the scriptor, usually nondestructively. Possibly animate the dismissal." | endPoint aForm startPoint topRend | owner ifNil: [^ self]. scriptName ifNil: [^ self delete]. "ad hoc fixup for bkwrd compat" + endPoint := self viewerTile ifNotNil: [:tile | tile topLeft] ifNil: [owner topRight]. - endPoint := self viewerTile ifNotNilDo: [:tile | tile topLeft] ifNil: [owner topRight]. aForm := (topRend := self topRendererOrSelf) imageForm offset: (0@0). handWithTile := nil. startPoint := topRend topLeft. topRend topRendererOrSelf delete. (playerScripted isExpendableScript: scriptName) ifTrue: [ ^ playerScripted removeScript: scriptName fromWorld: Project current world]. Project current world displayWorld. aForm slideFrom: startPoint to: endPoint nSteps: 4 delay: 30. "The OLPC Virtual Screen wouldn't notice the last update here." Display forceToScreen: (endPoint extent: aForm extent).! Item was changed: ----- Method: TileMorph>>layoutChanged (in category 'layout') ----- layoutChanged | vpanel hpanel popArrows | super layoutChanged. self labelMorph ifNil: [^ self]. + popArrows := self activeHand ifNil: [^ self] ifNotNil: [:ac | - popArrows := self activeHand ifNil: [^ self] ifNotNilDo: [:ac | ac valueOfProperty: #popArrows ifAbsent: [^ self]]. popArrows first == self ifFalse: [^ self]. vpanel := popArrows second. hpanel := popArrows third. vpanel ifNotNil: [vpanel openInWorld. vpanel center: self labelMorph center. vpanel right: self labelMorph left - 2]. hpanel ifNotNil: [hpanel openInWorld. hpanel center: self labelMorph center. hpanel left: self labelMorph right + 2]!

1 0

The Trunk: Monticello-ul.752.mcz
by commits＠source.squeak.org 03 Sep '21

03 Sep '21

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.752.mcz ==================== Summary ==================== Name: Monticello-ul.752 Author: ul Time: 3 September 2021, 3:51:34.80549 pm UUID: 7e736996-9073-4456-9408-d6efd270abb1 Ancestors: Monticello-mt.751 - ifNotNilDo: -> ifNotNil: =============== Diff against Monticello-mt.751 =============== Item was changed: ----- Method: MCCodeTool>>copyReference (in category 'menus') ----- copyReference "Copy the selected selector to the clipboard" self selectedMessageName ifNotNil: [ : selector | Clipboard clipboardText: (self selectedClassOrMetaClass ifNil: [ selector asString ] + ifNotNil: [ : cls | (cls >> selector) reference ]) ]! - ifNotNilDo: [ : cls | (cls >> selector) reference ]) ]! Item was changed: ----- Method: MCOperationsBrowser>>browseSelectionOrigin (in category 'actions') ----- browseSelectionOrigin | mcDefinition | selection ifNil: [ UIManager inform: 'Make a selection.' ]. mcDefinition := selection definition. Cursor wait showWhile: [ mcDefinition mcModel ifNotNil: [ : mcModel | (mcModel originOf: mcDefinition) ifNil: [ UIManager inform: mcDefinition asString , ' was not found in any historical MC repository.' ] + ifNotNil: - ifNotNilDo: [ : version | version open ] ] ]! Item was changed: ----- Method: MCRepository>>copyImageVersions (in category 'versions') ----- copyImageVersions "For each package contained in the receiver, copy the version of that package which is currently loaded in this image. If no version of a package is loaded in the image, nothing is copied for that package." self cacheAllFileNamesDuring: [ self allPackageNames do: [ : eachPkgName | MCWorkingCopy allManagers detect: [ : each | each packageName = eachPkgName ] ifFound: [ : loaded | loaded ancestors do: [ : infoToCopy | (self includesVersionNamed: infoToCopy versionName) ifFalse: [ (MCRepositoryGroup default versionWithInfo: infoToCopy) ifNil: [ Warning signal: infoToCopy name , ' not found in RepositoryGroup default.' ] + ifNotNil: - ifNotNilDo: [ : ver | self storeVersion: ver ] ] ] ] ifNone: [ "Image specifies no version to copy." ] ] ]!

1 0

The Trunk: Morphic-ul.1780.mcz
by commits＠source.squeak.org 03 Sep '21

03 Sep '21

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1780.mcz ==================== Summary ==================== Name: Morphic-ul.1780 Author: ul Time: 3 September 2021, 3:51:14.375371 pm UUID: 752b8545-23b0-4e10-9c95-997cadb88d2a Ancestors: Morphic-mt.1779 - ifNotNilDo: -> ifNotNil: =============== Diff against Morphic-mt.1779 =============== Item was changed: ----- Method: SketchMorph>>erasePixelsUsing: (in category 'menu') ----- erasePixelsUsing: evt "Let the user specifiy a color such that all pixels of that color should be erased; then do the erasure" self changeColorTarget: self selector: #rememberedColor: originalColor: nil hand: evt hand. self rememberedColor "color to erase" ifNil: [ ^ self ] + ifNotNil: - ifNotNilDo: [ : chosenColor | self erasePixelsOfColor: chosenColor ]! Item was changed: ----- Method: SmalltalkEditor>>methodArgument: (in category 'private') ----- methodArgument: anInteger ^ (ReadStream on: self text asString) nextLine ifNil: [ String empty ] + ifNotNil: - ifNotNilDo: [ : line | line substrings at: 2 * anInteger ifAbsent: [ String empty ] ]! Item was changed: ----- Method: TextEditor>>prettyPrint: (in category 'menu messages') ----- prettyPrint: decorated "Reformat the contents of the receiver's view (a Browser or Workspace)." model selectedClassOrMetaClass ifNil: [ "arbitrary text selection in a workspace, not directly associated with a class" (Compiler new formatNoPattern: self selection environment: model environment) + ifNotNil: [:newText | self replaceSelectionWith: newText]] - ifNotNilDo: [:newText | self replaceSelectionWith: newText]] ifNotNil: [:selectedClass | "source for a method in the selected class" (selectedClass newCompiler format: self text in: selectedClass notifying: self decorated: decorated) + ifNotNil: [ :newText | - ifNotNilDo: [ :newText | self selectInvisiblyFrom: 1 to: paragraph text size. self replaceSelectionWith: (selectedClass ifNil: [newText] ifNotNil: [newText asText makeSelectorBoldIn: selectedClass]). self selectAt: self text size + 1 ]]. !

1 0

The Trunk: MorphicExtras-ul.298.mcz
by commits＠source.squeak.org 03 Sep '21

03 Sep '21

Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ul.298.mcz ==================== Summary ==================== Name: MorphicExtras-ul.298 Author: ul Time: 3 September 2021, 3:50:07.605798 pm UUID: a5ca0c21-1176-4adc-a317-72a33a2ae11a Ancestors: MorphicExtras-mt.297 - ifNotNilDo: -> ifNotNil: =============== Diff against MorphicExtras-mt.297 =============== Item was changed: ----- Method: PostscriptCanvas>>image:at:sourceRect:rule: (in category 'private') ----- image: form at: aPoint sourceRect: sourceRect rule: rule | aForm | self preserveStateDuring: [:inner | inner translate: aPoint + self origin. aForm := form depth <= 8 ifTrue: [form asFormOfDepth: 32] ifFalse: [form]. target write: ((aForm colorsUsed includes: Color transparent) ifTrue: [| top f2 c2 offset | "tfel: This was taken from SketchMorph, but is actually needed for all forms that use transparency" + offset := currentTransformation ifNil: [0@0] ifNotNil: [:t | t offset]. - offset := currentTransformation ifNil: [0@0] ifNotNilDo: [:t | t offset]. top := self topLevelMorph. f2 := Form extent: aForm extent depth: self depth. c2 := f2 getCanvas. c2 fillColor: Color white. c2 translateBy: offset - self origin - aPoint clippingTo: f2 boundingBox during: [:c | top fullDrawOn: c]. f2] ifFalse: [aForm])]. !

1 0

The Trunk: Network-ul.248.mcz
by commits＠source.squeak.org 03 Sep '21

03 Sep '21

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.248.mcz ==================== Summary ==================== Name: Network-ul.248 Author: ul Time: 3 September 2021, 3:49:34.525299 pm UUID: 8df9c093-0687-4271-b36e-829e38b2578c Ancestors: Network-mt.247 - ifNotNilDo: -> ifNotNil: =============== Diff against Network-mt.247 =============== Item was changed: ----- Method: MailMessage>>attachments (in category 'multipart') ----- attachments ^ self body parts select: [:p | (p fieldNamed: 'content-disposition' ifAbsent: [nil]) ifNil: [false] + ifNotNil: [:headerValue | headerValue mainValue = 'attachment' ]]! - ifNotNilDo: [:headerValue | headerValue mainValue = 'attachment' ]]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2021