macroScript Timestroller
	category:"Grants"
	toolTip:"Time_stroller"
(
	rollout params "Time Settings"

	(
	local params_opened = false
	

	spinner tv "Increment" fieldwidth:65 pos:[9,6] range:[-100000,100000,1] enabled:true type:#float scale:1

	label fr "Float gives fraction of frame"

	button prst5 "5" width:14 height:15 pos:[140,6]

	button prst10 "10" width:16 height:15 pos:[158,6]

	button tform "Step forward" width:85 height:30 pos:[92,42]

	button back "Step back" width:85 height:30 pos:[4,42]



	on tform pressed do sliderTime = sliderTime + tv.value
	on back pressed do sliderTime = sliderTime - tv.value
	on prst5 pressed do tv.value = 5

	on prst10 pressed do tv.value = 10
	on params open do params_opened = true
	on params close do params_opened = false
)


fn open_timestroller =
(
	if params.params_opened == false do 
	(
	ts = newRolloutFloater "Time Stroller" 210 139; addRollout params ts
	)
)


open_timestroller()

)