import swi

swi.swi("TWimpDemo_Start","s","TWimp App")
swi.swi("TWimpDemo_Load","ss","<TWimpApp$Dir>.TWimpData","")
swi.swi("TWimpDemo_Load","ss","<TWimpApp$Dir>.TWimpWind","")

quit = 0
while quit == 0:
	polla,pollb,pollc  = swi.swi("TWimpDemo_PollSetup",";III")
	rcode,block,sender = swi.swi("Wimp_PollIdle","III;III",polla,pollb,pollc)
	reason,rcode       = swi.swi("TWimpDemo_PollAction","III;sI",rcode,block,sender)

	# reason contains the event. It is a string.

	if reason == "QUIT":
		quit = 1

swi.swi("TWimpDemo_End",";")
