macroScript FrameSwitch	
	category:"DaniTools" 
	internalcategory:"DaniTools"
	tooltip:"Frame-Switch"
	buttontext:"Frame-Switch"
	Icon:#("SubObjectIcons",21) 
(
-- Frame-Switch
-- Dani Rosen 1/2005
-- used to quickly jump from one time to the next
-- (when comparing two states)
-- alternative icons:("SubObjectIcons",20), ("MergeAnim",1)


global f1time=0
global f2time=100

rollout frame_switch_rol "Time-Switch"
(
	label frame1 "First Frame:" pos:[20,8]
	label frame2 "Second Frame:" pos:[90,8]
	editText f1 "" text:"0" fieldWidth:40 pos:[20,25]
	editText f2 "" text:"100" fieldWidth:40 pos:[100,25]
	button switchButton "Switch" align:#center width:88 height:30

	on switchButton pressed do
	(
		f1time=(f1.text as integer)
		f2time=(f2.text as integer)

	
	if currenttime == f1time then slidertime=f2time else slidertime=f1time
	)
	

)

fs = newRolloutFloater "Frame-Switch" 185 115

addRollout frame_switch_rol fs


)