Packages November 2014

packages@lists.squeakfoundation.org

1 participants
75 discussions

The Trunk: Monticello-dtl.605.mcz
by commits＠source.squeak.org 30 Nov '14

30 Nov '14

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.605.mcz ==================== Summary ==================== Name: Monticello-dtl.605 Author: dtl Time: 30 November 2014, 2:51:55.03 pm UUID: 7ee2c5c7-7da0-4241-bf1d-148741ed76a2 Ancestors: Monticello-bf.604 Add a nil check, allows saving an initial empty package in a new repository. =============== Diff against Monticello-bf.604 =============== Item was changed: ----- Method: MCWorkingCopy>>newVersion (in category 'operations') ----- newVersion | packageSnapshot parentSnapshot patch patchBlock | parentSnapshot := self parentSnapshot. patchBlock := [patch := (packageSnapshot := package snapshot) patchRelativeToBase: parentSnapshot]. patchBlock value. "Ensure that this is called at least once." ^ (self requestVersionNameAndMessageWithSuggestion: self uniqueVersionName initialMessage: self patchMessageSuggestion patchBlock: patchBlock ) ifNotNil: [:tuple | self newVersionWithName: tuple first withBlanksTrimmed message: (self patchMessageStripped: tuple second) + snapshot: ((tuple size >= 3 and: [tuple third notNil and: [tuple third notEmpty]]) - snapshot: ((tuple size >= 3 and: [tuple third notEmpty]) ifTrue: [ MCPatcher apply: (patch ignoring: tuple third) to: parentSnapshot] ifFalse: [packageSnapshot])]!

1 0

The Trunk: Monticello-dtl.605.mcz
by commits＠source.squeak.org 30 Nov '14

30 Nov '14

1 0

The Trunk: Monticello-dtl.605.mcz
by commits＠source.squeak.org 30 Nov '14

30 Nov '14

1 0

The Trunk: Kernel-eem.887.mcz
by commits＠source.squeak.org 27 Nov '14

27 Nov '14

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.887.mcz ==================== Summary ==================== Name: Kernel-eem.887 Author: eem Time: 27 November 2014, 1:19:50.961 pm UUID: 888d2632-2d0a-49dd-b83a-b5aceb2c939d Ancestors: Kernel-eem.886 A few more cases in COntextPart where objectClass: should be used instead of class to avoid proxy issues. =============== Diff against Kernel-eem.886 =============== Item was changed: ----- Method: ContextPart>>methodClass (in category 'debugger access') ----- methodClass "Answer the class in which the receiver's method was found." + ^self method methodClass ifNil: [self objectClass: self receiver].! - ^self method methodClass ifNil:[self receiver class].! Item was changed: ----- Method: ContextPart>>print:on: (in category 'debugger access') ----- print: anObject on: aStream + "Safely print anObject in the face of direct ProtoObject subclasses." + | objClass title | + objClass := self objectClass: anObject. + (objClass canUnderstand: #printOn:) ifTrue: + [^anObject printOn: aStream]. + title := objClass name. - "Safely print anObject in the face of direct ProtoObject subclasses" - | title | - (anObject class canUnderstand: #printOn:) - ifTrue:[^anObject printOn: aStream]. - title := anObject class name. aStream nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']); nextPutAll: title! Item was changed: ----- Method: ContextPart>>selectorCategory (in category 'accessing') ----- selectorCategory + "Answer the category to which this message belongs (relative to the receiver). + If no superclass categorises this message, use the default." + | rcvrClass organizers | + rcvrClass := self objectClass: self receiver. + organizers := rcvrClass withAllSuperclasses collect: [:ea | ea organization]. + organizers addFirst: rcvrClass organization. + ^(organizers collect: [ :org | org categoryOfElement: self selector]) + detect: [:ea | ea ~= ClassOrganizer default and: [ea ~= nil]] - "Return the category to which this message belongs (relative to the receiver). If no superclass categorises this message, use the default." - | organizers | - organizers := self receiver class withAllSuperclasses collect: [:ea | ea organization]. - organizers addFirst: self receiver class organization. - ^ (organizers collect: [ :org | org categoryOfElement: self selector]) - detect: [:ea | ea ~= ClassOrganizer default and: [ ea ~= nil]] ifNone: [ClassOrganizer default]!

1 0

The Trunk: Kernel-eem.887.mcz
by commits＠source.squeak.org 27 Nov '14

27 Nov '14

1 0

The Trunk: Kernel-eem.887.mcz
by commits＠source.squeak.org 27 Nov '14

27 Nov '14

1 0

The Trunk: Monticello-bf.604.mcz
by commits＠source.squeak.org 24 Nov '14

24 Nov '14

Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.604.mcz ==================== Summary ==================== Name: Monticello-bf.604 Author: bf Time: 24 November 2014, 6:30:56.448 pm UUID: b1f76c5b-7165-4dcb-bc69-07a1c7978fd7 Ancestors: Monticello-mtf.603 Deal with non-class globals. =============== Diff against Monticello-mtf.603 =============== Item was changed: ----- Method: MCMethodDefinition>>actualClass (in category 'accessing') ----- actualClass + ^Smalltalk at: className ifPresent: [:class | + class isBehavior ifTrue: [classIsMeta ifTrue: [class classSide] ifFalse: [class]]]! - ^Smalltalk at: className - ifPresent: [:class | classIsMeta ifTrue: [class classSide] ifFalse: [class]]!

1 0

The Trunk: Monticello-bf.604.mcz
by commits＠source.squeak.org 24 Nov '14

24 Nov '14

1 0

The Trunk: Monticello-bf.604.mcz
by commits＠source.squeak.org 24 Nov '14

24 Nov '14

1 0

The Trunk: KernelTests-eem.282.mcz
by commits＠source.squeak.org 22 Nov '14

22 Nov '14

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.282.mcz ==================== Summary ==================== Name: KernelTests-eem.282 Author: eem Time: 22 November 2014, 7:59:02.387 am UUID: ba4a5d95-b7b2-48b8-a482-bc6d3262016b Ancestors: KernelTests-dtl.281 Use isFloat instead of class == Float =============== Diff against KernelTests-dtl.281 =============== Item was changed: ----- Method: IntegerTest>>testBigReceiverInexactNthRoot (in category 'tests - mathematical functions') ----- testBigReceiverInexactNthRoot " IntegerTest new testBigReceiverInexactNthRoot " "Inexact 3rd root (not a whole cube number), so a Float must be answered. However, receiver is too big for Float arithmethic." | bigNum result | bigNum := (100 factorial raisedTo: 3) + 1. "Add 1 so it is not a whole cube" self assert: bigNum asFloat isInfinite. "Otherwise, we chose a bad sample" result := bigNum nthRoot: 3. + self assert: result isFloat. - self assert: result class == Float. self deny: result isInfinite. self assert: result = 100 factorial asFloat. "No other float is closer. See following line" self assert: 100 factorial asFloat = (100 factorial+1) asFloat! Item was changed: ----- Method: IntegerTest>>testBigReceiverInexactSqrt (in category 'tests - mathematical functions') ----- testBigReceiverInexactSqrt " IntegerTest new testBigReceiverInexactSqrt " "Inexact 3rd root (not a whole cube number), so a Float must be answered. However, receiver is too big for Float arithmethic." | bigNum result | bigNum := 100 factorial squared + 1. "Add 1 so it is not a whole square" self assert: bigNum asFloat isInfinite. "Otherwise, we chose a bad sample" result := bigNum sqrt. + self assert: result isFloat. - self assert: result class == Float. self deny: result isInfinite. self assert: result = 100 factorial asFloat. "No other float is closer. See following lines" self assert: (result successor asFraction squared - bigNum) abs >= (result asFraction squared - bigNum) abs. + self assert: (result predecessor asFraction squared - bigNum) abs >= (result asFraction squared - bigNum) abs! - self assert: (result predecessor asFraction squared - bigNum) abs >= (result asFraction squared - bigNum) abs.! Item was changed: ----- Method: ScaledDecimalTest>>testInexactNthRoot (in category 'tests') ----- testInexactNthRoot | tenth cubicRoot3 fifthRootTenth three | three := 3.0s1. cubicRoot3 := three raisedTo: 1/3. + self assert: cubicRoot3 isFloat. - self assert: cubicRoot3 class = Float. self deny: cubicRoot3 squared = 3. tenth := 0.10s2. fifthRootTenth := tenth raisedTo: 1/5. + self assert: fifthRootTenth isFloat. + self deny: fifthRootTenth squared = tenth! - self assert: fifthRootTenth class = Float. - self deny: fifthRootTenth squared = tenth.! Item was changed: ----- Method: ScaledDecimalTest>>testInexactSqrt (in category 'tests') ----- testInexactSqrt | tenth sqrt3 sqrtTenth three | three := 3.0s1. sqrt3 := three sqrt. + self assert: sqrt3 isFloat. - self assert: sqrt3 class = Float. self deny: sqrt3 squared = 3. tenth := 0.10s2. sqrtTenth := tenth sqrt. + self assert: sqrtTenth isFloat. + self deny: sqrtTenth squared = tenth! - self assert: sqrtTenth class = Float. - self deny: sqrtTenth squared = tenth.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2014