The Trunk: EToys-ar.71.mcz

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
- !