(

	::GW_displayText
	::GW_displayTextDialog
	try(unregisterRedrawViewsCallback GW_displayText)catch()



	fn GW_displayText =
	(

		wPos = GW.GetWinSizeX()*0.5

		hPos = GW.GetWinSizeY()*0.2

		gw.htext [wPos,hPos,0] "DUPLICATE COMPLETE" color:red

		gw.updateScreen()

	)

	registerRedrawViewsCallback GW_displayText

	rollout GW_displayTextDialog "Test Timer"
	(

		timer clock "testClock" interval:1000 --tick once a second

		on clock tick do
		(
			if (clock.ticks==3) do
			(
				try(unregisterRedrawViewsCallback GW_displayText)catch()
				DestroyDialog GW_displayTextDialog
			)
		)

	)
	CreateDialog GW_displayTextDialog pos:[-100,-100]
)