Packages February 2014

packages@lists.squeakfoundation.org

1 participants
48 discussions

The Trunk: Kernel-nice.837.mcz
by commits＠source.squeak.org 27 Feb '14

27 Feb '14

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.837.mcz ==================== Summary ==================== Name: Kernel-nice.837 Author: nice Time: 27 February 2014, 11:09:40.472 pm UUID: 12cc90d9-9ee2-445e-85cc-4febd06c9b09 Ancestors: Kernel-dtl.836 Allow uppercase exponents in ExtendedNumberParser ('1.00E-2' asNumber) =============== Diff against Kernel-dtl.836 =============== Item was added: + ----- Method: ExtendedNumberParser>>exponentLetters (in category 'accessing') ----- + exponentLetters + "Allow uppercase exponent letter." + + ^'edqEDQ'!

1 0

The Trunk: Kernel-nice.837.mcz
by commits＠source.squeak.org 27 Feb '14

27 Feb '14

1 0

The Trunk: KernelTests-nice.260.mcz
by commits＠source.squeak.org 27 Feb '14

27 Feb '14

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.260.mcz ==================== Summary ==================== Name: KernelTests-nice.260 Author: nice Time: 27 February 2014, 11:08:19.986 pm UUID: 3f70ebae-3719-42d7-a189-43ce16a8e543 Ancestors: KernelTests-nice.259 Assert that uppercase exponents are allowed in ExtendedNumberParserTest ('1.00E-2' asNumber) =============== Diff against KernelTests-nice.259 =============== Item was added: + ----- Method: ExtendedNumberParserTest>>testUppercaseExponent (in category 'testing') ----- + testUppercaseExponent + "An uppercase exponent is allowed" + + self assert: 0.01 equals: (ExtendedNumberParser parse: '1.00E-2'). + self assert: 305.0 equals: (ExtendedNumberParser parse: '3.05D+2').!

1 0

The Trunk: KernelTests-nice.260.mcz
by commits＠source.squeak.org 27 Feb '14

27 Feb '14

1 0

The Trunk: KernelTests-nice.260.mcz
by commits＠source.squeak.org 27 Feb '14

27 Feb '14

1 0

The Trunk: Tools-cmm.519.mcz
by commits＠source.squeak.org 18 Feb '14

18 Feb '14

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.519.mcz ==================== Summary ==================== Name: Tools-cmm.519 Author: cmm Time: 18 February 2014, 4:17:22.819 pm UUID: dae6bdb9-8b54-491a-a2a4-0b114f02e10d Ancestors: Tools-cmm.518 - Fix cloning MessageSet's. - Pointer-chaser, display the id-hash of Morph's in the path to chased object. =============== Diff against Tools-cmm.518 =============== Item was changed: ----- Method: MessageSet>>veryDeepInner: (in category 'copying') ----- veryDeepInner: deepCopier - "Copy all of my instance variables. Some need to be not copied at all, but shared. See DeepCopier class comment." - super veryDeepInner: deepCopier. + messageList := messageList veryDeepCopyWith: deepCopier. - messageListIndex := messageListIndex veryDeepCopyWith: deepCopier. editSelection := editSelection veryDeepCopyWith: deepCopier.! Item was changed: ----- Method: PointerFinder>>buildList (in category 'application') ----- buildList | list obj parent object key | list := OrderedCollection new. obj := goal. [list addFirst: obj. obj := parents at: obj ifAbsent: []. obj == nil] whileFalse. list removeFirst. parent := Smalltalk. objectList := OrderedCollection new. pointerList := OrderedCollection new. [list isEmpty] whileFalse: [object := list removeFirst. key := nil. (parent isKindOf: Dictionary) ifTrue: [list size >= 2 ifTrue: [key := parent keyAtValue: list second ifAbsent: []. key == nil ifFalse: [object := list removeFirst; removeFirst. pointerList add: key printString , ' -> ' , object class name]]]. key == nil ifTrue: [parent class == object ifTrue: [key := 'CLASS']. key == nil ifTrue: [1 to: parent class instSize do: [:i | key == nil ifTrue: [(parent instVarAt: i) == object ifTrue: [key := parent class allInstVarNames at: i]]]]. key == nil ifTrue: [1 to: parent basicSize do: [:i | key == nil ifTrue: [(parent basicAt: i) == object ifTrue: [key := i printString]]]]. key == nil ifTrue: [(parent isMorph and: [object isKindOf: Array]) ifTrue: [key := 'submorphs?']]. key == nil ifTrue: [(parent isCompiledMethod and: [object isVariableBinding]) ifTrue: [key := 'literals?']]. key == nil ifTrue: [key := '???']. + pointerList add: key , ': ' , object class name, (object isMorph ifTrue: [' (', object identityHash asString, ')'] ifFalse: [ String empty ]) ]. - pointerList add: key , ': ' , object class name]. objectList add: object. parent := object]!

1 0

The Trunk: Tools-cmm.519.mcz
by commits＠source.squeak.org 18 Feb '14

18 Feb '14

1 0

The Trunk: Tools-cmm.519.mcz
by commits＠source.squeak.org 18 Feb '14

18 Feb '14

1 0

The Trunk: Tests-cmm.290.mcz
by commits＠source.squeak.org 17 Feb '14

17 Feb '14

Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.290.mcz ==================== Summary ==================== Name: Tests-cmm.290 Author: cmm Time: 17 February 2014, 4:35:24.565 pm UUID: f3fccfae-6baf-4093-ba62-e15ef110a687 Ancestors: Tests-cwp.289 Minor factoring. =============== Diff against Tests-cwp.289 =============== Item was changed: ----- Method: BlockLocalTemporariesRemovalTest>>assert:isChangedDuringParsingTo:withRemovalOfTemporariesNamed: (in category 'test helper') ----- + assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames - assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames - | failBlock | self sourceCode: someCode. + failBlock := [ self fail ]. + [ self class + compile: self sourceCode + notifying: self + trailer: self class defaultMethodTrailer + ifFail: failBlock ] - failBlock := [self fail]. - [self class - compile: self sourceCode - notifying: self - trailer: self class defaultMethodTrailer - ifFail: failBlock] on: UnusedVariable + do: + [ : aNotification | aNotification openMenuIn: + [ : options : emptyCollection : someText | aNotification resume: + (someTempNames anySatisfy: + [ : tempName | someText beginsWith: tempName ]) ] ]. - do: [:aNotification | aNotification - openMenuIn: [:options :emptyCollection :someText | - (someTempNames anySatisfy: [:tempName | someText startsWith: tempName]) - ifTrue: [aNotification resume: true] - ifFalse: [aNotification resume: false]]]. self assert: self sourceCode = someOtherCode!

1 0

The Trunk: Tests-cmm.290.mcz
by commits＠source.squeak.org 17 Feb '14

17 Feb '14

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2014