Mercurial > wow > reagentmaker

annotate SecureMenu.lua @ 5:cea9633a6d4e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added some tooltips and text color
author contrebasse
date Sat, 02 Apr 2011 17:13:16 +0200
parents ed0582126cae
children b6a5902f376f
rev   line source
contrebasse@0 1 local addonName, A = ...
contrebasse@0 2
contrebasse@0 3 -- Create the menu frame
contrebasse@3 4 local MenuFrame = CreateFrame("Frame","ReagentMaker_ExternalFrame",UIParent) --, "ReagentMakerDropDownMenu"); -- Needs a global name ?
contrebasse@0 5 MenuFrame:Hide()
contrebasse@3 6 MenuFrame:SetSize(192,256)
contrebasse@2 7 MenuFrame:SetFrameStrata("DIALOG")
contrebasse@3 8 MenuFrame:EnableMouse(true)
contrebasse@3 9 MenuFrame:SetPoint("CENTER")
contrebasse@3 10 tinsert(UISpecialFrames,"ReagentMaker_ExternalFrame") -- make it closable with escape
contrebasse@2 11
contrebasse@3 12 MenuFrame:SetScript("OnEvent",function(self,event,...)
contrebasse@3 13 if event == "TRADE_SKILL_CLOSE" or event == "PLAYER_REGEN_DISABLED" then
contrebasse@3 14 MenuFrame:Hide()
contrebasse@3 15 end
contrebasse@3 16 end)
contrebasse@3 17 MenuFrame:RegisterEvent("TRADE_SKILL_CLOSE")
contrebasse@3 18 MenuFrame:RegisterEvent("PLAYER_REGEN_ENABLED")
contrebasse@3 19 A.MenuFrame = MenuFrame
contrebasse@3 20
contrebasse@3 21 -- Background adaptable vertically
contrebasse@3 22 local bg_top = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,0)
contrebasse@3 23 bg_top:SetTexture("Interface\\LootFrame\\UI-LootPanel")
contrebasse@3 24 bg_top:SetSize(192,80)
contrebasse@3 25 bg_top:SetPoint("TOP")
contrebasse@3 26 bg_top:SetTexCoord(0,192/256,0,80/256)
contrebasse@3 27 local bg_bot = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,0)
contrebasse@3 28 bg_bot:SetTexture("Interface\\LootFrame\\UI-LootPanel")
contrebasse@3 29 bg_bot:SetSize(192,16)
contrebasse@3 30 bg_bot:SetPoint("BOTTOM")
contrebasse@3 31 bg_bot:SetTexCoord(0,192/256,240/256,1)
contrebasse@3 32 local bg_mid = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,0)
contrebasse@3 33 bg_mid:SetTexture("Interface\\LootFrame\\UI-LootPanel")
contrebasse@3 34 bg_mid:SetWidth(192)
contrebasse@3 35 bg_mid:SetPoint("TOP",bg_top,"BOTTOM")
contrebasse@3 36 bg_mid:SetPoint("BOTTOM",bg_bot,"TOP")
contrebasse@3 37 bg_mid:SetTexCoord(0,192/256,80/256,240/256)
contrebasse@3 38
contrebasse@3 39 -- Bouton de fermeture
contrebasse@3 40 local CloseButton = CreateFrame("Button",nil,MenuFrame,"UIPanelCloseButton");
contrebasse@3 41 CloseButton:SetPoint("TOPRIGHT",0,-10)
contrebasse@3 42
contrebasse@3 43 -- Main icon
contrebasse@3 44 local itemIcon = MenuFrame:CreateTexture(nil,"BACKGROUND",nil,-1)
contrebasse@3 45 itemIcon:SetSize(64,64)
contrebasse@3 46 itemIcon:SetPoint("TOPLEFT",8,-4)
contrebasse@3 47
contrebasse@3 48 -- Title
contrebasse@3 49 local TitleText = MenuFrame:CreateFontString(nil,"ARTWORK","GameFontHighlight")
contrebasse@3 50 TitleText:SetSize(92,14)
contrebasse@3 51 TitleText:SetPoint("RIGHT",CloseButton,"LEFT",4,1)
contrebasse@3 52
contrebasse@3 53 local MENU_ENTRY_HEIGHT = 41
contrebasse@3 54 local MENU_ENTRY_WIDTH = 147
contrebasse@3 55 local MENU_ENTRY_ICON_RATIO = 40/48
contrebasse@2 56
contrebasse@0 57 local numActiveEntries = 0
contrebasse@0 58 local menuEntries = {}
contrebasse@0 59
contrebasse@3 60 -- Button hovering
contrebasse@5 61 local function btnEntered(btn)
contrebasse@3 62 --[[
contrebasse@3 63 -- Index of the reagent in the recipe, taken from the button name
contrebasse@5 64 local reagentRecipeIndex = A.buttonNumber(btn)
contrebasse@3 65
contrebasse@3 66 -- ID of the reagent we want to craft
contrebasse@3 67 local reagentID = A.link2ID(GetTradeSkillReagentItemLink(GetTradeSkillSelectionIndex(), reagentRecipeIndex))
contrebasse@3 68
contrebasse@3 69 -- Continue only if the reagent is known
contrebasse@3 70 if not reagentID or not A.data[reagentID] then return end
contrebasse@3 71 --]]
contrebasse@3 72
contrebasse@5 73 if btn.numMakable>0 then
contrebasse@5 74 btn.textureHighlight:Show()
contrebasse@5 75 end
contrebasse@3 76
contrebasse@5 77 GameTooltip:SetOwner(btn,"ANCHOR_TOPLEFT")
contrebasse@5 78 GameTooltip:SetHyperlink(btn.reagentLink)
contrebasse@5 79 GameTooltip:Show()
contrebasse@5 80 local link, tradeLink = GetSpellLink(btn.spellID)
contrebasse@5 81 A.tooltipRecipe:SetOwner(GameTooltip)
contrebasse@5 82 A.tooltipRecipe:SetHyperlink(link)
contrebasse@5 83 A.tooltipRecipe:Show()
contrebasse@5 84 A.tooltipRecipe:ClearAllPoints()
contrebasse@5 85 A.tooltipRecipe:SetPoint("BOTTOMLEFT",GameTooltip,"BOTTOMRIGHT")
contrebasse@3 86 end
contrebasse@5 87 local function btnLeft(btn)
contrebasse@5 88 btn.textureHighlight:Hide()
contrebasse@5 89 GameTooltip:Hide()
contrebasse@5 90 A.tooltipRecipe:Hide()
contrebasse@3 91 end
contrebasse@3 92 local function createMenuEntry()
contrebasse@3 93 local btn = CreateFrame("Button", nil, MenuFrame, "SecureActionButtonTemplate")
contrebasse@3 94 table.insert(menuEntries,btn)
contrebasse@3 95
contrebasse@3 96 btn:Hide()
contrebasse@3 97 btn:SetSize(MENU_ENTRY_WIDTH,MENU_ENTRY_HEIGHT)
contrebasse@3 98 btn:SetFrameStrata("DIALOG")
contrebasse@3 99
contrebasse@3 100 -- Set its position
contrebasse@3 101 if #menuEntries>1 then
contrebasse@3 102 btn:SetPoint("TOP",menuEntries[#menuEntries-1],"BOTTOM",0,-2)
contrebasse@2 103 else
contrebasse@3 104 btn:SetPoint("TOPLEFT",MenuFrame,"TOPLEFT",24,-79)
contrebasse@2 105 end
contrebasse@3 106
contrebasse@3 107 local icon = btn:CreateTexture(nil,"BACKGROUND")
contrebasse@3 108 icon:SetPoint("TOPLEFT")
contrebasse@3 109 icon:SetSize(39,39)
contrebasse@3 110 btn.icon = icon
contrebasse@3 111
contrebasse@3 112 local itemNameBG = btn:CreateTexture(nil,"BACKGROUND")
contrebasse@3 113 itemNameBG:SetTexture("Interface\\QuestFrame\\UI-QuestItemNameFrame")
contrebasse@3 114 itemNameBG:SetSize(128,64)
contrebasse@3 115 itemNameBG:SetPoint("LEFT",icon,"RIGHT",-10,0)
contrebasse@3 116
contrebasse@3 117 local itemName = btn:CreateFontString(nil,"BACKGROUND","GameFontHighlight")
contrebasse@3 118 itemName:SetSize(90,36)
contrebasse@3 119 itemName:SetPoint("LEFT",itemNameBG,"LEFT",15,0)
contrebasse@3 120 itemName:SetJustifyH("LEFT")
contrebasse@3 121 itemName:SetWordWrap(true)
contrebasse@3 122 itemName:SetNonSpaceWrap(false)
contrebasse@3 123 btn.itemName = itemName
contrebasse@3 124
contrebasse@3 125 local textureHighlight = btn:CreateTexture(nil,"BORDER")
contrebasse@3 126 textureHighlight:Hide()
contrebasse@3 127 textureHighlight:SetTexture("Interface\\BUTTONS\\CheckButtonHilight")
contrebasse@3 128 textureHighlight:SetBlendMode("ADD")
contrebasse@3 129 textureHighlight:SetAllPoints(icon)
contrebasse@3 130 btn.textureHighlight = textureHighlight
contrebasse@5 131
contrebasse@5 132 local countDetail = btn:CreateFontString(nil,"ARTWORK","NumberFontNormal")
contrebasse@5 133 countDetail:SetPoint("BOTTOMRIGHT",icon,"BOTTOMRIGHT",-1,1)
contrebasse@5 134 countDetail:SetJustifyH("RIGHT")
contrebasse@5 135 countDetail:SetJustifyV("BOTTOM")
contrebasse@5 136 btn.countDetail = countDetail
contrebasse@5 137
contrebasse@3 138 btn:HookScript("OnEnter", btnEntered)
contrebasse@3 139 btn:HookScript("OnLeave", btnLeft)
contrebasse@3 140
contrebasse@3 141 return btn
contrebasse@2 142 end
contrebasse@1 143
contrebasse@1 144
contrebasse@3 145 local function menuCraftItem()
contrebasse@3 146 action(itemID,reagentIndex,IsShiftKeyDown())
contrebasse@0 147 end
contrebasse@0 148
contrebasse@3 149 local function updateCounts()
contrebasse@3 150 local anyMakable
contrebasse@0 151 for i=1,numActiveEntries do
contrebasse@3 152 btn = menuEntries[i]
contrebasse@3 153 local itemCount = GetItemCount(btn.reagentID)
contrebasse@3 154
contrebasse@3 155 local numMakable = math.floor(itemCount/(btn.reagentsForOneRecipe or 1))
contrebasse@3 156 btn.countDetail:SetText(itemCount.."/"..(btn.reagentsForOneRecipe or 1))
contrebasse@3 157
contrebasse@3 158 if numMakable>0 then
contrebasse@3 159 anyMakable = true
contrebasse@5 160 btn.countDetail:SetTextColor(1, 1, 1, 1)
contrebasse@3 161 btn.icon:SetVertexColor(1,1,1);
contrebasse@3 162 btn.itemName:SetTextColor(1,1,1,1)
contrebasse@3 163 else
contrebasse@5 164 -- Do not disable the button, to be able to show the tooltip
contrebasse@5 165 btn.countDetail:SetTextColor(1, 0.1, 0.1, 1)
contrebasse@3 166 btn.icon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@3 167 btn.itemName:SetTextColor(1,1,1,0.5)
contrebasse@3 168 end
contrebasse@5 169
contrebasse@5 170 btn.numMakable = numMakable
contrebasse@3 171 end
contrebasse@3 172
contrebasse@5 173 local r,g,b = TitleText:GetTextColor()
contrebasse@3 174 if anyMakable then
contrebasse@3 175 itemIcon:SetVertexColor(1,1,1)
contrebasse@5 176 TitleText:SetTextColor(r,g,b,1)
contrebasse@3 177 else
contrebasse@3 178 itemIcon:SetVertexColor(0.5, 0.5, 0.5)
contrebasse@5 179 TitleText:SetTextColor(r,g,b,0.7)
contrebasse@0 180 end
contrebasse@0 181 end
contrebasse@0 182
contrebasse@5 183 local function menuAddItem(action,itemID,reagentID,reagentsForOneRecipe,spellID)
contrebasse@0 184 local btn
contrebasse@0 185 -- Create a button only if necessary
contrebasse@0 186 if numActiveEntries >= #menuEntries then
contrebasse@3 187 btn = createMenuEntry()
contrebasse@0 188 else
contrebasse@0 189 btn = menuEntries[numActiveEntries+1]
contrebasse@0 190 end
contrebasse@0 191
contrebasse@3 192 -- Set text and icon
contrebasse@3 193 local name, link, quality, iLevel, reqLevel, class, subclass, maxStack, equipSlot, texture, vendorPrice = GetItemInfo(reagentID)
contrebasse@3 194 if name then
contrebasse@3 195 btn.itemName:SetText(name)
contrebasse@3 196 else
contrebasse@3 197 A.DEBUG("No item name : "..reagentID)
contrebasse@5 198 return
contrebasse@3 199 end
contrebasse@0 200
contrebasse@3 201 if texture then
contrebasse@3 202 btn.icon:SetTexture(texture)
contrebasse@3 203 else
contrebasse@3 204 A.DEBUG("No item texture : "..reagentID)
contrebasse@5 205 return
contrebasse@3 206 end
contrebasse@3 207
contrebasse@3 208 -- Save params
contrebasse@3 209 btn.itemID = itemID
contrebasse@3 210 btn.reagentID = reagentID
contrebasse@5 211 btn.reagentLink = link
contrebasse@3 212 btn.reagentsForOneRecipe = reagentsForOneRecipe
contrebasse@5 213 btn.spellID = spellID
contrebasse@3 214
contrebasse@3 215 -- Set action
contrebasse@0 216 if type(action)=="function" then
contrebasse@3 217 btn:SetScript("PreClick",action)
contrebasse@0 218 btn:SetAttribute("type", nil)
contrebasse@5 219 btn:SetAttribute("macrotext", nil)
contrebasse@3 220 else --if type(action)=="string" then
contrebasse@3 221 btn:SetScript("PreClick",nil)
contrebasse@3 222 btn:SetAttribute("type", "macro")
contrebasse@5 223 btn:SetAttribute("macrotext", action..name)
contrebasse@0 224 end -- if
contrebasse@0 225
contrebasse@3 226 btn:Show()
contrebasse@0 227
contrebasse@2 228 -- Increase the entry number
contrebasse@0 229 numActiveEntries = numActiveEntries + 1
contrebasse@0 230 end -- function
contrebasse@3 231
contrebasse@3 232 -- Fill the window and open it
contrebasse@3 233 function A.externalCraftWindow(itemID)
contrebasse@3 234 -- Do not open during combat
contrebasse@3 235 if InCombatLockdown() then return end
contrebasse@3 236
contrebasse@3 237 -- Save the tradeskill
contrebasse@3 238 A.currentTradeSkill = GetTradeSkillLine()
contrebasse@3 239
contrebasse@3 240 -- Close the previous menu
contrebasse@3 241 MenuFrame:Hide()
contrebasse@3 242 for i=1,numActiveEntries do
contrebasse@3 243 menuEntries[i]:Hide()
contrebasse@3 244 end
contrebasse@3 245 numActiveEntries = 0
contrebasse@3 246
contrebasse@3 247 -- Fill the info of the reagent to make
contrebasse@3 248 local name, link, quality, iLevel, reqLevel, class, subclass, maxStack, equipSlot, texture, vendorPrice = GetItemInfo(itemID)
contrebasse@3 249 SetPortraitToTexture(itemIcon, texture)
contrebasse@3 250 TitleText:SetText(name)
contrebasse@5 251 local color = ITEM_QUALITY_COLORS[quality]
contrebasse@5 252 TitleText:SetTextColor(color.r, color.g, color.b)
contrebasse@3 253
contrebasse@3 254 -- Loop over the available recipes
contrebasse@3 255 for _,reagent in ipairs(A.data[itemID]) do
contrebasse@3 256 if A.data[itemID].spell then
contrebasse@3 257 -- Special spell
contrebasse@5 258 menuAddItem(A.data[itemID].spell,itemID,reagent[1],reagent[2],A.data[itemID].spellID)
contrebasse@3 259 else
contrebasse@3 260 -- Standard tradeskill spell UNTESTED
contrebasse@3 261 menuAddItem(A.craft,itemID,reagent[1],reagent[2])
contrebasse@3 262 end -- if
contrebasse@3 263 end -- for
contrebasse@3 264
contrebasse@3 265 MenuFrame:SetHeight(89 + numActiveEntries*(MENU_ENTRY_HEIGHT+2))
contrebasse@3 266
contrebasse@3 267 MenuFrame:ClearAllPoints()
contrebasse@3 268 MenuFrame:SetPoint("TOPLEFT",TradeSkillFrame,"TOPRIGHT",-2,14)
contrebasse@3 269
contrebasse@3 270 updateCounts()
contrebasse@3 271
contrebasse@3 272 MenuFrame:Show()
contrebasse@3 273 end