From f335a3024cc5ca55f46ae3f20a32e61c0b18ad39 Mon Sep 17 00:00:00 2001
From: Xruptor <xruptor@manaflux.com>
Date: Mon, 25 Jul 2016 08:52:53 -0400
Subject: [PATCH] Added Slash command for Scaling /lagbar scale # - Set the
 scale of the LagBar frame. Use small numbers like 0.5, 0.2,
 1, 1.1, 1.5, etc..

---
 LagBar.lua |   47 ++++++++++++++++++++++++++++++++++-------------
 LagBar.toc |    2 +-
 2 files changed, 35 insertions(+), 14 deletions(-)

diff --git a/LagBar.lua b/LagBar.lua
index 070b5cf..7044e86 100644
--- a/LagBar.lua
+++ b/LagBar.lua
@@ -31,11 +31,12 @@ LagBar.UPDATE_INTERVAL = 0
 function LagBar:Enable()
 
 	if not LagBar_DB then
-		LagBar_DB = {};
-		LagBar_DB.x = 0;
-		LagBar_DB.y = 0;
-		LagBar_DB.locked = false;
-		LagBar_DB.bgShown = true;
+		LagBar_DB = {}
+		LagBar_DB.x = 0
+		LagBar_DB.y = 0
+		LagBar_DB.locked = false
+		LagBar_DB.bgShown = true
+		LagBar_DB.scale = 1
 	end
 	--lets do a toggle for world ping
 	if LagBar_DB and LagBar_DB.worldping == nil then
@@ -45,6 +46,10 @@ function LagBar:Enable()
 	if LagBar_DB and LagBar_DB.impdisplay == nil then
 		LagBar_DB.impdisplay = true
 	end
+	--lets check for scale
+	if LagBar_DB.scale == nil then
+		LagBar_DB.scale = 1
+	end
 
 	LagBar:DrawGUI()
 	LagBar:MoveFrame()
@@ -61,31 +66,44 @@ function LagBar:OnEvent(event, arg1, arg2, arg3, arg4, ...)
 end
 
 function LagBar_SlashCommand(cmd)
-	if cmd and cmd ~= "" then
-		if cmd:lower() == "reset" then
+
+	local a,b,c=strfind(cmd, "(%S+)"); --contiguous string of non-space characters
+	
+	if a and a ~= "" then
+		if c and c:lower() == "reset" then
 			DEFAULT_CHAT_FRAME:AddMessage("LagBar: Frame position has been reset!");
 			LagBarFrame:SetPoint("CENTER", UIParent, "CENTER", 0, 0);
-	
+			
 			return nil;
-		elseif cmd:lower() == "bg" then
+		elseif c and c:lower() == "bg" then
 			LagBar:BackgroundToggle();
 			return nil;
 			
-		elseif cmd:lower() == "worldping" then
+		elseif c and c:lower() == "worldping" then
 			LagBar:WorldPingToggle();
 			return nil;
 			
-		elseif cmd:lower() == "impdisplay" then
+		elseif c and c:lower() == "impdisplay" then
 			LagBar:ImpDisplayToggle();
 			return nil;	
+		elseif c and c:lower() == "scale" then
+			if b then
+				local scalenum = strsub(cmd, b+2)
+				if scalenum and scalenum ~= "" and tonumber(scalenum) then
+					LagBar_DB.scale = tonumber(scalenum)
+					LagBarFrame:SetScale(tonumber(scalenum))
+					DEFAULT_CHAT_FRAME:AddMessage("LagBar: scale has been set to ["..tonumber(scalenum).."]")
+					return true
+				end
+			end
 		end
-		
 	end
 	DEFAULT_CHAT_FRAME:AddMessage("LagBar");
 	DEFAULT_CHAT_FRAME:AddMessage("/lagbar reset - resets the frame position");
 	DEFAULT_CHAT_FRAME:AddMessage("/lagbar bg - toggles the background on/off");
 	DEFAULT_CHAT_FRAME:AddMessage("/lagbar worldping - toggles world ping display on/off");
 	DEFAULT_CHAT_FRAME:AddMessage("/lagbar impdisplay - toggles improved world ping display");
+	DEFAULT_CHAT_FRAME:AddMessage("/lagbar scale # - Set the scale of the LagBar frame. Use small numbers like 0.5, 0.2, 1, 1.1, 1.5, etc..")
 end
 
 function LagBar:MoveFrame()
@@ -122,6 +140,9 @@ function LagBar:DrawGUI()
 	--set to a small size to update size automaticall on first FPS grab
 	LagBarFrame:SetWidth(30)
 	
+	--set the saved scale
+	LagBarFrame:SetScale(LagBar_DB.scale)
+	
 	if LagBar_DB.bgShown then
 		local backdrop_header = {bgFile = "Interface\\TutorialFrame\\TutorialFrameBackground",
 				edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", tile=1, tileSize=16, edgeSize = 16,
@@ -235,7 +256,7 @@ function LagBar:DrawGUI()
 		end
 
 	end)
-
+	
 end
 
 function LagBar:BackgroundToggle()
diff --git a/LagBar.toc b/LagBar.toc
index 5237482..4dd814b 100644
--- a/LagBar.toc
+++ b/LagBar.toc
@@ -1,7 +1,7 @@
 ## Interface: 70000
 ## Title: LagBar
 ## Author: Xruptor
-## Version:  3.4
+## Version:  3.5
 ## Notes: Displays a simple bar with some Latency Information.
 ## OptionalDeps: tekDebug
 ## SavedVariables: LagBar_DB
-- 
1.7.9.5