@@ -1,5 +1,4 @@ - if not Squeenix then return end local Squeenix = Squeenix @@ -46,6 +45,12 @@ frame:SetScript("OnShow", function(frame) showcompass:SetChecked(not Squeenix.db.hidecompass) + local scrollzoom = tekcheck.new(frame, nil, "Use mousewheel zoom", "TOPLEFT", showcompass, "BOTTOMLEFT", 0, -GAP) + scrollzoom.tiptext = "Zoom the minimap using the mouse scroll wheel" + scrollzoom:SetScript("OnClick", function(self) checksound(self); Squeenix.db.noscrollzoom = not Squeenix.db.noscrollzoom end) + scrollzoom:SetChecked(not Squeenix.db.noscrollzoom) + + local scaleslider, scaleslidertext, scalecontainer = tekslider.new(frame, string.format("Scale: %.2f", Squeenix.db.scale or 1), 0.5, 2, "LEFT", frame, "TOP", GAP, 0) scalecontainer:SetPoint("TOP", showcompass, "TOP", 0, 0) scaleslider.tiptext = "Set the minimap scale." Config.lua @@ -1,34 +1,16 @@ -local L = GetLocale() == "koKR" and { - ["Mousewheel zoom"] = "마우스휠 사용", - ["Use mousewheel to control minimap zoom"] = "미니맵을 마우스휠을 사용해서 확대/축소할 수 있습니다", -} or { - ["Mousewheel zoom"] = true, - ["Use mousewheel to control minimap zoom"] = true, -} -local zoom = Squeenix:NewModule("Scroll Zoom") +if not Squeenix then return end +local Squeenix = Squeenix -function zoom:Initialize() ---~ self.db = Squeenix:AcquireDBNamespace("Scroll Zoom") ---~ Squeenix:RegisterDefaults("Scroll Zoom", "profile", {scroll = true}) ---~ Squeenix.Options.args.scroll = { ---~ name = L["Mousewheel zoom"], ---~ type = "toggle", ---~ desc = L["Use mousewheel to control minimap zoom"], ---~ get = function() return zoom.db.profile.scroll end, ---~ set = function(v) zoom.db.profile.scroll = v end, ---~ } - local f = CreateFrame("Frame", nil, Minimap) - f:SetFrameStrata("LOW") - f:EnableMouse(false) - f:SetPoint("TOPLEFT", Minimap, "TOPLEFT") - f:SetPoint("BOTTOMRIGHT", Minimap, "BOTTOMRIGHT") - f:EnableMouseWheel(true) - f:SetScript("OnMouseWheel", function(frame, delta) ---~ if not zoom.db.profile.scroll then return end - if delta > 0 then MinimapZoomIn:Click() - elseif delta < 0 then MinimapZoomOut:Click() end - end) -end +local f = CreateFrame("Frame", nil, Minimap) +f:SetFrameStrata("LOW") +f:EnableMouse(false) +f:SetPoint("TOPLEFT", Minimap, "TOPLEFT") +f:SetPoint("BOTTOMRIGHT", Minimap, "BOTTOMRIGHT") +f:EnableMouseWheel(true) +f:SetScript("OnMouseWheel", function(frame, delta) + if Squeenix.db.noscrollzoom then return end + if delta > 0 then MinimapZoomIn:Click() elseif delta < 0 then MinimapZoomOut:Click() end +end) Scrollzoom.lua 5c2e6718f6bdef3393e0d85d7a66b44d5bb08e2c Tekkub Stoutwrithe tekkub@gmail.com http://github.com/tekkub/squeenix/commit/caa27d0937b6d5794d3770df4265d79d1777ed5a caa27d0937b6d5794d3770df4265d79d1777ed5a 2008-03-14T17:08:23-07:00 2008-03-14T16:53:38-07:00 Add scrollzoom option 7afb3eac7356eb0050fc9793ad87bfa3c69a0f09 Tekkub Stoutwrithe tekkub@gmail.com