Wholly Quest Info Frame

	<Frame name="com_mithrandir_whollyQuestInfoFrame" parent="QuestFrame" enableMouse="true">
		<Size>
			<AbsDimension x="60" y="14" />
		</Size>
		<Scripts>
			<OnEnter>
				Wholly:QuestInfoEnter(self)
			</OnEnter>
			<OnLeave>
				GameTooltip:Hide()
			</OnLeave>
		</Scripts>
		<Anchors>
			<Anchor point="TOPRIGHT" relativePoint="TOPRIGHT">
				<Offset>
					<AbsDimension x="-40" y="-55" />
				</Offset>
			</Anchor>
		</Anchors>
		<Layers>
			<Layer level="BACKGROUND">
				<FontString name="$parentText" inherits="GameFontNormal" justifyH="RIGHT" text="None">
					<Size>
						<AbsDimension x="60" y="20" />
					</Size>
				</FontString>
			</Layer>
		</Layers>
	</Frame>

			if nil == com_mithrandir_whollyQuestInfoFrame then
				local frame = CreateFrame("Frame", "com_mithrandir_whollyQuestInfoFrame", QuestFrame)
				frame:EnableMouse(true)
				frame:SetSize(60, 14)
				frame:SetPoint("TOPRIGHT", QuestFrame, "TOPRIGHT", -40, -55)
				frame:SetScript("OnEnter", function(self) Wholly:QuestInfoEnter(self) end)
				frame:SetScript("OnLeave", function(self) GameTooltip:Hide() end)
				local fontString = frame:CreateFontString("com_mithrandir_whollyQuestInfoFrameText", "BACKGROUND", "GameFontNormal")
				fontString:SetJustifyH("RIGHT")
				fontString:SetSize(60, 20)
				fontString:SetText("None")
			end