'From etoys4.0 of 9 October 2008 [latest update: #2253] on 24 August 2009 at 9:53:31 pm'! "Change Set: KedamaFixesAug24-yo Date: 24 August 2009 Author: Yoshiki Ohshima 1. when you open debugger or inspector on a kedama player, evaluation of an expression fails as there may not be a costume. 2. turtle count is not defined for the vector object."! !KedamaTurtleVectorPlayer2 methodsFor: 'player protocol' stamp: 'yo 8/24/2009 14:54'! getTurtleCount ^ exampler getTurtleCount. ! ! !ScriptParser methodsFor: 'as yet unclassified' stamp: 'yo 8/24/2009 11:00'! parse: sourceStream class: class noPattern: noPattern context: ctxt notifying: req ifFail: aBlock for: anInstance | methNode repeatNeeded myStream parser s p | (req notNil and: [RequestAlternateSyntaxSetting signal and: [(sourceStream isKindOf: FileStream) not]]) ifTrue: [parser _ self as: DialectParser] ifFalse: [parser _ self]. myStream _ sourceStream. [repeatNeeded _ false. p _ myStream position. s _ myStream upToEnd. myStream position: p. parser init: myStream notifying: req failBlock: [^ aBlock value]. doitFlag _ noPattern. failBlock_ aBlock. [methNode _ parser method: noPattern context: ctxt encoder: (ScriptEncoder new init: class context: ctxt notifying: parser; referenceObject: (anInstance costume ifNotNil: [anInstance costume referenceWorld] ifNil: [ActiveWorld]))] on: ParserRemovedUnusedTemps do: [ :ex | repeatNeeded _ (requestor isKindOf: TextMorphEditor) not. myStream _ ReadStream on: requestor text string. ex resume]. repeatNeeded] whileTrue. encoder _ failBlock _ requestor _ parseNode _ nil. "break cycles & mitigate refct overflow" methNode sourceText: s. ^ methNode! !