etoys-dev February 2012

etoys-dev@lists.squeakfoundation.org

16 participants
75 discussions

Etoys: Etoys-Richo.100.mcz
by commits＠source.squeak.org 04 Feb '12

04 Feb '12

Ricardo Moran uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-Richo.100.mcz ==================== Summary ==================== Name: Etoys-Richo.100 Author: Richo Time: 3 February 2012, 8:30:10 pm UUID: f95a393c-27a3-e541-a345-4fd66b47cd8f Ancestors: Etoys-kfr.99 * Fixed step button behavior when #batchPenTrails option is on. =============== Diff against Etoys-kfr.99 =============== Item was changed: Object subclass: #EtoysDebugger + instanceVariableNames: 'scriptEditor next timesToRepeat highlighter startingPosition' - instanceVariableNames: 'scriptEditor next timesToRepeat highlighter' classVariableNames: '' poolDictionaries: '' category: 'Etoys-Debugger'! Item was changed: + ----- Method: EtoysDebugger>>delete (in category 'initialization') ----- - ----- Method: EtoysDebugger>>delete (in category 'as yet unclassified') ----- delete highlighter ifNotNil: [:h | h delete]! Item was changed: ----- Method: EtoysDebugger>>evaluateNextTile (in category 'evaluating') ----- evaluateNextTile + [next = (scriptEditor tiles at: 1 ifAbsent: [nil]) + ifTrue: ["We are about to evaluate the first tile" + self updateStartingPosition]. + self trailMorph batchPenTrails + ifTrue: [self evaluateNextTileWithBatchPenTrails] + ifFalse: [next evaluateOn: self]] - [next evaluateOn: self] on: Error do: [:err || newNext | newNext := scriptEditor tiles at: 1 ifAbsent: [^ self]. newNext = next ifTrue: [err pass] ifFalse: [next := newNext]. + self evaluateNextTile] + + ! - self evaluateNextTile]! Item was added: + ----- Method: EtoysDebugger>>evaluateNextTileWithBatchPenTrails (in category 'evaluating') ----- + evaluateNextTileWithBatchPenTrails + | penDown | + penDown := self scriptedPlayer getPenDown. + self scriptedPlayer setPenDown: false. + [next evaluateOn: self] + ensure: [self scriptedPlayer setPenDown: penDown]. + (penDown and: [next = (scriptEditor tiles at: 1 ifAbsent: [nil])]) + ifTrue: [| trailMorph tfm | + "We've just evaluated the last tile, we should draw pen trail" + trailMorph := self trailMorph. + tfm := self scriptedPlayer costume owner transformFrom: trailMorph. + trailMorph + drawPenTrailFor: self scriptedPlayer costume + from: (tfm localPointToGlobal: startingPosition) + to: (tfm localPointToGlobal: self scriptedPlayerPosition)]! Item was changed: ----- Method: EtoysDebugger>>initializeWith: (in category 'initialization') ----- initializeWith: aScriptEditorMorph scriptEditor := aScriptEditorMorph. next := scriptEditor tiles at: 1 ifAbsent: nil. + self updateStartingPosition; + initialize! - self initialize! Item was added: + ----- Method: EtoysDebugger>>scriptedPlayer (in category 'accessing') ----- + scriptedPlayer + ^ scriptEditor playerScripted! Item was added: + ----- Method: EtoysDebugger>>scriptedPlayerPosition (in category 'accessing') ----- + scriptedPlayerPosition + ^ self scriptedPlayer costume + ifNil: [0@0] + ifNotNil: [:m | m referencePosition]! Item was added: + ----- Method: EtoysDebugger>>trailMorph (in category 'accessing') ----- + trailMorph + ^ self scriptedPlayer costume ifNil: [World] ifNotNil: [:m | m trailMorph]! Item was added: + ----- Method: EtoysDebugger>>updateStartingPosition (in category 'initialization') ----- + updateStartingPosition + startingPosition := self scriptedPlayerPosition!

1 0

Etoys: MorphicExtras-kfr.58.mcz
by commits＠source.squeak.org 04 Feb '12

