Packages July 2020

packages@lists.squeakfoundation.org

1 participants
39 discussions

The Trunk: Kernel-eem.1335.mcz
by commits＠source.squeak.org 21 Jul '20

21 Jul '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1335.mcz ==================== Summary ==================== Name: Kernel-eem.1335 Author: eem Time: 21 July 2020, 12:33:42.401688 pm UUID: 829e7c17-0cb2-4269-a6ca-d85bef9ecc2a Ancestors: Kernel-mt.1334 Support for FloatArray; add 64-bit duals of the 32-bit float converters, so along side Float>>asIEEE32BitWord & Float class>>fromIEEE32Bit: we have Float>>asIEEE64BitWord & Float class>>fromIEEE64Bit:. =============== Diff against Kernel-mt.1334 =============== Item was added: + ----- Method: Float class>>fromIEEE64Bit: (in category 'instance creation') ----- + fromIEEE64Bit: anInteger + "Convert the given 64 bit word (which is supposed to be a positive 64-bit value) from + a 64 bit IEEE floating point representation into an actual Squeak float object (being + 64 bits wide). Should only be used for conversion in FloatArrays or likewise objects." + | value | + value := self basicNew: 2. + value + basicAt: 1 put: (anInteger bitShift: -32); + basicAt: 2 put: (anInteger bitAnd: 16rFFFFFFFF). + ^value isFinite + ifTrue: [value * 1.0] "reduce to SmallFloat64 if possible" + ifFalse: [value]! Item was changed: ----- Method: Float>>asIEEE32BitWord (in category 'converting') ----- asIEEE32BitWord "Convert the receiver into a 32 bit Integer value representing the same number in IEEE 32 bit format. + Used for conversion in FloatArrays." - Used for conversion in FloatArrays only." + | word1 word2 sign mantissa exponent truncatedBits mask roundToUpper | - | word1 word2 sign mantissa exponent destWord truncatedBits mask roundToUpper | "skip fast positive and nnegative zero" self = 0.0 ifTrue: [^self basicAt: 1]. "retrieve 64 bits of IEEE 754 double" word1 := self basicAt: 1. word2 := self basicAt: 2. "prepare sign exponent and mantissa of 32 bits float" sign := word1 bitAnd: 16r80000000. exponent := ((word1 bitShift: -20) bitAnd: 16r7FF) - 1023 + 127. mantissa := (word2 bitShift: -29) + ((word1 bitAnd: 16rFFFFF) bitShift: 3). truncatedBits := (word2 bitAnd: 16r1FFFFFFF). "We must now honour default IEEE rounding mode (round to nearest even)" "we are below gradual underflow, even if rounded to upper mantissa" + exponent < -24 ifTrue: [^sign]. "this can be negative zero" - exponent < -24 ifTrue: [^sign "this can be negative zero"]. "BEWARE: rounding occurs on less than 23bits when gradual underflow" exponent <= 0 ifTrue: [mask := 1 bitShift: exponent negated. mantissa := mantissa bitOr: 16r800000. roundToUpper := (mantissa bitAnd: mask) isZero not and: [truncatedBits isZero not or: [(mantissa bitAnd: mask - 1) isZero not or: [(mantissa bitAnd: mask*2) isZero not]]]. mantissa := mantissa bitShift: exponent - 1. "exponent := exponent + 1"] ifFalse: [roundToUpper := (truncatedBits bitAnd: 16r10000000) isZero not and: [(mantissa bitAnd: 16r1) isZero not + or: [(truncatedBits bitAnd: 16r0FFFFFFF) isZero not]]]. - or: [(truncatedBits bitAnd: 16r0FFFFFFF) isZero not]] - ]. "adjust mantissa and exponent due to IEEE rounding mode" + roundToUpper ifTrue: + [mantissa := mantissa + 1. + mantissa > 16r7FFFFF ifTrue: + [mantissa := 0. + exponent := exponent+1]]. - roundToUpper - ifTrue: - [mantissa := mantissa + 1. - mantissa > 16r7FFFFF - ifTrue: - [mantissa := 0. - exponent := exponent+1]]. + exponent > 254 ifTrue: "Overflow" + [exponent := 255. - exponent > 254 ifTrue: ["Overflow" - exponent := 255. self isNaN ifTrue: [mantissa isZero ifTrue: ["BEWARE: do not convert a NaN to infinity due to truncatedBits" mantissa := 1]] ifFalse: [mantissa := 0]]. "Encode the word" + ^(sign bitOr: ((exponent max: 0) bitShift: 23)) bitOr: mantissa! - destWord := (sign bitOr: ((exponent max: 0) bitShift: 23)) bitOr: mantissa. - ^ destWord! Item was added: + ----- Method: Float>>asIEEE64BitWord (in category 'converting') ----- + asIEEE64BitWord + "Convert the receiver into a 64 bit Integer value representing the same number in IEEE 64 bit format. + Used for conversion in FloatArrays." + + ^((self basicAt: 1) bitShift: 32) + (self basicAt: 2)!

