etoys-dev February 2013

etoys-dev@lists.squeakfoundation.org

6 participants
20 discussions

Etoys: Etoys-kfr.153.mcz
by commits＠source.squeak.org 16 Feb '13

16 Feb '13

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.153.mcz ==================== Summary ==================== Name: Etoys-kfr.153 Author: kfr Time: 16 February 2013, 10:30:39 pm UUID: f3b95234-ce13-ac43-a194-2fe648c84879 Ancestors: Etoys-kfr.152 Some enhancements to GraphMorph =============== Diff against Etoys-kfr.152 =============== Item was changed: ----- Method: GraphMorph class>>additionsToViewerCategories (in category '*eToys-scripting') ----- 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." ^ #( (basic ( (slot cursor 'The current cursor location, wrapped back to the beginning if appropriate' Number readWrite Player getGraphCursor Player setCursorWrapped:) (slot sampleAtCursor 'The sample value at the current cursor location' Number readWrite Player getSampleAtCursor Player setSampleAtCursor:))) (sampling ( (slot cursor 'The current cursor location, wrapped back to the beginning if appropriate' Number readWrite Player getCursor Player setCursorWrapped:) (slot sampleAtCursor 'The sample value at the current cursor location' Number readWrite Player getSampleAtCursor Player setSampleAtCursor:) (slot lastValue 'The last value obtained' Number readWrite Player getLastValue Player setLastValue:) + (slot samplingRate '11025, 22050, 44100' SamplingRate readWrite Player getSamplingRate Player setSamplingRate:) (command clear 'Clear the graph of current contents') (command loadSineWave 'Load a sine wave as the current graph') (command loadSound: 'Load the specified sound into the current graph' Sound) (command reverse 'Reverse the graph') + (command playTo: 'Play the current graph as a sound' Number) + (slot count 'How many elements are within me' Number readOnly Player getCount unused unused) (command play 'Play the current graph as a sound'))))!

1 0

Re: [etoys-dev] Etoys: MorphicExtras-kfr.77.mcz
by karl ramberg 11 Feb '13

11 Feb '13

