'From Squeakland 3.8.5976 of 25 August 2004 [latest update: #388] on 14 February 2005 at 1:53:13 pm'!
"Change Set:		typeInFreq
Date:			14 February 2005
Author:			Yoshiki Ohshima

translation in typeInFrequency."!


!ScriptEditorMorph methodsFor: 'frequency' stamp: 'yo 2/14/2005 13:51'!
typeInFrequency
	| reply aNumber |
	reply _ FillInTheBlank request: 'Number of firings per tick: ' translated initialAnswer: self scriptInstantiation frequency printString.

	reply ifNotNil:
		[aNumber _ reply asNumber.
		aNumber > 0 ifTrue:
			[self setFrequencyTo: aNumber]]! !