etoys-dev June 2010

etoys-dev@lists.squeakfoundation.org

22 participants
110 discussions

Etoys: WS-Sound-bf.3.mcz
by commits＠source.squeak.org 26 Jun '10

26 Jun '10

Bert Freudenberg uploaded a new version of WS-Sound to project Etoys: http://source.squeak.org/etoys/WS-Sound-bf.3.mcz ==================== Summary ==================== Name: WS-Sound-bf.3 Author: bf Time: 26 June 2010, 3:07:35 pm UUID: 7b8e6812-b159-4277-b93b-7687cd5ed010 Ancestors: WS-Sound-kfr.2 - move color component accessors from WS-Sound package to Etoys package =============== Diff against WS-Sound-kfr.2 =============== Item was removed: - ----- Method: Player>>setRed: (in category '*WS-Sound-Slots') ----- - setRed: aFloat - "Set the red component of my costume, if appropriate." - - | aMorph aValue aColor | - aMorph := self costume renderedMorph. - (aColor := aMorph color) isColor ifTrue: - [aValue := (aFloat / 100 max: 0) min: 1. - aMorph color: - (Color - r: aValue - g: aColor green - b: aColor blue - alpha: aColor alpha)]! Item was removed: - ----- Method: Player>>getBrightness (in category '*WS-Sound-Slots') ----- - getBrightness - ^ self costume renderedMorph color brightness * 100! Item was removed: - ----- Method: Player>>getBlue (in category '*WS-Sound-Slots') ----- - getBlue - ^ self costume renderedMorph color blue * 100! Item was removed: - ----- Method: Player>>setSaturation: (in category '*WS-Sound-Slots') ----- - setSaturation: aFloat - "Set the saturation of my costume, if appropriate." - - | aMorph aValue aColor | - aMorph := self costume renderedMorph. - (aColor := aMorph color) isColor ifTrue: - [aValue := (aFloat / 100 max: 0) min: 1. - aMorph color: - (Color - h: aColor hue - s: aValue - v: aColor brightness)]! Item was removed: - ----- Method: Player>>getSaturation (in category '*WS-Sound-Slots') ----- - getSaturation - ^ self costume renderedMorph color saturation * 100! Item was removed: - ----- Method: Player>>setGreen: (in category '*WS-Sound-Slots') ----- - setGreen: aFloat - "Set the green component of my costume, if appropriate." - - | aMorph aValue aColor | - aMorph := self costume renderedMorph. - (aColor := aMorph color) isColor ifTrue: - [aValue := (aFloat / 100 max: 0) min: 1. - aMorph color: - (Color - r: aColor red - g: aValue - b: aColor blue - alpha: aColor alpha)]! Item was removed: - ----- Method: Player>>setBlue: (in category '*WS-Sound-Slots') ----- - setBlue: aFloat - "Set the blue component of my costume, if appropriate." - - | aMorph aValue aColor | - aMorph := self costume renderedMorph. - (aColor := aMorph color) isColor ifTrue: - [aValue := (aFloat / 100 max: 0) min: 1. - aMorph color: - (Color - r: aColor red - g: aColor green - b: aValue - alpha: aColor alpha)]! Item was removed: - ----- Method: Player>>getHue (in category '*WS-Sound-Slots') ----- - getHue - | hue | - hue _ self costume renderedMorph color hue. - ^ hue > 180 - ifTrue: [-360 + hue] - ifFalse: [hue]! Item was removed: - ----- Method: Player>>setBrightness: (in category '*WS-Sound-Slots') ----- - setBrightness: aFloat - "Set the brightness of my costume, if appropriate." - - | aMorph aValue aColor | - aMorph := self costume renderedMorph. - (aColor := aMorph color) isColor ifTrue: - [aValue := (aFloat / 100 max: 0) min: 1. - aMorph color: - (Color - h: aColor hue - s: aColor saturation - v: aValue)]! Item was removed: - ----- Method: Player>>getGreen (in category '*WS-Sound-Slots') ----- - getGreen - ^ self costume renderedMorph color green * 100! Item was removed: - ----- Method: Player>>getRed (in category '*WS-Sound-Slots') ----- - getRed - ^ self costume renderedMorph color red * 100! Item was removed: - ----- Method: Player>>setHue: (in category '*WS-Sound-Slots') ----- - setHue: aFloat - "Set the hue of my costume, if appropriate." - - | aMorph aValue aColor | - aMorph := self costume renderedMorph. - (aColor := aMorph color) isColor ifTrue: - [aValue := aFloat \\ 360. - aMorph color: - (Color - h: aValue - s: aColor saturation - v: aColor brightness)]!