1 0

The Trunk: System-mt.1167.mcz
by commits＠source.squeak.org 21 Jul '20

21 Jul '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1167.mcz ==================== Summary ==================== Name: System-mt.1167 Author: mt Time: 21 July 2020, 9:04:24.515795 am UUID: 962f538f-4a49-4832-8488-4337395436fc Ancestors: System-mt.1166 In code holders, avoid label contraction in dialogs' buttons that pop up when having to choose a symbol for browsing senders/implementors. =============== Diff against System-mt.1166 =============== Item was changed: ----- Method: SystemNavigation>>showMenuOf:withFirstItem:ifChosenDo:withCaption: (in category 'ui') ----- showMenuOf: selectorCollection withFirstItem: firstItem ifChosenDo: choiceBlock withCaption: aCaption + "Show a sorted menu of the given selectors, preceded by firstItem. Use aCaption as the menu title, if it is not nil. Evaluate choiceBlock if a message is chosen." - "Show a sorted menu of the given selectors, preceded by firstItem, and all abbreviated to 40 characters. Use aCaption as the menu title, if it is not nil. Evaluate choiceBlock if a message is chosen." | index menuLabels sortedList | sortedList := selectorCollection sorted. menuLabels := Array streamContents: + [:strm | strm nextPut: firstItem. + sortedList do: [:sel | strm nextPut: sel]]. - [:strm | strm nextPut: (firstItem contractTo: 40). - sortedList do: [:sel | strm nextPut: (sel contractTo: 40)]]. index := UIManager default chooseFrom: menuLabels lines: #(1). index = 1 ifTrue: [choiceBlock value: firstItem]. index > 1 ifTrue: [choiceBlock value: (sortedList at: index - 1)]!

1 0

The Trunk: Collections-ul.903.mcz
by commits＠source.squeak.org 20 Jul '20

20 Jul '20

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.903.mcz ==================== Summary ==================== Name: Collections-ul.903 Author: ul Time: 16 July 2020, 2:43:29.805477 pm UUID: 8864e74e-e7c5-4419-b789-cb6b0889df42 Ancestors: Collections-ul.902 - let String >> #compareWith: use primitive 158 even if indirectly =============== Diff against Collections-ul.902 =============== Item was changed: ----- Method: String>>compareWith: (in category 'comparing') ----- compareWith: aString "<primitive: 158>" + ^self compareWith: aString collated: AsciiOrder! - ^(self compare: self with: aString collated: AsciiOrder) - 2!

1 0

The Trunk: EToys-eem.399.mcz
by commits＠source.squeak.org 18 Jul '20

