Etoys: MorphicExtras-kfr.20.mcz

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@1; color: Color transparent).
  r addMorphBack: (self buttonName: 'Tile' translated action: #makeTile).
  r addMorphBack: (Morph new extent: 4@1; color: Color transparent).
  r addMorphBack: (self buttonName: 'Trim' translated action: #trim).
  r addMorphBack: (Morph new extent: 4@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@1; color: Color transparent).
  r addMorphBack: (self buttonName: 'Stop' translated action: #stop).
  r addMorphBack: (Morph new extent: 4@1; color: Color transparent).
  r addMorphBack: (self buttonName: 'Play' translated action: #playback).
  r addMorphBack: (Morph new extent: 4@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].
+
+ !

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev