Squeak-dev October 2015

squeak-dev@lists.squeakfoundation.org

40 participants
234 discussions

Squeak on iOS at last?
by Casey Ransberger 07 Nov '15

07 Nov '15

When I heard that Apple was competing with Surface Pro I went looking for the only feature of the Surface Pro that I wanted in Apple's new tablet: side loading. It looks like Apple has dropped the $99 a year for not even necessarily selling anything on the App Store requirement. It's not exactly side-loading, because end users would still have to build the VM from C sources in Xcode before installing it, but it's something. The upshot is, since we can't ship via app-store, we can do a source distribution and get around the stupid App Store rules that hate us so. Thus, we don't have to rely on weird flaky crap like jailbreaks or have a guy paying for a dev account out of the goodness of his heart to distribute test keys for the system to those brave enough to run it without a proper touch interface. I may buy another iPad yet. Guessing most people familiar with the sitch are probably up to date, but for anyone who missed this detail, Casey to the rescue. http://9to5mac.com/2015/06/10/xcode-7-allows-anyone-to-download-build-and-s…

8 12

Re: [squeak-dev] The Trunk: Morphic-kfr.1022.mcz
by karl ramberg 01 Nov '15

01 Nov '15

It should now be more feasible to remove some hard coded gradients in widgets like windows, buttons and menus. Many of them rely on one user selected color and to hard code the other to white for example. It should now be much easier to edit a gradient with more than 2 colors Karl On Thu, Oct 29, 2015 at 1:10 PM, <commits(a)source.squeak.org> wrote: > Karl Ramberg uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-kfr.1022.mcz > > ==================== Summary ==================== > > Name: Morphic-kfr.1022 > Author: kfr > Time: 29 October 2015, 12:52:07.646 pm > UUID: 64c8e8d1-462d-48e5-af29-706bd470f767 > Ancestors: Morphic-kfr.1021 > > More look enhancements > > =============== Diff against Morphic-kfr.1021 =============== > > Item was changed: > RectangleMorph subclass: #GradientEditor > + instanceVariableNames: 'gradientDisplay rampMorphs selectedSketch > row text target selector morph' > - instanceVariableNames: 'gradientDisplay rampMorphs selectedSketch > gradientMorph row text target selector morph' > classVariableNames: '' > poolDictionaries: '' > category: 'Morphic-Widgets'! > > Item was changed: > ----- Method: GradientEditor>>addButtonRow (in category > 'initialization') ----- > addButtonRow > | button button2 buttonRow button3 | > buttonRow := RectangleMorph new borderWidth: 0; > color: Color transparent; > layoutPolicy: TableLayout new; > + hResizing: #spaceFil; > + vResizing: #spaceFill; > - hResizing: #shrinkWrap; > - vResizing: #shrinkWrap; > cellPositioning: #center; > listCentering: #topLeft; > listDirection: #LeftToRight; > reverseTableCells: true; > + cellInset: 4. > - cellInset: 20 @ 20. > > button := PluggableButtonMorph on: self > getState: nil > action: #addHandle > label: #addColorButtonLabel. > + button hResizing: #spaceFill; > + vResizing: #spaceFill. > buttonRow addMorph: button. > > button2 := PluggableButtonMorph on: self > getState: nil > action: #deleteHandle > label: #removeColorButtonLabel. > + button2 hResizing: #spaceFill; > + vResizing: #spaceFill. > buttonRow addMorph: button2. > > button3 := PluggableButtonMorph on: self > getState: nil > action: #delete > label: #closeButtonLabel. > + button3 hResizing: #spaceFill; > + vResizing: #spaceFill. > buttonRow addMorph: button3. > > self addMorph: buttonRow! > > Item was changed: > ----- Method: GradientEditor>>initialize (in category 'initialization') > ----- > initialize > > super initialize. > self myLayout. > self extent: 600 @ 150. > row := RectangleMorph new extent: self width @ 100; color: Color > transparent; borderColor: #inset. > > row addMorph: (gradientDisplay := GradientDisplayMorph new > position: 20 @ 20; > extent: self width - 40 @ 40). > gradientDisplay fillStyle direction: gradientDisplay width @ 0. > > self addMorph: row. > self addButtonRow. > + "text := PluggableTextMorph > - text := PluggableTextMorph > on: self > text: #colorRamp > accept: nil > readSelection: nil > menu: nil. > text color: Color white; > width: self width; > height: 50. > + self addMorph: text." > - self addMorph: text. > ! > > Item was changed: > ----- Method: GradientEditor>>myLayout (in category 'initialization') > ----- > myLayout > self color: (Color white darker) ; > cornerStyle: #rounded ; > borderWidth: 0; > layoutPolicy: TableLayout new; > hResizing: #shrinkWrap; > vResizing: #shrinkWrap; > cellPositioning: #center; > listCentering: #topLeft; > layoutInset: 4; > listDirection: #topToBottom; > reverseTableCells: true; > wrapCentering: #topLeft; > + cellInset: 4! > - cellInset: 19 @ 10! > > Item was changed: > ----- Method: GradientEditor>>updateColorRamp (in category 'change > reporting') ----- > updateColorRamp > | newAssociation newKey newColor sketch colorRamp | > > self updateRampMorphs. > colorRamp := OrderedCollection new. > rampMorphs > do: [:i | > newKey := ((i position x - gradientDisplay left / > gradientDisplay width) asFloat roundUpTo: 0.01) > min: 1.0 > max: 0.0. > sketch := i findA: SketchMorph. > newColor := sketch rotatedForm colorAt: sketch > rotatedForm center. > newAssociation := newKey -> newColor. > colorRamp addLast: newAssociation]. > colorRamp := colorRamp sorted. > gradientDisplay colorRamp: colorRamp. > gradientDisplay fillStyle direction: gradientDisplay extent x @ 0. > self changed. > target ifNotNil:[ > target perform: selector > with: colorRamp > with: morph]. > + "text setText: self colorRamp"! > - text setText: self colorRamp! > > >

