// Simulated TextBox Callback using Timer

/*
Simulated TextBox Callback using Timer
*/

real gpInterval = 0.1

DB gpDB = centered("Simulated TextBox Callback using Timer")
DBE gpInput = text(gpDB,"Type Here:","",400,100,false)
DBE gpCopy = text(gpDB,"Copy Here:","",400,100,true)

void fnCheckForChange() {
	string xCopy = ""
	bool xChange = modified(gpInput)
	if(xChange) {
		xCopy = get(gpInput)
		set(gpCopy,xCopy)
	}
}
void cbTimer(DBE xDBE) {
	fnCheckForChange	
}

DBE gpTimer = timer(gpDB,gpInterval,cbTimer,"Timer")

void cbStart(DB xDB) {
	startTimer(gpTimer)
}
void cbStop(DB xDB) {
	stopTimer(gpTimer)
}

apply(gpDB,"Turn ON Copying",cbStart)
apply(gpDB,"Turn OFF Copying",cbStop)
realize(gpDB)
setSize(gpDB,420,320)
show(gpDB))
setSize(gpDB,4