04 Feb '12

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.58.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.58 Author: kfr Time: 4 February 2012, 12:08:51 am UUID: a3966eaa-1a4e-5442-bc6b-92d8cd68ff92 Ancestors: MorphicExtras-kfr.57 Add Ricardo Moran's "Sector" object to the system. Provides a new kind of object corresponding to a "sector" of a circle; its viewer offers items reporting the angle and radius of the sector. http://tracker.squeakland.org/browse/SQ-1007 =============== Diff against MorphicExtras-kfr.57 =============== Item was added: + ----- Method: Player>>getSectorAngle (in category '*MorphicExtras-AdditionalMorphs') ----- + getSectorAngle + ^ self sendMessageToCostume: #angle! Item was added: + ----- Method: Player>>getSectorRadius (in category '*MorphicExtras-AdditionalMorphs') ----- + getSectorRadius + ^ self sendMessageToCostume: #radius! Item was added: + ----- Method: Player>>setSectorAngle: (in category '*MorphicExtras-AdditionalMorphs') ----- + setSectorAngle: aNumber + ^ self sendMessageToCostume: #angle: with: aNumber! Item was added: + ----- Method: Player>>setSectorRadius: (in category '*MorphicExtras-AdditionalMorphs') ----- + setSectorRadius: aNumber + ^ self sendMessageToCostume: #radius: with: aNumber! Item was added: + PolygonMorph subclass: #SectorMorph + instanceVariableNames: 'angle' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-AdditionalMorphs'! Item was added: + ----- Method: SectorMorph class>>additionsToViewerCategories (in category 'viewer categories') ----- + additionsToViewerCategories + "Answer additions to viewer categories." + + ^ #((basic + ((slot angle 'the angle, in degrees, at the vertex of the sector' Number readWrite Player getSectorAngle Player setSectorAngle:) + (slot radius 'length of a radius of the sector' Number readWrite Player getSectorRadius Player setSectorRadius:))) + + (sector + ((slot angle 'the angle, in degrees, at the vertex of the sector' Number readWrite Player getSectorAngle Player setSectorAngle:) + (slot radius 'length of a radius of the sector' Number readWrite Player getSectorRadius Player setSectorRadius:) + (slot showingHandles 'Whether the handles are showing' Boolean readWrite Player getShowingHandles Player setShowingHandles:) + )))! Item was added: + ----- Method: SectorMorph class>>descriptionForPartsBin (in category 'parts bin') ----- + descriptionForPartsBin + ^ self + partName: 'Sector' translatedNoop + categories: {'Graphics' translatedNoop} + documentation: 'A sector tool that lets you create slices of a pie of any angle for applications like fractions or drawing' translatedNoop! Item was added: + ----- Method: SectorMorph>>addCustomMenuItems:hand: (in category 'menu & halo') ----- + addCustomMenuItems: aMenu hand: aHandMorph + aMenu + addUpdating: #handlesShowingPhrase + target: self + action: #showOrHideHandles! Item was added: + ----- Method: SectorMorph>>addHandles (in category 'editing') ----- + addHandles + | handle | + self removeHandles. + handle := EllipseMorph + newBounds: (Rectangle center: vertices last extent: 16 @ 16) + color: Color yellow. + handle + on: #mouseMove + send: #dragEvent:fromHandle: + to: self. + handle + on: #mouseUp + send: #dropEvent:fromHandle: + to: self. + self addMorph: handle. + handles := {handle}. + self changed! Item was added: + ----- Method: SectorMorph>>angle (in category 'accessing') ----- + angle + ^ angle! Item was added: + ----- Method: SectorMorph>>angle: (in category 'accessing') ----- + angle: aNumber + angle = aNumber + ifTrue: [^ self]. + angle := aNumber \\ 361. + self update! Item was added: + ----- Method: SectorMorph>>computeBounds (in category 'updating') ----- + computeBounds + super computeBounds. + self setRotationCenterFrom: vertices first! Item was added: + ----- Method: SectorMorph>>dragEvent:fromHandle: (in category 'event handling') ----- + dragEvent: evt fromHandle: morph + self angle: (evt position - vertices first * (1 @ -1)) degrees + self heading! Item was added: + ----- Method: SectorMorph>>dropEvent:fromHandle: (in category 'event handling') ----- + dropEvent: evt fromHandle: morph + self flag: #Richo! Item was added: + ----- Method: SectorMorph>>extent: (in category 'accessing') ----- + extent: newExtent + self radius: (newExtent x max: newExtent y) + / 2! Item was added: + ----- Method: SectorMorph>>initialize (in category 'initialization') ----- + initialize + angle := 45. + super initialize. + self initializeVertices; computeBounds! Item was added: + ----- Method: SectorMorph>>initializeVertices (in category 'initialization') ----- + initializeVertices + vertices := Array new: 50 withAll: 0 @ 0. + vertices at: 1 put: bounds bottomLeft; + at: 2 put: bounds bottomRight. + self updateVertices! Item was added: + ----- Method: SectorMorph>>radius (in category 'accessing') ----- + radius + ^ vertices first dist: vertices second! Item was added: + ----- Method: SectorMorph>>radius: (in category 'accessing') ----- + radius: aNumber + | v1 v2 dx dy ang dx2 dy2 | + self radius = aNumber + ifTrue: [^ self]. + v1 := vertices first. + v2 := vertices second. + dx := v2 x - v1 x. + dx = 0 + ifTrue: [dx := 0.0001]. + dy := v2 y - v1 y. + ang := (dy / dx) arcTan. + (dx eToysLT: 0) + ifTrue: [(dy eToysGT: 0) + ifTrue: [ang:= ang + 3.1416]]. + (dx eToysLT: 0) + ifTrue: [(dy eToysLT: 0) + ifTrue: [ang:= ang + 3.1416]]. + dx2 := ang cos * aNumber. + dy2 := ang sin * aNumber. + vertices at: 2 put: v1 + (dx2 @ dy2). + self update! Item was added: + ----- Method: SectorMorph>>update (in category 'updating') ----- + update + self updateVertices; updateHandles; computeBounds! Item was added: + ----- Method: SectorMorph>>updateHandles (in category 'updating') ----- + updateHandles + | ign | + (ign := handles) + ifNotNil: [handles first center: vertices last]! Item was added: + ----- Method: SectorMorph>>updateVertices (in category 'updating') ----- + updateVertices + | nSegments sin cos xn yn xn1 yn1 | + nSegments := vertices size - 2. + sin := (angle / nSegments * (2 * Float pi / 360.0)) sin. + cos := (angle / nSegments * (2 * Float pi / 360.0)) cos. + xn := vertices second x - vertices first x. + yn := vertices second y - vertices first y. + 3 + to: vertices size + do: [:i | + xn1 := xn * cos + (yn * sin). + yn1 := yn * cos - (xn * sin). + vertices at: i put: vertices first + (xn1 @ yn1). + xn := xn1. + yn := yn1]!

