Code cleanup and reducing CPU usage

QuestExpandAll.lua

@@ -2,127 +2,109 @@
 -- Interface: 16001
 
 local addon = CreateFrame("Frame")
+local button  -- set in CreateExpandButton
 
 --------------------------------------------------
 -- Helpers
 --------------------------------------------------
 
 local function AreAllHeadersExpanded()
-
+    for i = 1, C_QuestLog.GetNumQuestLogEntries() do
-local numEntries = C_QuestLog.GetNumQuestLogEntries()
-
---------------------------------------------------
--- Resize search box to fit button
---------------------------------------------------
-
-local function ResizeSearchBox()
-    local sb = QuestScrollFrame and QuestScrollFrame.SearchBox
-    if sb then
-        sb:SetWidth(150)
-    end
-end
-
-if QuestScrollFrame and QuestScrollFrame.SearchBox then
-    QuestScrollFrame.SearchBox:HookScript("OnShow", ResizeSearchBox)
-end
-ResizeSearchBox()
-
-for i = 1, numEntries do
         local info = C_QuestLog.GetInfo(i)
-
         if info and info.isHeader and info.isCollapsed then
             return false
         end
     end
-
     return true
+end
+
+local function UpdateButton()
+    if not button then return end
+
+    local text = AreAllHeadersExpanded() and "- All" or "+ All"
+    if button:GetText() ~= text then
+        button:SetText(text)
+    end
+end
+
+local searchBoxHooked = false
+
+local function ResizeSearchBox()
+    local sb = QuestScrollFrame and QuestScrollFrame.SearchBox
+    if not sb then return end
+
+    if sb:GetWidth() ~= 150 then
+        sb:SetWidth(150)
     end
 
-        local function UpdateButton(button)
+    if not searchBoxHooked then
-        if AreAllHeadersExpanded() then
+        searchBoxHooked = true
-            button:SetText("- All")
+        sb:HookScript("OnShow", ResizeSearchBox)
-            else
-                button:SetText("+ All")
     end
+end
+
+local function UpdateButton()
+    if not button then return end
+
+    ResizeSearchBox()
+
+    local text = AreAllHeadersExpanded() and "- All" or "+ All"
+    if button:GetText() ~= text then
+        button:SetText(text)
     end
+end
 
-                --------------------------------------------------
+--------------------------------------------------
-                -- Create Button
+-- Create Button
-                --------------------------------------------------
+--------------------------------------------------
 
-                local function CreateExpandButton()
+local function CreateExpandButton()
+    if button then return end
 
-                if QuestExpandAllButton then
+    local parent = QuestMapFrame and QuestMapFrame.QuestsFrame
-                    return
+    if not parent then return end
-                    end
 
-                    -- Wait until the Quest Map exists
+    button = CreateFrame("Button", "QuestExpandAllButton", parent, "UIPanelButtonTemplate")
-                    if not QuestMapFrame or not QuestMapFrame.QuestsFrame then
+    button:SetSize(50, 20)
-                        return
-                        end
 
-                        local parent = QuestMapFrame.QuestsFrame
+    if QuestLogQuestCount then
-
-                        local button = CreateFrame(
-                            "Button",
-                            "QuestExpandAllButton",
-                            parent,
-                            "UIPanelButtonTemplate"
-                        )
-
-                        button:SetSize(50,20)
         button:SetPoint("RIGHT", QuestLogQuestCount, "RIGHT", 54, 0)
-                        button:SetScript("OnClick", function(self)
+    else
+        button:SetPoint("TOPRIGHT", parent, "TOPRIGHT", -10, 24)
+    end
 
+    button:SetScript("OnClick", function()
         if AreAllHeadersExpanded() then
             CollapseQuestHeader(0)
         else
             ExpandQuestHeader(0)
         end
-
-                                C_Timer.After(0, function()
-                                UpdateButton(self)
-                                end)
-
     end)
 
     button:SetScript("OnEnter", function(self)
-
         GameTooltip:SetOwner(self, "ANCHOR_RIGHT")
-                        GameTooltip:AddLine("Quest Headers")
+        GameTooltip:SetText("Quest Headers")
-                        GameTooltip:AddLine(" ")
+        GameTooltip:AddLine("Left click to toggle all zone headers.", 1, 1, 1, true)
-                        GameTooltip:AddLine("Left Click to toggle all zone headers.",1,1,1,true)
         GameTooltip:Show()
-
     end)
 
-                        button:SetScript("OnLeave", function()
+    button:SetScript("OnLeave", GameTooltip_Hide)
-                        GameTooltip:Hide()
-                        end)
 
-                        UpdateButton(button)
+    UpdateButton()
+end
 
-                        end
+--------------------------------------------------
+-- Events
+--------------------------------------------------
 
-                        --------------------------------------------------
+addon:RegisterEvent("PLAYER_LOGIN")
-                        -- Events
+addon:RegisterEvent("QUEST_LOG_UPDATE")
-                        --------------------------------------------------
-
-                        addon:RegisterEvent("PLAYER_LOGIN")
-                        addon:RegisterEvent("QUEST_LOG_UPDATE")
-
-                        addon:SetScript("OnEvent", function(self, event)
 
+addon:SetScript("OnEvent", function(self, event)
     if event == "PLAYER_LOGIN" then
-
+        self:UnregisterEvent("PLAYER_LOGIN")
         CreateExpandButton()
-
+    else
-                            elseif event == "QUEST_LOG_UPDATE" then
+        UpdateButton()
-
-                                if QuestExpandAllButton then
-                                    UpdateButton(QuestExpandAllButton)
     end
-
+end)
-                                    end
-
-                                    end)

QuestExpandAll.toc

@@ -2,6 +2,6 @@
 ## Title: Quest Expand All
 ## Notes: Adds an Expand All button to the quest log.
 ## Author: Drink_Bepis
-## Version: 0.1
+## Version: 0.2
 
 QuestExpandAll.lua