From b8192500461ecc09905fe7044cf04c77e057d166 Mon Sep 17 00:00:00 2001
From: p3lim-52096 <p3lim-52096@ae24c21f-2f0c-4c94-9256-0092abe71e0d>
Date: Sun, 19 Oct 2008 20:11:29 +0000
Subject: [PATCH] Merged core and _Clock

git-svn-id: svn://svn.wowinterface.com/pMinimap-54/trunk@29 ae24c21f-2f0c-4c94-9256-0092abe71e0d
---
 pMinimap/pMinimap.lua |   29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/pMinimap/pMinimap.lua b/pMinimap/pMinimap.lua
index ea553b8..0323c13 100644
--- a/pMinimap/pMinimap.lua
+++ b/pMinimap/pMinimap.lua
@@ -3,6 +3,10 @@ pMinimap:SetScript('OnEvent', function(self, event, ...) self[event](self, event
 pMinimap:RegisterEvent('ADDON_LOADED')
 
 function pMinimap.ADDON_LOADED(self)
+	if(not IsAddOnLoaded('Blizzard_TimeManager')) then
+		LoadAddOn('Blizzard_TimeManager')
+	end
+
 	local db = pMinimapDB or {point = {'TOPRIGHT', UIParent, 'TOPRIGHT', -15, -15}, scale = 0.9, offset = 1, colors = {0, 0, 0}, durability = true}
 
 	MinimapBorder:SetTexture()
@@ -50,6 +54,31 @@ function pMinimap.ADDON_LOADED(self)
 	MiniMapMailText:SetText('New Mail!')
 	MiniMapMailText:SetTextColor(1, 1, 1)
 
+	TimeManagerClockButton:ClearAllPoints()
+	TimeManagerClockButton:SetPoint('BOTTOM', Minimap)
+	TimeManagerClockButton:SetWidth(40)
+	TimeManagerClockButton:SetHeight(14)
+	TimeManagerClockButton:GetRegions():Hide()
+	TimeManagerClockTicker:SetPoint('CENTER', TimeManagerClockButton)
+	TimeManagerClockTicker:SetFont([=[Interface\AddOns\pMinimap\font.ttf]=], 13, 'OUTLINE')
+	TimeManagerAlarmFiredTexture.Show = function() TimeManagerClockTicker:SetTextColor(1, 0, 0) end
+	TimeManagerAlarmFiredTexture.Hide = function() TimeManagerClockTicker:SetTextColor(1, 1, 1) end
+	TimeManagerClockButton:SetScript('OnClick', function(self, button)
+		if(self.alarmFiring) then
+			PlaySound('igMainMenuQuit')
+			TimeManager_TurnOffAlarm()
+		else
+			if(button == 'RightButton') then
+				if(not IsAddOnLoaded('Blizzard_Calendar')) then
+					LoadAddOn('Blizzard_Calendar')
+				end
+				ToggleCalendar()
+			else
+				ToggleTimeManager()
+			end
+		end
+	end)
+
 	GameTimeFrame:Hide()
 	MiniMapWorldMapButton:Hide()
 	MiniMapVoiceChatFrame:Hide()
-- 
1.7.9.5