local function Clock()
	function UpdateVisible(self)
		local screen = SCREENMAN:GetTopScreen()
		local bShow = true
		if screen then
			local sClass = screen:GetName()
			bShow = THEME:GetMetric(sClass, "ShowClock")
		end
		if bShow then
			self:smooth(0.25)
			self:y(12)
		else
			self:smooth(0.25)
			self:y(-56)
		end
	end
	-- clock
	clock = Def.ActorFrame {
		Name="Clock",
		InitCommand=function(self)
			self:x(50);
			self:y(12);
			self:playcommand("Update")
		end;
		ScreenChangedMessageCommand=UpdateVisible,
		UpdateCommand=function(self)
			self:runcommandsonleaves(function(self) 
				self:queuecommand("Update");
			end;);
		end;
		Def.RoundedBox(90,26)..{ 
			InitCommand=function(self)
				self:x(-22);
				self:y(-4);
			end;
		};
		Def.ActorFrame {
			Name="ClockText",
			InitCommand=function(self)
				self:y(-2);
			end;
			LoadFont("Common", "normal")..{
				Text="00:00:",
				InitCommand=function(self)
					self:horizalign(right);
					self:shadowlength(0);
					self:diffusebottomedge(color("0.9,0.9,0.9"));
				end;
				UpdateCommand=function(self)
					local hour, min = Hour(), Minute()
					if hour > 12 and GetUserPrefB("Use12HourClock") then
						hour = hour - 12
					elseif hour == 0 and GetUserPrefB("Use12HourClock") then
						hour = 12
					end	
					self:settext(string.format('%02i:%02i:', hour, min))
					self:sleep(1)
					self:queuecommand("Update")
				end
			},
			LoadFont("Common", "normal")..{
				Text="00",
				InitCommand=function(self)
					self:horizalign(left);
					self:shadowlength(0);
					self:diffusebottomedge(color("0.9,0.9,0.9"));
				end;
				UpdateCommand=function(self)
					local sec = Second()
					self:settext(string.format('%02i', sec))
					self:sleep(1)
					self:queuecommand("Update")
				end,
			},
			LoadFont("Common", "normal")..{
				Text="",
				InitCommand=function(self)
					self:x(28);
					self:y(-3);
					self:horizalign(left);
					self:shadowlength(0);
					self:diffusebottomedge(color("0.9,0.9,0.9"));
					self:visible(false);
					self:zoom(0.75);
				end;
				UpdateCommand=function(self)
					if not GetUserPrefB("Use12HourClock") then
						self:visible(false)
						return
					end
					local hour = Hour()
					if hour < 12 then
						self:settext("AM")
						self:diffuse(color("1,0.85,0,1"))
						self:diffusebottomedge(color("0.75,0.55,0,1"))
					else
						self:settext("PM")
						self:diffuse(color("0,0.85,1,1"))
						self:diffusebottomedge(color("0,0.55,1,1"))
					end
					self:visible(true)
					self:sleep(1)
					self:queuecommand("Update")
				end
			}
		}
	}
	return clock;
end
local t = Def.ActorFrame {};
return t;