'From etoys2.3 of 28 November 2007 [latest update: #1851] on 18 December 2007 at 2:40:59 pm'! "Change Set: RecordingControlCodecNaming2 Date: 18 December 2007 Author: Yoshiki Ohshima Insert #translated to Karl's fix."! !RecordingControls methodsFor: 'menu commands' stamp: 'yo 12/18/2007 14:27'! chooseCodec "Put up a menu allowing the user to choose which codec to use." | menu aName aCodec | menu := MenuMorph new defaultTarget: self. aCodec := recorder codec. aName := aCodec ifNil: ['None'] ifNotNil: [aCodec class visibleCodecName]. menu title: 'Compression method' translated, ' (','Currently: ', aName, ')'. OggDriver isAvailable ifTrue: [menu add: 'Speex (for speech)' translated target: self selector: #changeCodec:name: argumentList: {OggSpeexCodec. OggSpeexCodec visibleCodecName}. menu add: 'Vorbis (for music)' translated target: self selector: #changeCodec:name: argumentList: {OggVorbisCodec. OggVorbisCodec visibleCodecName}]. menu add: 'GSM (simple compression)' translated target: self selector: #changeCodec:name: argumentList: {GSMCodec.GSMCodec visibleCodecName}. menu add: 'No compression' translated target: self selector: #changeCodec:name: argumentList: {nil. 'None'}. recorder codec ifNil: [menu items last color: Color red] ifNotNil: [menu items do: [:itm | (itm arguments first = recorder codec class) ifTrue: [itm color: Color red]]]. menu popUpInWorld! !