;;;		T E S T

;_SingleCharRepeat_Fails()
_NO_SingleCharRepeat_Works()

;;;		T E S T

;
;	Doesn't keep the Notepad window active, if I click on the desktop or something else.
;
Func _SingleCharRepeat_Fails()

	Run("Notepad")

	Sleep(2000)

	If (SendKeepActive("[CLASS:Notepad]")) Then
		$OldDelay = Opt("SendKeyDelay", 50)
		Send("{a 50}")
		Opt("SendKeyDelay", $OldDelay)
	EndIf

EndFunc   ;==>_SingleCharRepeat_Fails


;
;	Works as expected. Keeps the Notepad window active, even if I click on the desktop or something else.
;
Func _NO_SingleCharRepeat_Works()

	Run("Notepad")

	Sleep(2000)

	If (SendKeepActive("[CLASS:Notepad]")) Then
		$OldDelay = Opt("SendKeyDelay", 50)
		Send("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")
		Opt("SendKeyDelay", $OldDelay)
	EndIf

EndFunc   ;==>_NO_SingleCharRepeat_Works