4 5

Daily Commit Log
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-October/009082.ht… Name: MorphicExtrasTests-nice.4 Ancestors: MorphicExtrasTests-fbs.3 Do not use at:put: on a Float (especially a literal!), this superpower should be considered harmful and it is not 64-bits spur compatible anyway. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009083.ht… Name: Compiler-nice.316 Ancestors: Compiler-cmm.315 Make markerOrNil 64bits spur compatible by not hardcoding wordSize. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009084.ht… Name: CollectionsTests-nice.255 Ancestors: CollectionsTests-ul.254 In a 64bits spur VM, not all SmallInteger can be stored in an IntegerArray, It's time to document it. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009085.ht… Name: KernelTests-nice.298 Ancestors: KernelTests-eem.297 Revise the tests relative to SmallInteger range for 64bits spur VM compatibility. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009086.ht… Name: Kernel-nice.962 Ancestors: Kernel-ul.961 Fix DataStream-serialization of SmallInteger in a 64bits spur VM. DataStream assumes each and every SmallInteger fits in 32bits which is no more true. If the SmallInteger is out of 32bits VM SmallInteger range, then use a fake LargeInteger. Also care to re-normalize LageIntegers at materialization time. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009087.ht… Name: System-nice.776 Ancestors: System-topa.775 Fix SmartRefStream for 64bits spur VM. The scenario is this one: a SmallInteger smaller than 32 bits VM minSmallInteger is being replaced with a fake LargeNegativeInteger. But the fake LargeNegativeInteger is not stored in references IdentityDictionary; consequently the class is NOT properly registered into the structures, and this creates an Error at materialization time... So let's reference the fake... ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009088.ht… Name: Kernel-nice.963 Ancestors: Kernel-nice.962 Let's correct my fresh DataStream correction... The ugly 37777777 pattern may happen in octal, but 50 birthdays is well too young for practicing such sport correctly ;) <rant> if the MC commit window would not try and reformat the code (especially rewrite hexadecimal constants in decimal) - that would have given me one more chance to correct before committing... </rant> =============================================

