Packages June 2017

packages@lists.squeakfoundation.org

1 participants
66 discussions

The Trunk: Network-eem.200.mcz
by commits＠source.squeak.org 14 Jun '17

14 Jun '17

Eliot Miranda uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-eem.200.mcz ==================== Summary ==================== Name: Network-eem.200 Author: eem Time: 14 June 2017, 11:05:42.684733 am UUID: 20a689fd-efcd-4072-8d8d-d2dc6cb99a70 Ancestors: Network-pre.199 Make sure that order orf addresses is preserved inMailMessage>>to: and hence fix MailMessageTest>>testCreateAReplyForFrom. =============== Diff against Network-pre.199 =============== Item was changed: ----- Method: MailMessage>>to: (in category 'access') ----- to: aString + "Set the to address(es). Make sure order is preserved when uniqueing the addresses." + | sanitizedMailAddresses uniqueMailAddresses | + sanitizedMailAddresses := MailAddressParser addressesIn: aString. + ^self setField: 'to' toString: (uniqueMailAddresses withoutDuplicates joinSeparatedBy: ', ')! - - | sanitizedMailAddresses | - sanitizedMailAddresses := (MailAddressParser addressesIn: aString) asSet asArray. - ^self setField: 'to' toString: (sanitizedMailAddresses joinSeparatedBy: ', ')!

1 0

The Trunk: Collections-eem.756.mcz
by commits＠source.squeak.org 14 Jun '17

14 Jun '17

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.756.mcz ==================== Summary ==================== Name: Collections-eem.756 Author: eem Time: 14 June 2017, 11:03:24.917631 am UUID: 8d7c03bc-1cdb-44c7-9173-10d50c0dae29 Ancestors: Collections-eem.755 Add SequenceableCollection>>withoutDuplicates for a more elegant fix to MailMessage>>to: =============== Diff against Collections-eem.755 =============== Item was added: + ----- Method: SequenceableCollection>>withoutDuplicates (in category 'copying') ----- + withoutDuplicates + "Answer a copy of the receiver that preserves order but eliminates any duplicates." + | seen | + seen := Set new: self size. + ^self select: [:each| + (seen includes: each) + ifTrue: [false] + ifFalse: [seen add: each. true]]!

1 0

The Trunk: System-nice.953.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.953.mcz ==================== Summary ==================== Name: System-nice.953 Author: nice Time: 10 June 2017, 6:10:55.64037 pm UUID: 0aaa0704-3786-4b18-bce0-2490f6f58d7a Ancestors: System-eem.952 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against System-eem.952 =============== Item was changed: ----- Method: ProjectLoading class>>openName:stream:fromDirectory:withProjectView:clearOriginFlag: (in category 'loading') ----- openName: aFileName stream: preStream fromDirectory: aDirectoryOrNil withProjectView: existingView clearOriginFlag: clearOriginFlag "Reconstitute a Morph from the selected file, presumed to represent a Morph saved via the SmartRefStream mechanism, and open it in an appropriate Morphic world." | morphOrList archive mgr substituteFont numberOfFontSubstitutes resultArray anObject project manifests dict | (self checkStream: preStream) ifTrue: [^ self]. ProgressNotification signal: '0.2'. archive := preStream isZipArchive ifTrue:[ZipArchive new readFrom: preStream] ifFalse:[nil]. archive ifNotNil:[ manifests := (archive membersMatching: '*manifest'). (manifests size = 1 and: [((dict := self parseManifest: manifests first contents) at: 'Project-Format' ifAbsent: []) = 'S-Expression']) ifTrue: [ ^ (self respondsTo: #openSexpProjectDict:stream:fromDirectory:withProjectView:) ifTrue: [self openSexpProjectDict: dict stream: preStream fromDirectory: aDirectoryOrNil withProjectView: existingView] ifFalse: [self inform: 'Cannot load S-Expression format projects without Etoys' translated]]]. morphOrList := self morphOrList: aFileName stream: preStream fromDirectory: aDirectoryOrNil archive: archive. morphOrList ifNil: [^ self]. ProgressNotification signal: '0.4'. resultArray := self fileInName: aFileName archive: archive morphOrList: morphOrList. anObject := resultArray first. numberOfFontSubstitutes := resultArray second. substituteFont := resultArray third. mgr := resultArray fourth. preStream close. ProgressNotification signal: '0.7'. "the hard part is over" (anObject isKindOf: ImageSegment) ifTrue: [ project := self loadImageSegment: anObject fromDirectory: aDirectoryOrNil withProjectView: existingView numberOfFontSubstitutes: numberOfFontSubstitutes substituteFont: substituteFont mgr: mgr. project noteManifestDetailsIn: dict. project removeParameter: #sugarProperties. Smalltalk at: #SugarPropertiesNotification ifPresent: [:sp | + sp signal ifNotNil: [:props | - sp signal ifNotNilDo: [:props | project keepSugarProperties: props monitor: true]]. clearOriginFlag ifTrue: [project forgetExistingURL]. ProgressNotification signal: '0.8'. ^ project ifNil: [self inform: 'No project found in this file' translated] ifNotNil: [ProjectEntryNotification signal: project]]. Project current openViewAndEnter: anObject! Item was changed: ----- Method: SmalltalkImage>>removeAllUnSentMessages (in category 'shrinking') ----- removeAllUnSentMessages "Smalltalk removeAllUnSentMessages" "[Smalltalk unusedClasses do: [:c | (Smalltalk at: c) removeFromSystem]. Smalltalk removeAllUnSentMessages > 0] whileTrue." "Remove all implementations of unsent messages." | sels n | sels := self systemNavigation allUnSentMessages. "The following should be preserved for doIts, etc" "needed even after #majorShrink is pulled" #(#compactSymbolTable #rebuildAllProjects #browseAllSelect: #lastRemoval #scrollBarValue: vScrollBarValue: #scrollBarMenuButtonPressed: #withSelectionFrom: #to: #removeClassNamed: #dragon: #hilberts: #mandala: #web #test3 #factorial #tinyBenchmarks #benchFib #newDepth: #restoreAfter: #zapAllMethods #obsoleteClasses #removeAllUnSentMessages #abandonSources #removeUnreferencedKeys #reclaimDependents #zapOrganization #condenseChanges #browseObsoleteReferences #subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: #methodsFor:stamp: #methodsFor:stamp:prior: #instanceVariableNames: #unusedClasses ) do: [:sel | sels remove: sel ifAbsent: []]. "The following may be sent by perform: in dispatchOnChar..." + (Smalltalk at: #ParagraphEditor) ifNotNil: [:paragraphEditor | - (Smalltalk at: #ParagraphEditor) ifNotNilDo: [:paragraphEditor | (paragraphEditor classPool at: #CmdActions) asSet do: [:sel | sels remove: sel ifAbsent: []]. (paragraphEditor classPool at: #ShiftCmdActions) asSet do: [:sel | sels remove: sel ifAbsent: []]]. sels size = 0 ifTrue: [^ 0]. n := 0. self systemNavigation allBehaviorsDo: [:x | n := n + 1]. 'Removing ' , sels size printString , ' messages . . .' displayProgressFrom: 0 to: n during: [:bar | n := 0. self systemNavigation allBehaviorsDo: [:class | bar value: (n := n + 1). sels do: [:sel | class basicRemoveSelector: sel]]]. ^ sels size! Item was changed: ----- Method: SmalltalkImage>>zapMVCprojects (in category 'shrinking') ----- zapMVCprojects "Smalltalk zapMVCprojects" (Smalltalk classNamed: #MVCProject) + ifNotNil: [:mvc | mvc removeProjectsFromSystem] - ifNotNilDo: [:mvc | mvc removeProjectsFromSystem] !

1 0

The Trunk: Tools-nice.763.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.763.mcz ==================== Summary ==================== Name: Tools-nice.763 Author: nice Time: 10 June 2017, 6:03:33.633858 pm UUID: 515d1a63-9454-4778-89f7-4cdb81eb8894 Ancestors: Tools-eem.762 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against Tools-eem.762 =============== Item was changed: ----- Method: MessageTrace>>messageListIndex: (in category 'actions') ----- messageListIndex: anInteger autoSelectStrings notEmpty ifTrue: [ autoSelectString := anInteger = 0 ifTrue: [ '' ] ifFalse: [ messageListIndex := anInteger. "setting the window label, below, can't wait for this.." self containingWindow setLabel: (self windowLabelAt: anInteger). + (autoSelectStrings at: anInteger) ifNotNil: [ : fullSelector | fullSelector keywords first ] ] ]. - (autoSelectStrings at: anInteger) ifNotNilDo: [ : fullSelector | fullSelector keywords first ] ] ]. anInteger > 0 ifTrue: [ self messageAt: anInteger beSelected: true ]. super messageListIndex: anInteger ! Item was changed: ----- Method: StringHolder>>copyReference (in category '*Tools') ----- copyReference "Copy the selected selector to the clipboard" + self selectedMessageName ifNotNil: - self selectedMessageName ifNotNilDo: [ : selector | Clipboard clipboardText: (self selectedClassOrMetaClass ifNil: [ selector asString ] ifNotNilDo: [ : cls | (cls >> selector) reference ]) ]!

1 0

The Trunk: Traits-nice.311.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of Traits to project The Trunk: http://source.squeak.org/trunk/Traits-nice.311.mcz ==================== Summary ==================== Name: Traits-nice.311 Author: nice Time: 10 June 2017, 6:00:07.752334 pm UUID: cc5f8bd4-1879-4453-87cf-337d4ec0da45 Ancestors: Traits-ul.310 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against Traits-ul.310 =============== Item was changed: ----- Method: Trait>>category (in category 'accessing') ----- category "Answer the system organization category for the receiver. First check whether the category name stored in the ivar is still correct and only if this fails look it up (latter is much more expensive)" | result | + category ifNotNil: [ :symbol | - category ifNotNilDo: [ :symbol | ((SystemOrganization listAtCategoryNamed: symbol) includes: self name) ifTrue: [ ^symbol ] ]. category := (result := SystemOrganization categoryOfElement: self name). ^result!

1 0

The Trunk: ToolBuilder-Morphic-nice.195.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-nice.195.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-nice.195 Author: nice Time: 10 June 2017, 5:59:37.517672 pm UUID: 73e96169-edde-48e6-9b31-65a62ae9c88f Ancestors: ToolBuilder-Morphic-pre.194 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against ToolBuilder-Morphic-pre.194 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableButton: (in category 'widgets required') ----- buildPluggableButton: aSpec | widget label state action enabled | label := aSpec label. state := aSpec state. action := aSpec action. widget := self buttonClass on: aSpec model getState: (state isSymbol ifTrue:[state]) action: nil label: (label isSymbol ifTrue:[label]). widget style: aSpec style. aSpec changeLabelWhen + ifNotNil: [ :event | widget whenChanged: event update: aSpec label]. - ifNotNilDo: [ :event | widget whenChanged: event update: aSpec label]. self register: widget id: aSpec name. enabled := aSpec enabled. enabled isSymbol ifTrue:[widget getEnabledSelector: enabled] ifFalse:[widget enabled:enabled]. widget action: action. aSpec color isColor ifTrue: [widget offColor: aSpec color] ifFalse: [widget getColorSelector: aSpec color]. self buildHelpFor: widget spec: aSpec. (label isSymbol or:[label == nil]) ifFalse:[widget label: label]. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. ^widget! Item was changed: ----- Method: PluggableButtonMorphPlus>>update: (in category 'updating') ----- update: what super update: what. getColorSelector ifNotNil: [:sel | what == sel ifTrue: [self offColor: (model perform: sel)]]. getEnabledSelector ifNotNil: [:sel | what == sel ifTrue: [self enabled: (model perform: sel)]]. updateMap ifNotNil: [(updateMap at: what ifAbsent: []) + ifNotNil: [ :newTarget | self update: newTarget]]. - ifNotNilDo: [ :newTarget | self update: newTarget]]. !