1 0

Etoys: Etoys-bf.30.mcz
by commits＠source.squeak.org 26 Jun '10

26 Jun '10

Bert Freudenberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-bf.30.mcz ==================== Summary ==================== Name: Etoys-bf.30 Author: bf Time: 26 June 2010, 3:06:30 pm UUID: d688099d-4cf2-4bf6-bf35-ce490d257df2 Ancestors: Etoys-kfr.29 - fix color component accessing (SQ-627) - move them from WS-Sound package to Etoys package =============== Diff against Etoys-kfr.29 =============== Item was added: + ----- Method: Player>>getHue (in category 'slots-color components') ----- + getHue + | hue | + hue := self getColor hue. + ^ hue > 180 + ifTrue: [-360 + hue] + ifFalse: [hue]! Item was added: + ----- Method: Player>>getGreen (in category 'slots-color components') ----- + getGreen + ^ self getColor green * 100! Item was added: + ----- Method: Player>>setBrightness: (in category 'slots-color components') ----- + setBrightness: aFloat + "Set the brightness of my costume, if appropriate." + + | aColor aValue | + aColor := self getColor. + aValue := (aFloat / 100 max: 0) min: 1. + self setColor: (Color + h: aColor hue + s: aColor saturation + v: aValue + alpha: aColor alpha)! Item was added: + ----- Method: Player>>setHue: (in category 'slots-color components') ----- + setHue: aFloat + "Set the hue of my costume, if appropriate." + + | aColor aValue | + aColor := self getColor. + aValue := aFloat \\ 360. + self setColor: (Color + h: aValue + s: aColor saturation + v: aColor brightness + alpha: aColor alpha)! Item was added: + ----- Method: Player>>setRed: (in category 'slots-color components') ----- + setRed: aFloat + "Set the red component of my costume, if appropriate." + + | aColor aValue | + aColor := self getColor. + aValue := (aFloat / 100 max: 0) min: 1. + self setColor: (Color + r: aValue + g: aColor green + b: aColor blue + alpha: aColor alpha)! Item was added: + ----- Method: Player>>getRed (in category 'slots-color components') ----- + getRed + ^ self getColor red * 100! Item was changed: + ----- Method: Player>>getAlpha (in category 'slots-color components') ----- - ----- Method: Player>>getAlpha (in category 'slot getters/setters') ----- getAlpha + ^ self getColor alpha * 100! - ^ self costume renderedMorph color alpha * 100! Item was added: + ----- Method: Player>>getBlue (in category 'slots-color components') ----- + getBlue + ^ self getColor blue * 100! Item was added: + ----- Method: Player>>getSaturation (in category 'slots-color components') ----- + getSaturation + ^ self getColor saturation * 100! Item was added: + ----- Method: Player>>setBlue: (in category 'slots-color components') ----- + setBlue: aFloat + "Set the blue component of my costume, if appropriate." + + | aColor aValue | + aColor := self getColor. + aValue := (aFloat / 100 max: 0) min: 1. + self setColor: (Color + r: aColor red + g: aColor green + b: aValue + alpha: aColor alpha)! Item was added: + ----- Method: Player>>setSaturation: (in category 'slots-color components') ----- + setSaturation: aFloat + "Set the saturation of my costume, if appropriate." + + | aColor aValue | + aColor := self getColor. + aValue := (aFloat / 100 max: 0) min: 1. + self setColor: (Color + h: aColor hue + s: aValue + v: aColor brightness + alpha: aColor alpha)! Item was added: + ----- Method: Player>>getBrightness (in category 'slots-color components') ----- + getBrightness + ^ self getColor brightness * 100! Item was changed: + ----- Method: Player>>setAlpha: (in category 'slots-color components') ----- - ----- Method: Player>>setAlpha: (in category 'slot getters/setters') ----- setAlpha: aFloat "Set the alpha component of my costume, if appropriate." + | aColor aValue | + aColor := self getColor. + aValue := (aFloat / 100 max: 0) min: 1. + self setColor: (Color + r: aColor red + g: aColor green + b: aColor blue + alpha: aValue)! - | aMorph aValue aColor | - aMorph := self costume renderedMorph. - (aColor := aMorph color) isColor ifTrue: - [aValue := (aFloat / 100 max: 0) min: 1. - aMorph color: - (Color - r: aColor red - g: aColor green - b: aColor blue - alpha: aValue)]! Item was added: + ----- Method: Player>>setGreen: (in category 'slots-color components') ----- + setGreen: aFloat + "Set the green component of my costume, if appropriate." + + | aColor aValue | + aColor := self getColor. + aValue := (aFloat / 100 max: 0) min: 1. + self setColor: (Color + r: aColor red + g: aValue + b: aColor blue + alpha: aColor alpha)!

