Frame field "Layer" controls render order and prevents event bubbling.

Reworked GUI events.

DepthsBelow/DepthsBelowContent/scripts/gui.lua

@@ -1,3 +1,6 @@
+luanet.load_assembly("Microsoft.Xna.Framework")
+Color = luanet.import_type("Microsoft.Xna.Framework.Color")
+
 local frame = CreateFrame('Frame');
 frame.X = 100;
 
@@ -9,3 +12,70 @@ button.OnClick = function(clickPos)
 	Console.WriteLine(clickPos.X .. ' ' .. clickPos.Y)
 end
 
+
+function CreatePanicFrame(x, y)
+	local frame = CreateFrame("Frame")
+	frame:SetTexture("images/GUI/unit_background")
+	frame.Width = 154
+	frame.Height = 19
+	frame.X = x
+	frame.Y = y
+	
+	local healthBg = CreateFrame("Frame", frame)
+	healthBg:SetTexture("images/GUI/health_background")
+	healthBg.Width = 136
+	healthBg.Height = 13
+	healthBg.X = 3
+	healthBg.Y = 3
+	
+	local healthBar = CreateFrame("Frame", healthBg)
+	healthBar:SetTexture("images/GUI/bar_solid")
+	healthBar.Color = Color(87, 55, 253)
+	healthBar.Width = healthBg.Width * 0.5
+	healthBar.Height = 11
+	healthBar.X = 1
+	healthBar.Y = 1
+	
+	return frame
+end
+
+function CreateUnitFrame(name, x, y)
+	-- Frames for one unit
+	local frame = CreateFrame("Frame")
+	frame:SetTexture("images/GUI/unit_background")
+	frame.Width = 164;
+	frame.Height = 35;
+	frame.X = x
+	frame.Y = y
+	
+	local nameText = CreateFrame("Text", frame)
+	nameText:SetFont("fonts/UnitName")
+	nameText.Value = name
+	nameText.X = 4
+	nameText.Y = 1
+
+	local healthBg = CreateFrame("Frame", frame)
+	healthBg:SetTexture("images/GUI/health_background")
+	healthBg.Width = 136
+	healthBg.Height = 13
+	healthBg.X = 3
+	healthBg.Y = 19
+	
+	local healthBar = CreateFrame("Frame", healthBg)
+	healthBar:SetTexture("images/GUI/bar_solid")
+	healthBar.Color = Color.Red
+	healthBar.Width = healthBg.Width * 0.5
+	healthBar.Height = 11
+	healthBar.X = 1
+	healthBar.Y = 1
+	
+	return frame
+end
+
+--[[local frame;
+frame = CreatePanicFrame(0, 0)
+frame = CreateUnitFrame("Flight captain Rainbow Dash", frame.X, frame.Y + frame.Height)
+CreateUnitFrame("Mr. Sparkle", frame.X, frame.Y + frame.Height)]]--
+
+local testFrame = CreateTestFrame()
+testFrame:SetWidth(1337)