Squeak-dev June 2017

squeak-dev@lists.squeakfoundation.org

36 participants
130 discussions

[ANN] muO screenshots, must see (just saying)
by Stéphane Rollandin 25 Jun '17

25 Jun '17

Hello, I added a few screenshots of some of the idiosyncratic muO editors, glorious in action, at the bottom of the muO page: http://www.zogotounga.net/comp/squeak/sqgeo.htm Stef

2 1

Accounting framework?
by Ken Brown 24 Jun '17

24 Jun '17

Does anyone know of a basic personal accounting framework in Squeak? I just want to be able to enter all general ledger items and keep everything over the years in a database that I could search through for various specific entries not knowing the year, total up how much I spent on various accounts over several years, that sort of thing. Probably would also want to filter and export in a form I could read into a spreadsheet or another accounting program of the accountants choice. e.g. export all 2016 items. It occurred to me that it might be a good way to gain experience with Magma. Thx for any tips, Ken G. Brown

6 7

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

24 Jun '17

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.758.mcz ==================== Summary ==================== Name: Collections-eem.758 Author: eem Time: 23 June 2017, 12:06:10.238234 pm UUID: 19a4f20b-1ac9-4bed-9262-1cab35e89afd Ancestors: Collections-eem.757 Deprecate addNewElement: =============== Diff against Collections-eem.757 =============== Item was removed: - ----- Method: Set>>addNewElement: (in category 'adding') ----- - addNewElement: anObject - "Ensure anObject is part of the receiver. Answer whether its membership was newly acquired." - | index | - index := self scanFor: anObject. - ^ (array at: index) - ifNil: - [ self - atNewIndex: index - put: anObject asSetElement. - true ] - ifNotNil: [ false ]!

3 3

ENC: How to draw a 2D line
by Lorenzo Berendsen 23 Jun '17

23 Jun '17

Hi All, I am trying to draw a simples 2D Line in months. I can't understand what to do. Could someone help me with this? I have C, Pascal, VBA background, but none of these knowledge is helping me... Regards, Lorenzo.

1 0

The Trunk: 60Deprecated-eem.6.mcz
by commits＠source.squeak.org 23 Jun '17

23 Jun '17

Eliot Miranda uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-eem.6.mcz ==================== Summary ==================== Name: 60Deprecated-eem.6 Author: eem Time: 23 June 2017, 12:05:21.487244 pm UUID: 7f3c2764-8ca4-4b8d-b8e6-e624e847810e Ancestors: 60Deprecated-pre.5 Deprecate addNewElement: =============== Diff against 60Deprecated-pre.5 =============== Item was added: + ----- Method: Set>>addNewElement: (in category '*60Deprecated-adding') ----- + addNewElement: anObject + "Ensure anObject is part of the receiver. Answer whether its membership was newly acquired." + | index | + self deprecated: 'Use ifAbsentAdd: instead.'. + index := self scanFor: anObject. + ^ (array at: index) + ifNil: + [ self + atNewIndex: index + put: anObject asSetElement. + true ] + ifNotNil: [ false ]!

1 0

The Trunk: Monticello-eem.671.mcz
by commits＠source.squeak.org 23 Jun '17

23 Jun '17

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.671.mcz ==================== Summary ==================== Name: Monticello-eem.671 Author: eem Time: 23 June 2017, 12:00:04.919919 pm UUID: 613ff672-9e8e-4f59-888b-1fa63a0c959c Ancestors: Monticello-nice.670 Reimplement allAncestorsDo:visitedAncestors: using ifAbsentAdd: =============== Diff against Monticello-nice.670 =============== Item was changed: ----- Method: MCAncestry>>allAncestorsDo:visitedAncestors: (in category 'ancestry') ----- allAncestorsDo: aBlock visitedAncestors: visitedAncestors self ancestors do: [ :each | + (visitedAncestors ifAbsentAdd: each) ifTrue: [ - (visitedAncestors addNewElement: each) ifTrue: [ aBlock value: each. each allAncestorsDo: aBlock visitedAncestors: visitedAncestors ] ]!

1 0

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

23 Jun '17

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.757.mcz ==================== Summary ==================== Name: Collections-eem.757 Author: eem Time: 23 June 2017, 11:32:54.271499 am UUID: bdb8992f-4170-46e3-a573-f2bb4cd7a2af Ancestors: Collections-eem.756 Add Set>>ifAbsentAdd: as a better named equivalent of addNewElement:. Reimplement withoutDuplicates using ifAbsentAdd:. Add the obvious Set-specific implementation of addIfNotPresent:. Fix a bug with RunArray>>=; the old code would error if compared against other than a collection. =============== Diff against Collections-eem.756 =============== Item was changed: + ----- Method: RunArray>>= (in category 'comparing') ----- + = anObject + "Test if all my elements are equal to those of anObject" - ----- Method: RunArray>>= (in category 'accessing') ----- - = otherArray - "Test if all my elements are equal to those of otherArray" + ^anObject class == self class + ifTrue: "Faster test between two RunArrays" + [(runs hasEqualElements: anObject runs) + and: [values hasEqualElements: anObject values]] + ifFalse: + [anObject isCollection and: [self hasEqualElements: anObject]]! - (otherArray isMemberOf: RunArray) ifFalse: [^ self hasEqualElements: otherArray]. - - "Faster test between two RunArrays" - ^ (runs hasEqualElements: otherArray runs) - and: [values hasEqualElements: otherArray values]! Item was changed: ----- 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 ifAbsentAdd: each]! - ^self select: [:each| - (seen includes: each) - ifTrue: [false] - ifFalse: [seen add: each. true]]! Item was added: + ----- Method: Set>>addIfNotPresent: (in category 'adding') ----- + addIfNotPresent: anObject + "Include anObject as one of the receiver's elements, but only if there + is no such element already. Anwser anObject." + + ^self add: anObject! Item was added: + ----- Method: Set>>ifAbsentAdd: (in category 'adding') ----- + ifAbsentAdd: anObject + "Ensure anObject is part of the receiver. Answer whether its membership was newly acquired." + | index | + index := self scanFor: anObject. + (array at: index) ifNil: + [self + atNewIndex: index + put: anObject asSetElement. + ^true]. + ^false!