1 0

Etoys: MorphicExtras-bf.9.mcz
by commits＠source.squeak.org 26 Jun '10

26 Jun '10

Bert Freudenberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-bf.9.mcz ==================== Summary ==================== Name: MorphicExtras-bf.9 Author: bf Time: 26 June 2010, 2:44 pm UUID: bad75b3d-b8d6-4703-a838-2f3c513dd265 Ancestors: MorphicExtras-kfr.8 - prevent deleting paint palette (SQ-687, fix by Karl Ramberg) =============== Diff against MorphicExtras-kfr.8 =============== Item was changed: ----- Method: PaintBoxMorph class>>new (in category 'instance creation') ----- new | pb button dualUse formCanvas rect | pb _ Prototype veryDeepCopy. "Assume that the PaintBox does not contain any scripted Players!!" pb stampHolder normalize. "Get the stamps to show" "Get my own copies of the brushes so I can modify them" #(brush1: brush2: brush3: brush4: brush5: brush6:) do: [:sel | button _ pb submorphNamed: sel. button offImage: button offImage deepCopy. dualUse _ button onImage == button pressedImage. "sometimes shared" button onImage: button onImage deepCopy. dualUse ifTrue: [button pressedImage: button onImage] ifFalse: [button pressedImage: button pressedImage deepCopy]. "force color maps for later mapping" button offImage. button onImage. button pressedImage. formCanvas _ button onImage getCanvas. formCanvas _ formCanvas copyOrigin: 0@0 clipRect: (rect _ 0@0 extent: button onImage extent). (#(brush1: brush3:) includes: sel) ifTrue: [ rect _ rect origin corner: rect corner - (2@2)]. (#brush2: == sel) ifTrue: [ rect _ rect origin corner: rect corner - (2@4)]. formCanvas frameAndFillRectangle: rect fillColor: Color transparent borderWidth: 2 borderColor: (Color r: 0.599 g: 0.8 b: 1.0). ]. pb showColor. pb fixUpRecentColors. pb addLabels. + pb resistsRemoval: true. ^ pb! Item was added: + ----- Method: PaintBoxMorph>>willingToBeDiscarded (in category 'other') ----- + willingToBeDiscarded + ^ false!

1 0

Etoys: Morphic-bf.28.mcz
by commits＠source.squeak.org 26 Jun '10

26 Jun '10

Bert Freudenberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-bf.28.mcz ==================== Summary ==================== Name: Morphic-bf.28 Author: bf Time: 26 June 2010, 2:41:41 pm UUID: ae57e80c-6d53-421e-90dd-521f5d245ef3 Ancestors: Morphic-bf.27 - prevent deleting paint palette (SQ-687, fix by Karl Ramberg) =============== Diff against Morphic-bf.27 =============== Item was added: + ----- Method: TransformationMorph>>resistsRemoval (in category 'geometry eToy') ----- + resistsRemoval + + | m | + ^ ((m _ self renderedMorph) == self) ifTrue: [false] ifFalse: [m resistsRemoval]. + ! Item was added: + ----- Method: TransformationMorph>>willingToBeDiscarded (in category 'geometry eToy') ----- + willingToBeDiscarded + + | m | + ^ ((m _ self renderedMorph) == self) ifTrue: [false] ifFalse: [m willingToBeDiscarded]. + !

1 0

Etoys: Morphic-bf.27.mcz
by commits＠source.squeak.org 26 Jun '10

26 Jun '10

