anchor.diff:  	proc
   		SetImage(atom/a, animate=TRUE)
   			set waitfor = 0
  +			if(isDisposed) return
   
   			if(!displayImage)
   				displayImage = new
  
positive.code: 				displayImage.Show(5)
  
  		AddImage(atom/a)
  			if(!queue)
  				SetImage(a)
  			else
  
negative.code: 
  
  		Next(i_buttonName)
  			if(isBusy)     return
  			if(isDisposed) return
  
  			Result = i_buttonName
  
  