1 0

The Trunk: ToolBuilder-MVC-nice.48.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-nice.48.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-nice.48 Author: nice Time: 10 June 2017, 5:58:54.129159 pm UUID: d09d8863-3842-4636-9d43-55e1271ff71e Ancestors: ToolBuilder-MVC-mt.47 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against ToolBuilder-MVC-mt.47 =============== Item was changed: ----- Method: MVCToolBuilder>>positionSubviewsWithin: (in category 'private') ----- positionSubviewsWithin: widget "Translate subviews to position the viewport of each subView relative to the widget window origin. If subviews are repositioned, as in a row of button views arranged within a view, then the transformations will later be rescaled to fit the subviews within the widget window." + widget subViews ifNotNil: [:subViews | - widget subViews ifNotNilDo: [:subViews | subViews isEmpty ifFalse: [ | translation | translation := widget window origin - subViews first window origin. subViews do: [:v | v setTransformation: (v transformation translateBy: translation)]]]. !

1 0

The Trunk: ToolBuilder-Kernel-nice.111.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-nice.111.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-nice.111 Author: nice Time: 10 June 2017, 5:57:59.10664 pm UUID: 2b6dafb5-3394-4149-9a1b-45d363a30c00 Ancestors: ToolBuilder-Kernel-pre.110 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against ToolBuilder-Kernel-pre.110 =============== Item was changed: ----- Method: UIManager class>>getDefault (in category 'class initialization') ----- getDefault "Ensure that a more specific manager can always be made by subclassing a tool builder and implementing a more specific way of reacting to #isActiveManager. For example, a BobsUIManager can subclass MorphicUIManager and (if enabled, say Preferences useBobsUI) will be considered before the parent (generic MorphicUIManager)." ^ (self allSubclasses detect: [:any | any isActiveManager and: [any subclasses noneSatisfy: [:sub | sub isActiveManager]]] ifNone: []) + ifNotNil: [:mgrClass | mgrClass new]! - ifNotNilDo: [:mgrClass | mgrClass new]!

1 0

The Trunk: SystemReporter-nice.36.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-nice.36.mcz ==================== Summary ==================== Name: SystemReporter-nice.36 Author: nice Time: 10 June 2017, 5:57:23.049423 pm UUID: 39920c72-ab26-4596-bd3f-41ab4d481980 Ancestors: SystemReporter-eem.35 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against SystemReporter-eem.35 =============== Item was changed: ----- Method: SystemReporter>>reportVM: (in category 'reporting') ----- reportVM: aStream self header: 'Virtual Machine' on: aStream. aStream nextPutAll: (Smalltalk vm vmFileName); cr; nextPutAll: (Smalltalk vm vmVersion); cr. Smalltalk vm buildDate + ifNotNil: [:string | aStream nextPutAll: string; cr]. - ifNotNilDo: [:string | aStream nextPutAll: string; cr]. [Smalltalk vm platformSourceVersion + ifNotNil: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] - ifNotNilDo: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] on: Warning do: ["unsupported primitive"]. [Smalltalk vm interpreterSourceVersion + ifNotNil: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] - ifNotNilDo: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] on: Warning do: ["unsupported primitive"]. [Smalltalk vm interpreterClass + ifNotNil: [:string | aStream nextPutAll: string; cr]. - ifNotNilDo: [:string | aStream nextPutAll: string; cr]. Smalltalk vm cogitClass + ifNotNil: [:string | aStream nextPutAll: string; cr] - ifNotNilDo: [:string | aStream nextPutAll: string; cr] ] on: Error do: ["unsupported primitives"] !

1 0

The Trunk: ST80-nice.229.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-nice.229.mcz ==================== Summary ==================== Name: ST80-nice.229 Author: nice Time: 10 June 2017, 5:56:36.105684 pm UUID: a851baa5-4a34-4857-8bff-8f9dfccc7dfe Ancestors: ST80-eem.228 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against ST80-eem.228 =============== Item was changed: ----- Method: StandardSystemView class>>doCacheBits (in category 'class initialization') ----- doCacheBits "StandardSystemView doCacheBits - Enable fast window repaint feature" CacheBits := true. + ScheduledControllers ifNotNil: [:sc | sc unCacheWindows; restore]! - ScheduledControllers ifNotNilDo: [:sc | sc unCacheWindows; restore]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2017