Hm, GraphMorph should not really be part of this... On Mon, Feb 11, 2013 at 7:34 PM, <commits(a)source.squeak.org> wrote: > Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: > http://source.squeak.org/etoys/MorphicExtras-kfr.77.mcz > > ==================== Summary ==================== > > Name: MorphicExtras-kfr.77 > Author: kfr > Time: 11 February 2013, 7:34:04 pm > UUID: d5a59509-3afd-3c46-a1c3-4c4e804aeef9 > Ancestors: MorphicExtras-kfr.76 > > Fixing issues with flexing FlapTab > > =============== Diff against MorphicExtras-kfr.75 =============== > > Item was changed: > ----- Method: FlapTab>>computeEdgeFraction (in category 'edge') ----- > computeEdgeFraction > "Compute and remember the edge fraction" > > | aBox aFraction | > self isCurrentlySolid ifTrue: [^ edgeFraction ifNil: [self > edgeFraction: 0.5]]. > > + aBox := ((self pasteUpMorph ifNil: [self currentWorld]) bounds) > insetBy: (self extent // 2). > + aFraction := self > - aBox _ ((self pasteUpMorph ifNil: [ActiveWorld]) bounds) insetBy: > (self extent // 2). > - aFraction _ self > ifVertical: > [(self center y - aBox top) / (aBox height max: 1)] > ifHorizontal: > [(self center x - aBox left) / (aBox width max: > 1)]. > ^ self edgeFraction: aFraction! > > Item was changed: > ----- Method: FlapTab>>fitOnScreen (in category 'positioning') ----- > fitOnScreen > "19 sept 2000 - allow flaps in any paste up" > | constrainer t l | > + constrainer := self pasteUpMorph ifNil: [self currentWorld]. > - constrainer := self pasteUpMorph ifNil: [self]. > self flapShowing "otherwise no point in doing this" > ifTrue:[self spanWorld]. > self orientation == #vertical ifTrue: [ > + t := ((self top min: (constrainer bottom- self height)) > max: constrainer top). > - t _ ((self top min: (constrainer bottom- self height)) > max: constrainer top). > t = self top ifFalse: [self top: t]. > ] ifFalse: [ > + l := ((self left min: (constrainer right - self width)) > max: constrainer left). > - l _ ((self left min: (constrainer right - self width)) > max: constrainer left). > l = self left ifFalse: [self left: l]. > ]. > self flapShowing ifFalse: [self positionObject: self atEdgeOf: > constrainer]. > ! > > Item was changed: > ----- Method: FlapTab>>hideFlap (in category 'show & hide') ----- > hideFlap > | aWorld | > + aWorld := self world ifNil: [self currentWorld]. > + self privateDeleteReferent. > - aWorld _ self world ifNil: [self currentWorld]. > - referent privateDelete. > aWorld removeAccommodationForFlap: self. > + flapShowing := false. > - flapShowing _ false. > self isInWorld ifFalse: [aWorld addMorphFront: self]. > self adjustPositionAfterHidingFlap. > aWorld haloMorphs do: > [:m | m target isInWorld ifFalse: [m delete]]! > > Item was changed: > ----- Method: FlapTab>>maybeHideFlapOnMouseLeaveDragging (in category > 'show & hide') ----- > maybeHideFlapOnMouseLeaveDragging > | aWorld | > self hasHalo ifTrue: [^ self]. > referent isInWorld ifFalse: [^ self]. > (dragged or: [referent bounds containsPoint: self cursorPoint]) > ifTrue: [^ self]. > aWorld _ self world. > + self privateDeleteReferent. "could make me worldless if I'm > inboard" > - referent privateDelete. "could make me worldless if I'm inboard" > aWorld ifNotNil: [aWorld removeAccommodationForFlap: self]. > + flapShowing := false. > - flapShowing _ false. > self isInWorld ifFalse: [aWorld addMorphFront: self]. > self adjustPositionAfterHidingFlap! > > Item was changed: > ----- Method: FlapTab>>mouseMove: (in category 'event handling') ----- > mouseMove: evt > "Handle a mouse-move event. The event, a MorphicEvent, is passed > in." > > | aPosition newReferentThickness adjustedPosition thick | > > + dragged ifFalse: [(thick := self referentThickness) > 0 > + ifTrue: [lastReferentThickness := thick]]. > + ((self containsPoint: (aPosition := evt cursorPoint)) and: > [dragged not]) > - dragged ifFalse: [(thick _ self referentThickness) > 0 > - ifTrue: [lastReferentThickness _ thick]]. > - ((self containsPoint: (aPosition _ evt cursorPoint)) and: [dragged > not]) > ifFalse: > [flapShowing ifFalse: [self showFlap]. > + adjustedPosition := aPosition - evt hand > targetOffset. > - adjustedPosition _ aPosition - evt hand > targetOffset. > (edgeToAdhereTo == #bottom) > ifTrue: > + [newReferentThickness := inboard > - [newReferentThickness _ inboard > ifTrue: > [self world height > - adjustedPosition y] > ifFalse: > [self world height > - adjustedPosition y - self height]]. > > (edgeToAdhereTo == #left) > ifTrue: > + [newReferentThickness := > - [newReferentThickness _ > inboard > ifTrue: > > [adjustedPosition x + self width] > ifFalse: > > [adjustedPosition x]]. > > (edgeToAdhereTo == #right) > ifTrue: > + [newReferentThickness := > - [newReferentThickness _ > inboard > ifTrue: > > [self world width - adjustedPosition x] > ifFalse: > > [self world width - adjustedPosition x - self width]]. > > (edgeToAdhereTo == #top) > ifTrue: > + [newReferentThickness := > - [newReferentThickness _ > inboard > ifTrue: > > [adjustedPosition y + self height] > ifFalse: > > [adjustedPosition y]]. > > self isCurrentlySolid ifFalse: > [(#(left right) includes: edgeToAdhereTo) > ifFalse: > [self left: > adjustedPosition x] > ifTrue: > [self top: > adjustedPosition y]]. > > ((edgeToAdhereTo == #left) and: [(self > valueOfProperty: #rigidThickness) notNil]) ifTrue: > [newReferentThickness := referent width]. > > self applyThickness: newReferentThickness. > + dragged := true. > - dragged _ true. > self fitOnScreen. > self computeEdgeFraction]! > > Item was changed: > ----- Method: FlapTab>>mouseUp: (in category 'event handling') ----- > mouseUp: evt > "The mouse came back up, presumably after having dragged the tab. > Caution: if not operating full-screen, this notification can easily be > *missed*, which is why the edge-fraction-computation is also being done on > mouseMove." > > super mouseUp: evt. > (self referentThickness <= 0 or: > [(referent isInWorld and: [(referent boundsInWorld > intersects: referent owner boundsInWorld) not])]) ifTrue: > [self hideFlap. > + flapShowing := false]. > - flapShowing _ false]. > self fitOnScreen. > dragged ifTrue: > [self computeEdgeFraction. > + dragged := false]. > - dragged _ false]. > Flaps doAutomaticLayoutOfFlapsIfAppropriate! > > Item was removed: > - ----- Method: FlapTab>>ownerChanged (in category 'change reporting') > ----- > - ownerChanged > - self fitOnScreen. > - ^super ownerChanged.! > > Item was changed: > ----- Method: FlapTab>>positionObject: (in category 'positioning') ----- > positionObject: anObject > "anObject could be myself or my referent" > > + "Could consider container := referent pasteUpMorph, to allow flaps on > things other than the world, but for the moment, let's skip it!!" > - "Could consider container _ referent pasteUpMorph, to allow flaps on > things other than the world, but for the moment, let's skip it!!" > > "19 sept 2000 - going for all paste ups" > + > - > ^self > positionObject: anObject > + atEdgeOf: (self pasteUpMorph ifNil: [^ self currentWorld])! > - atEdgeOf: (self pasteUpMorph ifNil: [^ self])! > > Item was added: > + ----- Method: FlapTab>>privateDeleteReferent (in category 'show & hide') > ----- > + privateDeleteReferent > + referent isFlexed > + ifTrue: [referent owner privateDelete] > + ifFalse: [referent privateDelete]! > > Item was changed: > ----- Method: FlapTab>>spanWorld (in category 'positioning') ----- > spanWorld > "Make the receiver's height or width commensurate with that of the > container." > > | container | > > + container := self pasteUpMorph ifNil: [self currentWorld]. > - container _ self pasteUpMorph ifNil: [self currentWorld]. > (self orientation == #vertical) ifTrue: [ > referent vResizing == #rigid > ifTrue:[referent spanContainerVertically: > container height]. > referent hResizing == #rigid > ifTrue:[referent width: (referent width min: > container width - self width)]. > referent top: container top + self referentMargin y. > ] ifFalse: [ > referent hResizing == #rigid > ifTrue:[referent width: container width]. > referent vResizing == #rigid > ifTrue:[referent height: (referent height min: > container height - self height)]. > referent left: container left + self referentMargin x. > + ]! > - ] ! > > Item was changed: > RectangleMorph subclass: #GraphMorph > + instanceVariableNames: 'data dataColor cursor cursorColor > cursorColorAtZeroCrossings startIndex minVal maxVal cachedForm hasChanged > samplingRate' > - instanceVariableNames: 'data dataColor cursor cursorColor > cursorColorAtZeroCrossings startIndex minVal maxVal cachedForm hasChanged' > classVariableNames: '' > poolDictionaries: '' > category: 'MorphicExtras-Widgets'! > > !GraphMorph commentStamp: '<historical>' prior: 0! > I display a graph of numbers, normalized so the full range of values > just fits my height. I support a movable cursor that can be dragged with > the mouse. > > Implementation notes: Some operations on me may be done at sound > sampling rates (e.g. 11-44 thousand times/second). To allow such high > bandwidth application, certain operations that change my appearance do not > immediately report a damage rectangle. Instead, a flag is set indicating > that my display needs to refreshed and a step method reports the damage > rectangle if that flag is set. Also, I cache a bitmap of my graph to allow > the cursor to be moved without redrawing the graph. > ! > > Item was added: > + ----- Method: GraphMorph>>elementCount (in category 'accessing') ----- > + elementCount > + ^data size! > > Item was added: > + ----- Method: GraphMorph>>getSamplingRate (in category 'accessing') ----- > + getSamplingRate > + ^samplingRate asString asSymbol! > > Item was changed: > ----- Method: GraphMorph>>initialize (in category 'initialization') ----- > initialize > "initialize the state of the receiver" > super initialize. > "" > self extent: 365 @ 80. > > dataColor _ Color darkGray. > cursor _ 1.0. > + samplingRate := 11025. > "may be fractional" > cursorColor _ Color red. > cursorColorAtZeroCrossings _ Color red. > startIndex _ 1. > hasChanged _ false. > self > data: ((0 to: 360 - 1) > collect: [:x | (100.0 * x degreesToRadians > sin) asInteger])! > > Item was changed: > ----- Method: GraphMorph>>play (in category 'commands') ----- > play > + self playOnce: data size! > - self playOnce! > > Item was changed: > ----- Method: GraphMorph>>playOnce (in category 'commands') ----- > playOnce > > | scale absV scaledData | > data isEmpty ifTrue: [^ self]. "nothing to play" > scale _ 1. > data do: [:v | (absV _ v abs) > scale ifTrue: [scale _ absV]]. > scale _ 32767.0 / scale. > scaledData _ SoundBuffer newMonoSampleCount: data size. > + cursor to: data size do: [:i | scaledData at: i put: (scale * > (data at: i)) truncated]. > + SoundService default playSampledSound: scaledData rate: > samplingRate. > - 1 to: data size do: [:i | scaledData at: i put: (scale * (data at: > i)) truncated]. > - SoundService default playSampledSound: scaledData rate: 11025. > ! > > Item was added: > + ----- Method: GraphMorph>>playOnce: (in category 'commands') ----- > + playOnce: aSampleNumber > + > + | scale absV scaledData | > + data isEmpty ifTrue: [^ self]. "nothing to play" > + scale _ 1. > + data do: [:v | (absV _ v abs) > scale ifTrue: [scale _ absV]]. > + scale _ 32767.0 / scale. > + scaledData _ SoundBuffer newMonoSampleCount: data size. > + cursor to: aSampleNumber do: [:i | scaledData at: i put: (scale * > (data at: i)) truncated]. > + SoundService default playSampledSound: scaledData rate: > samplingRate. > + ! > > Item was added: > + ----- Method: GraphMorph>>playTo: (in category 'commands') ----- > + playTo: aSampleNumber > + self playOnce: aSampleNumber! > > Item was added: > + ----- Method: GraphMorph>>samplingRate (in category 'accessing') ----- > + samplingRate > + ^samplingRate! > > Item was added: > + ----- Method: GraphMorph>>samplingRate: (in category 'accessing') ----- > + samplingRate: aSamplingRate > + ((SamplingRate resolutions) includes: aSamplingRate) ifFalse: [^ > self]. > + samplingRate:= aSamplingRate! > > Item was added: > + ----- Method: GraphMorph>>setSamplingRate: (in category 'accessing') > ----- > + setSamplingRate: aSymbol > + samplingRate := aSymbol asString asNumber! > > Item was added: > + ----- Method: Player>>getSamplingRate (in category > '*MorphicExtras-Widgets') ----- > + getSamplingRate > + ^ self getValueFromCostume: #getSamplingRate! > > Item was added: > + ----- Method: Player>>playTo: (in category '*MorphicExtras-Widgets') > ----- > + playTo: aSampleNumber > + costume renderedMorph playTo: aSampleNumber! > > Item was added: > + ----- Method: Player>>setSamplingRate: (in category > '*MorphicExtras-Widgets') ----- > + setSamplingRate: aSymbol > + costume renderedMorph setSamplingRate: aSymbol! > > Item was added: > + SymbolListType subclass: #SamplingRate > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'MorphicExtras-Widgets'! > > Item was added: > + ----- Method: SamplingRate>>initialize (in category 'as yet > unclassified') ----- > + initialize > + "Vocabulary initialize" > + super initialize. > + self vocabularyName: #SamplingRate. > + symbols := #('11025' '22050' '44100') > + > + ! > > Item was added: > + ----- Method: SamplingRate>>representsAType (in category 'as yet > unclassified') ----- > + representsAType > + ^true! > > _______________________________________________ > etoys-dev mailing list > etoys-dev(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/etoys-dev >

1 0

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

11 Feb '13

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.101.mcz ==================== Summary ==================== Name: Morphic-kfr.101 Author: kfr Time: 11 February 2013, 7:41:57 pm UUID: 726d69f4-031f-7047-9aa3-868a19a36c1c Ancestors: Morphic-kfr.100 Fixing issues with flexing FlapTabs =============== Diff against Morphic-kfr.99 =============== Item was changed: ----- Method: InteriorFlapTab>>hideFlap (in category 'show & hide') ----- hideFlap "Close the flap." + self privateDeleteReferent. + flapShowing := false. + self adjustPositionAfterHidingFlap! - referent privateDelete. - flapShowing _ false. - self adjustPositionAfterHidingFlap - ! Item was changed: ----- Method: InteriorFlapTab>>maybeHideFlapOnMouseLeaveDragging (in category 'show & hide') ----- maybeHideFlapOnMouseLeaveDragging "After the mouse leaves, having dragged something out, perhaps close the flap." | aPasteUpMorph | self hasHalo ifTrue: [^ self]. referent isInWorld ifFalse: [^ self]. (dragged or: [referent bounds containsPoint: self cursorPoint]) ifTrue: [^ self]. + aPasteUpMorph := self pasteUpMorph. + self privateDeleteReferent. "could make me worldless if I'm inboard" - aPasteUpMorph _ self pasteUpMorph. - referent privateDelete. "could make me worldless if I'm inboard" aPasteUpMorph ifNotNil: [aPasteUpMorph removeAccommodationForFlap: self]. + flapShowing := false. - flapShowing _ false. self isInWorld ifFalse: [aPasteUpMorph ifNotNil: [aPasteUpMorph addMorphFront: self]]. self adjustPositionAfterHidingFlap!

1 0

Etoys: MorphicExtras-kfr.77.mcz
by commits＠source.squeak.org 11 Feb '13

11 Feb '13

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.77.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.77 Author: kfr Time: 11 February 2013, 7:34:04 pm UUID: d5a59509-3afd-3c46-a1c3-4c4e804aeef9 Ancestors: MorphicExtras-kfr.76 Fixing issues with flexing FlapTab =============== Diff against MorphicExtras-kfr.75 =============== Item was changed: ----- Method: FlapTab>>computeEdgeFraction (in category 'edge') ----- computeEdgeFraction "Compute and remember the edge fraction" | aBox aFraction | self isCurrentlySolid ifTrue: [^ edgeFraction ifNil: [self edgeFraction: 0.5]]. + aBox := ((self pasteUpMorph ifNil: [self currentWorld]) bounds) insetBy: (self extent // 2). + aFraction := self - aBox _ ((self pasteUpMorph ifNil: [ActiveWorld]) bounds) insetBy: (self extent // 2). - aFraction _ self ifVertical: [(self center y - aBox top) / (aBox height max: 1)] ifHorizontal: [(self center x - aBox left) / (aBox width max: 1)]. ^ self edgeFraction: aFraction! Item was changed: ----- Method: FlapTab>>fitOnScreen (in category 'positioning') ----- fitOnScreen "19 sept 2000 - allow flaps in any paste up" | constrainer t l | + constrainer := self pasteUpMorph ifNil: [self currentWorld]. - constrainer := self pasteUpMorph ifNil: [self]. self flapShowing "otherwise no point in doing this" ifTrue:[self spanWorld]. self orientation == #vertical ifTrue: [ + t := ((self top min: (constrainer bottom- self height)) max: constrainer top). - t _ ((self top min: (constrainer bottom- self height)) max: constrainer top). t = self top ifFalse: [self top: t]. ] ifFalse: [ + l := ((self left min: (constrainer right - self width)) max: constrainer left). - l _ ((self left min: (constrainer right - self width)) max: constrainer left). l = self left ifFalse: [self left: l]. ]. self flapShowing ifFalse: [self positionObject: self atEdgeOf: constrainer]. ! Item was changed: ----- Method: FlapTab>>hideFlap (in category 'show & hide') ----- hideFlap | aWorld | + aWorld := self world ifNil: [self currentWorld]. + self privateDeleteReferent. - aWorld _ self world ifNil: [self currentWorld]. - referent privateDelete. aWorld removeAccommodationForFlap: self. + flapShowing := false. - flapShowing _ false. self isInWorld ifFalse: [aWorld addMorphFront: self]. self adjustPositionAfterHidingFlap. aWorld haloMorphs do: [:m | m target isInWorld ifFalse: [m delete]]! Item was changed: ----- Method: FlapTab>>maybeHideFlapOnMouseLeaveDragging (in category 'show & hide') ----- maybeHideFlapOnMouseLeaveDragging | aWorld | self hasHalo ifTrue: [^ self]. referent isInWorld ifFalse: [^ self]. (dragged or: [referent bounds containsPoint: self cursorPoint]) ifTrue: [^ self]. aWorld _ self world. + self privateDeleteReferent. "could make me worldless if I'm inboard" - referent privateDelete. "could make me worldless if I'm inboard" aWorld ifNotNil: [aWorld removeAccommodationForFlap: self]. + flapShowing := false. - flapShowing _ false. self isInWorld ifFalse: [aWorld addMorphFront: self]. self adjustPositionAfterHidingFlap! Item was changed: ----- Method: FlapTab>>mouseMove: (in category 'event handling') ----- mouseMove: evt "Handle a mouse-move event. The event, a MorphicEvent, is passed in." | aPosition newReferentThickness adjustedPosition thick | + dragged ifFalse: [(thick := self referentThickness) > 0 + ifTrue: [lastReferentThickness := thick]]. + ((self containsPoint: (aPosition := evt cursorPoint)) and: [dragged not]) - dragged ifFalse: [(thick _ self referentThickness) > 0 - ifTrue: [lastReferentThickness _ thick]]. - ((self containsPoint: (aPosition _ evt cursorPoint)) and: [dragged not]) ifFalse: [flapShowing ifFalse: [self showFlap]. + adjustedPosition := aPosition - evt hand targetOffset. - adjustedPosition _ aPosition - evt hand targetOffset. (edgeToAdhereTo == #bottom) ifTrue: + [newReferentThickness := inboard - [newReferentThickness _ inboard ifTrue: [self world height - adjustedPosition y] ifFalse: [self world height - adjustedPosition y - self height]]. (edgeToAdhereTo == #left) ifTrue: + [newReferentThickness := - [newReferentThickness _ inboard ifTrue: [adjustedPosition x + self width] ifFalse: [adjustedPosition x]]. (edgeToAdhereTo == #right) ifTrue: + [newReferentThickness := - [newReferentThickness _ inboard ifTrue: [self world width - adjustedPosition x] ifFalse: [self world width - adjustedPosition x - self width]]. (edgeToAdhereTo == #top) ifTrue: + [newReferentThickness := - [newReferentThickness _ inboard ifTrue: [adjustedPosition y + self height] ifFalse: [adjustedPosition y]]. self isCurrentlySolid ifFalse: [(#(left right) includes: edgeToAdhereTo) ifFalse: [self left: adjustedPosition x] ifTrue: [self top: adjustedPosition y]]. ((edgeToAdhereTo == #left) and: [(self valueOfProperty: #rigidThickness) notNil]) ifTrue: [newReferentThickness := referent width]. self applyThickness: newReferentThickness. + dragged := true. - dragged _ true. self fitOnScreen. self computeEdgeFraction]! Item was changed: ----- Method: FlapTab>>mouseUp: (in category 'event handling') ----- mouseUp: evt "The mouse came back up, presumably after having dragged the tab. Caution: if not operating full-screen, this notification can easily be *missed*, which is why the edge-fraction-computation is also being done on mouseMove." super mouseUp: evt. (self referentThickness <= 0 or: [(referent isInWorld and: [(referent boundsInWorld intersects: referent owner boundsInWorld) not])]) ifTrue: [self hideFlap. + flapShowing := false]. - flapShowing _ false]. self fitOnScreen. dragged ifTrue: [self computeEdgeFraction. + dragged := false]. - dragged _ false]. Flaps doAutomaticLayoutOfFlapsIfAppropriate! Item was removed: - ----- Method: FlapTab>>ownerChanged (in category 'change reporting') ----- - ownerChanged - self fitOnScreen. - ^super ownerChanged.! Item was changed: ----- Method: FlapTab>>positionObject: (in category 'positioning') ----- positionObject: anObject "anObject could be myself or my referent" + "Could consider container := referent pasteUpMorph, to allow flaps on things other than the world, but for the moment, let's skip it!!" - "Could consider container _ referent pasteUpMorph, to allow flaps on things other than the world, but for the moment, let's skip it!!" "19 sept 2000 - going for all paste ups" + - ^self positionObject: anObject + atEdgeOf: (self pasteUpMorph ifNil: [^ self currentWorld])! - atEdgeOf: (self pasteUpMorph ifNil: [^ self])! Item was added: + ----- Method: FlapTab>>privateDeleteReferent (in category 'show & hide') ----- + privateDeleteReferent + referent isFlexed + ifTrue: [referent owner privateDelete] + ifFalse: [referent privateDelete]! Item was changed: ----- Method: FlapTab>>spanWorld (in category 'positioning') ----- spanWorld "Make the receiver's height or width commensurate with that of the container." | container | + container := self pasteUpMorph ifNil: [self currentWorld]. - container _ self pasteUpMorph ifNil: [self currentWorld]. (self orientation == #vertical) ifTrue: [ referent vResizing == #rigid ifTrue:[referent spanContainerVertically: container height]. referent hResizing == #rigid ifTrue:[referent width: (referent width min: container width - self width)]. referent top: container top + self referentMargin y. ] ifFalse: [ referent hResizing == #rigid ifTrue:[referent width: container width]. referent vResizing == #rigid ifTrue:[referent height: (referent height min: container height - self height)]. referent left: container left + self referentMargin x. + ]! - ] ! Item was changed: RectangleMorph subclass: #GraphMorph + instanceVariableNames: 'data dataColor cursor cursorColor cursorColorAtZeroCrossings startIndex minVal maxVal cachedForm hasChanged samplingRate' - instanceVariableNames: 'data dataColor cursor cursorColor cursorColorAtZeroCrossings startIndex minVal maxVal cachedForm hasChanged' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtras-Widgets'! !GraphMorph commentStamp: '<historical>' prior: 0! I display a graph of numbers, normalized so the full range of values just fits my height. I support a movable cursor that can be dragged with the mouse. Implementation notes: Some operations on me may be done at sound sampling rates (e.g. 11-44 thousand times/second). To allow such high bandwidth application, certain operations that change my appearance do not immediately report a damage rectangle. Instead, a flag is set indicating that my display needs to refreshed and a step method reports the damage rectangle if that flag is set. Also, I cache a bitmap of my graph to allow the cursor to be moved without redrawing the graph. ! Item was added: + ----- Method: GraphMorph>>elementCount (in category 'accessing') ----- + elementCount + ^data size! Item was added: + ----- Method: GraphMorph>>getSamplingRate (in category 'accessing') ----- + getSamplingRate + ^samplingRate asString asSymbol! Item was changed: ----- Method: GraphMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self extent: 365 @ 80. dataColor _ Color darkGray. cursor _ 1.0. + samplingRate := 11025. "may be fractional" cursorColor _ Color red. cursorColorAtZeroCrossings _ Color red. startIndex _ 1. hasChanged _ false. self data: ((0 to: 360 - 1) collect: [:x | (100.0 * x degreesToRadians sin) asInteger])! Item was changed: ----- Method: GraphMorph>>play (in category 'commands') ----- play + self playOnce: data size! - self playOnce! Item was changed: ----- Method: GraphMorph>>playOnce (in category 'commands') ----- playOnce | scale absV scaledData | data isEmpty ifTrue: [^ self]. "nothing to play" scale _ 1. data do: [:v | (absV _ v abs) > scale ifTrue: [scale _ absV]]. scale _ 32767.0 / scale. scaledData _ SoundBuffer newMonoSampleCount: data size. + cursor to: data size do: [:i | scaledData at: i put: (scale * (data at: i)) truncated]. + SoundService default playSampledSound: scaledData rate: samplingRate. - 1 to: data size do: [:i | scaledData at: i put: (scale * (data at: i)) truncated]. - SoundService default playSampledSound: scaledData rate: 11025. ! Item was added: + ----- Method: GraphMorph>>playOnce: (in category 'commands') ----- + playOnce: aSampleNumber + + | scale absV scaledData | + data isEmpty ifTrue: [^ self]. "nothing to play" + scale _ 1. + data do: [:v | (absV _ v abs) > scale ifTrue: [scale _ absV]]. + scale _ 32767.0 / scale. + scaledData _ SoundBuffer newMonoSampleCount: data size. + cursor to: aSampleNumber do: [:i | scaledData at: i put: (scale * (data at: i)) truncated]. + SoundService default playSampledSound: scaledData rate: samplingRate. + ! Item was added: + ----- Method: GraphMorph>>playTo: (in category 'commands') ----- + playTo: aSampleNumber + self playOnce: aSampleNumber! Item was added: + ----- Method: GraphMorph>>samplingRate (in category 'accessing') ----- + samplingRate + ^samplingRate! Item was added: + ----- Method: GraphMorph>>samplingRate: (in category 'accessing') ----- + samplingRate: aSamplingRate + ((SamplingRate resolutions) includes: aSamplingRate) ifFalse: [^ self]. + samplingRate:= aSamplingRate! Item was added: + ----- Method: GraphMorph>>setSamplingRate: (in category 'accessing') ----- + setSamplingRate: aSymbol + samplingRate := aSymbol asString asNumber! Item was added: + ----- Method: Player>>getSamplingRate (in category '*MorphicExtras-Widgets') ----- + getSamplingRate + ^ self getValueFromCostume: #getSamplingRate! Item was added: + ----- Method: Player>>playTo: (in category '*MorphicExtras-Widgets') ----- + playTo: aSampleNumber + costume renderedMorph playTo: aSampleNumber! Item was added: + ----- Method: Player>>setSamplingRate: (in category '*MorphicExtras-Widgets') ----- + setSamplingRate: aSymbol + costume renderedMorph setSamplingRate: aSymbol! Item was added: + SymbolListType subclass: #SamplingRate + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Widgets'! Item was added: + ----- Method: SamplingRate>>initialize (in category 'as yet unclassified') ----- + initialize + "Vocabulary initialize" + super initialize. + self vocabularyName: #SamplingRate. + symbols := #('11025' '22050' '44100') + + ! Item was added: + ----- Method: SamplingRate>>representsAType (in category 'as yet unclassified') ----- + representsAType + ^true!

1 0

How do I find out which words still need to be translated for Haitian Creole?
by Steve Thomas 09 Feb '13

09 Feb '13

I will be going to Haiti, and I noticed at least one tile without translation "color sees" How can I get a list of items still to be translated? Then once I get the translations, how do I update pootle? Thanks, Stephen

1 1

Richard's Geemail Example
by Vaidotas Didžbalis 08 Feb '13

08 Feb '13

Hello, I cannot load Richard's Geemail Example from SM. Links are no longer working.. Vaidotas

1 0

Re: [etoys-dev] [etoys-notify] [JIRA] Commented: (SQ-1119) Rotating flaps DNU and other mishaps
by David Corking 07 Feb '13

07 Feb '13

Those are good commits. (I just pulled them down to my image.) > There are still several issues with flaps and rotation. Yes, but they are harder to invoke :) (I just locked up my image, preceded by two DNUs, by dragging the rotation handle of the About FlapTab.) Have fun! David p.s. impressed by the archaeology to track down the Squeak versions. A binary search? p.p.s. One of the walkbacks from the DNUs follows. Probably not very helpful, though I suspect another case of not walking up the owner chain correctly: MessageNotUnderstood: UndefinedObject>>degrees 7 February 2013 3:11:36 pm VM: Mac OS - a SmalltalkImage Image: etoys5.0 [latest update: #2409 (repo v1692 of 7 February 2013)] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Users/dcorking/Etoys/Etoys Trusted Dir /Users/dcorking/Etoys/.etoys Untrusted Dir /Users/dcorking/Etoys/Etoys UndefinedObject(Object)>>doesNotUnderstand: #degrees Receiver: nil Arguments and temporary variables: aMessage: degrees Receiver's instance variables: nil HaloMorph>>doRot:with: Receiver: a HaloMorph(1465) Arguments and temporary variables: evt: [21@228 28@228 mouseMove red 2234937] rotHandle: 3PButton(#flash 3388) degrees: 83.4943733543163 cmd: nil Receiver's instance variables: bounds: -7@-45 corner: 11@45 owner: a PasteUpMorph<world>(773) [world] submorphs: #(3PButton(#flash 3388)) fullBounds: -7@-45 corner: 23@79 color: (Color r: 0.6 g: 0.8 b: 1.0) extension: a MorphExtensionPlus (3545) [other: (magicAlpha -> 1.0) (isMagicHal...etc... target: a FlapTab<About>(1687) "About" innerTarget: a FlapTab<About>(1687) "About" positionOffset: 7.0(a)51.0 angleOffset: nil minExtent: nil growingOrRotating: false directionArrowAnchor: nil haloBox: 15@104 corner: 69@232 simpleMode: false originalExtent: nil EventHandler>>send:to:withEvent:fromMorph: Receiver: an EventHandler; mouseDownSelector=startRot:with:; mouseMoveSelector=doRot:with:; mouseUpS...etc... Arguments and temporary variables: selector: #doRot:with: recipient: a HaloMorph(1465) event: [21@228 28@228 mouseMove red 2234937] sourceMorph: 3PButton(#flash 3388) arity: 2 Receiver's instance variables: mouseDownRecipient: a HaloMorph(1465) mouseDownSelector: #startRot:with: mouseMoveRecipient: a HaloMorph(1465) mouseMoveSelector: #doRot:with: mouseStillDownRecipient: nil mouseStillDownSelector: nil mouseUpRecipient: a HaloMorph(1465) mouseUpSelector: #endInteraction mouseEnterRecipient: nil mouseEnterSelector: nil mouseLeaveRecipient: nil mouseLeaveSelector: nil mouseEnterDraggingRecipient: nil mouseEnterDraggingSelector: nil mouseLeaveDraggingRecipient: nil mouseLeaveDraggingSelector: nil keyStrokeRecipient: nil keyStrokeSelector: nil valueParameter: nil startDragRecipient: nil startDragSelector: nil doubleClickSelector: nil doubleClickRecipient: nil doubleClickTimeoutSelector: nil doubleClickTimeoutRecipient: nil clickSelector: nil clickRecipient: nil EventHandler>>mouseMove:fromMorph: Receiver: an EventHandler; mouseDownSelector=startRot:with:; mouseMoveSelector=doRot:with:; mouseUpS...etc... Arguments and temporary variables: event: [21@228 28@228 mouseMove red 2234937] sourceMorph: 3PButton(#flash 3388) Receiver's instance variables: mouseDownRecipient: a HaloMorph(1465) mouseDownSelector: #startRot:with: mouseMoveRecipient: a HaloMorph(1465) mouseMoveSelector: #doRot:with: mouseStillDownRecipient: nil mouseStillDownSelector: nil mouseUpRecipient: a HaloMorph(1465) mouseUpSelector: #endInteraction mouseEnterRecipient: nil mouseEnterSelector: nil mouseLeaveRecipient: nil mouseLeaveSelector: nil mouseEnterDraggingRecipient: nil mouseEnterDraggingSelector: nil mouseLeaveDraggingRecipient: nil mouseLeaveDraggingSelector: nil keyStrokeRecipient: nil keyStrokeSelector: nil valueParameter: nil startDragRecipient: nil startDragSelector: nil doubleClickSelector: nil doubleClickRecipient: nil doubleClickTimeoutSelector: nil doubleClickTimeoutRecipient: nil clickSelector: nil clickRecipient: nil --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #degrees HaloMorph>>doRot:with: EventHandler>>send:to:withEvent:fromMorph: EventHandler>>mouseMove:fromMorph: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ThreePhaseButtonMorph(Morph)>>mouseMove: ThreePhaseButtonMorph>>mouseMove: ThreePhaseButtonMorph(Morph)>>handleMouseMove: MouseMoveEvent>>sentTo: ThreePhaseButtonMorph(Morph)>>handleEvent: ThreePhaseButtonMorph(Morph)>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self. ActiveEvent := anEvent. result := focusHolder han...]} [] in PasteUpMorph>>becomeActiveDuring: {[aBlock value]} ...etc...

1 1

Etoys: Sugar-kfr.23.mcz
by commits＠source.squeak.org 07 Feb '13

07 Feb '13

Karl Ramberg uploaded a new version of Sugar to project Etoys: http://source.squeak.org/etoys/Sugar-kfr.23.mcz ==================== Summary ==================== Name: Sugar-kfr.23 Author: kfr Time: 7 February 2013, 8:49:50 am UUID: 63610f2c-235e-2f4c-9757-2582f6cd070b Ancestors: Sugar-kfr.15 Remove duplicated method =============== Diff against Sugar-kfr.15 =============== Item was removed: - ----- Method: SolidSugarSuppliesTab>>fitOnScreen (in category 'positioning') ----- - fitOnScreen - "19 sept 2000 - allow flaps in any paste up" - | constrainer t l | - constrainer _ owner ifNil: [self]. - self flapShowing "otherwise no point in doing this" - ifTrue:[self spanWorld]. - self orientation == #vertical ifTrue: [ - t _ ((self top min: (constrainer bottom- self height)) max: constrainer top). - t = self top ifFalse: [self top: t]. - ] ifFalse: [ - l _ ((self left min: (constrainer right - self width)) max: constrainer left). - l = self left ifFalse: [self left: l]. - ]. - self flapShowing ifFalse: [self positionObject: self atEdgeOf: constrainer]. - - !

1 0

Etoys: MorphicExtras-kfr.75.mcz
by commits＠source.squeak.org 07 Feb '13

07 Feb '13

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.75.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.75 Author: kfr Time: 7 February 2013, 8:47:50 am UUID: 7474776e-661d-c346-93a1-76279bb4a3a7 Ancestors: MorphicExtras-bf.74 Fix DNU from rotating FlapTabs. There are still other issues with rotating FlapTabs that are not addressed =============== Diff against MorphicExtras-bf.74 =============== Item was changed: ----- Method: FlapTab>>computeEdgeFraction (in category 'edge') ----- computeEdgeFraction "Compute and remember the edge fraction" | aBox aFraction | self isCurrentlySolid ifTrue: [^ edgeFraction ifNil: [self edgeFraction: 0.5]]. + aBox _ ((self pasteUpMorph ifNil: [ActiveWorld]) bounds) insetBy: (self extent // 2). - aBox _ ((owner ifNil: [ActiveWorld]) bounds) insetBy: (self extent // 2). aFraction _ self ifVertical: [(self center y - aBox top) / (aBox height max: 1)] ifHorizontal: [(self center x - aBox left) / (aBox width max: 1)]. ^ self edgeFraction: aFraction! Item was changed: ----- Method: FlapTab>>fitOnScreen (in category 'positioning') ----- fitOnScreen "19 sept 2000 - allow flaps in any paste up" | constrainer t l | + constrainer := self pasteUpMorph ifNil: [self]. - constrainer _ owner ifNil: [self]. self flapShowing "otherwise no point in doing this" ifTrue:[self spanWorld]. self orientation == #vertical ifTrue: [ t _ ((self top min: (constrainer bottom- self height)) max: constrainer top). t = self top ifFalse: [self top: t]. ] ifFalse: [ l _ ((self left min: (constrainer right - self width)) max: constrainer left). l = self left ifFalse: [self left: l]. ]. self flapShowing ifFalse: [self positionObject: self atEdgeOf: constrainer]. !

1 0

Re: [etoys-dev] [JIRA] Commented: (SQ-1119) Rotating flaps DNU and other mishaps
by karl ramberg 06 Feb '13

06 Feb '13

In the Etoys image we found a very old bug in morphic that I'm not sure how to fix. You can test it by trying to rotate a FlapTab in any Squeak image older than 3.1b. For a very hard image lockup try rotating the FlapTab with the flap open. Then opening the debugger fails also. The bug appeared between images Squeak 3.1b and Squeak 3.2 so it has been around a while. The bug is with creating a TransformationMorph that has fullBounds nil. TransformMorph overrides fullBounds: fullBounds ifNotNil:[^ fullBounds]. fullBounds := bounds. submorphs do: [:m| m ownerChanged]. ^ fullBounds Even if bounds are not nil, fullBounds gets nil'ed again when calling submorphs ownerChanged. Any hints and good solutions appreciated :-) Karl On Sun, Feb 3, 2013 at 9:18 PM, Karl Ramberg (JIRA) <tracker(a)squeakland.org>wrote: > > [ > http://tracker.squeakland.org/browse/SQ-1119?page=com.atlassian.jira.plugin…] > > Karl Ramberg commented on SQ-1119: > ---------------------------------- > > It is really the FlapTab that has some issues with rotation. > > Somehow the TransformationMorph fails with nil fullBounds. > > I'm not sure how that can happen... > > > VM: Win32 - a SmalltalkImage > Image: etoys5.0 [latest update: #2409] > > > UndefinedObject(Object)>>doesNotUnderstand: #hasPositiveExtent > Receiver: nil > Arguments and temporary variables: > aMessage: hasPositiveExtent > Receiver's instance variables: > nil > > TransformationMorph(Morph)>>invalidRect:from: > Receiver: a TransformationMorph(2153) on a FlapTab<Flap>(1211) "My > Flap" > Arguments and temporary variables: > aRectangle: nil > aMorph: a TransformationMorph(2153) on a > FlapTab<Flap>(1211) "My Flap" > damageRect: nil > Receiver's instance variables: > bounds: 99@105 corner: 207@132 > owner: nil > submorphs: #(a FlapTab<Flap>(1211) "My Flap") > fullBounds: nil > color: Color lightGreen > extension: nil > transform: a MorphicTransform(angle = 0.0; scale = > 1.0; offset = 0@0) > smoothing: 1 > localBounds: nil > > TransformationMorph(TransformMorph)>>invalidRect:from: > Receiver: a TransformationMorph(2153) on a FlapTab<Flap>(1211) "My > Flap" > Arguments and temporary variables: > damageRect: nil > aMorph: a TransformationMorph(2153) on a > FlapTab<Flap>(1211) "My Flap" > Receiver's instance variables: > bounds: 99@105 corner: 207@132 > owner: nil > submorphs: #(a FlapTab<Flap>(1211) "My Flap") > fullBounds: nil > color: Color lightGreen > extension: nil > transform: a MorphicTransform(angle = 0.0; scale = > 1.0; offset = 0@0) > smoothing: 1 > localBounds: nil > > TransformationMorph(Morph)>>invalidRect: > Receiver: a TransformationMorph(2153) on a FlapTab<Flap>(1211) "My > Flap" > Arguments and temporary variables: > damageRect: nil > Receiver's instance variables: > bounds: 99@105 corner: 207@132 > owner: nil > submorphs: #(a FlapTab<Flap>(1211) "My Flap") > fullBounds: nil > color: Color lightGreen > extension: nil > transform: a MorphicTransform(angle = 0.0; scale = > 1.0; offset = 0@0) > smoothing: 1 > localBounds: nil > > > --- The full stack --- > UndefinedObject(Object)>>doesNotUnderstand: #hasPositiveExtent > TransformationMorph(Morph)>>invalidRect:from: > TransformationMorph(TransformMorph)>>invalidRect:from: > TransformationMorph(Morph)>>invalidRect: > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > TransformationMorph(Morph)>>position: > TransformationMorph>>asFlexOf: > FlapTab(Morph)>>addFlexShell > FlapTab(Morph)>>addFlexShellIfNecessary > HaloMorph>>startRot:with: > EventHandler>>send:to:withEvent:fromMorph: > EventHandler>>mouseDown:fromMorph: > ThreePhaseButtonMorph(Morph)>>mouseDown: > ThreePhaseButtonMorph>>mouseDown: > ThreePhaseButtonMorph(Morph)>>handleMouseDown: > MouseButtonEvent>>sentTo: > ThreePhaseButtonMorph(Morph)>>handleEvent: > MorphicEventDispatcher>>dispatchMouseDown:with: > MorphicEventDispatcher>>dispatchEvent:with: > ThreePhaseButtonMorph(Morph)>>processEvent:using: > MorphicEventDispatcher>>dispatchMouseDown:with: > MorphicEventDispatcher>>dispatchEvent:with: > HaloMorph(Morph)>>processEvent:using: > MorphicEventDispatcher>>dispatchMouseDown:with: > MorphicEventDispatcher>>dispatchEvent:with: > PasteUpMorph(Morph)>>processEvent:using: > PasteUpMorph>>processEvent:using: > PasteUpMorph(Morph)>>processEvent: > HandMorph>>sendEvent:focus:clear: > HandMorph>>sendMouseEvent: > HandMorph>>handleEvent: > HandMorph>>processEvents > [] in WorldState>>doOneCycleNowFor: {[:h | ActiveHand := h. h > processEvents. capturingGesture := capturingGest...]} > Array(SequenceableCollection)>>do: > WorldState>>handsDo: > WorldState>>doOneCycleNowFor: > WorldState>>doOneCycleFor: > PasteUpMorph>>doOneCycle > [] in Project class>>spawnNewProcess {[[World doOneCycle. Processor > yield. false] whileFalse. nil]} > [] in BlockContext>>newProcess {[self value. Processor terminateActive]} > > > > Rotating flaps DNU and other mishaps > > ------------------------------------ > > > > Key: SQ-1119 > > URL: http://tracker.squeakland.org/browse/SQ-1119 > > Project: squeakland > > Issue Type: Bug > > Components: etoys > > Reporter: Karl Ramberg > > Fix For: future release > > > > > > Most flaps can be rotated by rotation handle but none of them do this > gracefully. Viewer flaps give DNU when collapsed and opened again. 'About' > flap leaves a green transformation morph on the desktop. > > Should we disable the rotation handle for flaps ? > > I can't really see a use case for rotating a flap, except for a cool > factor ;-) > > -- > This message is automatically generated by JIRA. > - > If you think it was sent incorrectly contact one of the administrators: > http://tracker.squeakland.org/secure/Administrators.jspa > - > For more information on JIRA, see: http://www.atlassian.com/software/jira > > >

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev February 2013