1 0

The Trunk: Kernel-nice.963.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.963.mcz ==================== Summary ==================== Name: Kernel-nice.963 Author: nice Time: 31 October 2015, 11:48:47.351 pm UUID: 251411b2-0110-4d17-8469-5b3aef45ebee Ancestors: Kernel-nice.962 Let's correct my fresh DataStream correction... The ugly 37777777 pattern may happen in octal, but 50 birthdays is well too young for practicing such sport correctly ;) <rant> if the MC commit window would not try and reformat the code (especially rewrite hexadecimal constants in decimal) - that would have given me one more chance to correct before committing... </rant> =============== Diff against Kernel-nice.962 =============== Item was changed: ----- Method: SmallInteger>>objectForDataStream: (in category 'objects from disk') ----- objectForDataStream: refStrm "In a 64bits sput VM, we may have to fake 32bits SmallInteger for compatibility" | large | + self > 16r3FFFFFFF ifTrue: [ - self > 16r37777777 ifTrue: [ large := LargePositiveInteger new: self digitLength neg: false. 1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)]. ^large]. self < -16r40000000 ifTrue: [ large := LargeNegativeInteger new: self digitLength neg: true. 1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)]. ^large]. ^ self !

1 0

Re: [squeak-dev] The Trunk: Kernel-nice.962.mcz
by Nicolas Cellier 31 Oct '15

31 Oct '15

