'From etoys3.0 of 24 February 2008 [latest update: #2004] on 23 May 2008 at 1:50:30 am'!
"Change Set:		trnDefName-KR
Date:			23 May 2008
Author:			Korakurider

translate default Name of SketchMorph. 
and make sure call #defaultNameStemForInstances to Morph return untranslated name.
"!


!AllPlayersTool class methodsFor: 'instance-creation defaults' stamp: 'KR 5/23/2008 01:27'!
defaultNameStemForInstances
	"Answer the default name stem for new instances of this class"

	^ 'Players' translatedNoop! !


!AllScriptsTool class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:27'!
defaultNameStemForInstances
	"Answer the default name stem for new instances of this class"

	^ 'All Scripts' translatedNoop! !


!BasicButton class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:27'!
defaultNameStemForInstances
	^ 'button' translatedNoop! !


!ButtonProperties class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:28'!
defaultNameStemForInstances
	^ 'button' translatedNoop! !


!EventRecordingSpace class methodsFor: 'instance creation' stamp: 'KR 5/23/2008 01:28'!
defaultNameStemForInstances
	"Answer the default name stem for new instances of this class"

	^ 'Event Theatre' translatedNoop! !


!KedamaMorph class methodsFor: 'class initialization' stamp: 'KR 5/23/2008 01:29'!
defaultNameStemForInstances

	^ 'KedamaWorld' translatedNoop
! !


!KedamaPatchMorph class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:29'!
defaultNameStemForInstances

	^ 'patch' translatedNoop
! !


!KedamaTurtleMorph class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:29'!
defaultNameStemForInstances

	^ 'turtle' translatedNoop
! !


!MethodMorph class methodsFor: 'as yet unclassified' stamp: 'KR 5/23/2008 01:29'!
defaultNameStemForInstances
	^ 'Method' translatedNoop! !


!PasteUpMorph methodsFor: 'viewer' stamp: 'KR 5/23/2008 01:29'!
defaultNameStemForInstances
	"Answer a basis for names of default instances of the receiver"
	^ self isWorldMorph
		ifFalse:
			[super defaultNameStemForInstances]
		ifTrue:
			['world' translatedNoop]! !


!EventTimeline methodsFor: 'dropping/grabbing' stamp: 'KR 5/23/2008 01:28'!
defaultNameStemForInstances
	"Answer the default name on which to base names."

	^ 'event timeline' translatedNoop! !


!PasteUpMorph class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:29'!
defaultNameStemForInstances
	"Answer a basis for names of default instances of the receiver"
	^ 'playfield' translatedNoop! !


!IndexTabs class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:28'!
defaultNameStemForInstances
	"Answer a basis for names of default instances of the receiver"
	^ 'tabs' translatedNoop! !


!PhraseTileMorph class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:29'!
defaultNameStemForInstances
	^ 'PhraseTile' translatedNoop! !


!ProjectViewMorph class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:30'!
defaultNameStemForInstances
	^ 'ProjectView' translatedNoop! !


!ReferenceMorph class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:30'!
defaultNameStemForInstances
	^ 'ref' translatedNoop! !


!FlapTab class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:28'!
defaultNameStemForInstances
	^ 'flap tab' translatedNoop! !


!SelectionMorph class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:30'!
defaultNameStemForInstances
	^ 'Selection' translatedNoop! !


!SimpleButtonMorph class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:30'!
defaultNameStemForInstances
	^ self = SimpleButtonMorph
		ifTrue: ['Button' translatedNoop]
		ifFalse: [^ super defaultNameStemForInstances]! !


!ScriptableButton class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:30'!
defaultNameStemForInstances
	"Answer the default name stem to use for instances of the receiver"

	^ 'button' translatedNoop! !


!SimpleSliderMorph class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:30'!
defaultNameStemForInstances
	"Answer a basis for names of default instances of the receiver"
	^ 'Slider' translatedNoop! !


!SketchMorph class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:27'!
defaultNameStemForInstances
	^ 'Sketch' translatedNoop! !


!PlaybackInvoker class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:29'!
defaultNameStemForInstances
	"Answer the stem upon which object names are built."

	^ 'Play' translatedNoop! !


!StickyPadMorph class methodsFor: 'parts bin' stamp: 'KR 5/23/2008 01:31'!
defaultNameStemForInstances
	"Answer the default name stem to use"

	^ 'tear off' translatedNoop
! !


!StringButtonMorph class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:31'!
defaultNameStemForInstances
	^ 'SButton' translatedNoop! !


!TabbedPalette class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:31'!
defaultNameStemForInstances
	^ 'tabbedPalette' translatedNoop! !


!TabMorph class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:31'!
defaultNameStemForInstances
	^ 'tab' translatedNoop! !


!TextMorph class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:31'!
defaultNameStemForInstances
	^ 'Text' translatedNoop! !


!TileMorph class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:31'!
defaultNameStemForInstances
	^ 'Tile' translatedNoop! !


!FunctionTile class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:28'!
defaultNameStemForInstances
	"Answer a good default name stem to use for names of instances"

	^ 'Function' translatedNoop! !


!ViewerFlapTab class methodsFor: 'printing' stamp: 'KR 5/23/2008 01:31'!
defaultNameStemForInstances
	^ 'viewerFlapTab' translatedNoop! !


!WsPhonePadMorph class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:31'!
defaultNameStemForInstances
	^ 'PhonePad' translatedNoop! !


!WsWorldStethoscopeMorph class methodsFor: 'scripting' stamp: 'KR 5/23/2008 01:32'!
defaultNameStemForInstances
	^ 'WorldStethoscope' translatedNoop
! !