etoys-dev May 2010

etoys-dev@lists.squeakfoundation.org

19 participants
192 discussions

Etoys: Sound-kfr.2.mcz
by commits＠source.squeak.org 30 May '10

30 May '10

Karl Ramberg uploaded a new version of Sound to project Etoys: http://source.squeak.org/etoys/Sound-kfr.2.mcz ==================== Summary ==================== Name: Sound-kfr.2 Author: kfr Time: 30 May 2010, 1:57:46 am UUID: 72cae229-af48-9047-9875-7c19f86b4336 Ancestors: Sound-bf.1 We must keep a reference to the sound we are playing so we can stop it later... =============== Diff against Sound-bf.1 =============== Item was changed: ----- Method: BaseSoundSystem>>playSoundNamed: (in category 'playing') ----- playSoundNamed: soundName "There is sound support, so we play the given sound." Preferences soundsEnabled ifTrue: [ + ^SampledSound playSoundNamed: soundName asString]! - SampledSound playSoundNamed: soundName asString]!

1 0

Etoys: Etoys-kfr.13.mcz
by commits＠source.squeak.org 30 May '10

30 May '10

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.13.mcz ==================== Summary ==================== Name: Etoys-kfr.13 Author: kfr Time: 30 May 2010, 1:48:28 am UUID: e32a4b21-03d7-7241-b2d1-95997cbec281 Ancestors: Etoys-kfr.12 Fix the overlap logic in Morph>>overlapsShadowForm:bounds: Fix for not including self in testing for overlaps i Player>>overlapsAny: Refactor Player>>overlaps: to use Morph>>overlapsShadowForm:bounds: =============== Diff against Etoys-kfr.12 =============== Item was changed: ----- Method: Player>>overlapsAny: (in category 'scripts-standard') ----- overlapsAny: aPlayer "Answer true if my costume overlaps that of aPlayer, or any of its siblings (if aPlayer is a scripted player) or if my costume overlaps any morphs of the same class (if aPlayer is unscripted)." | possibleCostumes itsCostume itsCostumeClass myShadow | (self ~= aPlayer and: [self overlaps: aPlayer]) + ifTrue: [^true]. - ifTrue: [^ true]. possibleCostumes := IdentitySet new. aPlayer belongsToUniClass ifTrue: [aPlayer class + allSubInstancesDo: [:anInstance | (anInstance ~~ self - allSubInstancesDo: [:anInstance | (anInstance ~~ aPlayer and: [itsCostume := anInstance costume. (itsCostume bounds intersects: costume bounds) and: [itsCostume world == costume world]]) ifTrue: [possibleCostumes add: itsCostume]]] ifFalse: [itsCostumeClass := aPlayer costume class. self costume world presenter allExtantPlayers + do: [:ep | self ~= ep ifTrue:[ ep costume - do: [:ep | ep costume ifNotNilDo: [:ea | (ea class == itsCostumeClass and: [ea bounds intersects: costume bounds]) + ifTrue: [possibleCostumes add: ea]]]]]. - ifTrue: [possibleCostumes add: ea]]]]. possibleCostumes isEmpty ifTrue: [^ false]. myShadow := costume shadowForm. + ^possibleCostumes + anySatisfy: [:m | m overlapsShadowForm: myShadow bounds: costume fullBounds]. + + ! - ^ possibleCostumes - anySatisfy: [:m | m overlapsShadowForm: myShadow bounds: costume fullBounds]! Item was changed: ----- Method: Player>>overlaps: (in category 'misc') ----- overlaps: aPlayer "Answer whether my costume overlaps that of another player" + | goalCostume intersection | - | goalCostume intersection myShadow goalShadow bb myRect goalRect | aPlayer ifNil: [^false]. goalCostume := aPlayer costume. costume world == goalCostume world ifFalse: [^false]. "check if the 2 player costumes intersect" intersection := costume bounds intersect: goalCostume bounds. (intersection width = 0 or: [intersection height = 0]) ifTrue: [^false] ifFalse: + [ ^self costume overlapsShadowForm: goalCostume imageForm stencil bounds: goalCostume fullBounds ]! - ["check if the overlapping region is non-transparent" - - "compute 1-bit, black and white versions (stencils) of the intersecting - part of each morph's costume" - - myRect := intersection translateBy: 0 @ 0 - costume topLeft. - myShadow := (costume imageForm contentsOfArea: myRect) stencil. - goalRect := intersection translateBy: 0 @ 0 - goalCostume topLeft. - goalShadow := (goalCostume imageForm contentsOfArea: goalRect) stencil. - - "compute a pixel-by-pixel AND of the two stencils. Result will be black - (pixel value = 1) where black parts of the stencils overlap" - bb := BitBlt toForm: myShadow. - bb - copyForm: goalShadow - to: 0 @ 0 - rule: Form and. - - "return TRUE if resulting form contains any black pixels" - ^(bb destForm tallyPixelValues second) > 0]!

1 0

Etoys: Connectors-kfr.188.mcz
by commits＠source.squeak.org 30 May '10

30 May '10

Karl Ramberg uploaded a new version of Connectors to project Etoys: http://source.squeak.org/etoys/Connectors-kfr.188.mcz ==================== Summary ==================== Name: Connectors-kfr.188 Author: kfr Time: 30 May 2010, 1:48:03 am UUID: 2707f7a6-10ce-f343-bac3-aed3a747f5eb Ancestors: Connectors-bf.187 Fix the overlap logic in Morph>>overlapsShadowForm:bounds: Fix for not including self in testing for overlaps i Player>>overlapsAny: Refactor Player>>overlaps: to use Morph>>overlapsShadowForm:bounds: =============== Diff against Connectors-bf.187 =============== Item was added: + ----- Method: Morph>>overlapsShadowForm:bounds: (in category '*connectors-geometry') ----- + overlapsShadowForm: itsShadow bounds: itsBounds + "Answer true if itsShadow and my shadow overlap at all" + | overlapExtent overlap myRect myShadow goalRect goalShadow bb | + overlap _ self fullBounds intersect: itsBounds. + overlapExtent _ overlap extent. + overlapExtent > (0 @ 0) + ifFalse: [^ false]. + myRect := overlap translateBy: 0 @ 0 - self topLeft. + myShadow := (self imageForm contentsOfArea: myRect) stencil. + goalRect := overlap translateBy: 0 @ 0 - itsBounds topLeft. + goalShadow := (itsShadow contentsOfArea: goalRect) stencil. + + "compute a pixel-by-pixel AND of the two stencils. Result will be black + (pixel value = 1) where black parts of the stencils overlap" + bb := BitBlt toForm: myShadow. + bb + copyForm: goalShadow + to: 0 @ 0 + rule: Form and. + + ^(bb destForm tallyPixelValues second) > 0 !

1 0

DrGeo package for Etoys
by Hilaire Fernandes 30 May '10

30 May '10

At DrGeo Monticello reposittory (http://www.squeaksource.com/DrGeoII), I have added two packages DrGeo-Core and DrGeo-Etoys to be installed in this order in Etoys image. I still have to get the DrGeo Etoys tiles code (in a separate Changeset) into the DrGeo-Etoys Monticello package. Hil

4 6

translatedInAllDomains printing to Transcript
by karl ramberg 29 May '10

29 May '10

Latest updates prints all messages sent to String>>translatedInAllDomains print to the transcript. Is this intended ? Karl

2 2

Etoys: Tools-kfr.3.mcz
by commits＠source.squeak.org 29 May '10

29 May '10

Karl Ramberg uploaded a new version of Tools to project Etoys: http://source.squeak.org/etoys/Tools-kfr.3.mcz ==================== Summary ==================== Name: Tools-kfr.3 Author: kfr Time: 29 May 2010, 4:59:22 pm UUID: bfb7044d-d5eb-f745-95dd-637ba3ba336d Ancestors: Tools-kfr.2 Adjust the height of input field =============== Diff against Tools-kfr.2 =============== Item was changed: ----- Method: MessageNames>>inMorphicWindowWithInitialSearchString: (in category 'initialization') ----- inMorphicWindowWithInitialSearchString: initialString "Answer a morphic window with the given initial search string, nil if none" "MessageNames openMessageNames" | window selectorListView firstDivider secondDivider horizDivider typeInPane searchButton plugTextMor | window _ (SystemWindow labelled: 'Message Names') model: self. + firstDivider _ 0.1. - firstDivider _ 0.07. secondDivider _ 0.5. horizDivider _ 0.5. typeInPane _ AlignmentMorph newRow vResizing: #spaceFill; height: 14. typeInPane hResizing: #spaceFill. typeInPane listDirection: #leftToRight. plugTextMor _ PluggableTextMorph on: self text: #searchString accept: #searchString:notifying: readSelection: nil menu: #codePaneMenu:shifted:. plugTextMor setProperty: #alwaysAccept toValue: true. plugTextMor askBeforeDiscardingEdits: false. plugTextMor acceptOnCR: true. plugTextMor setTextColor: Color brown. plugTextMor setNameTo: 'Search'. plugTextMor vResizing: #spaceFill; hResizing: #spaceFill. plugTextMor hideScrollBarsIndefinitely. plugTextMor setTextMorphToSelectAllOnMouseEnter. searchButton _ SimpleButtonMorph new target: self; beTransparent; label: 'Search'; actionSelector: #doSearchFrom:; arguments: {plugTextMor}. searchButton setBalloonText: 'Type some letters into the pane at right, and then press this Search button (or hit RETURN) and all method selectors that match what you typed will appear in the list pane below. Click on any one of them, and all the implementors of that selector will be shown in the right-hand pane, and you can view and edit their code without leaving this tool.'. typeInPane addMorphFront: searchButton. typeInPane addTransparentSpacerOfSize: 6@0. typeInPane addMorphBack: plugTextMor. initialString isEmptyOrNil ifFalse: [plugTextMor setText: initialString]. window addMorph: typeInPane frame: (0@0 corner: horizDivider @ firstDivider). selectorListView _ PluggableListMorph on: self list: #selectorList selected: #selectorListIndex changeSelected: #selectorListIndex: menu: #selectorListMenu: keystroke: #selectorListKey:from:. selectorListView menuTitleSelector: #selectorListMenuTitle. window addMorph: selectorListView frame: (0 @ firstDivider corner: horizDivider @ secondDivider). window addMorph: self buildMorphicMessageList frame: (horizDivider @ 0 corner: 1@ secondDivider). self addLowerPanesTo: window at: (0 @ secondDivider corner: 1@1) with: nil. initialString isEmptyOrNil ifFalse: [self searchString: initialString notifying: nil]. ^ window!

1 0

Etoys: Etoys-kfr.12.mcz
by commits＠source.squeak.org 29 May '10

29 May '10

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.12.mcz ==================== Summary ==================== Name: Etoys-kfr.12 Author: kfr Time: 29 May 2010, 1:57:17 pm UUID: b39ea6fc-84b9-f944-880d-2adcc2eac659 Ancestors: Etoys-Richo.11 Compute up/down arrow increments in NumberTiles from decimal places =============== Diff against Etoys-Richo.11 =============== Item was changed: ----- Method: Player>>arrowDeltaFor: (in category 'misc') ----- arrowDeltaFor: aGetSelector "Answer the arrowDelta to use in conjunction with a readout for aGetSelector, which will be of the form 'getXXX'" + (self slotInfoForGetter: aGetSelector) ifNotNilDo: [ :slotInfo | + ^slotInfo floatPrecision]. costume ifNotNil: [^ costume renderedMorph arrowDeltaFor: aGetSelector]. + ^ 1! - ^ 1 - - "For the future, possibly: If we want the SlotInformation for a user-defined slot to be able to specify a standard arrowDelta for that slot, we'd include something like the following... - | aSlotName slotInfo | - aSlotName _ Utilities inherentSelectorForGetter: aGetSelector. - (slotInfo _ self slotInfoAt: aSlotName ifAbsent: [nil]) ifNotNil: - [^ slotInfo arrowDelta]." - ! Item was added: + ----- Method: TileMorph>>decimalPlaces (in category 'mouse handling') ----- + decimalPlaces + "Answer the number of decimal places of the contained number" + + | readout | + (readout _ self findA: UpdatingStringMorph) ifNotNil: [^readout decimalPlaces ]. + ^0! Item was changed: ----- Method: Player>>noteDecimalPlaces:forGetter: (in category 'misc') ----- noteDecimalPlaces: aNumber forGetter: aGetter "Note the given preference of decimal places for the given getter" + | slotInfo | + slotInfo _ self slotInfoAt: (Utilities inherentSelectorForGetter: aGetter). + slotInfo floatPrecision: (Utilities floatPrecisionForDecimalPlaces: aNumber). - costume noteDecimalPlaces: aNumber forGetter: aGetter! Item was changed: ----- Method: TileMorph>>arrowDelta (in category 'mouse handling') ----- arrowDelta "Answer the amount by which a number I display should increase at a time" + | readout | + (readout _ self findA: UpdatingStringMorph) ifNotNil: [^readout floatPrecision ]. + ^1! - ^ self valueOfProperty: #arrowDelta ifAbsent: [1]! Item was changed: ----- Method: Player>>setPrecisionFor: (in category 'slots-user') ----- setPrecisionFor: slotName "Set the precision for the given slot name" | aList aMenu reply val aGetter places | aGetter := Utilities getterSelectorFor: slotName. + places := Utilities decimalPlacesForFloatPrecision: (self getPrecisionFor: slotName). - places := Utilities - decimalPlacesForFloatPrecision: (self defaultFloatPrecisionFor: aGetter). aList := #('0' '1' '2' '3' '4' '5' '6' '7' '8' '9' '10'). aMenu := SelectionMenu labels: aList selections: (aList collect: [:m | m asNumber]). reply := aMenu startUpWithCaption: ('How many decimal places? (currently {1})' translated format: {places}). reply ifNotNil: [(self slotInfo includesKey: slotName) ifTrue: ["it's a user slot" (self slotInfoAt: slotName) floatPrecision: (Utilities floatPrecisionForDecimalPlaces: reply). self class allInstancesDo: [:anInst | reply == 0 ifFalse: [((val := anInst instVarNamed: slotName asString) isInteger) ifTrue: [anInst instVarNamed: slotName asString put: val asFloat]]. anInst updateAllViewers]] ifFalse: ["it's specifying a preference for precision on a system-defined numeric slot" self noteDecimalPlaces: reply forGetter: aGetter. self updateAllViewers]]! Item was added: + ----- Method: Player>>getPrecisionFor: (in category 'slots-user') ----- + getPrecisionFor: slotName + "get the precision for the given slot name" + + | aGetter places precision | + precision _ 1. + (self slotInfo includesKey: slotName) + ifTrue: + ["it's a user slot" + precision _ (self slotInfoAt: slotName) floatPrecision] + ifFalse: + ["reference to system slots" + aGetter := Utilities getterSelectorFor: slotName. + self costume renderedMorph ifNotNilDo: [ :morph | + places _ morph decimalPlacesForGetter: aGetter. + precision _ Utilities floatPrecisionForDecimalPlaces: places ]]. + ^precision!

1 0

Etoys: Morphic-kfr.10.mcz
by commits＠source.squeak.org 29 May '10

29 May '10

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.10.mcz ==================== Summary ==================== Name: Morphic-kfr.10 Author: kfr Time: 29 May 2010, 1:55:12 pm UUID: a1a5a906-5862-ce4a-ada0-d1029e2df2ed Ancestors: Morphic-KR.9 Compute up/down arrow increments in NumberTiles from decimal places =============== Diff against Morphic-KR.9 =============== Item was changed: ----- Method: UpdatingStringMorph>>readFromTarget (in category 'target access') ----- readFromTarget "Update my readout from my target" + | v ret places | - | v ret | (target isNil or: [getSelector isNil]) ifTrue: [^contents]. ret _ self checkTarget. ret ifFalse: [^ '0']. + places _ target decimalPlacesForGetter: getSelector. + (places ~= nil and: [ places ~= decimalPlaces ]) ifTrue: [ self decimalPlaces: places ]. v := target perform: getSelector. "scriptPerformer" (v isKindOf: Text) ifTrue: [v := v asString]. ^self acceptValueFromTarget: v!

1 0

Etoys: Tools-kfr.2.mcz
by commits＠source.squeak.org 29 May '10

29 May '10

Karl Ramberg uploaded a new version of Tools to project Etoys: http://source.squeak.org/etoys/Tools-kfr.2.mcz ==================== Summary ==================== Name: Tools-kfr.2 Author: kfr Time: 29 May 2010, 1:51:37 pm UUID: 7ae07604-07c6-cf40-9246-22549542587c Ancestors: Tools-bf.1 Offer a menu in the seach pane of MessageName tool. Now possible to paste with mouse :-) =============== Diff against Tools-bf.1 =============== Item was changed: ----- Method: MessageNames>>inMorphicWindowWithInitialSearchString: (in category 'initialization') ----- inMorphicWindowWithInitialSearchString: initialString "Answer a morphic window with the given initial search string, nil if none" "MessageNames openMessageNames" | window selectorListView firstDivider secondDivider horizDivider typeInPane searchButton plugTextMor | window _ (SystemWindow labelled: 'Message Names') model: self. firstDivider _ 0.07. secondDivider _ 0.5. horizDivider _ 0.5. typeInPane _ AlignmentMorph newRow vResizing: #spaceFill; height: 14. typeInPane hResizing: #spaceFill. typeInPane listDirection: #leftToRight. plugTextMor _ PluggableTextMorph on: self text: #searchString accept: #searchString:notifying: + readSelection: nil menu: #codePaneMenu:shifted:. - readSelection: nil menu: nil. plugTextMor setProperty: #alwaysAccept toValue: true. plugTextMor askBeforeDiscardingEdits: false. plugTextMor acceptOnCR: true. plugTextMor setTextColor: Color brown. plugTextMor setNameTo: 'Search'. plugTextMor vResizing: #spaceFill; hResizing: #spaceFill. plugTextMor hideScrollBarsIndefinitely. plugTextMor setTextMorphToSelectAllOnMouseEnter. searchButton _ SimpleButtonMorph new target: self; beTransparent; label: 'Search'; actionSelector: #doSearchFrom:; arguments: {plugTextMor}. searchButton setBalloonText: 'Type some letters into the pane at right, and then press this Search button (or hit RETURN) and all method selectors that match what you typed will appear in the list pane below. Click on any one of them, and all the implementors of that selector will be shown in the right-hand pane, and you can view and edit their code without leaving this tool.'. typeInPane addMorphFront: searchButton. typeInPane addTransparentSpacerOfSize: 6@0. typeInPane addMorphBack: plugTextMor. initialString isEmptyOrNil ifFalse: [plugTextMor setText: initialString]. window addMorph: typeInPane frame: (0@0 corner: horizDivider @ firstDivider). selectorListView _ PluggableListMorph on: self list: #selectorList selected: #selectorListIndex changeSelected: #selectorListIndex: menu: #selectorListMenu: keystroke: #selectorListKey:from:. selectorListView menuTitleSelector: #selectorListMenuTitle. window addMorph: selectorListView frame: (0 @ firstDivider corner: horizDivider @ secondDivider). window addMorph: self buildMorphicMessageList frame: (horizDivider @ 0 corner: 1@ secondDivider). self addLowerPanesTo: window at: (0 @ secondDivider corner: 1@1) with: nil. initialString isEmptyOrNil ifFalse: [self searchString: initialString notifying: nil]. ^ window!

1 0

Etoys: GetText-kfr.12.mcz
by commits＠source.squeak.org 29 May '10

29 May '10

Karl Ramberg uploaded a new version of GetText to project Etoys: http://source.squeak.org/etoys/GetText-kfr.12.mcz ==================== Summary ==================== Name: GetText-kfr.12 Author: kfr Time: 29 May 2010, 1:48:21 pm UUID: 293d6efd-a53e-4142-bf2a-5b0294f57ec7 Ancestors: GetText-Richo.11 Comment out printing to Transcript =============== Diff against GetText-Richo.11 =============== Item was changed: ----- Method: String>>translatedInAllDomains (in category '*gettext') ----- translatedInAllDomains | translation | + "Transcript show: self printString, ' translatedInAllDomains'; cr." - Transcript show: self printString, ' translatedInAllDomains'; cr. TextDomainManager allKnownDomains do: [:domain | translation := self translatedInDomain: domain. self = translation ifFalse: [^translation] ]. ^self!

1 0

← Newer
1
2
3
4
5
6
7
...
20
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev May 2010