18 Jul '20

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.399.mcz ==================== Summary ==================== Name: EToys-eem.399 Author: eem Time: 17 July 2020, 4:51:05.430052 pm UUID: dfb4916e-d9f3-40e7-8da2-2badb5372778 Ancestors: EToys-mt.398 Fix the WebCamMorph so that more than one camera can be used at the same time. e,g, if you have a laptop with a secondary display attached with a camera (such as the Apple Cinema Display) you can do this: WebCamMorph new cameraNumber: 2; openInWorld. WebCamMorph new cameraNumber: 1; openInWorld. WebCamMorph new cameraNumber: 2; openInWorld. WebCamMorph new cameraNumber: 1; openInWorld. position them around the display, change their size, and even give them rotation. But interestingly adding rotation invokes the garbage collector since the warp form is not cached. e.g. GCs 5,066 (582.7 ms between GCs 314.9 ms runtime between GCs) full 245 totalling 221,724 ms (13.9% runtime), avg 905 ms marking 128,554 ms (58%) avg 524.7 ms, compacting 93,170 ms (42%) avg 380.3 ms scavenges 4,821 totalling 24,912 ms (1.56% runtime), avg 5.2 ms tenures 232,261 (avg 48 tenures per scavenge) =============== Diff against EToys-mt.398 =============== Item was added: + ----- Method: WebCamMorph>>cameraIsOn (in category 'accessing') ----- + cameraIsOn + ^camIsOn! Item was added: + ----- Method: WebCamMorph>>cameraNumber (in category 'accessing') ----- + cameraNumber + ^camNum! Item was added: + ----- Method: WebCamMorph>>cameraNumber: (in category 'accessing') ----- + cameraNumber: anInteger + camNum ~= anInteger ifTrue: + [camNum := anInteger. + self initializeDisplayForm]! Item was changed: ----- Method: WebCamMorph>>delete (in category 'submorphs-add/remove') ----- delete + self off. + super delete! - self class instanceCount > 1 - ifFalse: [self off] - ifTrue: [ - self stopStepping. - camIsOn := false]. - super delete.! Item was changed: ----- Method: WebCamMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas + camIsOn ifFalse: + [self initializeDisplayForm. + self on]. + camIsOn ifTrue: + [(CameraInterface frameExtent: camNum) ~= displayForm extent ifTrue: + [self initializeDisplayForm]]. + displayForm ifNil: + [self initializeDisplayForm]. - useFrameSize ifTrue: [self extent: frameExtent]. self drawCameraImageOn: aCanvas. self drawFPSOn: aCanvas. + self drawOverlayTextOn: aCanvas! - self drawOverlayTextOn: aCanvas. - ! Item was changed: ----- Method: WebCamMorph>>initialize (in category 'initialization') ----- initialize super initialize. camNum := 1. camIsOn := false. showFPS := false. captureDelayMs := 16. "stepTime" fps := 60. "guess." lastDisplayTime := 0. framesSinceLastDisplay := 0. useFrameSize := false. resolution := #medium. orientation := #natural. + frameExtent := self class resolutionFor: resolution! - frameExtent := self class resolutionFor: resolution. - self initializeDisplayForm. - self extent: frameExtent. - self on. - - ! Item was changed: ----- Method: WebCamMorph>>off (in category 'accessing') ----- off self stopStepping. camIsOn := false. + "Be careful not to close the camera if any other morphs are using the same camera." + (self class allInstances anySatisfy: [:wcm| wcm cameraNumber = camNum and: [wcm cameraIsOn]]) ifFalse: + [CameraInterface closeCamera: camNum]. + self changed - self updateDisplay. - CameraInterface closeCamera: camNum. + "self allInstances select: [:wcm| wcm cameraNumber = 1 and: [wcm cameraIsOn]]"! - - - ! Item was changed: ----- Method: WebCamMorph>>on (in category 'accessing') ----- on + camIsOn ifTrue: [^true]. + (CameraInterface cameraIsOpen: camNum) ifFalse: + [(CameraInterface openCamera: camNum width: frameExtent x height: frameExtent y) ifNil: + [^false]]. + "The plugin/camera subsystem may end up choosing a different width and height. + So use the width and height it has selected; it may not be what was asked for." - - (CameraInterface cameraIsOpen: camNum) - ifTrue: [ ^camIsOn := true.]. - (CameraInterface openCamera: camNum width: frameExtent x height: frameExtent y) - ifNil: [^false]. - CameraInterface waitForCameraStart: camNum. self initializeDisplayForm. + CameraInterface waitForCameraStart: camNum. - self extent: frameExtent. camIsOn := true. + self startStepping! - self startStepping. - !

1 0

The Trunk: KernelTests-eem.384.mcz
by commits＠source.squeak.org 17 Jul '20

17 Jul '20

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.384.mcz ==================== Summary ==================== Name: KernelTests-eem.384 Author: eem Time: 16 July 2020, 3:13:09.314392 pm UUID: da087b71-cc6c-42d5-b8e7-fe03fca763c2 Ancestors: KernelTests-tpr.383 Revert KernelTests-tpr.383's setFreeSpaceLimitOf:around: now that the VM correctly accepts large integers for vm parameter #57. =============== Diff against KernelTests-tpr.383 =============== Item was changed: ----- Method: AllocationTest>>setFreeSpaceLimitOf:around: (in category 'support') ----- setFreeSpaceLimitOf: bytes around: aBlock "Attempt to evaluate aBlock with a limit of the requested ammount of free old space, restoring the extant limit after the evaluation." | extantLimit | extantLimit := Smalltalk vmParameterAt: 67. + Smalltalk vmParameterAt: 67 put: (Smalltalk vmParameterAt: 1) + bytes asInteger. - Smalltalk vmParameterAt: 67 put: ((Smalltalk vmParameterAt: 1) + bytes asInteger min: SmallInteger maxVal). ^aBlock ensure: [Smalltalk vmParameterAt: 67 put: extantLimit]!

