'From Moshi of 3 March 2007 [latest update: #795] on 2 March 2009 at 2:27 pm'!
"Change Set:		scriptCatFix-sw
Date:			2 March 2009
Author:			Scott Wallace

Restore proper classification of scripts compiled from an etoy scriptor, that got lost a couple of years ago when 1305ScriptorToParseNode1-yo came into the etoys image."!


!Player methodsFor: 'scripts-kernel' stamp: 'sw 3/2/2009 13:56'!
acceptScript: aScriptEditorMorph for: aSelector
	"Accept the tile code in the script editor as the code for the given selector.  This branch is only for the classic-tile system, 1997-2001"

	| aUniclassScript node |
	aScriptEditorMorph generateParseNodeDirectly ifTrue: [
		(node _ aScriptEditorMorph methodNode) ifNotNil: [
			self class addSelectorSilently: aScriptEditorMorph scriptName withMethod: (node generate: #(0 0 0 0)).
			SystemChangeNotifier uniqueInstance doSilently: [self class organization classify: aSelector under: 'scripts']
		].
	] ifFalse: [
		self class compileSilently: aScriptEditorMorph methodString
			classified: 'scripts' for: self.
	].
	aUniclassScript _ self class assuredMethodInterfaceFor: aSelector asSymbol.
	aUniclassScript currentScriptEditor: aScriptEditorMorph.
	aScriptEditorMorph world ifNotNil: [aScriptEditorMorph world removeHighlightFeedback].
! !