2015-10-31 19:25 GMT+01:00 <commits(a)source.squeak.org>: > Nicolas Cellier uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-nice.962.mcz > > ==================== Summary ==================== > > Name: Kernel-nice.962 > Author: nice > Time: 31 October 2015, 7:24:30.118 pm > UUID: 7437325d-9085-4d61-9960-368cd42f46fe > Ancestors: Kernel-ul.961 > > Fix DataStream-serialization of SmallInteger in a 64bits spur VM. > > DataStream assumes each and every SmallInteger fits in 32bits which is no > more true. > If the SmallInteger is out of 32bits VM SmallInteger range, then use a > fake LargeInteger. > Also care to re-normalize LageIntegers at materialization time. > > =============== Diff against Kernel-ul.961 =============== > > Item was added: > + ----- Method: LargePositiveInteger>>readDataFrom:size: (in category > 'objects from disk') ----- > + readDataFrom: aDataStream size: varsOnDisk > + ^(super readDataFrom: aDataStream size: varsOnDisk) normalize > + ! > > Item was added: > + ----- Method: SmallInteger>>objectForDataStream: (in category 'objects > from disk') ----- > + objectForDataStream: refStrm > + "In a 64bits sput VM, we may have to fake 32bits SmallInteger for > compatibility" > + > + | large | > + self > 16r37777777 ifTrue: [ > Ahem, err... what's this 7777777 ??? Probably I was thinking of typing seven F so loud that I fooled myself !!! Let me retry... > + large := LargePositiveInteger new: self digitLength neg: > false. > + 1 to: self digitLength do: [:i | large digitAt: i put: > (self digitAt: i)]. > + ^large]. > + self < -16r40000000 ifTrue: [ > + large := LargeNegativeInteger new: self digitLength neg: > true. > + 1 to: self digitLength do: [:i | large digitAt: i put: > (self digitAt: i)]. > + ^large]. > + ^ self > + ! > > >

1 0

The Trunk: System-nice.776.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.776.mcz ==================== Summary ==================== Name: System-nice.776 Author: nice Time: 31 October 2015, 11:35:30.653 pm UUID: d178a6bb-8b9a-47ed-9eff-8544ba286894 Ancestors: System-topa.775 Fix SmartRefStream for 64bits spur VM. The scenario is this one: a SmallInteger smaller than 32 bits VM minSmallInteger is being replaced with a fake LargeNegativeInteger. But the fake LargeNegativeInteger is not stored in references IdentityDictionary; consequently the class is NOT properly registered into the structures, and this creates an Error at materialization time... So let's reference the fake... =============== Diff against System-topa.775 =============== Item was changed: ----- Method: DataStream>>nextPut: (in category 'write and read') ----- nextPut: anObject "Write anObject to the receiver stream. Answer anObject." | typeID selector objectToStore | typeID := self typeIDFor: anObject. (self tryToPutReference: anObject typeID: typeID) ifTrue: [^ anObject]. objectToStore := (self objectIfBlocked: anObject) objectForDataStream: self. + objectToStore == anObject + ifFalse: + [typeID := self typeIDFor: objectToStore. + (self tryToPutReference: objectToStore typeID: typeID) + ifTrue: [^ anObject]]. - objectToStore == anObject ifFalse: [typeID := self typeIDFor: objectToStore]. byteStream nextPut: typeID. selector := #(writeNil: writeTrue: writeFalse: writeInteger: writeStringOld: writeSymbol: writeByteArray: writeArray: writeInstance: errorWriteReference: writeBitmap: writeClass: writeUser: writeFloat: writeRectangle: == "<-16 short inst" writeString: writeBitmap: writeBitmap: writeWordLike: writeInstance: "CompiledMethod") at: typeID. self perform: selector with: objectToStore. ^ anObject "NOTE: If anObject is a reference type (one that we write cross-references to) but its externalized form (result of objectForDataStream:) isn't (e.g. CompiledMethod and ViewState), then we should remember its externalized form but not add to 'references'. Putting that object again should just put its external form again. That's more compact and avoids seeks when reading. But we just do the simple thing here, allowing backward-references for non-reference types like nil. So objectAt: has to compensate. Objects that externalize nicely won't contain the likes of ViewStates, so this shouldn't hurt much. writeReference: -> errorWriteReference:."!

1 0

Re: [squeak-dev] The Trunk: CollectionsTests-nice.255.mcz
by Tobias Pape 31 Oct '15

31 Oct '15

On 31.10.2015, at 17:39, commits(a)source.squeak.org wrote: > Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: > http://source.squeak.org/trunk/CollectionsTests-nice.255.mcz > > ==================== Summary ==================== > > Name: CollectionsTests-nice.255 > Author: nice > Time: 31 October 2015, 6:39:25.525 pm > UUID: 4f5361b3-18c8-47f1-ba59-030004683963 > Ancestors: CollectionsTests-ul.254 > > In a 64bits spur VM, not all SmallInteger can be stored in an IntegerArray, It's time to document it. > Eh… Shouldn't we rather fix IntegerArray then? Best -Tobias > =============== Diff against CollectionsTests-ul.254 =============== > > Item was changed:

2 2

The Trunk: Kernel-nice.962.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.962.mcz ==================== Summary ==================== Name: Kernel-nice.962 Author: nice Time: 31 October 2015, 7:24:30.118 pm UUID: 7437325d-9085-4d61-9960-368cd42f46fe Ancestors: Kernel-ul.961 Fix DataStream-serialization of SmallInteger in a 64bits spur VM. DataStream assumes each and every SmallInteger fits in 32bits which is no more true. If the SmallInteger is out of 32bits VM SmallInteger range, then use a fake LargeInteger. Also care to re-normalize LageIntegers at materialization time. =============== Diff against Kernel-ul.961 =============== Item was added: + ----- Method: LargePositiveInteger>>readDataFrom:size: (in category 'objects from disk') ----- + readDataFrom: aDataStream size: varsOnDisk + ^(super readDataFrom: aDataStream size: varsOnDisk) normalize + ! Item was added: + ----- Method: SmallInteger>>objectForDataStream: (in category 'objects from disk') ----- + objectForDataStream: refStrm + "In a 64bits sput VM, we may have to fake 32bits SmallInteger for compatibility" + + | large | + self > 16r37777777 ifTrue: [ + large := LargePositiveInteger new: self digitLength neg: false. + 1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)]. + ^large]. + self < -16r40000000 ifTrue: [ + large := LargeNegativeInteger new: self digitLength neg: true. + 1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)]. + ^large]. + ^ self + !

1 0

The Trunk: KernelTests-nice.298.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.298.mcz ==================== Summary ==================== Name: KernelTests-nice.298 Author: nice Time: 31 October 2015, 6:49:35.522 pm UUID: bd6fa081-0481-4e5c-85d0-c1c8207c7f7f Ancestors: KernelTests-eem.297 Revise the tests relative to SmallInteger range for 64bits spur VM compatibility. =============== Diff against KernelTests-eem.297 =============== Item was changed: ----- Method: SmallIntegerTest>>testMaxVal (in category 'testing - Class Methods') ----- testMaxVal + self assert: (SmallInteger maxVal = 16r3FFFFFFF or: [SmallInteger maxVal = 16rFFFFFFFFFFFFFFF]).! - self assert: (SmallInteger maxVal = 16r3FFFFFFF).! Item was changed: ----- Method: SmallIntegerTest>>testMinVal (in category 'testing - Class Methods') ----- testMinVal + self assert: (SmallInteger minVal = -16r40000000 or: [SmallInteger minVal = -16r1000000000000000]).! - self assert: (SmallInteger minVal = -16r40000000).! Item was changed: ----- Method: SmallIntegerTest>>testPrintString (in category 'testing - printing') ----- testPrintString self assert: 1 printString = '1'. self assert: -1 printString = '-1'. + self assert: SmallInteger minVal printString = (Smalltalk wordSize = 8 ifTrue: [ '-1152921504606846976'] ifFalse: ['-1073741824']). + self assert: SmallInteger maxVal printString = (Smalltalk wordSize = 8 ifTrue: [ '1152921504606846975'] ifFalse: ['-1073741823']). - self assert: SmallInteger minVal printString = '-1073741824'. - self assert: SmallInteger maxVal printString = '1073741823'. self assert: 12345 printString = '12345'. self assert: -54321 printString = '-54321'. self assert: 0 decimalDigitLength = 1. self assert: 4 decimalDigitLength = 1. self assert: 12 decimalDigitLength = 2. self assert: 123 decimalDigitLength = 3. self assert: 1234 decimalDigitLength = 4. self assert: 56789 decimalDigitLength = 5. self assert: 657483 decimalDigitLength = 6. self assert: 6571483 decimalDigitLength = 7. self assert: 65174383 decimalDigitLength = 8. self assert: 625744831 decimalDigitLength = 9. self assert: 1000001111 decimalDigitLength = 10. + self assert: SmallInteger maxVal decimalDigitLength = (Smalltalk wordSize = 8 ifTrue: [19] ifFalse: [10]).! - self assert: SmallInteger maxVal decimalDigitLength = 10.!

1 0

The Trunk: CollectionsTests-nice.255.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.255.mcz ==================== Summary ==================== Name: CollectionsTests-nice.255 Author: nice Time: 31 October 2015, 6:39:25.525 pm UUID: 4f5361b3-18c8-47f1-ba59-030004683963 Ancestors: CollectionsTests-ul.254 In a 64bits spur VM, not all SmallInteger can be stored in an IntegerArray, It's time to document it. =============== Diff against CollectionsTests-ul.254 =============== Item was changed: ----- Method: IntegerArrayTest>>testStoreSmallInteger (in category 'tests') ----- testStoreSmallInteger + "Any SmallInteger may be stored in an IntegerArray in a 32bits VM. + Not so true for a 64bits spur VM though..." - "Any SmallInteger may be stored in an IntegerArray." | ia val | ia := IntegerArray new: 1. + val := Smalltalk wordSize = 8 + ifTrue: [1 << 31 - 1] + ifFalse: [SmallInteger maxVal]. - val := SmallInteger maxVal. ia at: 1 put: val. self assert: ((ia at: 1) = val). + val := Smalltalk wordSize = 8 + ifTrue: [(1 << 31) negated] + ifFalse: [SmallInteger minVal]. - val := SmallInteger minVal. ia at: 1 put: val. self assert: ((ia at: 1) = val) !

1 0

Jump to page: