[RoutineDef,RightTrayToggle,

	[If,close,
		//Tray is Open keep using IClicks till it Closes
		[Loop,5,
			[If,[IHPos,1001,1]<[IHPos,Unlock,1],
				[IClick,1001]
			,
				[LoopExit]
			]
		]
	,
		//Tray is Closed Keep using IClicks till it Opens
		[Loop,5,
			[If,[IHPos,1001,1]>[IHPos,Unlock,1],
				[IClick,1001]
			,
				[LoopExit]
			]
		]
	]

,close]//Routine RightTrayToggle

[RoutineDef,LeftTrayToggle,

	[If,close,
		//Tray is Open keep using IClicks till it Closes
		[Loop,5,
			[If,[IHPos,1000,1]>50,
				[IClick,1000]
			,
				[LoopExit]
			]
		]
	,
		//Tray is Closed Keep using IClicks till it Opens
		[Loop,5,
			[If,[IHPos,1000,1]<50,
				[IClick,1000]
			,
				[LoopExit]
			]
		]
	]
	
,close]//Routine LeftTrayToggle

[IButton,???,"Toggles the Left Tray Open or Closed.",
	[IShowActions,0]
	[IConfig,2019]
	//[IFreeze,		
		[VarSet,isOpen,[IGet,Preferences:Interface:FloatMenu]]
		[RoutineCall,RightTrayToggle,isOpen]
		[RoutineCall,LeftTrayToggle,isOpen]
		[IToggle,Preferences:Interface:FloatMenu]
		
	//]
,,1/2,,,]