1 0

Etoys: Etoys-kfr.99.mcz
by commits＠source.squeak.org 03 Feb '12

03 Feb '12

Spam detection software, running on the system "europa.mgmt.inetu.net", has identified this incoming email as possible spam. The original message has been attached to this so you can view it (if it isn't spam) or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.99.mcz ==================== Summary ==================== Name: Etoys-kfr.99 Author: kfr Time: 3 February 2012, 11:41:17 pm UUID: 1b86a282-0433-9448-b74e-579b32ca4e32 Ancestors: Etoys-kfr.98 [...] Content analysis details: (5.6 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 3.5 BAYES_99 BODY: Bayesian spam probability is 99 to 100% [score: 1.0000] 0.0 MISSING_MID Missing Message-Id: header 1.2 INVALID_DATE Invalid Date: header (not RFC 2822) 1.0 DATE_IN_PAST_12_24 Date: is 12 to 24 hours before Received: date 3.8 TVD_STOCK1 BODY: TVD_STOCK1 0.1 RDNS_NONE Delivered to trusted network by a host with no rDNS -3.9 AWL AWL: From: address is in the auto white-list

1 0

sixteen items for Squeakland 2012 - item 7: Single step debugger
by Ricardo Moran 02 Feb '12

02 Feb '12

On Wed, Jan 25, 2012 at 2:17 AM, Scott Wallace <scott.wallace(a)squeakland.org > wrote: > 7. Single Step Debugger Hi, I made a new picture for the step button in the script editors. A new project is attached for you to test and review. The new button looks like this: [image: StepMe.png] and the old one: [image: StepMe (bug).png] Of course, it's up to you to decide which form to use (or propose a new one). I don't really care much for the button's form anyway, but I'm *very* interested in the "stepping" feature. Cheers, Richo

3 7

If I create a text string which contains squeak code, how can I execute it from within a script?
by Steve Thomas 02 Feb '12

02 Feb '12

Folks, I am trying to create a project where kids can enter their own "Connector" functions. So what I want to do is given a connector connected to two text boxes (one Enhanced Text, so I can execute a script when they hit <CR> or on <focus loss>). I have a string variable defined for the connector, in which the kids can enter a function like ( D = S + 25) Where D maps to DestinationPlayer and S maps to SourcePlayer. Ideally I would like to generate the below script and execute it: doIt self getDestinationPlayer setNumericValue: self getSourcePlayer getNumericValue + 25 Need some squeak coding help on this. I guess specifically, assuming I can figure out how to create a string with the correct code ... How do I "do it" to the string? Thanks, Stephen

3 4

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev February 2012