Packages July 2010

packages@lists.squeakfoundation.org

1 participants
240 discussions

The Trunk: Monticello-ar.397.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ar.397.mcz ==================== Summary ==================== Name: Monticello-ar.397 Author: ar Time: 21 July 2010, 8:12:14.706 pm UUID: 4b8f347f-bae6-d44b-96e2-f03278aa6bd2 Ancestors: Monticello-eem.396 More robust handling of HTTP upload responses. WebDAV for example returns a 204 (no content) after an upload. Enumerating all possible responses of the server really isn't going to cut it, so parse the response instead. =============== Diff against Monticello-eem.396 =============== Item was changed: ----- Method: MCHttpRepository>>writeStreamForFileNamed:replace:do: (in category 'required') ----- writeStreamForFileNamed: aString replace: ignoreBoolean do: aBlock + | stream response statusLine code | - | stream response | stream := RWBinaryOrTextStream on: String new. aBlock value: stream. self displayProgress: 'Uploading ', aString during:[ response := HTTPSocket httpPut: stream contents to: (self urlForFileNamed: aString) user: self user passwd: self password. ]. + "More robust handling of HTTP responses. Instead of enumerating + all possible return codes and http versions, do a quick parse" + (response beginsWith: 'HTTP/') ifTrue:[ + "Looks like an HTTP header, not some error message" + statusLine := response copyUpTo: Character cr. + code := [(statusLine findTokens: ' ') second asInteger] on: Error do:[]. + ]. + (code isInteger and:[code between: 200 and: 299]) + ifFalse:[self error: response].! - (#( 'HTTP/1.1 201 ' 'HTTP/1.1 200 ' 'HTTP/1.0 201 ' 'HTTP/1.0 200 ') - anySatisfy: [:code | response beginsWith: code ]) - ifFalse: [self error: response].!

1 0

The Trunk: Monticello-ar.397.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: Monticello-ar.397.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: EToys-ar.71.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ar.71.mcz ==================== Summary ==================== Name: EToys-ar.71 Author: ar Time: 21 July 2010, 8:08:54.743 pm UUID: 6bb71442-7d3e-014e-83c7-bf234e1b550f Ancestors: EToys-nice.70 Shuffle various methods to avoid unnecessary dependencies between packages. =============== Diff against EToys-nice.70 =============== Item was changed: ----- Method: Point>>basicType (in category '*Etoys-tiles') ----- basicType "Answer a symbol representing the inherent type of the receiver" ^ #Point! Item was added: + ----- Method: TileMorphTest>>testNewTileMorphRepresentative (in category 'testing') ----- + testNewTileMorphRepresentative + + self assert: (nil newTileMorphRepresentative class = UndescribedTile). + self assert: (false newTileMorphRepresentative isKindOf: TileMorph). + self assert: (false newTileMorphRepresentative literal = false). + self assert: (true newTileMorphRepresentative literal = true).! Item was added: + ----- Method: TileMorphTest>>testArrowAction (in category 'testing') ----- + testArrowAction + "self debug: #testArrowAction" + | dummy tile | + dummy := Morph new. + tile := TileMorph new setOperator: '+'. + dummy addMorph: tile. + tile arrowAction: 1. + self assert: tile codeString = '-'. + + tile := TileMorph new setOperator: '<'. + dummy addMorph: tile. + tile arrowAction: 1. + "Because receiver is not tile" + self assert: tile codeString = '='. + + tile := true newTileMorphRepresentative. + dummy addMorph: tile. + tile arrowAction: 1. + self assert: tile codeString = '(false)'. + ! Item was added: + ----- Method: Player>>getConePosition (in category 'sound') ----- + getConePosition + "Note: Performance hacked to allow real-time sound. Assumes costume is a SpeakerMorph." + + ^ costume renderedMorph conePosition! Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Widgets'! + SystemOrganization addCategory: #'Etoys-Tests'! Item was added: + ----- Method: TileMorphTest>>testSoundTile (in category 'testing') ----- + testSoundTile + "self debug: #testSoundTile" + | tile dummy | + dummy := Morph new. + tile := SoundTile new literal: 'croak'. + dummy addMorph: tile. + tile arrowAction: 1. + self assert: tile codeString = '(''horn'')'. + + ! Item was added: + TestCase subclass: #TileMorphTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Tests'! Item was added: + ----- Method: TileMorphTest>>testAssignmentTile (in category 'testing') ----- + testAssignmentTile + "self debug: #testAssignmentTile" + + | player viewer tile phrase | + player := Morph new assuredPlayer. + viewer := CategoryViewer new invisiblySetPlayer: player. + viewer makeSetter: #(#getX #Number) event: nil from: player costume. + phrase := ActiveHand firstSubmorph. + ActiveHand removeAllMorphs. + tile := phrase submorphs second. + + self assert: tile codeString = 'setX: '. + tile arrowAction: 1. + self assert: tile codeString = 'setX: self getX + '. + + ! Item was added: + ----- Method: Player>>setConePosition: (in category 'sound') ----- + setConePosition: aNumber + "Note: Performance hacked to allow real-time sound. Assumes costume is a SpeakerMorph." + + costume renderedMorph conePosition: aNumber.! Item was added: + TestCase subclass: #BasicTypeTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Tests'! Item was added: + ----- Method: BasicTypeTest>>testBasicType (in category 'tests') ----- + testBasicType + + self assert: (true basicType = #Boolean). + self assert: (false basicType = #Boolean).! Item was removed: - ----- Method: Morph class>>partName:categories:documentation:sampleImageForm: (in category '*eToys-new-morph participation') ----- - partName: aName categories: aList documentation: aDoc sampleImageForm: aForm - "Answer a DescriptionForPartsBin which will represent a launch of a new instance of my class via the #newStandAlone protocol sent to my class. Use the category-list and documentation provided. This variant allows an overriding image form to be provided, useful in cases where we don't want to launch a sample instance just to get the form" - - - | descr | - descr := DescriptionForPartsBin new - formalName: aName - categoryList: aList - documentation: aDoc - globalReceiverSymbol: self name - nativitySelector: #newStandAlone. - descr sampleImageForm: aForm. - ^ descr - !

1 0

The Trunk: EToys-ar.71.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: EToys-ar.71.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: Sound-ar.19.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-ar.19.mcz ==================== Summary ==================== Name: Sound-ar.19 Author: ar Time: 21 July 2010, 8:06:58.226 pm UUID: 05b234d4-aae6-e249-a8c5-3e489058e485 Ancestors: Sound-wiz.18 Avoid an unnecessary dependency of the Sound package from Etoys. =============== Diff against Sound-wiz.18 =============== Item was removed: - ----- Method: Player>>getConePosition (in category '*sound') ----- - getConePosition - "Note: Performance hacked to allow real-time sound. Assumes costume is a SpeakerMorph." - - ^ costume renderedMorph conePosition - ! Item was removed: - ----- Method: Player>>setConePosition: (in category '*sound') ----- - setConePosition: aNumber - "Note: Performance hacked to allow real-time sound. Assumes costume is a SpeakerMorph." - - costume renderedMorph conePosition: aNumber. - !

1 0

The Trunk: Sound-ar.19.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: Sound-ar.19.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

1 0

The Trunk: MorphicTests-ar.17.mcz
by commits＠source.squeak.org 22 Jul '10

22 Jul '10

Andreas Raab uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-ar.17.mcz ==================== Summary ==================== Name: MorphicTests-ar.17 Author: ar Time: 21 July 2010, 8:05:51.638 pm UUID: 3f457ad0-c6a0-5d47-b8dc-089bc03effd0 Ancestors: MorphicTests-cmm.16 Move tests with Etoys depencies to Etoys. =============== Diff against MorphicTests-cmm.16 =============== Item was removed: - ----- Method: MorphTest>>testOverlapAnyDeletedPlayer (in category 'testing - etoys') ----- - testOverlapAnyDeletedPlayer - "self debug: #testOverlapAnyDeletedPlayer" - | me friend sibling | - me := Morph new assuredPlayer assureUniClass; yourself. - friend := EllipseMorph new assuredPlayer assureUniClass; yourself. - sibling := friend getNewClone. - sibling costume delete. - self getWorld addMorph: me costume. - "Same position but deleted" - me costume position: 0 @ 0. - friend costume position: 0 @ 0. - sibling costume position: 0 @ 0. - self assert: (me overlapsAny: friend) not. - self assert: (me overlapsAny: sibling) not! Item was removed: - TestCase subclass: #TileMorphTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'MorphicTests-Basic'! Item was removed: - ----- Method: MorphTest>>testOverlapAny (in category 'testing - etoys') ----- - testOverlapAny - "self debug: #testOverlapAny" - | p1 p2 | - p1 := Morph new assuredPlayer. - p2 := EllipseMorph new assuredPlayer. - "Same position" - p1 costume position: 0@0. - p2 costume position: 0@0. - self assert: (p1 overlapsAny: p2). - "Different position" - p1 costume position: 0@0. - p2 costume position: 500@0. - self assert: (p1 overlapsAny: p2) not.! Item was removed: - ----- Method: MorphTest>>testOverlapAnyUnscriptedPlayer (in category 'testing - etoys') ----- - testOverlapAnyUnscriptedPlayer - "self debug: #testOverlapAnyUnscriptedPlayer" - | p1 p2 p3 | - p1 := Morph new assuredPlayer. - p2 := EllipseMorph new assuredPlayer. - p3 := EllipseMorph new assuredPlayer. - self getWorld addMorph: p1 costume; - addMorph: p2 costume; - addMorph: p3 costume. - "Same class, same position" - p1 costume position: 0 @ 0. - p2 costume position: 500 @ 0. - p3 costume position: 0 @ 0. - self - assert: (p1 overlapsAny: p2). - "Same class, different position" - p1 costume position: 0 @ 0. - p2 costume position: 1000 @ 0. - p3 costume position: 500 @ 0. - self assert: (p1 overlapsAny: p2) not. - ! Item was removed: - ----- Method: TileMorphTest>>testSoundTile (in category 'testing') ----- - testSoundTile - "self debug: #testSoundTile" - | tile dummy | - dummy := Morph new. - tile := SoundTile new literal: 'croak'. - dummy addMorph: tile. - tile arrowAction: 1. - self assert: tile codeString = '(''horn'')'. - - ! Item was removed: - ----- Method: TileMorphTest>>testArrowAction (in category 'testing') ----- - testArrowAction - "self debug: #testArrowAction" - | dummy tile | - dummy := Morph new. - tile := TileMorph new setOperator: '+'. - dummy addMorph: tile. - tile arrowAction: 1. - self assert: tile codeString = '-'. - - tile := TileMorph new setOperator: '<'. - dummy addMorph: tile. - tile arrowAction: 1. - "Because receiver is not tile" - self assert: tile codeString = '='. - - tile := true newTileMorphRepresentative. - dummy addMorph: tile. - tile arrowAction: 1. - self assert: tile codeString = '(false)'. - ! Item was removed: - ----- Method: MorphTest>>testOverlapAnyScriptedPlayer (in category 'testing - etoys') ----- - testOverlapAnyScriptedPlayer - "self debug: #testOverlapAnyScriptedPlayer" - | me friend other sibling | - me := Morph new assuredPlayer assureUniClass; yourself. - friend := EllipseMorph new assuredPlayer assureUniClass; yourself. - sibling := friend getNewClone. - other := EllipseMorph new assuredPlayer assureUniClass; yourself. - self getWorld addMorph: me costume; - addMorph: friend costume; - addMorph: other costume; - addMorph: sibling costume. - "myself" - self assert: (me overlapsAny: me) not. - "Same position with sibling" - me costume position: 0 @ 0. - friend costume position: 500 @ 0. - other costume position: 500 @ 0. - sibling costume position: 0@0. - self assert: (me overlapsAny: friend). - "Different position with sibling but same class" - me costume position: 0 @ 0. - friend costume position: 500 @ 0. - sibling costume position: 500@ 0. - other costume position: 0 @ 0. - self assert: (me overlapsAny: friend) not! Item was removed: - ----- Method: TileMorphTest>>testAssignmentTile (in category 'testing') ----- - testAssignmentTile - "self debug: #testAssignmentTile" - - | player viewer tile phrase | - player := Morph new assuredPlayer. - viewer := CategoryViewer new invisiblySetPlayer: player. - viewer makeSetter: #(#getX #Number) event: nil from: player costume. - phrase := ActiveHand firstSubmorph. - ActiveHand removeAllMorphs. - tile := phrase submorphs second. - - self assert: tile codeString = 'setX: '. - tile arrowAction: 1. - self assert: tile codeString = 'setX: self getX + '. - - !

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
24
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2010