Bert Freudenberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-bf.27.mcz ==================== Summary ==================== Name: Morphic-bf.27 Author: bf Time: 26 June 2010, 2:34:02 pm UUID: 1f191db0-0441-4550-832b-068903c9319a Ancestors: Morphic-bf.26 - fix an ambiguous translation in abandonUnsituatedPlayers (SQ-649) =============== Diff against Morphic-bf.26 =============== Item was changed: ----- Method: PasteUpMorph>>abandonUnsituatedPlayers (in category 'menu') ----- abandonUnsituatedPlayers "If any objects in the project have references, in player-valued variables, to other objects otherwise not present in the project, abandon them and replace former references to them by references to Dot" | aList dot slotInfo varName ref allPlayers count | count := 0. allPlayers := ActiveWorld presenter reallyAllExtantPlayersNoSort. aList := allPlayers select: [:m | m belongsToUniClass]. dot := self presenter standardPlayer. aList do: [:p | p class slotInfo associationsDo: [:assoc | slotInfo := assoc value. varName := assoc key. (slotInfo type = #Player) ifTrue: [ref := p instVarNamed: varName. (allPlayers includes: ref) ifFalse: [p instVarNamed: varName put: dot. count := count + 1. + Transcript cr; show: ('Variable named "{1}" in player named "{2}" changed to point to Dot' translated format: {varName. ref externalName})]]]]. - Transcript cr; show: 'Variable named' translated, ' "', varName, '" ', 'in' translated, ' player named' translated, ' "', ref externalName, '" ', 'changed to point to Dot']]]]. aList := nil. "Increases chance of the next line having desired effect." + self inform: ('{1} item(s) fixed up' translated format: {count}). - self inform: count printString, ' item(s) fixed up' translated. WorldState addDeferredUIMessage: [Smalltalk garbageCollect]!

1 0

Etoys: Morphic-bf.26.mcz
by commits＠source.squeak.org 26 Jun '10

26 Jun '10

Bert Freudenberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-bf.26.mcz ==================== Summary ==================== Name: Morphic-bf.26 Author: bf Time: 26 June 2010, 2:26:21 pm UUID: 585ebc00-ef95-423f-a27d-bb609b1b3ee1 Ancestors: Morphic-bf.25 - fix copying text from lists (SQ-691) =============== Diff against Morphic-bf.25 =============== Item was added: + ----- Method: PluggableListMorph>>userString (in category 'debug and other') ----- + userString + "Do I have a text string to be searched on?" + + ^ String streamContents: [:strm | + 1 to: self getListSize do: [:i | + strm nextPutAll: (self getListItem: i); cr]]! Item was added: + ----- Method: LazyListMorph>>userString (in category 'accessing') ----- + userString + "Do I have a text string to be searched on?" + + ^ String streamContents: [:strm | + 1 to: self getListSize do: [:i | + strm nextPutAll: (self getListItem: i); cr]]!

1 0

Etoys: Multilingual-bf.13.mcz
by commits＠source.squeak.org 26 Jun '10

26 Jun '10

Bert Freudenberg uploaded a new version of Multilingual to project Etoys: http://source.squeak.org/etoys/Multilingual-bf.13.mcz ==================== Summary ==================== Name: Multilingual-bf.13 Author: bf Time: 26 June 2010, 2:16:51 pm UUID: 4030a1df-eeab-43ca-9e58-359cf9710860 Ancestors: Multilingual-Richo.12 - use UTF8 clipboard in Latin1 locale on all platforms (fix for SQ-725) =============== Diff against Multilingual-Richo.12 =============== Item was changed: ----- Method: Latin1Environment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass + ^UTF8ClipboardInterpreter! - | platformName | - platformName := SmalltalkImage current platformName. - platformName = 'Win32' ifTrue: [self win32VMUsesUnicode ifTrue: [^ UTF8ClipboardInterpreter]]. - ^ MacRomanClipboardInterpreter!

1 0

SQ-673 - Sound Save scripting tile
by Steve Thomas 25 Jun '10

25 Jun '10

Karl, The addition of the save tiles is most welcome, thank you. I loaded SoundRecorderSave.1.cs from SQ-672, and it works fine on Macintosh. Some thoughts: 1. new tile in the "sound recorder" category: "save button hit", perhaps simply "save" would be better? 2. new tile in the "sound recorder" category: "save without user interaction" ... 1. This is a useful tile, but it seems I have no control over the sound name and on first save it saves it as "new sound" then "new sound2" ... 2. Perhaps letting the user specify the filename as a "parameter" in the tile would be better. This way I could know when they recorded the sound and be sure I can play back the sound I want. FYI, I did not see these tiles in Etoys4.1 when I loaded "Sound-kfr.7.mcz" Many thanks for this and the other fixes. http://tracker.squeakland.org/browse/SQ-673

1 0

Etoys: Morphic-bf.25.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

Bert Freudenberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-bf.25.mcz ==================== Summary ==================== Name: Morphic-bf.25 Author: bf Time: 24 June 2010, 3:45:23 pm UUID: 2020b11f-00ea-45e3-9979-6304c7d88991 Ancestors: Morphic-bf.24 - grow equally in all directions on control-halo-drag =============== Diff against Morphic-bf.24 =============== Item was changed: ----- Method: HaloMorph>>mouseMove: (in category 'event handling') ----- mouseMove: evt "Drag our target around or resize it" growingOrRotating ifTrue: [ + | oldExtent newExtent newPosition | + newExtent := originalExtent + (evt position - positionOffset * 2). - | newExtent | - newExtent := originalExtent + evt position - positionOffset. (newExtent x > 1 and: [newExtent y > 1]) + ifTrue: [ + oldExtent := target extent. + target setExtentFromHalo: newExtent. + newPosition := target position - (target extent - oldExtent // 2). + target setConstrainedPosition: newPosition hangOut: true]] - ifTrue: [ target renderedMorph setExtentFromHalo: newExtent]] ifFalse: [ | thePoint | thePoint := target point: (evt position - positionOffset) from: owner. target setConstrainedPosition: thePoint hangOut: true. ]!

1 0

Etoys: Morphic-bf.24.mcz
by commits＠source.squeak.org 24 Jun '10

24 Jun '10

Bert Freudenberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-bf.24.mcz ==================== Summary ==================== Name: Morphic-bf.24 Author: bf Time: 24 June 2010, 3:21:23 pm UUID: dbbb87cc-14c4-4f4c-8e9f-c29d47299e43 Ancestors: Morphic-Richo.23 - like dragging with the right mousebutton, resize if the control key is pressed =============== Diff against Morphic-Richo.23 =============== Item was changed: ----- Method: HaloMorph>>mouseMove: (in category 'event handling') ----- mouseMove: evt + "Drag our target around or resize it" + growingOrRotating + ifTrue: [ + | newExtent | + newExtent := originalExtent + evt position - positionOffset. + (newExtent x > 1 and: [newExtent y > 1]) + ifTrue: [ target renderedMorph setExtentFromHalo: newExtent]] + ifFalse: [ + | thePoint | + thePoint := target point: (evt position - positionOffset) from: owner. + target setConstrainedPosition: thePoint hangOut: true. + ]! - "Drag our target around" - | thePoint | - thePoint _ target point: (evt position - positionOffset) from: owner. - target setConstrainedPosition: thePoint hangOut: true.! Item was changed: ----- Method: HaloMorph>>dragTarget: (in category 'events') ----- dragTarget: event "Begin dragging the target" | thePoint | + event controlKeyPressed ifTrue: [^self growTarget: event]. + growingOrRotating := false. innerTarget aboutToBeBrownDragged. self setProperty: #conclusionSelector toValue: #brownDragConcluded. thePoint _ target point: event position - positionOffset from: owner. target setConstrainedPosition: thePoint hangOut: true. event hand newMouseFocus: self! Item was changed: ----- Method: Morph>>handleMouseDown: (in category 'events-processing') ----- handleMouseDown: anEvent "System level event handling." anEvent wasHandled ifTrue:[^self]. "not interested" anEvent hand removePendingBalloonFor: self. anEvent hand removePendingHaloFor: self. anEvent wasHandled: true. (anEvent controlKeyPressed + and: [anEvent blueButtonChanged not + and: [Preferences cmdGesturesEnabled]]) - and: [Preferences cmdGesturesEnabled]) ifTrue: [^ self invokeMetaMenu: anEvent]. "Make me modal during mouse transitions" anEvent hand newMouseFocus: self event: anEvent. anEvent blueButtonChanged ifTrue:[^self blueButtonDown: anEvent]. "this mouse down could be the start of a gesture, or the end of a gesture focus" (self isGestureStart: anEvent) ifTrue: [^ self gestureStart: anEvent]. self mouseDown: anEvent. anEvent hand removeHaloFromClick: anEvent on: self. (self handlesMouseStillDown: anEvent) ifTrue:[ self startStepping: #handleMouseStillDown: at: Time millisecondClockValue + self mouseStillDownThreshold arguments: {anEvent copy resetHandlerFields} stepTime: self mouseStillDownStepRate ]. ! Item was added: + ----- Method: HaloMorph>>growTarget: (in category 'events') ----- + growTarget: event + "Begin resizing the target" + growingOrRotating := true. + positionOffset := event position. + originalExtent := target extent. + self removeAllHandlesBut: nil. + event hand newMouseFocus: self. + event hand addMouseListener: self. "add handles back on mouse-up"!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev June 2010