1 0

The Trunk: Tools-eem.984.mcz
by commits＠source.squeak.org 17 Jul '20

17 Jul '20

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.984.mcz ==================== Summary ==================== Name: Tools-eem.984 Author: eem Time: 16 July 2020, 3:10:24.240422 pm UUID: c9cea967-9685-4ce3-8eea-72da87f12be6 Ancestors: Tools-mt.983 Fix a regression in Tools-ct.952. This fix constitutes a review of http://forum.world.st/BUG-in-Debugger-gt-gt-newStack-optimization-td5112726… =============== Diff against Tools-mt.983 =============== Item was changed: ----- Method: Debugger>>newStack: (in category 'private') ----- newStack: stack + | oldStack diff matchIndex | - | oldStack diff | oldStack := contextStack. contextStack := stack. + (oldStack isNil or: [oldStack last ~~ stack last]) ifTrue: + [contextStackList := stack collect: [:ctx | ctx printString]. + ^self]. - (oldStack == nil or: [oldStack last ~~ stack last]) - ifTrue: [contextStackList := contextStack collect: [:ctx | ctx printString]. - ^ self]. "May be able to re-use some of previous list" diff := stack size - oldStack size. contextStackList := diff <= 0 + ifTrue: [contextStackList copyFrom: 1 - diff to: oldStack size] + ifFalse: + [matchIndex := stack lastIndexOf: oldStack first startingAt: diff + 1. + matchIndex = 0 + ifTrue: [contextStack collect: [:ctx | ctx printString]] + ifFalse: [((contextStack first: matchIndex - 1) collect: [:ctx| ctx printString]), contextStackList]] + "#(d e f h i) => #(a b c d e f g h i) + diff := 3. + matchIndex := 4. + #(a b c d e f g h i) := #(a b c), #(d e f h i)"! - ifTrue: [contextStackList copyFrom: 1-diff to: oldStack size] - ifFalse: [(diff = 1 and: [stack second == oldStack first]) - ifTrue: [contextStackList copyWithFirst: stack first printString] - ifFalse: [contextStack collect: [:ctx | ctx printString]]]!

1 0

The Trunk: Morphic-mt.1673.mcz
by commits＠source.squeak.org 16 Jul '20

16 Jul '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1673.mcz ==================== Summary ==================== Name: Morphic-mt.1673 Author: mt Time: 16 July 2020, 12:32:25.66555 pm UUID: 4cdee1e0-9104-4e4f-a08f-12a77681f58e Ancestors: Morphic-mt.1672 Fixes toggle icons in tree widgets for demo/hi-dpi mode. =============== Diff against Morphic-mt.1672 =============== Item was changed: ----- Method: IndentingListItemMorph>>toggleRectangle (in category 'private') ----- toggleRectangle + | h indent | - | h | h := bounds height. + indent := (12 * RealEstateAgent scaleFactor) rounded. + ^(bounds left + self hMargin + (indent * indentLevel)) @ bounds top extent: indent@h! - ^(bounds left + self hMargin + (12 * indentLevel)) @ bounds top extent: 12@h! Item was added: + ----- Method: SimpleHierarchicalListMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- + applyUserInterfaceTheme + + expandedForm := nil. + notExpandedForm := nil.! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>expandedForm (in category 'instance creation') ----- expandedForm expandedForm ifNotNil: [expandedForm depth ~= Display depth ifTrue: [expandedForm := nil]]. ^ expandedForm ifNil: [expandedForm := ((Form extent: 10 @ 9 depth: 8 fromArray: #(4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 4278255873 16843009 16842752 4294902089 1229539657 33488896 4294967041 1229539585 4294901760 4294967295 21561855 4294901760 4294967295 4278321151 4294901760 4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 ) offset: 0 @ 0) + asFormOfDepth: Display depth) + replaceColor: Color white withColor: Color transparent; + scaleIconToDisplay]! - asFormOfDepth: Display depth) replaceColor: Color white withColor: Color transparent; - yourself]! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>notExpandedForm (in category 'instance creation') ----- notExpandedForm notExpandedForm ifNotNil: [notExpandedForm depth ~= Display depth ifTrue: [notExpandedForm := nil]]. ^ notExpandedForm ifNil: [notExpandedForm := ((Form extent: 10 @ 9 depth: 8 fromArray: #(4294967041 4294967295 4294901760 4294967041 33554431 4294901760 4294967041 1224867839 4294901760 4294967041 1229521407 4294901760 4294967041 1229539585 4294901760 4294967041 1229521407 4294901760 4294967041 1224867839 4294901760 4294967041 33554431 4294901760 4294967041 4294967295 4294901760 ) offset: 0 @ 0) asFormOfDepth: Display depth) replaceColor: Color white withColor: Color transparent; + scaleIconToDisplay]! - yourself]!

