(
	::testRollout
	Rollout testRollout "Test Timer"
	(

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

		label test"1"

		on clock tick do
		(
			if clock.ticks == 3 then DestroyDialog testRollout
			else
			(
				valUp = (test.text as integer)+1
				test.text = valUp as string
			)
		)

	)

	createDialog testRollout style:#(#style_sysmenu)
)