FryGUI

This now creates multiple colour scheme:

Function fry_SetGuiColour(pancol:String="FFFFFF", butcol:String="FFFFFF", txtcol:String="000000")
	For Local g:fry_TGadget = EachIn fry_GUI.gPanels
		g.HexColour(pancol)
		g.HexTextColour(txtcol)
		
		If g.gChildren Then fry_ColourGadgets(g, butcol, txtcol)
	Next 

	For Local e:fry_TGadget = EachIn fry_GUI.gExtras
		e.HexColour(butcol)
		e.HexTextColour(txtcol)
		
		If e.gChildren Then fry_ColourGadgets(e, butcol, txtcol)
	Next 
End Function

Function fry_ColourGadgets(g:fry_TGadget, col:String, txtcol:String)
	For Local child:fry_TGadget = EachIn g.gChildren
		child.HexColour(col)
		child.HexTextColour(txtcol)
		
		If child.gChildren Then fry_ColourGadgets(child, col, txtcol)
	Next
End Function

Ewwww!