'From Squeak3.1alpha of 4 February 2001 [latest update: #3568] on 12 February 2001 at 1:56:01 pm'! "Change Set: MultiClickFix-ar Date: 12 February 2001 Author: Andreas Raab Fixes the problem of getting multiple #arrowAction: on a single click."! !TileMorph methodsFor: 'arrows' stamp: 'ar 2/12/2001 13:55'! variableDelay: aBlock | now delay dt | (self hasProperty: #inVariableDelay) ifTrue:[^self]. nArrowTicks ifNil: [nArrowTicks _ 1]. now _ Time millisecondClockValue. aBlock value. delay _ nArrowTicks > 5 ifTrue: [100] ifFalse: [300]. nArrowTicks _ nArrowTicks + 1. dt _ Time millisecondClockValue - now max: 0. "Time it took to do." dt < delay ifTrue: [ self setProperty: #inVariableDelay toValue: true. self addAlarm: #removeProperty: withArguments: #(inVariableDelay) after: (delay - dt)]. ! !