From dc4dbbbe942cf62c1a7e5b7ade453c2515b1add1 Mon Sep 17 00:00:00 2001
From: Ludovicus <ludovicus.maior@gmail.com>
Date: Sat, 6 Jul 2019 14:03:50 -0400
Subject: [PATCH] Make CrazyArrow stratum be settable to HIGH/MEDIUM.

---
 TomTom.lua            |    1 +
 TomTom_Config.lua     |   10 +++++++++-
 TomTom_CrazyArrow.lua |    6 ++++++
 3 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/TomTom.lua b/TomTom.lua
index 7d411a5..0fdcdbb 100755
--- a/TomTom.lua
+++ b/TomTom.lua
@@ -65,6 +65,7 @@ function TomTom:Initialize(event, addon)
                 showtta = true,
 				showdistance = true,
 				stickycorpse = false,
+				highstrata = false,
                 autoqueue = true,
                 menu = true,
                 scale = 1.0,
diff --git a/TomTom_Config.lua b/TomTom_Config.lua
index 380043f..96f46e6 100755
--- a/TomTom_Config.lua
+++ b/TomTom_Config.lua
@@ -254,10 +254,18 @@ local function createconfig()
 				width = "double",
 				arg = "arrow.stickycorpse",
 			},
+			strata = {
+				order = 16,
+				type = "toggle",
+				name = L["Place the arrow in the HIGH strata"],
+				desc = L["If your arrow is covered up by something else, try this to bump it up a layer."],
+				width = "double",
+				arg = "arrow.highstrata",
+			},
 			display = {
 				type = "group",
 				name = L["Arrow display"],
-				order = 15,
+				order = 16,
 				inline = true,
 				args = {
 					help = {
diff --git a/TomTom_CrazyArrow.lua b/TomTom_CrazyArrow.lua
index 5434dc1..d33040b 100755
--- a/TomTom_CrazyArrow.lua
+++ b/TomTom_CrazyArrow.lua
@@ -260,6 +260,12 @@ function TomTom:ShowHideCrazyArrow()
 		if TomTom.db.profile.arrow.alpha < 0.1 then
 		    TomTom.db.profile.arrow.alpha = 1.0
 		end
+		-- Set the stratum
+		if TomTom.db.profile.arrow.highstrata then
+		    wayframe:SetFrameStrata("HIGH")
+		else
+		    wayframe:SetFrameStrata("MEDIUM")
+		end
 		wayframe:SetAlpha(TomTom.db.profile.arrow.alpha)
 		local width = TomTom.db.profile.arrow.title_width
 		local height = TomTom.db.profile.arrow.title_height
-- 
1.7.9.5