[etoys-dev] Etoys: MorphicExtras-kfr.20.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.20.mcz

==================== Summary ====================

Name: MorphicExtras-kfr.20
Author: kfr
Time: 17 May 2011, 11:26:01 am
UUID: e407ee4e-dec6-0b49-86dc-a35202268340
Ancestors: MorphicExtras-Richo.19

Sound Recorder show does not work properly
http://tracker.squeakland.org/browse/SQ-672

=============== Diff against MorphicExtras-Richo.19 ===============

Item was changed:
  ----- Method: RecordingControlsMorph>>addButtonRows (in category 'initialization') -----
  addButtonRows
  
  	| r fullWidth |
  	r _ AlignmentMorph newRow vResizing: #shrinkWrap.
  
  
  	r addMorphBack: (self buttonName: 'Morph' translated action: #makeSoundMorph).
  	r addMorphBack: (Morph new extent: 4 at 1; color: Color transparent).
  	r addMorphBack: (self buttonName: 'Tile' translated action: #makeTile).
  	r addMorphBack: (Morph new extent: 4 at 1; color: Color transparent).
  	r addMorphBack: (self buttonName: 'Trim' translated action: #trim).
  	r addMorphBack: (Morph new extent: 4 at 1; color: Color transparent).
+ 	r addMorphBack: (self buttonName: 'Show' translated action: #showEditor).
- 	r addMorphBack: (self buttonName: 'Show' translated action: #show).
  	self addMorphBack: r.
  	r layoutChanged.
  	fullWidth := r fullBounds width.
  
  	r _ AlignmentMorph newRow vResizing: #shrinkWrap.
  	r addMorphBack: (self buttonName: 'Record' translated action: #record).
  	r addMorphBack: (Morph new extent: 4 at 1; color: Color transparent).
  	r addMorphBack: (self buttonName: 'Stop' translated action: #stop).
  	r addMorphBack: (Morph new extent: 4 at 1; color: Color transparent).
  	r addMorphBack: (self buttonName: 'Play' translated action: #playback).
  	r addMorphBack: (Morph new extent: 4 at 1; color: Color transparent).
  	r addMorphBack: (self buttonName: 'Codec' translated action: #chooseCodec).
  	r addMorphBack: self makeStatusLight.
  	self addMorphBack: r.
  	self changeCodec: OggSpeexCodec name: 'Speex'.
  	r layoutChanged.
  	fullWidth := fullWidth max: r fullBounds width.
  	^ fullWidth@(r fullBounds height).
  !

Item was removed:
- ----- Method: RecordingControlsMorph>>show (in category 'button commands') -----
- show
- 	"Show my samples in a WaveEditor."
- 
- 	| ed w |
- 	recorder verifyExistenceOfRecordedSound ifFalse: [^ self].
- 	recorder pause.
- 	ed _ WaveEditor new.
- 	ed data: recorder condensedSamples.
- 	ed samplingRate: recorder samplingRate.
- 	w _ self world.
- 	w activeHand
- 		ifNil: [w addMorph: ed]
- 		ifNotNil: [w activeHand attachMorph: ed].
- 
- !

Item was added:
+ ----- Method: RecordingControlsMorph>>showEditor (in category 'button commands') -----
+ showEditor
+ 	"Show my samples in a WaveEditor."
+ 
+ 	| ed w |
+ 	recorder verifyExistenceOfRecordedSound ifFalse: [^ self].
+ 	recorder pause.
+ 	ed _ WaveEditor new.
+ 	ed data: recorder condensedSamples.
+ 	ed samplingRate: recorder samplingRate.
+ 	w _ self world.
+ 	w activeHand
+ 		ifNil: [w addMorph: ed]
+ 		ifNotNil: [w activeHand attachMorph: ed].
+ 
+ !