1 0

The Trunk: Morphic-mt.1672.mcz
by commits＠source.squeak.org 15 Jul '20

15 Jul '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1672.mcz ==================== Summary ==================== Name: Morphic-mt.1672 Author: mt Time: 15 July 2020, 12:53:39.33025 pm UUID: ba486bd0-690f-4685-8c79-0374ab461663 Ancestors: Morphic-mt.1671 Fixes recent regression. Sorry for the noise. =============== Diff against Morphic-mt.1671 =============== Item was changed: ----- Method: IndentingListItemMorph>>initWithContents:prior:forList:indentLevel: (in category 'initialization') ----- initWithContents: anObject prior: priorMorph forList: hostList indentLevel: newLevel container := hostList. complexContents := anObject. anObject addDependent: self. self initWithContents: self getLabel font: Preferences standardListFont emphasis: nil. indentLevel := 0. isExpanded := false. nextSibling := firstChild := nil. priorMorph ifNotNil: [ priorMorph nextSibling: self. ]. indentLevel := newLevel. + icon := self getIcon ifNotNil: [:form | form scaleIconToDisplay]. - icon := self getIcon scaleIconToDisplay. self extent: self minWidth @ self minHeight! Item was changed: ----- Method: IndentingListItemMorph>>refresh (in category 'initialization') ----- refresh self contents: self getLabel. + icon := self getIcon ifNotNil: [:form | form scaleIconToDisplay]. - icon := self getIcon scaleIconToDisplay. (self valueOfProperty: #wasRefreshed ifAbsent: [false]) ifFalse: [ self setProperty: #wasRefreshed toValue: true].!

1 0

The Trunk: Morphic-mt.1671.mcz
by commits＠source.squeak.org 15 Jul '20

15 Jul '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1671.mcz ==================== Summary ==================== Name: Morphic-mt.1671 Author: mt Time: 15 July 2020, 11:38:13.811718 am UUID: a357cbeb-ab17-48d7-b9cd-32c9c64d50f9 Ancestors: Morphic-mt.1670 Fixes demo/hi-dpi mode for system progress bar. =============== Diff against Morphic-mt.1670 =============== Item was changed: ----- Method: SystemProgressMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- applyUserInterfaceTheme + self initialize; reset.! - self reset.! Item was changed: ----- Method: SystemProgressMorph class>>initialize (in category 'class initialization') ----- initialize "SystemProgressMorph initialize; reset" + + BarHeight := (8 * RealEstateAgent scaleFactor) rounded. + BarWidth := (300 * RealEstateAgent scaleFactor) rounded. + Inset := ((30@30) * RealEstateAgent scaleFactor) rounded.! - BarHeight := 8. - BarWidth := 300. - Inset := 30@30!

1 0

The Trunk: Kernel-mt.1334.mcz
by commits＠source.squeak.org 15 Jul '20

15 Jul '20

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1334.mcz ==================== Summary ==================== Name: Kernel-mt.1334 Author: mt Time: 15 July 2020, 11:29:30.243718 am UUID: 15f827c9-c26e-46bf-a2e7-cddea3a22ee2 Ancestors: Kernel-mt.1333 Re-install interrupt watcher because semaphore changed in Kernel-mt.1333 from classVar to instVar. =============== Diff against Kernel-mt.1333 =============== Item was changed: + (PackageInfo named: 'Kernel') postscript: 'EventSensor default installInterruptWatcher.'! - (PackageInfo named: 'Kernel') postscript: '"Transform the cache for #once into IdentityDictionary." - - self systemNavigation allSelectorsAndMethodsDo: [ :behavior :selector :method | - (method hasLiteral: #once) - ifTrue: [(method propertyValueAt: #onceCache ifAbsent: []) - ifNotNil: - [:cache | - method - propertyValueAt: #onceCache - put: (cache as: IdentityDictionary)]]].'!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2020