etoys-dev February 2012

etoys-dev@lists.squeakfoundation.org

16 participants
75 discussions

Additional Italian Quick Guides
by Harness, Kathleen 11 Feb '12

11 Feb '12

Hi, Stephen Trofinoff translated twelve more of the Quick Guides for the current version. See the attachment for the list. He did not translate these two: Object Catalog: Polygon and Menu: Grid Snap to Grid. Please tell me how to add the finished ones to the Etoys Source. Or, I can send someone a zip file if that is best. Kathleen

2 1

Etoys: Morphic-kfr.74.mcz
by commits＠source.squeak.org 11 Feb '12

11 Feb '12

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.74.mcz ==================== Summary ==================== Name: Morphic-kfr.74 Author: kfr Time: 11 February 2012, 11:08:17 am UUID: e206c1e1-13de-184f-99f6-ae894d07b353 Ancestors: Morphic-Richo.73 Deficient support for Point-valued variables http://tracker.squeakland.org/browse/SQ-1012 =============== Diff against Morphic-Richo.73 =============== Item was changed: ----- Method: UpdatingStringMorph>>acceptValueFromTarget: (in category 'target access') ----- acceptValueFromTarget: v + "Accept a value from the target. Answer the string rendition of the value." - "Accept a value from the target" lastValue _ v. self format == #string ifTrue: [^ v asString]. self format == #symbol ifTrue: [^ v asString fromCamelCase translated]. (format == #default and: [v isNumber]) ifTrue: [^ self stringForNumericValue: v]. + (format == #default and: [v isPoint]) ifTrue: + [^ self stringForPointValue: v]. ^ v printString translated! Item was added: + ----- Method: UpdatingStringMorph>>stringForPointValue: (in category 'target access') ----- + stringForPointValue: aValue + "Answer a suitably-formatted string representing the value." + + ^ (aValue x printShowingDecimalPlaces: self decimalPlaces), ' @ ', (aValue y printShowingDecimalPlaces: self decimalPlaces)! Item was changed: ----- Method: UpdatingStringMorph>>valueFromContents (in category 'accessing') ----- valueFromContents "Return a new value from the current contents string." format = #symbol ifTrue: [^ lastValue]. format = #string ifTrue: [^ contents]. + (owner notNil and: [owner isMemberOf: NumericReadoutTile]) ifTrue: + [^ (owner hasProperty: #PointValued) + ifTrue: + [Point readEToyPointFrom: contents] + ifFalse: + [Number readEToyNumberFrom: contents]]. + (target isMorph and: [target owner isKindOf: TilePadMorph]) + ifTrue: + [(target owner type = #Number) + ifTrue: [^ Number readEToyNumberFrom: contents]. + (target owner type = #Point) + ifTrue: [^ Point readEToyPointFrom: contents]]. - (owner notNil and: [owner isMemberOf: NumericReadoutTile]) ifTrue: - [^ Number readEToyNumberFrom: contents]. + ^ [Compiler evaluate: contents] ifError: [nil]! - target isMorph ifTrue: [target owner ifNotNil: - [((target owner isMemberOf: TilePadMorph) and: [target owner type = #Number]) - ifTrue: [^ Number readEToyNumberFrom: contents]]]. - - ^ [Compiler evaluate: contents] ifError: [nil] - !

1 0

Etoys: Etoys-kfr.105.mcz
by commits＠source.squeak.org 11 Feb '12

11 Feb '12

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.105.mcz ==================== Summary ==================== Name: Etoys-kfr.105 Author: kfr Time: 11 February 2012, 11:03:11 am UUID: 0ffabf1d-eb56-1742-8dc6-1b823237267f Ancestors: Etoys-Richo.104 Deficient support for Point-valued variables http://tracker.squeakland.org/browse/SQ-1012 =============== Diff against Etoys-Richo.104 =============== Item was changed: ----- Method: CategoryViewer>>readoutFor:type:readOnly:getSelector:putSelector: (in category 'entries') ----- readoutFor: partName type: partType readOnly: readOnly getSelector: getSelector putSelector: putSelector "Answer a readout morph for the given part" | readout delta | readout _ (Vocabulary vocabularyForType: partType) updatingTileForTarget: scriptedPlayer partName: partName getter: getSelector setter: putSelector. (partType == #Number) ifTrue: [(delta _ scriptedPlayer arrowDeltaFor: getSelector) = 1 ifFalse: [readout setProperty: #arrowDelta toValue: delta]. scriptedPlayer setFloatPrecisionFor: readout updatingStringMorph]. + partType == #Point ifTrue: + [scriptedPlayer setFloatPrecisionFor: readout updatingStringMorph]. + readout step. ^ readout! Item was changed: ----- Method: DataType>>updatingTileForTarget:partName:getter:setter: (in category '*Etoys-tiles') ----- updatingTileForTarget: aTarget partName: partName getter: getter setter: setter "Answer, for classic tiles, an updating readout tile for a part with the receiver's type, with the given getter and setter" | aTile displayer actualSetter | actualSetter _ setter ifNotNil: [(#(none #nil unused) includes: setter) ifTrue: [nil] ifFalse: [setter]]. aTile _ self newReadoutTile. displayer _ UpdatingStringMorph new getSelector: getter; target: aTarget; growable: true; minimumWidth: 48; putSelector: actualSetter. + "Note that where relevant (Number and Point types), the #target: call above will have dealt with floatPrecision details" - "Note that when typeSymbol = #number, the #target: call above will have dealt with floatPrecision details" displayer font: Preferences standardEToysFont. self setFormatForDisplayer: displayer. aTile addMorphBack: displayer. displayer setNameTo: 'readout string' translated. (actualSetter notNil and: [self wantsArrowsOnTiles]) ifTrue: [aTile addArrows]. getter numArgs == 0 ifTrue: [aTile setLiteralInitially: (aTarget perform: getter)]. ^ aTile ! Item was changed: ----- Method: Morph>>defaultFloatPrecisionFor: (in category '*Etoys-scripting') ----- defaultFloatPrecisionFor: aGetSelector "Answer a number indicating the default float precision to be used in a numeric readout for which the receiver provides the data. Individual morphs can override this. Showing fractional values for readouts of getCursor was in response to an explicit request from ack" (self renderedMorph decimalPlacesForGetter: aGetSelector) ifNotNilDo: [:places | ^ (Utilities floatPrecisionForDecimalPlaces: places)]. (#(getCursor getNumericValue getNumberAtCursor getCursorWrapped getScaleFactor) includes: aGetSelector) ifTrue: [^ 0.01]. + + (#(getXOnGraph getYOnGraph getLocationOnGraph) includes: aGetSelector) + ifTrue: + [^ 0.1]. ^ 1! Item was changed: TileMorph subclass: #NumericReadoutTile instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Etoys-Scripting Tiles'! + + !NumericReadoutTile commentStamp: 'sw 2/8/2012 18:22' prior: 0! + A readout tile for Number-valued variables. + If it bears property #PointValued, it will actually represent a Point-valued variable.!

1 0

Etoys: Graphics-kfr.9.mcz
by commits＠source.squeak.org 11 Feb '12

11 Feb '12

Karl Ramberg uploaded a new version of Graphics to project Etoys: http://source.squeak.org/etoys/Graphics-kfr.9.mcz ==================== Summary ==================== Name: Graphics-kfr.9 Author: kfr Time: 11 February 2012, 11:00:26 am UUID: 0cf4261d-e3ef-de46-b90c-55daff0a20b5 Ancestors: Graphics-kfr.8 Deficient support for Point-valued variables http://tracker.squeakland.org/browse/SQ-1012 =============== Diff against Graphics-kfr.8 =============== Item was added: + ----- Method: Point class>>readEToyPointFrom: (in category 'instance creation') ----- + readEToyPointFrom: aString + "Answer a point as described in the string" + + | atPos xString yString | + atPos := aString indexOf: $@ ifAbsent: [nil]. + + xString := atPos + ifNil: + [aString] + ifNotNil: + [aString copyFrom: 1 to: (atPos - 1)]. + yString := atPos + ifNil: + [aString] + ifNotNil: + [aString copyFrom: (atPos + 1) to: aString size]. + + ^ (Number readEToyNumberFrom: xString) @ (Number readEToyNumberFrom: yString) + " + Point readEToyPointFrom: '2.345 @ -23.49' + "!

1 0

Droppable Behaviors in Etoys
by Steve Thomas 09 Feb '12

09 Feb '12

I am looking to create droppable behaviors similar to those in Lively Kernal. I can do it with connectors like this: > script1 > self getDestinationPlayer setColor: self getSourcePlayer getColor But would like to simply drop a morph onto another morph to accomplish the task. How can I get a list of morphs my "droppable behavior" is overlapping? Extra points for a sample project :) Thanks, Stephen

2 1

Etoys Inbox: Sugar-kfr.14.mcz
by commits＠source.squeak.org 08 Feb '12

08 Feb '12

A new version of Sugar was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Sugar-kfr.14.mcz ==================== Summary ==================== Name: Sugar-kfr.14 Author: kfr Time: 8 February 2012, 11:07:32 am UUID: ca3a85de-255a-174b-b4e9-707790a31a99 Ancestors: Sugar-kfr.13 Fix look. =============== Diff against Sugar-kfr.13 =============== Item was changed: + ----- Method: SugarNavigatorBar>>soundControl (in category 'buttons creation') ----- - ----- Method: SugarNavigatorBar>>soundControl (in category 'button actions') ----- soundControl | bar slider | + bar := SimpleSliderMorph new. - bar := SimpleSliderMorph new. bar position: ActiveHand position. + bar borderColor: Color black; borderWidth: 2. + bar width:25. bar adjustToValue: SoundPlayer soundVolume first."array with stereo values. pick first" bar descending: true. bar beSticky. slider := bar submorphs first. + slider borderWidth: 0; color: Color black . + slider on: #mouseUp send: #value to: [ self setSoundVolume: bar value. bar delete]. slider on: #mouseMove send: #value to: [ bar scrollAbsolute: ActiveHand lastEvent. + self setSoundVolume: bar value. self beep]. - self setSoundVolume: bar value]. ^bar openInWorld!

1 0

Etoys Inbox: Sugar-kfr.13.mcz
by commits＠source.squeak.org 08 Feb '12

08 Feb '12

A new version of Sugar was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Sugar-kfr.13.mcz ==================== Summary ==================== Name: Sugar-kfr.13 Author: kfr Time: 8 February 2012, 10:48:16 am UUID: e5d01474-fa7f-a147-b775-ec796cf33f2f Ancestors: Sugar-kfr.12 Add a sound volume button to the navigator bar =============== Diff against Sugar-kfr.12 =============== Item was changed: ----- Method: SugarNavigatorBar class>>rebuildButtons (in category 'utilitity') ----- rebuildButtons + "self rebuildButtons" self current ifNotNilDo: [:bar | bar rebuildButtons]! Item was added: + ----- Method: SugarNavigatorBar>>buttonSound (in category 'buttons creation') ----- + buttonSound + "Answer an new instance of a 'Sound' button." + + ^ shareButton := self makeButton: 'Sound' + balloonText: 'Adjust the sound volume' translated + for: #soundControl! Item was changed: ----- Method: SugarNavigatorBar>>makeTheButtons (in category 'initialization') ----- makeTheButtons ^ { self buttonHelp. self makeProjectNameLabel. }, ( Preferences showAdvancedNavigatorButtons ifTrue: [{self buttonNewProject}] ifFalse: [#()] ), { self buttonPrev. self buttonNext. self buttonPaint. self buttonSupplies. self buttonLanguage. + self buttonSound. }, (SugarLauncher isRunningInSugar ifTrue: [{ self buttonShare. #spacer. self buttonChoose. self buttonKeep. stopButton := SugarLauncher current willSaveOnQuit ifTrue: [self buttonStop] ifFalse: [self buttonQuit] }] ifFalse: [{ self buttonZoom. #spacer. self buttonFind. self buttonPublish. self buttonQuit}] ), (Preferences navControlInNavBar ifTrue: [{self buttonHideNavBar}] ifFalse: [#()])! Item was added: + ----- Method: SugarNavigatorBar>>soundControl (in category 'button actions') ----- + soundControl + | bar slider | + bar := SimpleSliderMorph new. + bar position: ActiveHand position. + bar adjustToValue: SoundPlayer soundVolume first."array with stereo values. pick first" + bar descending: true. + bar beSticky. + slider := bar submorphs first. + slider on: #mouseUp send: #value to: [ + self setSoundVolume: bar value. + bar delete]. + slider on: #mouseMove send: #value to: [ + bar scrollAbsolute: ActiveHand lastEvent. + self setSoundVolume: bar value]. + ^bar openInWorld!

1 0

Etoys: Etoys-Richo.104.mcz
by commits＠source.squeak.org 07 Feb '12

07 Feb '12

Ricardo Moran uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-Richo.104.mcz ==================== Summary ==================== Name: Etoys-Richo.104 Author: Richo Time: 7 February 2012, 6:16:45 pm UUID: 5b7e1ee7-c39c-3745-85c2-89d0f66caaf3 Ancestors: Etoys-Richo.103 * Fixed bug when adding a new variable and not selecting a type. =============== Diff against Etoys-Richo.103 =============== Item was changed: ----- Method: Player>>addInstanceVariable (in category 'slots-user') ----- addInstanceVariable "Offer the user the opportunity to add an instance variable, and if he goes through with it, actually add it." | itsName initialValue typeChosen usedNames initialAnswer setterSelector originalString | usedNames := self class instVarNames. initialAnswer := Utilities keyLike: ('var' translated, (usedNames size + 1) asString) satisfying: [:aKey | (usedNames includes: aKey) not]. originalString := FillInTheBlank request: 'name for new variable: ' translated initialAnswer: initialAnswer. Cursor wait showWhile: [ originalString isEmptyOrNil ifTrue: [^ self]. itsName := ScriptingSystem acceptableSlotNameFrom: originalString forSlotCurrentlyNamed: nil asSlotNameIn: self world: self costume world. itsName size == 0 ifTrue: [^ self]. self assureUniClass. + typeChosen := (self askUserForNewTypeFor: itsName) ifNil: [#Number]. - typeChosen := self askUserForNewTypeFor: itsName. self slotInfo at: itsName put: (SlotInformation new initialize type: typeChosen). initialValue := self initialValueForSlotOfType: typeChosen. self addInstanceVarNamed: itsName withValue: initialValue. self compileInstVarAccessorsFor: itsName. setterSelector := Utilities setterSelectorFor: itsName. ((self class allSubInstances copyWithout: self) reject: [:e | e isSequentialStub]) do: [:anInstance | anInstance perform: setterSelector with: initialValue]. self regenerateScripts. self updateAllViewersAndForceToShow: ScriptingSystem nameForInstanceVariablesCategory. ]!

1 0

Russian Quick Guides
by Harness, Kathleen 07 Feb '12

07 Feb '12

Hi A volunteer here at the University of Illinois translated the Quick Guides Halo Tools into Russian. Are there plans to include Russian fonts in the next release? If so, send me a link to a version with the fonts. If Russian fonts won't be in the next release, as an experiment, I added a page 5 to the Quick Guide and a PNG of the Russian. This does not require a font but then of course nothing else will translate so they may be useless. I can post them on EtoysIllinois, if these are not suitable for the upcoming release. Let me know what is best. Regards, Kathleen

2 1

Re: [etoys-dev] Etoys: Etoys-Richo.103.mcz
by Scott Wallace 07 Feb '12

07 Feb '12

One bug I quickly ran into with this is that if you add a variable but then instead of choosing a type from the pop-up-list, you just click somewhere else, you fall into a debugger. -- Scott On Feb 6, 2012, at 8:17 PM, commits(a)source.squeak.org wrote: > Ricardo Moran uploaded a new version of Etoys to project Etoys: > http://source.squeak.org/etoys/Etoys-Richo.103.mcz > > ==================== Summary ==================== > > Name: Etoys-Richo.103 > Author: Richo > Time: 6 February 2012, 5:16:57 pm > UUID: 84503c98-7c83-064f-957f-5bacf093d22e > Ancestors: Etoys-kfr.102 > > Sixteen items for Squeakland 2012: > > 11. On Add Variable: Show options for value type - to make it easier to discover different types besides number (Ex: player, color, etc). > > =============== Diff against Etoys-kfr.102 =============== > > Item was changed: > ----- Method: Player>>addInstanceVariable (in category 'slots-user') ----- > addInstanceVariable > "Offer the user the opportunity to add an instance variable, and if he goes through with it, actually add it." > > | itsName initialValue typeChosen usedNames initialAnswer setterSelector originalString | > + usedNames := self class instVarNames. > - usedNames _ self class instVarNames. > > + initialAnswer := Utilities keyLike: ('var' translated, (usedNames size + 1) asString) satisfying: [:aKey | (usedNames includes: aKey) not]. > - initialAnswer _ Utilities keyLike: ('var' translated, (usedNames size + 1) asString) satisfying: [:aKey | (usedNames includes: aKey) not]. > > + originalString := FillInTheBlank request: 'name for new variable: ' translated initialAnswer: initialAnswer. > - originalString _ FillInTheBlank request: 'name for new variable: ' translated initialAnswer: initialAnswer. > Cursor wait showWhile: [ > originalString isEmptyOrNil ifTrue: [^ self]. > + itsName := ScriptingSystem acceptableSlotNameFrom: originalString forSlotCurrentlyNamed: nil asSlotNameIn: self world: self costume world. > - itsName _ ScriptingSystem acceptableSlotNameFrom: originalString forSlotCurrentlyNamed: nil asSlotNameIn: self world: self costume world. > > itsName size == 0 ifTrue: [^ self]. > self assureUniClass. > + typeChosen := self askUserForNewTypeFor: itsName. > - typeChosen _ self initialTypeForSlotNamed: itsName. > self slotInfo at: itsName put: (SlotInformation new initialize type: typeChosen). > + initialValue := self initialValueForSlotOfType: typeChosen. > - initialValue _ self initialValueForSlotOfType: typeChosen. > self addInstanceVarNamed: itsName withValue: initialValue. > self compileInstVarAccessorsFor: itsName. > + setterSelector := Utilities setterSelectorFor: itsName. > - setterSelector _ Utilities setterSelectorFor: itsName. > ((self class allSubInstances copyWithout: self) reject: [:e | e isSequentialStub]) do: > [:anInstance | anInstance perform: setterSelector with: initialValue]. > self regenerateScripts. > + self updateAllViewersAndForceToShow: ScriptingSystem nameForInstanceVariablesCategory. > - self updateAllViewersAndForceToShow: ScriptingSystem nameForInstanceVariablesCategory > ]! > > Item was added: > + ----- Method: Player>>askUserForNewTypeFor: (in category 'slots-user') ----- > + askUserForNewTypeFor: slotName > + | typeChoices menuCaption | > + typeChoices := Vocabulary typeChoices asOrderedCollection. > + [self costume renderedMorph defaultPatch] > + on:Exception > + do:[ typeChoices remove: #Patch ifAbsent: [typeChoices]]. > + menuCaption := 'Choose the TYPE > + for {1} > + ' translated, slotName, ' > + (currently {2})' translated format: {slotName. (self slotInfoAt: slotName) type translated}. > + ^ (SelectionMenu > + labelList: (typeChoices collect: [:t | t translated]) > + lines: #() > + selections: typeChoices) > + startUpWithCaption: menuCaption.! > > Item was changed: > ----- Method: Player>>chooseSlotTypeFor: (in category 'slots-user') ----- > chooseSlotTypeFor: aGetter > "Let the user designate a type for the slot associated with the given getter" > > + | typeChosen slotName | > + slotName := Utilities inherentSelectorForGetter: aGetter. > + typeChosen := self askUserForNewTypeFor: slotName. > - | typeChoices typeChosen slotName | > - slotName _ Utilities inherentSelectorForGetter: aGetter. > - typeChoices _ Vocabulary typeChoices asOrderedCollection. > - [self costume renderedMorph defaultPatch] on:Exception do:[ typeChoices remove: #Patch ifAbsent: [typeChoices]]. > - typeChosen _ (SelectionMenu labelList: (typeChoices collect: [:t | t translated]) lines: #() selections: typeChoices) startUpWithCaption: > - ('Choose the TYPE > - for {1} > - ' translated, slotName, ' > - (currently {2})' translated format: {slotName. (self slotInfoAt: slotName) type translated}). > typeChosen isEmptyOrNil ifTrue: [^ self]. > (self typeForSlot: slotName) capitalized = typeChosen ifTrue: [^ self]. > > (self slotInfoAt: slotName) type: typeChosen. > self class allInstancesDo: "allSubInstancesDo:" > [:anInst | anInst instVarNamed: slotName asString put: > (anInst valueOfType: typeChosen from: (anInst instVarNamed: slotName))]. > self updateAllViewers. "does siblings too" > self changeTypesInWatchersOf: slotName. "does siblings too" > > ! > > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev February 2012