From 9f028a6031e82e788a048cab058e9a287bb366f4 Mon Sep 17 00:00:00 2001
From: shagu <ericmauser@googlemail.com>
Date: Wed, 5 Oct 2022 19:35:54 +0200
Subject: [PATCH] map: avoid overwriting other scripts

---
 modules/map.lua | 65 ++++++++++++++++++++++++++-----------------------
 1 file changed, 35 insertions(+), 30 deletions(-)

diff --git a/modules/map.lua b/modules/map.lua
index 5d70435a..8e690f8f 100644
--- a/modules/map.lua
+++ b/modules/map.lua
@@ -43,42 +43,47 @@ pfUI:RegisterModule("map", "vanilla:tbc", function ()
     WorldMapFrame:EnableMouse(true)
     WorldMapFrame:RegisterForDrag("LeftButton")
 
-    WorldMapFrame:SetScript("OnShow", function()
-      -- default events
-      UpdateMicroButtons()
-      PlaySound("igQuestLogOpen")
-      CloseDropDownMenus()
-      SetMapToCurrentZone()
-      WorldMapFrame_PingPlayerPosition()
+    -- make sure the hooks get only applied once
+    if not this.hooked then
+      this.hooked = true
 
-      -- customize
-      this:EnableKeyboard(false)
-      this:EnableMouseWheel(1)
-    end)
+      HookScript(WorldMapFrame, "OnShow", function()
+        -- default events
+        UpdateMicroButtons()
+        PlaySound("igQuestLogOpen")
+        CloseDropDownMenus()
+        SetMapToCurrentZone()
+        WorldMapFrame_PingPlayerPosition()
 
-    WorldMapFrame:SetScript("OnMouseWheel", function()
-      if IsShiftKeyDown() then
-        alpha = clamp(WorldMapFrame:GetAlpha() + arg1/10, 0.1, 1.0)
-        WorldMapFrame:SetAlpha(alpha)
-      end
+        -- customize
+        this:EnableKeyboard(false)
+        this:EnableMouseWheel(1)
+      end)
 
-      if IsControlKeyDown() then
-        scale = clamp(WorldMapFrame:GetScale() + arg1/10, 0.1, 2.0)
-        WorldMapFrame:SetScale(scale)
-        UpdateTooltipScale()
-      end
+      HookScript(WorldMapFrame, "OnMouseWheel", function()
+        if IsShiftKeyDown() then
+          alpha = clamp(WorldMapFrame:GetAlpha() + arg1/10, 0.1, 1.0)
+          WorldMapFrame:SetAlpha(alpha)
+        end
 
-      SaveMovable(this, true)
-    end)
+        if IsControlKeyDown() then
+          scale = clamp(WorldMapFrame:GetScale() + arg1/10, 0.1, 2.0)
+          WorldMapFrame:SetScale(scale)
+          UpdateTooltipScale()
+        end
 
-    WorldMapFrame:SetScript("OnDragStart",function()
-      WorldMapFrame:StartMoving()
-    end)
+        SaveMovable(this, true)
+      end)
 
-    WorldMapFrame:SetScript("OnDragStop",function()
-      WorldMapFrame:StopMovingOrSizing()
-      SaveMovable(this, true)
-    end)
+      HookScript(WorldMapFrame, "OnDragStart", function()
+        WorldMapFrame:StartMoving()
+      end)
+
+      HookScript(WorldMapFrame, "OnDragStop",function()
+        WorldMapFrame:StopMovingOrSizing()
+        SaveMovable(this, true)
+      end)
+    end
 
     WorldMapFrame:SetAlpha(alpha)
     WorldMapFrame:SetScale(scale)