local StageDisplay = Def.ActorFrame{
	BeginCommand=function(self)
		self:playcommand("Set")
	end,
	CurrentSongChangedMessageCommand=function(self)
		self:finishtweening():playcommand("Set")
	end
}

for s in ivalues(Stage) do

	if s ~= 'Stage_Next' then
		StageDisplay[#StageDisplay+1] = LoadActor( THEME:GetPathG("ScreenEvaluation","StageDisplay/"..s) ) .. {
			SetCommand=function(self, params)
				local Stage = "Stage_Event"
				local StageIndex = GAMESTATE:GetCurrentStageIndex()
				local screen = SCREENMAN:GetTopScreen()
				if screen and screen.GetStageStats then
					local ss = screen:GetStageStats()
					Stage = ss:GetStage()
					StageIndex = ss:GetStageIndex()
				end
				self:visible( Stage == s )
			end
		}
	end

end

return StageDisplay