'From etoys2.3 of 28 November 2007 [latest update: #1852] on 18 December 2007 at 10:50:29 pm'!
"Change Set:		RecordingControlsTranslated
Date:			18 December 2007
Author:			Karl Ramberg with small modification by Yoshiki Ohshima

Make the menu translatable."!


!RecordingControls methodsFor: 'menu commands' stamp: 'yo 12/18/2007 18:01'!
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' translated]
				ifNotNil: [aCodec class visibleCodecName].
	menu title: ('Compression method\Currently: {1}' translated withCRs format: {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' translated}.
	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! !