Squeak-dev August 2016

squeak-dev@lists.squeakfoundation.org

38 participants
609 discussions

The Trunk: EToys-jl.222.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-jl.222.mcz ==================== Summary ==================== Name: EToys-jl.222 Author: jl Time: 31 August 2016, 1:32:30.460376 pm UUID: e71a0d5f-8d2c-0f42-a000-d248ad8b871d Ancestors: EToys-tfel.221 tfel fixed reduceOnStack =============== Diff against EToys-tfel.221 =============== Item was changed: ----- Method: EToyExpressionTransformer2>>reduceOnStack (in category 'all') ----- reduceOnStack | list left sel right m | list := stack removeLast: 3. left := list at: 1. sel := list at: 2. + self flag: #tfel. + sel isSymbol ifFalse: [sel := sel key]. right := list at: 3. m := MessageNode new receiver: left + selector: sel - selector: sel key arguments: (Array with: right) precedence: (sel precedence) from: encoder sourceRange: nil. stack addLast: m. !

1 0

The Inbox: EToys-jl.223.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-jl.223.mcz ==================== Summary ==================== Name: EToys-jl.223 Author: jl Time: 31 August 2016, 2:30:13.751376 pm UUID: 05f8b1d1-a505-a248-9a2a-e51f7e0c1689 Ancestors: EToys-jl.222 Implement timesRepeat: tiles for Kedama =============== Diff against EToys-jl.222 =============== Item was changed: ----- Method: KedamaVectorParseTreeRewriter>>visit:andParent: (in category 'entry point') ----- visit: node andParent: parent + | newNode possibleSelector selIndex parentRewriterBlock newNodeBlock | - | newNode possibleSelector selIndex | node isLeaf not ifTrue: [ node getAllChildren do: [:child | self visit: child andParent: node. ]. ]. (node rewriteInfoOut notNil) ifTrue: [ ((node isMemberOf: VariableNode) or: [node isMemberOf: LiteralVariableNode]) ifTrue: [ newNode := TempVariableNode new name: node rewriteInfoOut second index: 0 type: 2. parent replaceNode: node with: newNode. ]. - ]. (node isMemberOf: MessageNode) ifTrue: [ (node statementType = #sequential) ifTrue: [ node selector key = #doSequentialCommand: ifTrue: [ (node isStatement) ifTrue: [ node receiver: node primaryBreedPair second. ]. ] ]. ]. + (node isMemberOf: MessageNode) ifTrue: [ + newNodeBlock := [:selector :args | + self + createMessageNode: node + inParentNode: parent + receiverNode: (TempVariableNode new name: node rewriteInfoOut second index: 0 type: 2) + selector: selector + arguments: args]. + - (node isMemberOf: MessageNode) ifTrue: [ ((selIndex := #(parallel sequential die) indexOf: node statementType) > 0) ifTrue: [ possibleSelector := #(doCommand: doSequentialCommand: doDieCommand:) at: selIndex. + + parentRewriterBlock := [:newNod | + self + rewriteMessageNode: node + inParentNode: parent + receiverNode: node rewriteInfoIn second + selector: possibleSelector + arguments: {self + makeBlockNodeArguments: {node rewriteInfoOut second} + statements: {newNod} returns: false}]. + (node messageType = #condition) ifTrue: [ + newNode := newNodeBlock + value: #test:ifTrue:ifFalse: + value: {node receiver. node arguments first. node arguments second}. - newNode := self createMessageNode: node inParentNode: parent receiverNode: (TempVariableNode new name: node rewriteInfoOut second index: 0 type: 2) selector: #test:ifTrue:ifFalse: arguments: (Array with: node receiver with: node arguments first with: node arguments second). (node isStatement) ifFalse: [ parent replaceNode: node with: newNode. ] ifTrue: [ + parentRewriterBlock value: newNode. - self rewriteMessageNode: node inParentNode: parent receiverNode: node rewriteInfoIn second selector: possibleSelector arguments: (Array with: (self makeBlockNodeArguments: (Array with: node rewriteInfoOut second) statements: (Array with: newNode) returns: false)). ]. ] ifFalse: [ + node selector key = #timesRepeat: + ifTrue: [ + newNode := newNodeBlock + value: #times:repeat: + value: {node receiver. node arguments first}. + (node isStatement) ifFalse: [ + parent replaceNode: node with: newNode. + ] ifTrue: [ + parentRewriterBlock value: newNode. + ]. + ] + ifFalse: [(node isStatement) ifTrue: [ + parentRewriterBlock value: node + ]. - (node isStatement) ifTrue: [ - self rewriteMessageNode: node inParentNode: parent receiverNode: node rewriteInfoIn second selector: possibleSelector arguments: (Array with: (self makeBlockNodeArguments: (Array with: node rewriteInfoOut second) statements: (Array with: node) returns: false)). ]. ] ]. ]. (node isMemberOf: BlockNode) ifTrue: [ (node rewriteInfoOut notNil) ifTrue: [ self rewriteBlockNode: node inParentNode: parent arguments: (Array with: (TempVariableNode new name: node rewriteInfoOut second index: 0 type: 2)) statements: node statements returns: false. ]. ]. ! Item was added: + ----- Method: Object>>times:repeat: (in category '*Etoys-Squeakland-Tweak-Kedama') ----- + times: aNumber repeat: aBlock + + aNumber timesRepeat: [aBlock value: self] + !

1 0

The Inbox: EToys-jl.222.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-jl.222.mcz ==================== Summary ==================== Name: EToys-jl.222 Author: jl Time: 31 August 2016, 1:32:30.460376 pm UUID: e71a0d5f-8d2c-0f42-a000-d248ad8b871d Ancestors: EToys-tfel.221 tfel fixed reduceOnStack =============== Diff against EToys-tfel.221 =============== Item was changed: ----- Method: EToyExpressionTransformer2>>reduceOnStack (in category 'all') ----- reduceOnStack | list left sel right m | list := stack removeLast: 3. left := list at: 1. sel := list at: 2. + self flag: #tfel. + sel isSymbol ifFalse: [sel := sel key]. right := list at: 3. m := MessageNode new receiver: left + selector: sel - selector: sel key arguments: (Array with: right) precedence: (sel precedence) from: encoder sourceRange: nil. stack addLast: m. !

1 0

The Trunk: Morphic-tfel.1305.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Tim Felgentreff uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tfel.1305.mcz ==================== Summary ==================== Name: Morphic-tfel.1305 Author: tfel Time: 31 August 2016, 11:11:43.198793 am UUID: 556342b2-8907-b240-ba46-ac3638687c87 Ancestors: Morphic-tfel.1304 remove ugly owner hacks when we draw a new sketch and add its flex shell =============== Diff against Morphic-tfel.1304 =============== Item was changed: ----- Method: Morph>>addFlexShell (in category 'rotate scale and flex') ----- addFlexShell "Wrap a rotating and scaling shell around this morph." + | oldHalo myWorld flexMorph anIndex | - | oldHalo flexMorph myWorld anIndex morphOwner | - myWorld := self world. oldHalo:= self halo. + myWorld := self world. + self owner + ifNil: [flexMorph := self newTransformationMorph asFlexOf: self] + ifNotNil: [:myOwner | + anIndex := myOwner submorphIndexOf: self. + flexMorph := self newTransformationMorph asFlexOf: self. + myOwner addMorph: flexMorph asElementNumber: anIndex. + myWorld ifNotNil: [myWorld startSteppingSubmorphsOf: flexMorph]]. - self owner ifNotNil:[ morphOwner := self owner] - ifNil:[morphOwner := self currentWorld]. - - anIndex := morphOwner submorphIndexOf: self. - morphOwner addMorph: (flexMorph := self newTransformationMorph asFlexOf: self) - asElementNumber: anIndex. self transferStateToRenderer: flexMorph. oldHalo ifNotNil: [oldHalo setTarget: flexMorph]. - myWorld ifNotNil: [myWorld startSteppingSubmorphsOf: flexMorph]. ^ flexMorph! Item was changed: ----- Method: PasteUpMorph>>makeNewDrawing:at: (in category 'world menu') ----- makeNewDrawing: evt at: aPoint "make a new drawing, triggered by the given event, with the painting area centered around the given point" | w newSketch newPlayer sketchEditor aPalette rect aPaintBox aPaintTab aWorld | w := self world. w assureNotPaintingElse: [^ self]. rect := self paintingBoundsAround: aPoint. aPalette := self standardPalette. aPalette ifNotNil: [aPalette showNoPalette; layoutChanged]. w prepareToPaint. newSketch := self drawingClass new. Smalltalk at: #UnscriptedPlayer ifPresent:[:aClass| newSketch player: (newPlayer := aClass newUserInstance). newPlayer costume: newSketch. ]. newSketch nominalForm: (Form extent: rect extent depth: w assuredCanvas depth). newSketch bounds: rect. sketchEditor := SketchEditorMorph new. w addMorphFront: sketchEditor. sketchEditor initializeFor: newSketch inBounds: rect pasteUpMorph: self. sketchEditor + afterNewPicDo: [:aForm :aRect | | tfx whereToPresent | - afterNewPicDo: [:aForm :aRect | | tfx ownerBeforeHack whereToPresent | whereToPresent := self presenter. newSketch form: aForm. tfx := self transformFrom: w. newSketch position: (tfx globalPointToLocal: aRect origin). newSketch rotationStyle: sketchEditor rotationStyle. newSketch forwardDirection: sketchEditor forwardDirection. - ownerBeforeHack := newSketch owner. "about to break the invariant!!!!" - newSketch privateOwner: self. "temp for halo access" newPlayer ifNotNil:[newPlayer setHeading: sketchEditor forwardDirection]. (aPaintTab := (aWorld := self world) paintingFlapTab) ifNotNil:[aPaintTab hideFlap] ifNil:[(aPaintBox := aWorld paintBox) ifNotNil:[aPaintBox delete]]. - "Includes newSketch rotationDegrees: sketchEditor forwardDirection." - newSketch privateOwner: ownerBeforeHack. "probably nil, but let's be certain" - self addMorphFront: (newPlayer ifNil:[newSketch] ifNotNil:[newPlayer costume]). w startSteppingSubmorphsOf: newSketch. whereToPresent drawingJustCompleted: newSketch] ifNoBits:[ (aPaintTab := (aWorld := self world) paintingFlapTab) ifNotNil:[aPaintTab hideFlap] ifNil:[(aPaintBox := aWorld paintBox) ifNotNil:[aPaintBox delete]]. aPalette ifNotNil: [aPalette showNoPalette].]!

1 0

The Trunk: Nebraska-tfel.47.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Tim Felgentreff uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-tfel.47.mcz ==================== Summary ==================== Name: Nebraska-tfel.47 Author: tfel Time: 31 August 2016, 11:50:24.726793 am UUID: a1098db7-626c-db4e-91a1-8966f1e3b9bb Ancestors: Nebraska-tfel.46 workaround. at least the PartsBin should work =============== Diff against Nebraska-tfel.46 =============== Item was changed: ----- Method: NebraskaFridgeMorph>>groupToggleButton (in category 'as yet unclassified') ----- groupToggleButton + self flag: #todo. - ^(self inAColumn: { (ThreePhaseButtonMorph checkBox) target: self; actionSelector: #toggleChoice:; arguments: {'group'}; + "getSelector: #getChoice:;" - getSelector: #getChoice:; setBalloonText: 'Changes between group mode and individuals' translated; step }) hResizing: #shrinkWrap !

1 0

The Trunk: MorphicExtras-tfel.195.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Tim Felgentreff uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tfel.195.mcz ==================== Summary ==================== Name: MorphicExtras-tfel.195 Author: tfel Time: 31 August 2016, 11:49:55.843793 am UUID: f9f29860-1341-e745-b3d4-9446283a1c8c Ancestors: MorphicExtras-tfel.194 Show the FrameRateMorph in the supplies tab =============== Diff against MorphicExtras-tfel.194 =============== Item was changed: ----- Method: FrameRateMorph class>>registerInFlapsRegistry (in category 'class initialization') ----- registerInFlapsRegistry "Register the receiver in the system's flaps registry" self environment at: #Flaps + ifPresent: [:cl | + cl registerQuad: { + #FrameRateMorph. #authoringPrototype. 'Frame Rate' translatedNoop. + 'An indicator of how fast your system is running' translatedNoop} + forFlapNamed: 'Widgets'. + cl registerQuad: { + #FrameRateMorph. #authoringPrototype. 'Frame Rate' translatedNoop. + 'An indicator of how fast your system is running' translatedNoop} + forFlapNamed: 'Supplies']! - ifPresent: [:cl | cl registerQuad: {#FrameRateMorph. #authoringPrototype. 'Frame Rate' translatedNoop. 'An indicator of how fast your system is running' translatedNoop} - forFlapNamed: 'Widgets']!

1 0

The Trunk: Morphic-tfel.1305.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

1 0

The Trunk: EToys-tfel.220.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.220.mcz ==================== Summary ==================== Name: EToys-tfel.220 Author: tfel Time: 31 August 2016, 11:49:20.463793 am UUID: a52ba16f-ef4a-cd49-bd51-c28b7e8b2dcf Ancestors: EToys-tfel.219 - make it easy to set the Kedama dimensions from etoys - register kedama particles in supplies =============== Diff against EToys-tfel.219 =============== Item was changed: ----- Method: KedamaMorph class>>additionsToViewerCategories (in category 'class initialization') ----- additionsToViewerCategories "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." ^ #( (kedama ( (command addToPatchDisplayList: 'add patch to display list' Patch) (command removeAllFromPatchDisplayList 'clear the patch display list') (slot patchDisplayList 'patches to display' String readOnly Player getPatchesList unused unused) (command addToTurtleDisplayList: 'add turtle to display list' Player) (command removeAllFromTurtleDisplayList 'clear the turtle display list') (slot turtleDisplayList 'turtles to display' String readOnly Player getTurtlesList unused unused) (slot pixelsPerPatch 'the display scale' Number readWrite Player getPixelsPerPatch Player setPixelsPerPatch:) + (slot dimensions 'the turtles in x and y direction' Point readWrite Player getDimensions Player setDimensions:) (slot color 'The color of the object' Color readWrite Player getColor Player setColor:) "(command makeTurtlesMap 'Internally create the map of turtles')" (slot leftEdgeMode 'the mode of left edge' EdgeMode readWrite Player getLeftEdgeMode Player setLeftEdgeMode:) (slot rightEdgeMode 'the mode of right edge' EdgeMode readWrite Player getRightEdgeMode Player setRightEdgeMode:) (slot topEdgeMode 'the mode of top edge' EdgeMode readWrite Player getTopEdgeMode Player setTopEdgeMode:) (slot bottomEdgeMode 'the mode of bottom edge' EdgeMode readWrite Player getBottomEdgeMode Player setBottomEdgeMode:) )) ). ! Item was added: + ----- Method: KedamaMorph class>>registerInFlapsRegistry (in category 'as yet unclassified') ----- + registerInFlapsRegistry + "Register the receiver in the system's flaps registry" + self environment + at: #Flaps + ifPresent: [:cl | + cl registerQuad: { + #KedamaMorph. #newSet. 'Particles' translatedNoop. + 'A Kedama World with pre-made components' translatedNoop} + forFlapNamed: 'Supplies']! Item was changed: ----- Method: KedamaMorph>>acceptForm: (in category 'event handling') ----- acceptForm: aForm | c xArray yArray colorArray newX newY turtlesByColor colorArrays thisPlayer xArrays yArrays | turtlesDict keysAndValuesDo: [:player :vector | player setTurtleCount: 0]. turtlesByColor := Dictionary new. turtlesDict keysAndValuesDo: [:player :vector | turtlesByColor at: player color put: player]. xArrays := Dictionary new. yArrays := Dictionary new. colorArrays := Dictionary new. 0 to: aForm height do: [:y | 0 to: aForm width do: [:x | c := aForm colorAt: (x@y). c isTransparent ifFalse: [ + newX := x + aForm offset x. + newY := y + aForm offset y. - newX := x. - newY := y. ((newX >= 0 and: [newX < (self dimensions * pixelsPerPatch) x]) and: [newY >= 0 and: [newY < (self dimensions * pixelsPerPatch) y]]) ifTrue: [ thisPlayer := turtlesByColor at: c ifAbsentPut: [ turtlesByColor keys detect: [:thisColor | (thisColor diff: c) < 0.2] ifFound: [:thisColor | turtlesByColor at: thisColor] ifNone: [ (self player newTurtleSilently color: c; player)]]. xArray := xArrays at: thisPlayer ifAbsentPut: [OrderedCollection new: aForm width * aForm height]. yArray := yArrays at: thisPlayer ifAbsentPut: [OrderedCollection new: aForm width * aForm height]. colorArray := colorArrays at: thisPlayer ifAbsentPut: [OrderedCollection new: aForm width * aForm height]. xArray add: newX asFloat / pixelsPerPatch. yArray add: newY asFloat / pixelsPerPatch. colorArray add: (c pixelValueForDepth: 32). ]. ]. ]. ]. xArrays keysAndValuesDo: [:player :xArry | self makeTurtlesAtPositionsIn: {xArry asArray. (yArrays at: player) asArray. (colorArrays at: player) asArray} examplerPlayer: player ofPrototype: nil. player costume privateTurtleCount: (self turtlesCountOf: player)].! Item was added: + ----- Method: KedamaMorph>>dimensions: (in category 'accessing') ----- + dimensions: aPoint + + dimensions := aPoint. + wrapX := dimensions x asFloat. + wrapY := dimensions y asFloat. + patchVarDisplayForm := Form extent: dimensions depth: 32. + self pixelsPerPatch: self pixelsPerPatch.! Item was changed: ----- Method: KedamaMorph>>editDrawing (in category 'menu') ----- editDrawing | bnds sketchEditor delBlock myForm mySketch | self world assureNotPaintingElse: [^self]. self world prepareToPaint; displayWorld. bnds := self boundsInWorld. sketchEditor := SketchEditorMorph new. self comeToFront. myForm := self imageForm clippedToSize: (bnds extent - 2). myForm mapColor: self color to: Color transparent. mySketch := SketchMorph withForm: myForm. mySketch position: self position. self world addMorphFront: sketchEditor. sketchEditor initializeFor: mySketch inBounds: bnds pasteUpMorph: self world. delBlock := [self world paintingFlapTab ifNotNil: [:pt | pt hideFlap] ifNil: [self world paintBox ifNotNil: [:pb | pb delete]]]. sketchEditor afterNewPicDo: [:aForm :aRect | + aForm offset: aRect topLeft - self topLeft. self acceptForm: aForm. delBlock value] ifNoBits: [delBlock value]! Item was changed: ----- Method: KedamaMorph>>initialize (in category 'initialization') ----- initialize super initialize. drawRequested := true. changePending := false. + pixelsPerPatch := (World width min: World height) // (self class defaultDimensions x * 2). "heuristic..." + self dimensions: self class defaultDimensions. "dimensions of this StarSqueak world in patches" - dimensions := self class defaultDimensions. "dimensions of this StarSqueak world in patches" - wrapX := dimensions x asFloat. - wrapY := dimensions y asFloat. - pixelsPerPatch := (World width min: World height) // 200. "heuristic..." super extent: dimensions * pixelsPerPatch. self assuredPlayer assureUniClass. self clearAll. "be sure this is done once in case setup fails to do it" autoChanged := true. self leftEdgeMode: #wrap. self rightEdgeMode: #wrap. self topEdgeMode: #wrap. self bottomEdgeMode: #wrap. turtlesDictSemaphore := Semaphore forMutualExclusion. ! Item was added: + ----- Method: Player>>getDimensions (in category 'slot-kedama') ----- + getDimensions + + ^ self getValueFromCostume: #dimensions. + ! Item was added: + ----- Method: Player>>setDimensions: (in category 'slot-kedama') ----- + setDimensions: aNumber + + ^ self setCostumeSlot: #dimensions: toValue: aNumber asPoint. + !

1 0

The Trunk: EToys-tfel.219.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.219.mcz ==================== Summary ==================== Name: EToys-tfel.219 Author: tfel Time: 31 August 2016, 11:10:42.577793 am UUID: 67ea8fba-c3dd-ca4c-8b22-4abf7e60e6ba Ancestors: EToys-tfel.218 pasteUpMorph is usually nil at this point, ask the world =============== Diff against EToys-tfel.218 =============== Item was changed: ----- Method: EtoysPresenter>>drawingJustCompleted: (in category 'misc') ----- drawingJustCompleted: aSketchMorph "The user just finished drawing. Now maybe put up a viewer" | aWorld | self flushPlayerListCache. "Because a new drawing already created one, thus obviating #assuredPlayer kicking in with its invalidation" aWorld := associatedMorph world. (aWorld hasProperty: #automaticFlapViewing) ifTrue: [^ aWorld presenter viewMorph: aSketchMorph]. + (aWorld hasProperty: #automaticViewing) - (aSketchMorph pasteUpMorph hasProperty: #automaticViewing) ifTrue: [self viewMorph: aSketchMorph]!

1 0

The Trunk: EToys-tfel.221.mcz
by commits＠source.squeak.org 31 Aug '16

31 Aug '16

Tim Felgentreff uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tfel.221.mcz ==================== Summary ==================== Name: EToys-tfel.221 Author: tfel Time: 31 August 2016, 12:54:44.683793 pm UUID: 0ce34bb0-0e85-9b42-b237-bc223dbf6403 Ancestors: EToys-tfel.220 fix parsing of parameters =============== Diff against EToys-tfel.218 =============== Item was changed: ----- Method: EtoysPresenter>>drawingJustCompleted: (in category 'misc') ----- drawingJustCompleted: aSketchMorph "The user just finished drawing. Now maybe put up a viewer" | aWorld | self flushPlayerListCache. "Because a new drawing already created one, thus obviating #assuredPlayer kicking in with its invalidation" aWorld := associatedMorph world. (aWorld hasProperty: #automaticFlapViewing) ifTrue: [^ aWorld presenter viewMorph: aSketchMorph]. + (aWorld hasProperty: #automaticViewing) - (aSketchMorph pasteUpMorph hasProperty: #automaticViewing) ifTrue: [self viewMorph: aSketchMorph]! Item was changed: ----- Method: KedamaMorph class>>additionsToViewerCategories (in category 'class initialization') ----- additionsToViewerCategories "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." ^ #( (kedama ( (command addToPatchDisplayList: 'add patch to display list' Patch) (command removeAllFromPatchDisplayList 'clear the patch display list') (slot patchDisplayList 'patches to display' String readOnly Player getPatchesList unused unused) (command addToTurtleDisplayList: 'add turtle to display list' Player) (command removeAllFromTurtleDisplayList 'clear the turtle display list') (slot turtleDisplayList 'turtles to display' String readOnly Player getTurtlesList unused unused) (slot pixelsPerPatch 'the display scale' Number readWrite Player getPixelsPerPatch Player setPixelsPerPatch:) + (slot dimensions 'the turtles in x and y direction' Point readWrite Player getDimensions Player setDimensions:) (slot color 'The color of the object' Color readWrite Player getColor Player setColor:) "(command makeTurtlesMap 'Internally create the map of turtles')" (slot leftEdgeMode 'the mode of left edge' EdgeMode readWrite Player getLeftEdgeMode Player setLeftEdgeMode:) (slot rightEdgeMode 'the mode of right edge' EdgeMode readWrite Player getRightEdgeMode Player setRightEdgeMode:) (slot topEdgeMode 'the mode of top edge' EdgeMode readWrite Player getTopEdgeMode Player setTopEdgeMode:) (slot bottomEdgeMode 'the mode of bottom edge' EdgeMode readWrite Player getBottomEdgeMode Player setBottomEdgeMode:) )) ). ! Item was added: + ----- Method: KedamaMorph class>>registerInFlapsRegistry (in category 'as yet unclassified') ----- + registerInFlapsRegistry + "Register the receiver in the system's flaps registry" + self environment + at: #Flaps + ifPresent: [:cl | + cl registerQuad: { + #KedamaMorph. #newSet. 'Particles' translatedNoop. + 'A Kedama World with pre-made components' translatedNoop} + forFlapNamed: 'Supplies']! Item was changed: ----- Method: KedamaMorph>>acceptForm: (in category 'event handling') ----- acceptForm: aForm | c xArray yArray colorArray newX newY turtlesByColor colorArrays thisPlayer xArrays yArrays | turtlesDict keysAndValuesDo: [:player :vector | player setTurtleCount: 0]. turtlesByColor := Dictionary new. turtlesDict keysAndValuesDo: [:player :vector | turtlesByColor at: player color put: player]. xArrays := Dictionary new. yArrays := Dictionary new. colorArrays := Dictionary new. 0 to: aForm height do: [:y | 0 to: aForm width do: [:x | c := aForm colorAt: (x@y). c isTransparent ifFalse: [ + newX := x + aForm offset x. + newY := y + aForm offset y. - newX := x. - newY := y. ((newX >= 0 and: [newX < (self dimensions * pixelsPerPatch) x]) and: [newY >= 0 and: [newY < (self dimensions * pixelsPerPatch) y]]) ifTrue: [ thisPlayer := turtlesByColor at: c ifAbsentPut: [ turtlesByColor keys detect: [:thisColor | (thisColor diff: c) < 0.2] ifFound: [:thisColor | turtlesByColor at: thisColor] ifNone: [ (self player newTurtleSilently color: c; player)]]. xArray := xArrays at: thisPlayer ifAbsentPut: [OrderedCollection new: aForm width * aForm height]. yArray := yArrays at: thisPlayer ifAbsentPut: [OrderedCollection new: aForm width * aForm height]. colorArray := colorArrays at: thisPlayer ifAbsentPut: [OrderedCollection new: aForm width * aForm height]. xArray add: newX asFloat / pixelsPerPatch. yArray add: newY asFloat / pixelsPerPatch. colorArray add: (c pixelValueForDepth: 32). ]. ]. ]. ]. xArrays keysAndValuesDo: [:player :xArry | self makeTurtlesAtPositionsIn: {xArry asArray. (yArrays at: player) asArray. (colorArrays at: player) asArray} examplerPlayer: player ofPrototype: nil. player costume privateTurtleCount: (self turtlesCountOf: player)].! Item was added: + ----- Method: KedamaMorph>>dimensions: (in category 'accessing') ----- + dimensions: aPoint + + dimensions := aPoint. + wrapX := dimensions x asFloat. + wrapY := dimensions y asFloat. + patchVarDisplayForm := Form extent: dimensions depth: 32. + self pixelsPerPatch: self pixelsPerPatch.! Item was changed: ----- Method: KedamaMorph>>editDrawing (in category 'menu') ----- editDrawing | bnds sketchEditor delBlock myForm mySketch | self world assureNotPaintingElse: [^self]. self world prepareToPaint; displayWorld. bnds := self boundsInWorld. sketchEditor := SketchEditorMorph new. self comeToFront. myForm := self imageForm clippedToSize: (bnds extent - 2). myForm mapColor: self color to: Color transparent. mySketch := SketchMorph withForm: myForm. mySketch position: self position. self world addMorphFront: sketchEditor. sketchEditor initializeFor: mySketch inBounds: bnds pasteUpMorph: self world. delBlock := [self world paintingFlapTab ifNotNil: [:pt | pt hideFlap] ifNil: [self world paintBox ifNotNil: [:pb | pb delete]]]. sketchEditor afterNewPicDo: [:aForm :aRect | + aForm offset: aRect topLeft - self topLeft. self acceptForm: aForm. delBlock value] ifNoBits: [delBlock value]! Item was changed: ----- Method: KedamaMorph>>initialize (in category 'initialization') ----- initialize super initialize. drawRequested := true. changePending := false. + pixelsPerPatch := (World width min: World height) // (self class defaultDimensions x * 2). "heuristic..." + self dimensions: self class defaultDimensions. "dimensions of this StarSqueak world in patches" - dimensions := self class defaultDimensions. "dimensions of this StarSqueak world in patches" - wrapX := dimensions x asFloat. - wrapY := dimensions y asFloat. - pixelsPerPatch := (World width min: World height) // 200. "heuristic..." super extent: dimensions * pixelsPerPatch. self assuredPlayer assureUniClass. self clearAll. "be sure this is done once in case setup fails to do it" autoChanged := true. self leftEdgeMode: #wrap. self rightEdgeMode: #wrap. self topEdgeMode: #wrap. self bottomEdgeMode: #wrap. turtlesDictSemaphore := Semaphore forMutualExclusion. ! Item was changed: ----- Method: Parser>>method:context:encoder: (in category '*Etoys-Squeakland-expression types') ----- method: doit context: ctxt encoder: encoderToUse " pattern [ | temporaries ] block => MethodNode." | sap blk prim temps messageComment methodNode | properties := AdditionalMethodState new. encoder := encoderToUse. sap := self pattern: doit inContext: ctxt. "sap={selector, arguments, precedence}" properties selector: (sap at: 1). + (sap at: 2) do: [:argNode | argNode beMethodArg]. - (sap at: 2) do: [:argNode | argNode isArg: true]. doit ifFalse: [self pragmaSequence]. temps := self temporaries. messageComment := currentComment. currentComment := nil. doit ifFalse: [self pragmaSequence]. prim := self pragmaPrimitives. self statements: #() innerBlock: doit. blk := parseNode. doit ifTrue: [blk returnLast] ifFalse: [blk returnSelfIfNoOther]. hereType == #doIt ifFalse: [^self expected: 'Nothing more']. self interactive ifTrue: [self removeUnusedTemps]. methodNode := self newMethodNode comment: messageComment. ^methodNode selector: (sap at: 1) arguments: (sap at: 2) precedence: (sap at: 3) temporaries: temps block: blk encoder: encoder primitive: prim properties: properties! Item was added: + ----- Method: Player>>getDimensions (in category 'slot-kedama') ----- + getDimensions + + ^ self getValueFromCostume: #dimensions. + ! Item was added: + ----- Method: Player>>setDimensions: (in category 'slot-kedama') ----- + setDimensions: aNumber + + ^ self setCostumeSlot: #dimensions: toValue: aNumber asPoint. + !

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
61
Older →

Jump to page: