Techmino/Zframework/widget.lua

local gc=love.graphics
local kb=love.keyboard
local int,abs=math.floor,math.abs
local max,min=math.max,math.min
local sub,format=string.sub,string.format
local ins=table.insert

local Timer=love.timer.getTime
local setFont,mStr=setFont,mStr

local Empty={}
local widgetList={}
local WIDGET={}
local widgetMetatable={
	__tostring=function(self)
		return self:getInfo()
	end,
}

local text={
	type="text",
	alpha=0,
}
function text:reset()
	if type(self.text)=="string"then
		self.text=gc.newText(getFont(self.font),self.text)
	elseif type(self.text)~="userdata"or self.text.type(self.text)~="Text"then
		self.text=gc.newText(getFont(self.font),self.name)
		self.color=COLOR.dPurple
		self.font=self.font-10
	end
end
function text:update()
	if self.hideCon and self.hideCon()then
		if self.alpha>0 then
			self.alpha=self.alpha-.125
		end
	elseif self.alpha<1 then
		self.alpha=self.alpha+.125
	end
end
function text:draw()
	if self.alpha>0 then
		local c=self.color
		gc.setColor(c[1],c[2],c[3],self.alpha)
		if self.align=="M"then
			gc.draw(self.text,self.x-self.text:getWidth()*.5,self.y)
		elseif self.align=="L"then
			gc.draw(self.text,self.x,self.y)
		elseif self.align=="R"then
			gc.draw(self.text,self.x-self.text:getWidth(),self.y)
		end
	end
end
function WIDGET.newText(D)--name,x,y[,color][,font=30][,align="M"][,hide]
	local _={
		name=	D.name,
		x=		D.x,
		y=		D.y,
		color=	D.color and(COLOR[D.color]or D.color)or COLOR.white,
		font=	D.font or 30,
		align=	D.align or"M",
		hideCon=D.hide,
	}
	for k,v in next,text do _[k]=v end
	if not _.hideCon then _.alpha=1 end
	setmetatable(_,widgetMetatable)
	return _
end

local image={
	type="image",
}
function image:reset()
	if type(self.img)=="string"then
		self.img=IMG[self.img]
	end
end
function image:draw()
	gc.setColor(1,1,1,self.alpha)
	gc.draw(self.img,self.x,self.y,self.ang,self.k)
end
function WIDGET.newImage(D)--name[,img(name)],x,y[,ang][,k][,hide]
	local _={
		name=	D.name,
		img=	D.img or D.name,
		alpha=	D.alpha,
		x=		D.x,
		y=		D.y,
		ang=	D.ang,
		k=		D.k,
		hide=	D.hide,
	}
	for k,v in next,image do _[k]=v end
	setmetatable(_,widgetMetatable)
	return _
end

local button={
	type="button",
	ATV=0,--Activating time(0~8)
}
function button:reset()
	self.ATV=0
end
function button:isAbove(x,y)
	local ATV=self.ATV
	return
		x>self.x-ATV and
		y>self.y-ATV and
		x<self.x+self.w+2*ATV and
		y<self.y+self.h+2*ATV
end
function button:getCenter()
	return self.x+self.w*.5,self.y+self.h*.5
end
function button:FX()
	local ATV=self.ATV
	SYSFX.newRectRipple(
		6,
		self.x-ATV,
		self.y-ATV,
		self.w+2*ATV,
		self.h+2*ATV
	)
end
function button:update()
	local ATV=self.ATV
	if WIDGET.sel==self then
		if ATV<8 then self.ATV=ATV+1 end
	else
		if ATV>0 then self.ATV=ATV-.5 end
	end
end
function button:draw()
	local x,y,w,h=self.x,self.y,self.w,self.h
	local ATV=self.ATV
	local r,g,b=unpack(self.color)
	gc.setColor(.2+r*.8,.2+g*.8,.2+b*.8,.7)
	gc.rectangle("fill",x-ATV,y-ATV,w+2*ATV,h+2*ATV)
	if ATV>0 then
		gc.setLineWidth(4)
		gc.setColor(1,1,1,ATV*.125)
		gc.rectangle("line",x-ATV+2,y-ATV+2,w+2*ATV-4,h+2*ATV-4)
	end
	local t=self.text
	if t then
		setFont(self.font)
		local y0=y+h*.5-self.font*.7-ATV*.5
		gc.setColor(1,1,1,.2+ATV*.05)
		gc.printf(t,x-2,y0-2,w,"center")
		gc.printf(t,x-2,y0+2,w,"center")
		gc.printf(t,x+2,y0-2,w,"center")
		gc.printf(t,x+2,y0+2,w,"center")
		gc.setColor(r*.5,g*.5,b*.5)
		gc.printf(t,x,y0,w,"center")
	end
end
function button:getInfo()
	return format("x=%d,y=%d,w=%d,h=%d,font=%d",self.x+self.w*.5,self.y+self.h*.5,self.w,self.h,self.font)
end
function button:press()
	self.code()
	self:FX()
	SFX.play("button")
end
function WIDGET.newButton(D)--name,x,y,w[,h][,color][,font],code[,hide]
	if not D.h then D.h=D.w end
	local _={
		name=	D.name,

		x=		D.x-D.w*.5,
		y=		D.y-D.h*.5,
		w=		D.w,
		h=		D.h,

		resCtr={
			D.x,D.y,
			D.x-D.w*.35,D.y-D.h*.35,
			D.x-D.w*.35,D.y+D.h*.35,
			D.x+D.w*.35,D.y-D.h*.35,
			D.x+D.w*.35,D.y+D.h*.35,
		},

		color=	D.color and(COLOR[D.color]or D.color)or COLOR.white,
		font=	D.font or 30,
		code=	D.code,
		hide=	D.hide,
	}
	for k,v in next,button do _[k]=v end
	setmetatable(_,widgetMetatable)
	return _
end

local key={
	type="key",
	ATV=0,--Activating time(0~4)
}
function key:reset()
	self.ATV=0
end
function key:isAbove(x,y)
	return
		x>self.x and
		y>self.y and
		x<self.x+self.w and
		y<self.y+self.h
end
function key:getCenter()
	return self.x+self.w*.5,self.y+self.h*.5
end
function key:update()
	local ATV=self.ATV
	if WIDGET.sel==self then
		if ATV<4 then self.ATV=ATV+1 end
	else
		if ATV>0 then self.ATV=ATV-.5 end
	end
end
function key:draw()
	local x,y,w,h=self.x,self.y,self.w,self.h
	local ATV=self.ATV
	local r,g,b=unpack(self.color)

	gc.setColor(1,1,1,ATV*.125)
	gc.rectangle("fill",x,y,w,h)

	gc.setColor(.2+r*.8,.2+g*.8,.2+b*.8,.7)
	gc.setLineWidth(4)
	gc.rectangle("line",x,y,w,h)

	local t=self.text
	if t then
		setFont(self.font)
		gc.setColor(r,g,b,1.2)
		gc.printf(t,x,y+h*.5-self.font*.7,w,"center")
	end
end
function key:getInfo()
	return format("x=%d,y=%d,w=%d,h=%d,font=%d",self.x+self.w*.5,self.y+self.h*.5,self.w,self.h,self.font)
end
function key:press()
	self.code()
end
function WIDGET.newKey(D)--name,x,y,w[,h][,color][,font],code[,hide]
	if not D.h then D.h=D.w end
	local _={
		name=	D.name,

		x=		D.x-D.w*.5,
		y=		D.y-D.h*.5,
		w=		D.w,
		h=		D.h,

		resCtr={
			D.x,D.y,
			D.x-D.w*.35,D.y-D.h*.35,
			D.x-D.w*.35,D.y+D.h*.35,
			D.x+D.w*.35,D.y-D.h*.35,
			D.x+D.w*.35,D.y+D.h*.35,
		},

		color=	D.color and(COLOR[D.color]or D.color)or COLOR.white,
		font=	D.font or 30,
		code=	D.code,
		hide=	D.hide,
	}
	for k,v in next,key do _[k]=v end
	setmetatable(_,widgetMetatable)
	return _
end

local switch={
	type="switch",
	ATV=0,--Activating time(0~8)
	CHK=0,--Check alpha(0~6)
}
function switch:reset()
	self.ATV=0
	self.CHK=0
end
function switch:isAbove(x,y)
	return x>self.x and x<self.x+50 and y>self.y-25 and y<self.y+25
end
function switch:getCenter()
	return self.x,self.y
end
function switch:update()
	local atv=self.ATV
	if WIDGET.sel==self then if atv<8 then self.ATV=atv+1 end
	else if atv>0 then self.ATV=atv-.5 end
	end
	local chk=self.CHK
	if self:disp()then if chk<6 then self.CHK=chk+1 end
	else if chk>0 then self.CHK=chk-1 end
	end
end
function switch:draw()
	local x,y=self.x,self.y-25
	local ATV=self.ATV

	--Checked
	if ATV>0 then
		gc.setColor(1,1,1,ATV*.08)
		gc.rectangle("fill",x,y,50,50)
	end
	if self.CHK>0 then
		gc.setColor(.9,1,.9,self.CHK/6)
		gc.setLineWidth(6)
		gc.line(x+5,y+25,x+18,y+38,x+45,y+11)
	end

	--Frame
	gc.setLineWidth(4)
	gc.setColor(1,1,1,.6+ATV*.05)
	gc.rectangle("line",x,y,50,50)

	--Text
	local t=self.text
	if t then
		gc.setColor(1,1,1)
		setFont(self.font)
		gc.printf(t,x-412-ATV,y+20-self.font*.7,400,"right")
	end
end
function switch:getInfo()
	return format("x=%d,y=%d,font=%d",self.x,self.y,self.font)
end
function switch:press()
	self.code()
	SFX.play("move")
end
function WIDGET.newSwitch(D)--name,x,y[,font][,disp],code,hide
	local _={
		name=	D.name,

		x=		D.x,
		y=		D.y,

		resCtr={
			D.x+25,D.y,
		},

		font=	D.font or 30,
		disp=	D.disp,
		code=	D.code,
		hide=	D.hide,
	}
	for k,v in next,switch do _[k]=v end
	setmetatable(_,widgetMetatable)
	return _
end

local slider={
	type="slider",
	ATV=0,--Activating time(0~8)
	TAT=0,--Text activating time(0~180)
	pos=0,--Position shown
	lastTime=0,
}
local sliderShowFunc={
	int=function(S)
		return S.disp()
	end,
	float=function(S)
		return int(S.disp()*100)*.01
	end,
	percent=function(S)
		return int(S.disp()*100).."%"
	end,
}
function slider:reset()
	self.ATV=0
	self.TAT=180
	self.pos=0
end
function slider:isAbove(x,y)
	return x>self.x-10 and x<self.x+self.w+10 and y>self.y-25 and y<self.y+25
end
function slider:getCenter()
	return self.x+self.w*(self.pos/self.unit),self.y
end
function slider:update()
	local atv=self.ATV
	if self.TAT>0 then
		self.TAT=self.TAT-1
	end
	if WIDGET.sel==self then
		if atv<6 then
			atv=atv+1
			self.ATV=atv
		end
		self.TAT=180
	else
		if atv>0 then
			atv=atv-.5
			self.ATV=atv
		end
	end
	if not(self.hide and self.hide())then
		self.pos=self.pos*.7+self.disp()*.3
	end
end
function slider:draw()
	local x,y=self.x,self.y
	local ATV=self.ATV
	local x2=x+self.w

	gc.setColor(1,1,1,.5+ATV*.06)

	--Units
	if not self.smooth then
		gc.setLineWidth(2)
		for p=0,self.unit do
			local X=x+(x2-x)*p/self.unit
			gc.line(X,y+7,X,y-7)
		end
	end

	--Axis
	gc.setLineWidth(4)
	gc.line(x,y,x2,y)

	--Block
	local cx=x+(x2-x)*self.pos/self.unit
	local bx,by,bw,bh=cx-10-ATV*.5,y-16-ATV,20+ATV,32+2*ATV
	gc.setColor(.8,.8,.8)
	gc.rectangle("fill",bx,by,bw,bh)

	if ATV>0 then
		gc.setLineWidth(2)
		gc.setColor(1,1,1,ATV*.16)
		gc.rectangle("line",bx+1,by+1,bw-2,bh-2)
	end
	if self.TAT>0 and self.show then
		setFont(25)
		gc.setColor(1,1,1,self.TAT/180)
		mStr(self:show(),cx,by-30)
	end

	--Text
	local t=self.text
	if t then
		gc.setColor(1,1,1)
		setFont(self.font)
		gc.printf(t,x-312-ATV,y-self.font*.7,300,"right")
	end
end
function slider:getInfo()
	return format("x=%d,y=%d,w=%d",self.x,self.y,self.w)
end
function slider:drag(x)
	if not x then return end
	x=x-self.x
	local p=self.disp()
	local P=x<0 and 0 or x>self.w and self.unit or x/self.w*self.unit
	if not self.smooth then
		P=int(P+.5)
	end
	if p~=P then
		self.code(P)
	end
	if self.change and Timer()-self.lastTime>.18 then
		self.lastTime=Timer()
		self.change()
	end
end
function slider:release(x)
	self.lastTime=0
	self:drag(x)
end
function slider:arrowKey(isLeft)
	local p=self.disp()
	local u=(self.smooth and .01 or 1)
	local P=isLeft and max(p-u,0)or min(p+u,self.unit)
	if p==P or not P then return end
	self.code(P)
	if self.change and Timer()-self.lastTime>.18 then
		self.lastTime=Timer()
		self.change()
	end
end
function WIDGET.newSlider(D)--name,x,y,w[,unit][,smooth][,font][,change],disp,code,hide
	local _={
		name=	D.name,

		x=		D.x,
		y=		D.y,
		w=		D.w,

		resCtr={
			D.x,D.y,
			D.x+D.w*.25,D.y,
			D.x+D.w*.5,D.y,
			D.x+D.w*.75,D.y,
			D.x+D.w,D.y,
		},

		unit=	D.unit or 1,
		smooth=nil,
		font=	D.font or 30,
		change=	D.change,
		disp=	D.disp,
		code=	D.code,
		hide=	D.hide,
		show=	nil,
	}
	if D.smooth~=nil then
		_.smooth=D.smooth
	else
		_.smooth=_.unit<=1
	end
	if D.show then
		if type(D.show)=="function"then
			_.show=D.show
		else
			_.show=sliderShowFunc[D.show]
		end
	elseif D.show~=false then
		if _.unit<=1 then
			_.show=sliderShowFunc.percent
		else
			_.show=sliderShowFunc.int
		end
	end
	for k,v in next,slider do _[k]=v end
	setmetatable(_,widgetMetatable)
	return _
end

local selector={
	type="selector",
	ATV=8,--Activating time(0~4)
	select=0,--Selected item ID
	selText=nil,--Selected item name
}
function selector:reset()
	self.ATV=0
	local V=self.disp()
	local L=self.list
	for i=1,#L do
		if L[i]==V then
			self.select=i
			self.selText=self.list[i]
			return
		end
	end
	self.hide=true
	LOG.print("Selector "..self.name.." dead, disp= "..tostring(V),"warn")
end
function selector:isAbove(x,y)
	return
		x>self.x and
		x<self.x+self.w+2 and
		y>self.y and
		y<self.y+60
end
function selector:getCenter()
	return self.x+self.w*.5,self.y+30
end
function selector:update()
	local atv=self.ATV
	if WIDGET.sel==self then
		if atv<8 then
			self.ATV=atv+1
		end
	else
		if atv>0 then
			self.ATV=atv-.5
		end
	end
end
function selector:draw()
	local x,y=self.x,self.y
	local r,g,b=unpack(self.color)
	local w=self.w
	local ATV=self.ATV

	gc.setColor(1,1,1,.6+ATV*.1)
	gc.setLineWidth(3)
	gc.rectangle("line",x,y,w,60)

	gc.setColor(1,1,1,.2+ATV*.1)
	local t=(Timer()%.5)^.5
	if self.select>1 then
		gc.draw(drawableText.small,x+6,y+20)
		if ATV>0 then
			gc.setColor(1,1,1,ATV*.4*(.5-t))
			gc.draw(drawableText.small,x+6-t*40,y+20)
			gc.setColor(1,1,1,.2+ATV*.1)
		end
	end
	if self.select<#self.list then
		gc.draw(drawableText.large,x+w-24,y+20)
		if ATV>0 then
			gc.setColor(1,1,1,ATV*.4*(.5-t))
			gc.draw(drawableText.large,x+w-24+t*40,y+20)
		end
	end

	--Text
	setFont(30)
	t=self.text
	if t then
		gc.setColor(r,g,b)
		mStr(self.text,x+w*.5,y+17-21)
	end
	gc.setColor(1,1,1)
	mStr(self.selText,x+w*.5,y+43-21)
end
function selector:getInfo()
	return format("x=%d,y=%d,w=%d",self.x+self.w*.5,self.y+30,self.w)
end
function selector:press(x)
	if x then
		local s=self.select
		if x<self.x+self.w*.5 then
			if s>1 then
				s=s-1
				SYSFX.newShade(3,1,1,1,self.x,self.y,self.w*.5,60)
			end
		else
			if s<#self.list then
				s=s+1
				SYSFX.newShade(3,1,1,1,self.x+self.w*.5,self.y,self.w*.5,60)
			end
		end
		if self.select~=s then
			self.code(self.list[s])
			self.select=s
			self.selText=self.list[s]
			SFX.play("prerotate")
		end
	end
end
function selector:arrowKey(isLeft)
	local s=self.select
	if isLeft and s==1 or not isLeft and s==#self.list then return end
	if isLeft then
		s=s-1
		SYSFX.newShade(3,1,1,1,self.x,self.y,self.w*.5,60)
	else
		s=s+1
		SYSFX.newShade(3,1,1,1,self.x+self.w*.5,self.y,self.w*.5,60)
	end
	self.code(self.list[s])
	self.select=s
	self.selText=self.list[s]
	SFX.play("prerotate")
end
function WIDGET.newSelector(D)--name,x,y,w[,color],list,disp,code,hide
	local _={
		name=	D.name,

		x=		D.x-D.w*.5,
		y=		D.y-30,
		w=		D.w,

		resCtr={
			D.x,D.y,
			D.x+D.w*.25,D.y,
			D.x+D.w*.5,D.y,
			D.x+D.w*.75,D.y,
			D.x+D.w,D.y,
		},

		color=	D.color and(COLOR[D.color]or D.color)or COLOR.white,
		list=	D.list,
		disp=	D.disp,
		code=	D.code,
		hide=	D.hide,
	}
	for k,v in next,selector do _[k]=v end
	setmetatable(_,widgetMetatable)
	return _
end

local textBox={
	type="textBox",
	keepFocus=true,
	ATV=0,--Activating time(0~4)
	value="",--Text contained
}
function textBox:reset()
	self.ATV=0
	if not MOBILE then
		kb.setTextInput(true)
	end
end
function textBox:isAbove(x,y)
	return
		x>self.x and
		y>self.y and
		x<self.x+self.w and
		y<self.y+self.h
end
function textBox:getCenter()
	return self.x+self.w*.5,self.y
end
function textBox:update()
	local ATV=self.ATV
	if WIDGET.sel==self then
		if ATV<3 then self.ATV=ATV+1 end
	else
		if ATV>0 then self.ATV=ATV-.25 end
	end
end
function textBox:draw()
	local x,y,w,h=self.x,self.y,self.w,self.h
	local ATV=self.ATV

	gc.setColor(1,1,1,ATV*.1)
	gc.rectangle("fill",x,y,w,h)

	gc.setColor(1,1,1)
	gc.setLineWidth(4)
	gc.rectangle("line",x,y,w,h)

	--Text
	setFont(self.font)
	local t=self.text
	if t then
		gc.printf(t,x-412,y+h*.5-self.font*.7,400,"right")
	end
	if self.secret then
		for i=1,#self.value do
			gc.print("*",x-5+self.font*.5*i,y+h*.5-self.font*.7)
		end
	else
		gc.print(self.value,x+10,y+h*.5-self.font*.7)
		setFont(self.font-10)
		if WIDGET.sel==self then
			gc.print(EDITING,x+10,y+12-self.font*1.4)
		end
	end
end
function textBox:getInfo()
	return format("x=%d,y=%d,w=%d,h=%d",self.x+self.w*.5,self.y+self.h*.5,self.w,self.h)
end
function textBox:press()
	if MOBILE then
		local _,y1=SCR.xOy:transformPoint(0,self.y+self.h)
		kb.setTextInput(true,0,y1,1,1)
	end
end
function textBox:keypress(k)
	local t=self.value
	if #t==0 then return end
	if k=="backspace"then
		while t:byte(#t)>=128 and t:byte(#t)<192 do
			t=sub(t,1,-2)
		end
		t=sub(t,1,-2)
		SFX.play("lock")
	elseif k=="delete"then
		t=""
		SFX.play("hold")
	end
	self.value=t
end
function WIDGET.newTextBox(D)--name,x,y,w[,h][,font][,secret][,regex],hide
	local _={
		name=	D.name,

		x=		D.x,
		y=		D.y,
		w=		D.w,
		h=		D.h,

		resCtr={
			D.x+D.w*.2,D.y,
			D.x+D.w*.5,D.y,
			D.x+D.w*.8,D.y,
		},

		font=	int(D.h/7-1)*5,
		secret=	D.secret,
		regex=	D.regex,
		hide=	D.hide,
	}
	for k,v in next,textBox do _[k]=v end
	setmetatable(_,widgetMetatable)
	return _
end

WIDGET.active={}--Table contains all active widgets
WIDGET.sel=nil--Selected widget

function WIDGET.lnk_BACK()			SCN.back()end
function WIDGET.lnk_CUSval(k)		return function()	return CUSTOMENV[k]				end end
function WIDGET.lnk_CUSrev(k)		return function()	CUSTOMENV[k]=not CUSTOMENV[k]	end end
function WIDGET.lnk_CUSsto(k)		return function(i)	CUSTOMENV[k]=i					end end

function WIDGET.lnk_SETval(k)		return function()	return SETTING[k]				end end
function WIDGET.lnk_SETrev(k)		return function()	SETTING[k]=not SETTING[k]		end end
function WIDGET.lnk_SETsto(k)		return function(i)	SETTING[k]=i					end end

function WIDGET.lnk_STPval(k)		return function()	return sceneTemp[k]				end end
function WIDGET.lnk_STPrev(k)		return function()	sceneTemp[k]=not sceneTemp[k]	end end
function WIDGET.lnk_STPsto(k)		return function(i)	sceneTemp[k]=i					end end
function WIDGET.lnk_STPeq(k,v)		return function()	return sceneTemp[k]==v			end end

function WIDGET.lnk_pressKey(k)		return function()	love.keypressed(k)				end end
function WIDGET.lnk_goScene(t,s)	return function()	SCN.go(t,s)						end end
function WIDGET.lnk_swapScene(t,s)	return function()	SCN.swapTo(t,s)					end end

local indexMeta={
	__index=function(L,k)
		for i=1,#L do
			if L[i].name==k then
				return L[i]
			end
		end
	end
}
function WIDGET.init(scene,list)
	local L={}
	for i=1,#list do
		ins(L,list[i])
	end
	setmetatable(L,indexMeta)
	widgetList[scene]=L
end
function WIDGET.set(scene)
	kb.setTextInput(false)
	WIDGET.sel=nil
	scene=widgetList[scene]
	WIDGET.active=scene or Empty

	--Reset all widgets
	if scene then
		for i=1,#scene do
			scene[i]:reset()
		end
	end
end
function WIDGET.setLang(lang)
	for S,L in next,widgetList do
		for _,W in next,L do
			W.text=lang[S][W.name]
		end
	end
end

function WIDGET.moveCursor(x,y)
	for _,W in next,WIDGET.active do
		if not(W.hide==true or W.hide and W.hide())and W.resCtr and W:isAbove(x,y)then
			WIDGET.sel=W
			return
		end
	end
	if WIDGET.sel and not WIDGET.sel.keepFocus then
		WIDGET.sel=nil
	end
end
function WIDGET.press(x,y)
	local W=WIDGET.sel
	if not W then return end
	if W.type=="button"or W.type=="key"or W.type=="switch"or W.type=="selector"or W.type=="textBox"then
		W:press(x,y)
	elseif W.type=="slider"then
		WIDGET.drag(x,y)
	end
	if W.hide and W.hide()then WIDGET.sel=nil end
end
function WIDGET.drag(x,y)
	local W=WIDGET.sel
	if not W then return end
	if W.type=="slider"then
		W:drag(x,y)
	elseif not W:isAbove(x,y)then
		WIDGET.sel=nil
	end
end
function WIDGET.release(x,y)
	local W=WIDGET.sel
	if not W then return end
	if W.type=="slider"then
		W:release(x,y)
	end
end
function WIDGET.keyPressed(k)
	if k=="space"or k=="return"then
		WIDGET.press()
	elseif kb.isDown("lshift","lalt","lctrl")and(k=="left"or k=="right")then
					--When hold [↑], control slider with left/right
		local W=WIDGET.sel
		if W and W.type=="slider"or W.type=="selector"then
			W:arrowKey(k=="left")
		end
	elseif k=="up"or k=="down"or k=="left"or k=="right"then
		if not WIDGET.sel then
			for _,v in next,WIDGET.active do
				if v.isAbove then
					WIDGET.sel=v
					return
				end
			end
			return
		end
		local W=WIDGET.sel
		if not W.getCenter then return end
		local WX,WY=W:getCenter()
		local dir=(k=="right"or k=="down")and 1 or -1
		local tar
		local minDist=1e99
		local swap_xy=k=="up"or k=="down"
		if swap_xy then WX,WY=WY,WX end -- note that we do not swap them back later
		for _,W1 in ipairs(WIDGET.active)do
			if W~=W1 and W1.resCtr then
				local L=W1.resCtr
				for j=1,#L,2 do
					local x,y=L[j],L[j+1]
					if swap_xy then x,y=y,x end -- note that we do not swap them back later
					local dist=(x-WX)*dir
					if dist>10 then
						dist=dist+abs(y-WY)*6.26
						if dist<minDist then
							minDist=dist
							tar=W1
						end
					end
				end
			end
		end
		if tar then
			WIDGET.sel=tar
		end
	else
		local W=WIDGET.sel
		if W and W.type=="textBox"then
			W:keypress(k)
		end
	end
end
local keyMirror={
	dpup="up",
	dpdown="down",
	dpleft="left",
	dpright="right",
	start="return",
	back="escape",
}
function WIDGET.gamepadPressed(i)
	if i=="start"then
		WIDGET.press()
	elseif i=="a"or i=="b"then
		local W=WIDGET.sel
		if W then
			if W.type=="button"or W.type=="key"then
				WIDGET.press()
			elseif W.type=="slider"then
				local p=W.disp()
				local P=i=="left"and(p>0 and p-1)or p<W.unit and p+1
				if p==P or not P then return end
				W.code(P)
				if W.change and Timer()-W.lastTime>.18 then
					W.lastTime=Timer()
					W.change()
				end
			end
		end
	elseif i=="dpup"or i=="dpdown"or i=="dpleft"or i=="dpright"then
		WIDGET.keyPressed(keyMirror[i])
	end
end

function WIDGET.update()
	for _,W in next,WIDGET.active do
		if W.update then W:update()end
	end
end
function WIDGET.draw()
	for _,W in next,WIDGET.active do
		if not(W.hide==true or W.hide and W.hide())then
			W:draw()
		end
	end
end

return WIDGET