2 1

The Trunk: Kernel-eem.1108.mcz
by commits＠source.squeak.org 23 Jun '17

23 Jun '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1108.mcz ==================== Summary ==================== Name: Kernel-eem.1108 Author: eem Time: 23 June 2017, 11:35:28.572002 am UUID: dd3439ca-404b-4d0d-bb11-529ed86a96eb Ancestors: Kernel-nice.1107 Implement messagesDo: using ifAbsentAdd: =============== Diff against Kernel-nice.1107 =============== Item was changed: ----- Method: CompiledMethod>>messagesDo: (in category 'scanning') ----- messagesDo: aBlock "Evaluate aBlock exactly once with all the message selectors sent by me." | scanner aSet | self isQuick ifTrue: [ ^self ]. - aSet := nil. scanner := InstructionStream on: self. scanner scanFor: [ :x | | selector | (selector := scanner selectorToSendOrSelf) == scanner ifFalse: [ + ((aSet ifNil: [ aSet := IdentitySet new ]) ifAbsentAdd: selector) ifTrue: [ - ((aSet ifNil: [ aSet := IdentitySet new ]) addNewElement: selector) ifTrue: [ aBlock value: selector ] ]. false "keep scanning" ]!

1 0

The Trunk: CollectionsTests-eem.280.mcz
by commits＠source.squeak.org 23 Jun '17

23 Jun '17

Eliot Miranda uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-eem.280.mcz ==================== Summary ==================== Name: CollectionsTests-eem.280 Author: eem Time: 23 June 2017, 11:34:06.974048 am UUID: 186b3ab6-6f15-41c4-b07d-3c6a335c1236 Ancestors: CollectionsTests-pre.279 Add tests for withoutDuplicates and ifAbsentAdd: =============== Diff against CollectionsTests-pre.279 =============== Item was added: + ----- Method: SequenceableCollectionTest>>testWithoutDuplicates (in category 'tests - copying') ----- + testWithoutDuplicates + + self assert: #(1 3 5 7 9 2 4 6 8 10) + equals: ((1 to: 10 by: 2), (1 to: 10 by: 2), (2 to: 11 by: 2), (2 to: 11 by: 2)) withoutDuplicates! Item was added: + ----- Method: SetTest>>testIfAbsentAdd (in category 'Sunit original tests') ----- + testIfAbsentAdd + | it | + it := 5. + self deny: (empty includes: it). + self assert: (empty ifAbsentAdd: it). + self assert: (empty includes: it). + self deny: (empty ifAbsentAdd: it). + self assert: (empty includes: it)!

1 0

Re: [squeak-dev] [Pharo-dev] Working OSProcess configuration for Pharo 6 release (please)
by Eliot Miranda 21 Jun '17

21 Jun '17

Hi Cyril, Hi Alex, On Tue, Jun 20, 2017 at 8:08 AM, Cyril Ferlicot <cyril.ferlicot(a)gmail.com> wrote: > On Tue, Jun 20, 2017 at 5:04 PM, Eliot Miranda <eliot.miranda(a)gmail.com> > wrote: > > Hi Clément > > > > > > That was a mistake of mine. In the current VM it now answers e.g. > 1011.6 and so things should be working again. > > > > Hi! > > The problem is that the stable vm does not have the fix and the > current latest vm is **reeeeeeeeally* slow. It happens at least on > OSX. I don't know if it is a known problem or if it comes from the > opensmalltalk build or the pharo build. > I found and fixed the problem just now. See opensmalltalk-vm/Cog commit f54456fc05c1846bb7e553c6ff5fec9f700abdae Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: Wed Jun 21 11:17:25 2017 -0700 CogVM source as per VMMaker.oscog-eem.2244 Spur: Fix regression in VMMaker.oscog-eem.2237. sufficientSpaceAfterGC: must compute heapSizePostGC using totalOldSpaceCapacity instead of the old broken segment-insensitive endOfMemory - nilObj, otherwise as soon as a segment is added it's quite possible that there will be a full GC after each scavenge. So the latest VMs should be back to normal. > I got the VM here: http://files.pharo.org/vm/pharo-spur32/mac/ > > > > -- > Cyril Ferlicot > https://ferlicot.fr > > http://www.synectique.eu > 2 rue Jacques Prévert 01, > 59650 Villeneuve d'ascq France > > -- _,,,^..^,,,_ best, Eliot

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
13
Older →