Packages November 2015

packages@lists.squeakfoundation.org

1 participants
228 discussions

The Trunk: KernelTests-ul.299.mcz
by commits＠source.squeak.org 02 Nov '15

02 Nov '15

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.299.mcz ==================== Summary ==================== Name: KernelTests-ul.299 Author: ul Time: 2 November 2015, 3:58:12.772 am UUID: 03be01bc-e815-42ed-be0b-dde3d1fc603a Ancestors: KernelTests-nice.298 - fixed typo =============== Diff against KernelTests-nice.298 =============== 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 maxVal printString = (Smalltalk wordSize = 8 ifTrue: [ '1152921504606846975'] ifFalse: ['-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]).!

1 0

The Trunk: KernelTests-ul.299.mcz
by commits＠source.squeak.org 02 Nov '15

02 Nov '15

1 0

The Trunk: Collections-ul.669.mcz
by commits＠source.squeak.org 02 Nov '15

02 Nov '15

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.669.mcz ==================== Summary ==================== Name: Collections-ul.669 Author: ul Time: 2 November 2015, 2:00:09.732 am UUID: 01e30af9-3dd4-4b5e-ab40-89ce43884565 Ancestors: Collections-ul.668 Changed Set >> #= and Dictionary >> #= to check the species of the receiver and the argument. PluggableDictionary and PluggableSet also check hashBlock and equalBlock. WeakSet and friends will work once we start using ephemerons. =============== Diff against Collections-ul.668 =============== Item was changed: ----- Method: Dictionary>>= (in category 'comparing') ----- = anObject "Two dictionaries are equal if (a) they are the same 'kind' of thing. (b) they have the same set of keys. (c) for each (common) key, they have the same value" self == anObject ifTrue: [ ^true ]. + self species == anObject species ifFalse: [ ^false ]. - anObject isDictionary ifFalse: [ ^false ]. self size = anObject size ifFalse: [ ^false ]. self associationsDo: [ :association | (anObject at: association key ifAbsent: [ ^false ]) = association value ifFalse: [ ^false ] ]. - "The two dictionaries may have different ideas about equal keys, so check both ways to avoid any inconsistency." - anObject associationsDo: [ :association | - (self at: association key ifAbsent: [ ^false ]) = association value - ifFalse: [ ^false ] ]. ^true! Item was added: + ----- Method: PluggableDictionary>>= (in category 'comparing') ----- + = anObject + "Two dictionaries are equal if + (a) they are the same 'kind' of thing. + (b) they have the same set of keys. + (c) for each (common) key, they have the same value" + + self == anObject ifTrue: [ ^true ]. + self species == anObject species ifFalse: [ ^false ]. + hashBlock = anObject hashBlock ifFalse: [ ^false ]. + equalBlock = anObject equalBlock ifFalse: [ ^false ]. + self size = anObject size ifFalse: [ ^false ]. + self associationsDo: [ :association | + (anObject at: association key ifAbsent: [ ^false ]) = association value + ifFalse: [ ^false ] ]. + ^true! Item was added: + ----- Method: PluggableSet>>= (in category 'as yet unclassified') ----- + = anObject + "Two sets are equal if + (a) they are the same 'kind' of thing. + (b) they have the same set of keys. + (c) for each (common) key, they have the same value" + + self == anObject ifTrue: [ ^true ]. + self species == anObject species ifFalse: [ ^false ]. + hashBlock = anObject hashBlock ifFalse: [ ^false ]. + equalBlock = anObject equalBlock ifFalse: [ ^false ]. + self size = anObject size ifFalse: [ ^false ]. + ^self allSatisfy: [ :each | anObject includes: each ]! Item was changed: ----- Method: Set>>= (in category 'comparing') ----- + = anObject + "Two sets are equal if + (a) they are the same 'kind' of thing. + (b) they have the same set of keys. + (c) for each (common) key, they have the same value" + + self == anObject ifTrue: [ ^true ]. + self species == anObject species ifFalse: [ ^false ]. + self size = anObject size ifFalse: [ ^false ]. + ^self allSatisfy: [ :each | anObject includes: each ]! - = aSet - self == aSet ifTrue: [^ true]. "stop recursion" - (aSet isKindOf: Set) ifFalse: [^ false]. - self size = aSet size ifFalse: [^ false]. - self do: [:each | (aSet includes: each) ifFalse: [^ false]]. - ^ true!

1 0

The Trunk: Collections-ul.669.mcz
by commits＠source.squeak.org 02 Nov '15

02 Nov '15

1 0

The Trunk: Network-ul.167.mcz
by commits＠source.squeak.org 02 Nov '15

02 Nov '15

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.167.mcz ==================== Summary ==================== Name: Network-ul.167 Author: ul Time: 2 November 2015, 2:02:21.822 am UUID: cc1e8b01-d960-40ff-b466-54e7bcb73cb7 Ancestors: Network-topa.166 Now that #primMakeUUID is not being used anymore, we can change its behaviour to return nil when the plugin is not available. Added accessors for UUID variant and version. =============== Diff against Network-topa.166 =============== Item was changed: ----- Method: UUID>>primMakeUUID (in category 'system primitives') ----- primMakeUUID + <primitive: 'primitiveMakeUUID' module: 'UUIDPlugin'> + ^nil! - self makeUUID! Item was added: + ----- Method: UUID>>variant (in category 'accessing') ----- + variant + + ^(self at: 9) bitShift: -6! Item was added: + ----- Method: UUID>>version (in category 'accessing') ----- + version + + ^(self at: 7) bitShift: -4!

1 0

The Trunk: Network-ul.167.mcz
by commits＠source.squeak.org 02 Nov '15

02 Nov '15

1 0

The Trunk: Morphic-kfr.1023.mcz
by commits＠source.squeak.org 01 Nov '15

01 Nov '15

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1023.mcz ==================== Summary ==================== Name: Morphic-kfr.1023 Author: kfr Time: 1 November 2015, 9:20:03.104 pm UUID: 3f59454c-b3fb-44ac-a78a-29c653670044 Ancestors: Morphic-kfr.1022 Adding a code pane for reading/editing of the color ramp =============== Diff against Morphic-kfr.1022 =============== Item was changed: ----- Method: GradientEditor>>addHandles (in category 'change reporting') ----- addHandles | handle colorRamp | rampMorphs := OrderedCollection new. + colorRamp := gradientDisplay colorRamp asOrderedCollection. - colorRamp := self gradientDisplay colorRamp asOrderedCollection. handle := self handle. colorRamp do: [:i | self addHandleForColor: i value position: i key ]. self changed.! Item was changed: ----- Method: GradientEditor>>colorRamp (in category 'accessing') ----- colorRamp + ^gradientDisplay fillStyle colorRamp asArray printString. + ! - | i string | - string := gradientDisplay fillStyle colorRamp asOrderedCollection printString. - i := string indexOf:$(. - ^string copyFrom: i to: string size! Item was changed: ----- Method: GradientEditor>>colorRamp: (in category 'accessing') ----- colorRamp: aColorRamp - - "rampMorphs do:[ :i | rampMorphs remove:i. row removeMorph: i . ]. - self changed." gradientDisplay colorRamp: aColorRamp. + self changed: #colorRamp. + self changed + - self addHandles. ! Item was added: + ----- Method: GradientEditor>>colorRampExpression: (in category 'accessing') ----- + colorRampExpression: aString + "Set my color by evaluating aString, a Smalltalk expression which results in a Color instance." + | col | + + {aString.} + detect: + [ : each | ([ col := Compiler evaluate: each ] + on: Error + do: + [ : err | nil ]) notNil ] + ifNone: [ nil ]. + col ifNotNil: [ self colorRamp: col. + rampMorphs do:[ :each| each delete]. + self addHandles; updateColorRamp. ]! Item was added: + ----- Method: GradientEditor>>colorRampExpressionMorph (in category 'initialization') ----- + colorRampExpressionMorph + | inputField builder | + builder := ToolBuilder default. + inputField := (builder build: (builder pluggableInputFieldSpec new + model: self; + getText: #colorRamp; + setText: #colorRampExpression:; + softLineWrap: true)). + inputField + hResizing: #spaceFill ; + vResizing: #spaceFill ; + + height: (Preferences standardDefaultTextFont height * 3/2). + ^ inputField! Item was changed: ----- Method: GradientEditor>>eventHandler:target: (in category 'event handling') ----- + eventHandler: anInstance target: aTarget + (anInstance isKindOf: SketchMorph) + ifTrue: [anInstance + on: #mouseUp - eventHandler: anInstance target: aTarget - (anInstance isKindOf: SketchMorph) - ifTrue:[anInstance on: #mouseUp send: #changeColor:event:target: + to: self + withValue: aTarget] + ifFalse: [anInstance + on: #mouseDown - to: self withValue: aTarget] - ifFalse:[anInstance on: #mouseDown send: #limitHandleMove:event:from: + to: self + withValue: aTarget. + anInstance + on: #mouseMove - to: self withValue: aTarget. - anInstance on: #mouseMove send: #limitHandleMove:event:from: + to: self + withValue: aTarget]! - to: self withValue: aTarget]! Item was removed: - ----- Method: GradientEditor>>gradientDisplay (in category 'accessing') ----- - gradientDisplay - ^gradientDisplay! Item was changed: ----- Method: GradientEditor>>handle (in category 'initialization') ----- handle + | handle | + handle := PolygonMorph - | handle | - handle := PolygonMorph vertices: (Array with: 0 @ 0 with: 16 @ 0 with: 8 @ 16) + color: Color white darker - color: (Color white darker) borderWidth: 1 borderColor: Color black. + ^ handle - ^handle addMorph: ((RectangleMorph newBounds: (8 @ 18 extent: 1 @ (gradientDisplay height - 2)) color: Color orange) + borderWidth: 0)! - borderWidth: 0).! Item was changed: ----- Method: GradientEditor>>initialize (in category 'initialization') ----- initialize - super initialize. self myLayout. + self extent: 500 @ 200. + row := RectangleMorph new extent: self width @ 100; + color: Color transparent; + borderColor: #inset. - 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. + self addMorph: self colorRampExpressionMorph! - "text := PluggableTextMorph - on: self - text: #colorRamp - accept: nil - readSelection: nil - menu: nil. - text color: Color white; - width: self width; - height: 50. - self addMorph: text." - ! Item was changed: ----- Method: GradientEditor>>setTarget:selector:forMorph:colorRamp: (in category 'initialization') ----- setTarget: aTarget selector: aSelector forMorph:aMorph colorRamp: aColorRamp + self target: aTarget; selector: aSelector; morph: aMorph; colorRamp: aColorRamp; addHandles - self target: aTarget. - self selector: aSelector. - self morph: aMorph. - self colorRamp: aColorRamp. ! 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]. + self changed: #colorRamp! - "text setText: self colorRamp"!

1 0

The Trunk: Morphic-kfr.1023.mcz
by commits＠source.squeak.org 01 Nov '15

01 Nov '15

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2015