Mercurial > wow > inventory

annotate Frames.lua @ 133:2efe61ca718e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
The mover frame will now be build the first time it is needed rather than on module load.
author Zerotorescue
date Tue, 18 Jan 2011 00:33:47 +0100
parents 8460855e3d90
children 5ed50feddeb0
rev   line source
Zerotorescue@101 1 local addon = select(2, ...);
Zerotorescue@101 2
Zerotorescue@101 3 local function ShowTooltip(self)
Zerotorescue@101 4 -- If this function is called from a widget, self is the widget and self.frame the actual frame
Zerotorescue@101 5 local this = self.frame or self;
Zerotorescue@101 6
Zerotorescue@132 7 if not this.tooltipTitle or addon.db.profile.defaults.hideHelp then return; end
Zerotorescue@106 8
Zerotorescue@101 9 GameTooltip:SetOwner(this, "ANCHOR_NONE");
Zerotorescue@104 10 if this.tooltipLocation and this.tooltipLocation == "BOTTOM" then
Zerotorescue@104 11 GameTooltip:SetPoint("TOP", this, "BOTTOM");
Zerotorescue@101 12 else
Zerotorescue@101 13 GameTooltip:SetPoint("BOTTOM", this, "TOP");
Zerotorescue@101 14 end
Zerotorescue@101 15 GameTooltip:SetText(this.tooltipTitle, 1, .82, 0, 1);
Zerotorescue@101 16
Zerotorescue@101 17 if type(this.tooltip) == "string" then
Zerotorescue@101 18 GameTooltip:AddLine(this.tooltip, 1, 1, 1, 1);
Zerotorescue@101 19 end
Zerotorescue@101 20
Zerotorescue@101 21 GameTooltip:Show();
Zerotorescue@101 22 end
Zerotorescue@101 23
Zerotorescue@101 24 local function HideTooltip()
Zerotorescue@101 25 GameTooltip:Hide();
Zerotorescue@101 26 end
Zerotorescue@101 27
Zerotorescue@110 28 function addon:CreateMoverFrame()
Zerotorescue@132 29 if InventoriumItemMover then
Zerotorescue@132 30 return;
Zerotorescue@132 31 end
Zerotorescue@132 32
Zerotorescue@101 33 local frameWidth = 400;
Zerotorescue@101 34
Zerotorescue@101 35 -- Main window
Zerotorescue@101 36 local frame = CreateFrame("Frame", "InventoriumItemMover", UIParent);
Zerotorescue@101 37 -- Hide by default
Zerotorescue@101 38 frame:Hide();
Zerotorescue@101 39 -- Center the frame (will be adjusted later)
Zerotorescue@101 40 frame:SetPoint("CENTER", UIParent, "CENTER", 0, 0);
Zerotorescue@101 41 -- Put in front of other windows
Zerotorescue@101 42 frame:SetFrameStrata("FULLSCREEN_DIALOG");
Zerotorescue@101 43 frame:SetToplevel(true);
Zerotorescue@101 44 -- Give it a size
Zerotorescue@101 45 frame:SetWidth(frameWidth);
Zerotorescue@101 46 frame:SetHeight(175);
Zerotorescue@101 47 -- Background
Zerotorescue@101 48 frame:SetBackdrop({
Zerotorescue@101 49 bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
Zerotorescue@101 50 edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border",
Zerotorescue@104 51 edgeSize = 20,
Zerotorescue@101 52 insets = {
Zerotorescue@101 53 left = 5,
Zerotorescue@101 54 right = 5,
Zerotorescue@101 55 top = 5,
Zerotorescue@101 56 bottom = 5,
Zerotorescue@101 57 },
Zerotorescue@101 58 });
Zerotorescue@101 59 frame:SetBackdropColor(0, 0, 0, .8);
Zerotorescue@101 60 -- Mouse functions
Zerotorescue@101 61 frame:EnableMouse();
Zerotorescue@101 62 frame:SetMovable(true);
Zerotorescue@101 63 frame:SetResizable(true);
Zerotorescue@101 64 frame:SetMinResize(300, 175);
Zerotorescue@101 65 -- Set event handlers
Zerotorescue@101 66 frame:SetScript("OnMouseUp", function(this) this:StopMovingOrSizing(); end);
Zerotorescue@101 67 frame:SetScript("OnShow", function(this)
Zerotorescue@104 68 if not tContains(StaticPopup_DisplayedFrames, this) then
Zerotorescue@104 69 -- We wish to display our box at a similar position as the default interface's static popups, so we literally copied the code for these popups
Zerotorescue@104 70 local lastFrame = StaticPopup_DisplayedFrames[#StaticPopup_DisplayedFrames];
Zerotorescue@104 71 if lastFrame then
Zerotorescue@104 72 this:SetPoint("TOP", lastFrame, "BOTTOM", 0, 0);
Zerotorescue@104 73 else
Zerotorescue@104 74 this:SetPoint("TOP", UIParent, "TOP", 0, -135);
Zerotorescue@104 75 end
Zerotorescue@104 76
Zerotorescue@104 77 -- Position other static popups below this
Zerotorescue@104 78 tinsert(StaticPopup_DisplayedFrames, this);
Zerotorescue@101 79 end
Zerotorescue@101 80
Zerotorescue@101 81 this:AdjustScrollTableRows();
Zerotorescue@101 82
Zerotorescue@101 83 PlaySound("OrcExploration");
Zerotorescue@101 84 end);
Zerotorescue@110 85 frame:SetScript("OnHide", function(this)
Zerotorescue@110 86 StaticPopup_CollapseTable(this);
Zerotorescue@110 87 end);
Zerotorescue@101 88
Zerotorescue@101 89 -- Title (AceGUI frame-widget-title used as example)
Zerotorescue@101 90 local titleBackground = frame:CreateTexture(nil, "OVERLAY");
Zerotorescue@101 91 titleBackground:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header");
Zerotorescue@101 92 titleBackground:SetTexCoord(0.31, 0.67, 0, 0.63);
Zerotorescue@101 93 titleBackground:SetPoint("TOP", 0, 12);
Zerotorescue@101 94 titleBackground:SetWidth(150);
Zerotorescue@101 95 titleBackground:SetHeight(40);
Zerotorescue@119 96
Zerotorescue@119 97 frame.titleBackground = titleBackground;
Zerotorescue@119 98
Zerotorescue@101 99 local titleBackgroundLeft = frame:CreateTexture(nil, "OVERLAY");
Zerotorescue@101 100 titleBackgroundLeft:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header");
Zerotorescue@101 101 titleBackgroundLeft:SetTexCoord(0.21, 0.31, 0, 0.63);
Zerotorescue@101 102 titleBackgroundLeft:SetPoint("RIGHT", titleBackground, "LEFT");
Zerotorescue@101 103 titleBackgroundLeft:SetWidth(30);
Zerotorescue@101 104 titleBackgroundLeft:SetHeight(40);
Zerotorescue@101 105
Zerotorescue@101 106 local titleBackgroundRight = frame:CreateTexture(nil, "OVERLAY");
Zerotorescue@101 107 titleBackgroundRight:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header");
Zerotorescue@101 108 titleBackgroundRight:SetTexCoord(0.67, 0.77, 0, 0.63);
Zerotorescue@101 109 titleBackgroundRight:SetPoint("LEFT", titleBackground, "RIGHT");
Zerotorescue@101 110 titleBackgroundRight:SetWidth(30);
Zerotorescue@101 111 titleBackgroundRight:SetHeight(40);
Zerotorescue@101 112
Zerotorescue@101 113 local frmTitle = CreateFrame("Frame", nil, frame);
Zerotorescue@101 114 frmTitle:EnableMouse(true);
Zerotorescue@101 115 frmTitle:SetScript("OnMouseDown", function(this) this:GetParent():StartMoving(); end);
Zerotorescue@101 116 frmTitle:SetScript("OnMouseUp", function(this) this:GetParent():StopMovingOrSizing(); end);
Zerotorescue@101 117 frmTitle:SetAllPoints(titleBackground);
Zerotorescue@101 118
Zerotorescue@101 119 local lblTitle = frmTitle:CreateFontString(nil, "OVERLAY", "GameFontNormal");
Zerotorescue@101 120 lblTitle:SetPoint("TOP", titleBackground, "TOP", 0, -14);
Zerotorescue@110 121
Zerotorescue@110 122 frame.lblTitle = lblTitle;
Zerotorescue@101 123
Zerotorescue@101 124 -- Resizer (vertical only)
Zerotorescue@101 125 local frmResizer = CreateFrame("Frame", nil, frame);
Zerotorescue@101 126 frmResizer:SetPoint("BOTTOMLEFT", frame, "BOTTOMLEFT", 0, -10);
Zerotorescue@101 127 frmResizer:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", 0, -10);
Zerotorescue@101 128 frmResizer:SetHeight(20);
Zerotorescue@101 129 frmResizer:EnableMouse();
Zerotorescue@101 130 frmResizer:SetScript("OnMouseDown", function(this) this:GetParent():StartSizing("BOTTOM"); end);
Zerotorescue@101 131 frmResizer:SetScript("OnMouseUp", function(this) this:GetParent():StopMovingOrSizing(); end);
Zerotorescue@101 132
Zerotorescue@101 133 -- Description
Zerotorescue@101 134 local lblDescription = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal");
Zerotorescue@106 135 lblDescription:SetPoint("TOPLEFT", frame, "TOPLEFT", 15, -27);
Zerotorescue@104 136 lblDescription:SetWidth(frameWidth - 15 - 15); -- 10 margin left & 10 margin right
Zerotorescue@101 137 lblDescription:SetJustifyH("LEFT");
Zerotorescue@101 138 lblDescription:SetJustifyV("TOP");
Zerotorescue@101 139
Zerotorescue@101 140 frame.lblDescription = lblDescription;
Zerotorescue@101 141
Zerotorescue@101 142 -- Buttons
Zerotorescue@132 143 -- Proceed
Zerotorescue@132 144 local btnProceed = CreateFrame("Button", "$parentProceed", frame, "UIPanelButtonTemplate");
Zerotorescue@132 145 btnProceed:SetHeight(21);
Zerotorescue@132 146 btnProceed:SetWidth(125);
Zerotorescue@132 147 btnProceed:SetPoint("BOTTOMLEFT", frame, "BOTTOMLEFT", 15, 11);
Zerotorescue@132 148 btnProceed:SetScript("OnClick", function(this) this.OnClick(this); end);
Zerotorescue@132 149 btnProceed:SetScript("OnEnter", ShowTooltip);
Zerotorescue@132 150 btnProceed:SetScript("OnLeave", HideTooltip);
Zerotorescue@101 151
Zerotorescue@132 152 frame.btnProceed = btnProceed;
Zerotorescue@101 153
Zerotorescue@101 154 -- Cancel
Zerotorescue@101 155 local btnCancel = CreateFrame("Button", "$parentCancel", frame, "UIPanelButtonTemplate");
Zerotorescue@101 156 btnCancel:SetHeight(21);
Zerotorescue@101 157 btnCancel:SetWidth(125);
Zerotorescue@104 158 btnCancel:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -15, 11);
Zerotorescue@110 159 btnCancel:SetScript("OnClick", function(this) this.OnClick(this); end);
Zerotorescue@101 160 btnCancel:SetScript("OnEnter", ShowTooltip);
Zerotorescue@101 161 btnCancel:SetScript("OnLeave", HideTooltip);
Zerotorescue@101 162
Zerotorescue@101 163 frame.btnCancel = btnCancel;
Zerotorescue@101 164
Zerotorescue@101 165 -- Because the scrolling table code-behind will change this element's height, we can't rely on that. Make a dummy frame which we can measure
Zerotorescue@101 166 local frmMeasureDummy = CreateFrame("Frame", nil, frame);
Zerotorescue@106 167 frmMeasureDummy:SetPoint("TOP", frame.lblDescription, "BOTTOM", 0, -18);
Zerotorescue@106 168 frmMeasureDummy:SetPoint("LEFT", frame, "LEFT", 15, 0);
Zerotorescue@104 169 frmMeasureDummy:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -15, 35);
Zerotorescue@101 170
Zerotorescue@101 171 frame.frmMeasureDummy = frmMeasureDummy;
Zerotorescue@101 172
Zerotorescue@101 173 -- Scrolling table with a list of items to be moved
Zerotorescue@101 174 local ScrollingTable = LibStub("ScrollingTable");
Zerotorescue@132 175 local scrollTable = ScrollingTable:CreateST({}, 4, 15, nil, frame); -- inserting a dummy cols, real cols to be set in SetFrameSettings
Zerotorescue@132 176 scrollTable.frame:SetPoint("TOP", frame.lblDescription, "BOTTOM", 0, -18);
Zerotorescue@132 177 scrollTable.frame:SetPoint("LEFT", frame, "LEFT", 15, 0);
Zerotorescue@132 178 scrollTable.frame:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -15, 35);
Zerotorescue@106 179 -- When moving over a row, provide a tooltip for the item
Zerotorescue@132 180 scrollTable:RegisterEvents({
Zerotorescue@101 181 ["OnEnter"] = function(rowFrame, cellFrame, data, cols, row, realrow, column, scrollingTable, ...)
Zerotorescue@106 182 if row and realrow then
Zerotorescue@106 183 -- Data row
Zerotorescue@106 184
Zerotorescue@112 185 if data[realrow] and data[realrow].rowData and data[realrow].rowData.itemId then
Zerotorescue@106 186 GameTooltip:SetOwner(rowFrame, "ANCHOR_NONE");
Zerotorescue@106 187 GameTooltip:SetPoint("TOPLEFT", rowFrame, "BOTTOMLEFT");
Zerotorescue@112 188 GameTooltip:SetHyperlink(("item:%d"):format(data[realrow].rowData.itemId));
Zerotorescue@106 189 GameTooltip:Show();
Zerotorescue@106 190 end
Zerotorescue@106 191 else
Zerotorescue@106 192 -- Header row
Zerotorescue@106 193
Zerotorescue@106 194 if cols[column].tooltipTitle and type(cols[column].tooltipTitle) == "string" then
Zerotorescue@106 195 cellFrame.tooltipTitle = cols[column].tooltipTitle;
Zerotorescue@106 196 if cols[column].tooltip then
Zerotorescue@106 197 cellFrame.tooltip = cols[column].tooltip; -- Optional
Zerotorescue@106 198 else
Zerotorescue@106 199 cellFrame.tooltip = nil;
Zerotorescue@106 200 end
Zerotorescue@106 201
Zerotorescue@106 202 ShowTooltip(cellFrame);
Zerotorescue@106 203 end
Zerotorescue@101 204 end
Zerotorescue@101 205 end,
Zerotorescue@101 206 ["OnLeave"] = function(rowFrame, cellFrame, data, cols, row, realrow, column, scrollingTable, ...)
Zerotorescue@106 207 HideTooltip();
Zerotorescue@101 208 end,
Zerotorescue@101 209 });
Zerotorescue@101 210
Zerotorescue@132 211 frame.scrollTable = scrollTable;
Zerotorescue@110 212
Zerotorescue@106 213 -- Change the amount of displayed rows based on the size of the frame
Zerotorescue@106 214 frame.AdjustScrollTableRows = function(this)
Zerotorescue@106 215 local newRows = math.floor(( this.frmMeasureDummy:GetHeight() - 5 ) / 15);
Zerotorescue@110 216 newRows = (newRows < 4 and 4) or newRows;
Zerotorescue@106 217
Zerotorescue@106 218 this.scrollTable:SetDisplayRows(newRows, 15);
Zerotorescue@106 219 end;
Zerotorescue@106 220 frame:SetScript("OnSizeChanged", frame.AdjustScrollTableRows);
Zerotorescue@101 221 end
Zerotorescue@101 222
Zerotorescue@101 223 function addon:SetMoverFrameData(data)
Zerotorescue@101 224 InventoriumItemMover.scrollTable:SetData(data);
Zerotorescue@101 225
Zerotorescue@101 226 InventoriumItemMover:Show();
Zerotorescue@101 227 end
Zerotorescue@110 228
Zerotorescue@132 229 function addon:SetMoverFrameSettings(title, description, proceed, cancel, headers)
Zerotorescue@110 230 local frame = InventoriumItemMover;
Zerotorescue@110 231
Zerotorescue@110 232 frame.lblTitle:SetText(title);
Zerotorescue@119 233 -- Adjust size for the title background
Zerotorescue@119 234 frame.titleBackground:SetWidth((frame.lblTitle:GetWidth() or 0) + 10); -- 10 pixels margin
Zerotorescue@110 235
Zerotorescue@110 236 frame.lblDescription:SetText(description);
Zerotorescue@110 237
Zerotorescue@132 238 frame.btnProceed:SetText(proceed.text);
Zerotorescue@132 239 frame.btnProceed.tooltipTitle = proceed.tooltipTitle;
Zerotorescue@132 240 frame.btnProceed.tooltip = proceed.tooltip;
Zerotorescue@132 241 frame.btnProceed.OnClick = proceed.onClick;
Zerotorescue@110 242
Zerotorescue@110 243 frame.btnCancel:SetText(cancel.text);
Zerotorescue@110 244 frame.btnCancel.tooltipTitle = cancel.tooltipTitle;
Zerotorescue@110 245 frame.btnCancel.tooltip = cancel.tooltip;
Zerotorescue@110 246 frame.btnCancel.OnClick = cancel.onClick;
Zerotorescue@110 247
Zerotorescue@110 248 frame.scrollTable:SetDisplayCols(headers);
Zerotorescue@110 249 end
Zerotorescue@132 250
Zerotorescue@132 251 function addon:CreateQueueFrame()
Zerotorescue@132 252 if InventoriumQueuer then
Zerotorescue@132 253 return;
Zerotorescue@132 254 end
Zerotorescue@132 255
Zerotorescue@132 256 do
Zerotorescue@132 257 local frameWidth = 400;
Zerotorescue@132 258
Zerotorescue@132 259 -- Main window
Zerotorescue@132 260 local frame = CreateFrame("Frame", "InventoriumQueuer", UIParent);
Zerotorescue@132 261 -- Hide by default
Zerotorescue@132 262 frame:Hide();
Zerotorescue@132 263 -- Center the frame (will be adjusted later)
Zerotorescue@132 264 frame:SetPoint("CENTER", UIParent, "CENTER", 0, 0);
Zerotorescue@132 265 -- Put in front of other windows
Zerotorescue@132 266 frame:SetFrameStrata("FULLSCREEN_DIALOG");
Zerotorescue@132 267 frame:SetToplevel(true);
Zerotorescue@132 268 -- Give it a size
Zerotorescue@132 269 frame:SetWidth(frameWidth);
Zerotorescue@132 270 frame:SetHeight(430);
Zerotorescue@132 271 -- Background
Zerotorescue@132 272 frame:SetBackdrop({
Zerotorescue@132 273 bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
Zerotorescue@132 274 edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border",
Zerotorescue@132 275 edgeSize = 20,
Zerotorescue@132 276 insets = {
Zerotorescue@132 277 left = 5,
Zerotorescue@132 278 right = 5,
Zerotorescue@132 279 top = 5,
Zerotorescue@132 280 bottom = 5,
Zerotorescue@132 281 },
Zerotorescue@132 282 });
Zerotorescue@132 283 frame:SetBackdropColor(0, 0, 0, .8);
Zerotorescue@132 284 -- Mouse functions
Zerotorescue@132 285 frame:EnableMouse();
Zerotorescue@132 286 frame:SetMovable(true);
Zerotorescue@132 287 -- Set event handlers
Zerotorescue@132 288 frame:SetScript("OnMouseUp", function(this) this:StopMovingOrSizing(); end);
Zerotorescue@132 289 frame:SetScript("OnShow", function(this)
Zerotorescue@132 290 this:AdjustScrollTableRows();
Zerotorescue@132 291 end);
Zerotorescue@132 292
Zerotorescue@132 293 -- Title (AceGUI frame-widget-title used as example)
Zerotorescue@132 294 local titleBackground = frame:CreateTexture(nil, "OVERLAY");
Zerotorescue@132 295 titleBackground:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header");
Zerotorescue@132 296 titleBackground:SetTexCoord(0.31, 0.67, 0, 0.63);
Zerotorescue@132 297 titleBackground:SetPoint("TOP", 0, 12);
Zerotorescue@132 298 titleBackground:SetWidth(150);
Zerotorescue@132 299 titleBackground:SetHeight(40);
Zerotorescue@132 300
Zerotorescue@132 301 frame.titleBackground = titleBackground;
Zerotorescue@132 302
Zerotorescue@132 303 local titleBackgroundLeft = frame:CreateTexture(nil, "OVERLAY");
Zerotorescue@132 304 titleBackgroundLeft:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header");
Zerotorescue@132 305 titleBackgroundLeft:SetTexCoord(0.21, 0.31, 0, 0.63);
Zerotorescue@132 306 titleBackgroundLeft:SetPoint("RIGHT", titleBackground, "LEFT");
Zerotorescue@132 307 titleBackgroundLeft:SetWidth(30);
Zerotorescue@132 308 titleBackgroundLeft:SetHeight(40);
Zerotorescue@132 309
Zerotorescue@132 310 local titleBackgroundRight = frame:CreateTexture(nil, "OVERLAY");
Zerotorescue@132 311 titleBackgroundRight:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header");
Zerotorescue@132 312 titleBackgroundRight:SetTexCoord(0.67, 0.77, 0, 0.63);
Zerotorescue@132 313 titleBackgroundRight:SetPoint("LEFT", titleBackground, "RIGHT");
Zerotorescue@132 314 titleBackgroundRight:SetWidth(30);
Zerotorescue@132 315 titleBackgroundRight:SetHeight(40);
Zerotorescue@132 316
Zerotorescue@132 317 local frmTitle = CreateFrame("Frame", nil, frame);
Zerotorescue@132 318 frmTitle:EnableMouse(true);
Zerotorescue@132 319 frmTitle:SetScript("OnMouseDown", function(this) this:GetParent():StartMoving(); end);
Zerotorescue@132 320 frmTitle:SetScript("OnMouseUp", function(this) this:GetParent():StopMovingOrSizing(); end);
Zerotorescue@132 321 frmTitle:SetAllPoints(titleBackground);
Zerotorescue@132 322
Zerotorescue@132 323 local lblTitle = frmTitle:CreateFontString(nil, "OVERLAY", "GameFontNormal");
Zerotorescue@132 324 lblTitle:SetPoint("TOP", titleBackground, "TOP", 0, -14);
Zerotorescue@132 325
Zerotorescue@132 326 frame.lblTitle = lblTitle;
Zerotorescue@132 327
Zerotorescue@132 328 -- Expand button
Zerotorescue@132 329 local btnExpander = CreateFrame("Button", "$parentExpander", frame);
Zerotorescue@132 330 btnExpander:SetWidth(32);
Zerotorescue@132 331 btnExpander:SetHeight(32);
Zerotorescue@132 332 btnExpander:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -10, -10);
Zerotorescue@132 333 btnExpander:SetNormalTexture("Interface\\Buttons\\UI-SpellbookIcon-NextPage-Up");
Zerotorescue@132 334 btnExpander:SetPushedTexture("Interface\\Buttons\\UI-SpellbookIcon-NextPage-Down");
Zerotorescue@132 335 btnExpander:SetDisabledTexture("Interface\\Buttons\\UI-SpellbookIcon-NextPage-Disabled");
Zerotorescue@132 336 btnExpander:SetHighlightTexture("Interface\\Buttons\\UI-Common-MouseHilight", "ADD");
Zerotorescue@132 337 btnExpander.tooltipTitle = "Show unqueueables";
Zerotorescue@132 338 btnExpander.tooltip = "Click to show a list of all unqueueable but tracked items.";
Zerotorescue@132 339 btnExpander:SetScript("OnEnter", ShowTooltip);
Zerotorescue@132 340 btnExpander:SetScript("OnLeave", HideTooltip);
Zerotorescue@132 341 btnExpander:SetScript("OnClick", function(this)
Zerotorescue@132 342 if this.Expanded then
Zerotorescue@132 343 -- Collapsing
Zerotorescue@132 344 this.Expanded = nil;
Zerotorescue@132 345 InventoriumQueuerUnqueueables:Hide();
Zerotorescue@132 346 PlaySound("igCharacterInfoClose");
Zerotorescue@132 347
Zerotorescue@132 348 -- Next is an expand
Zerotorescue@132 349 this:SetNormalTexture("Interface\\Buttons\\UI-SpellbookIcon-NextPage-Up");
Zerotorescue@132 350 this:SetPushedTexture("Interface\\Buttons\\UI-SpellbookIcon-NextPage-Down");
Zerotorescue@132 351 this:SetDisabledTexture("Interface\\Buttons\\UI-SpellbookIcon-NextPage-Disabled");
Zerotorescue@132 352 else
Zerotorescue@132 353 -- Expanding
Zerotorescue@132 354 this.Expanded = true;
Zerotorescue@132 355
Zerotorescue@132 356 -- Position the frame against the queuer window
Zerotorescue@132 357 InventoriumQueuerUnqueueables:ClearAllPoints();
Zerotorescue@132 358 InventoriumQueuerUnqueueables:SetPoint("TOPLEFT", this:GetParent(), "TOPRIGHT", 0, 0);
Zerotorescue@132 359 InventoriumQueuerUnqueueables:SetPoint("BOTTOMLEFT", this:GetParent(), "BOTTOMLEFT", 0, 0);
Zerotorescue@132 360 InventoriumQueuerUnqueueables:Show();
Zerotorescue@132 361 PlaySound("igCharacterInfoOpen");
Zerotorescue@132 362
Zerotorescue@132 363 -- Next is a collapse
Zerotorescue@132 364 this:SetNormalTexture("Interface\\Buttons\\UI-SpellbookIcon-PrevPage-Up");
Zerotorescue@132 365 this:SetPushedTexture("Interface\\Buttons\\UI-SpellbookIcon-PrevPage-Down");
Zerotorescue@132 366 this:SetDisabledTexture("Interface\\Buttons\\UI-SpellbookIcon-PrevPage-Disabled");
Zerotorescue@132 367 end
Zerotorescue@132 368 end);
Zerotorescue@132 369
Zerotorescue@132 370 -- Description
Zerotorescue@132 371 local lblDescription = frame:CreateFontString(nil, "OVERLAY", "GameFontNormal");
Zerotorescue@132 372 lblDescription:SetPoint("TOPLEFT", frame, "TOPLEFT", 15, -27);
Zerotorescue@132 373 lblDescription:SetPoint("RIGHT", btnExpander, "LEFT", -15, 0);
Zerotorescue@132 374 lblDescription:SetJustifyH("LEFT");
Zerotorescue@132 375 lblDescription:SetJustifyV("TOP");
Zerotorescue@132 376 lblDescription:SetWidth(frameWidth - 70);
Zerotorescue@132 377
Zerotorescue@132 378 frame.lblDescription = lblDescription;
Zerotorescue@132 379
Zerotorescue@132 380 -- Buttons
Zerotorescue@132 381 -- Proceed
Zerotorescue@132 382 local btnProceed = CreateFrame("Button", "$parentProceed", frame, "UIPanelButtonTemplate");
Zerotorescue@132 383 btnProceed:SetHeight(21);
Zerotorescue@132 384 btnProceed:SetWidth(125);
Zerotorescue@132 385 btnProceed:SetPoint("BOTTOMLEFT", frame, "BOTTOMLEFT", 15, 11);
Zerotorescue@132 386 btnProceed:SetScript("OnClick", function(this) this.OnClick(this); end);
Zerotorescue@132 387 btnProceed:SetScript("OnEnter", ShowTooltip);
Zerotorescue@132 388 btnProceed:SetScript("OnLeave", HideTooltip);
Zerotorescue@132 389
Zerotorescue@132 390 frame.btnProceed = btnProceed;
Zerotorescue@132 391
Zerotorescue@132 392 -- Cancel
Zerotorescue@132 393 local btnCancel = CreateFrame("Button", "$parentCancel", frame, "UIPanelButtonTemplate");
Zerotorescue@132 394 btnCancel:SetHeight(21);
Zerotorescue@132 395 btnCancel:SetWidth(125);
Zerotorescue@132 396 btnCancel:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -15, 11);
Zerotorescue@132 397 btnCancel:SetScript("OnClick", function(this) this.OnClick(this); end);
Zerotorescue@132 398 btnCancel:SetScript("OnEnter", ShowTooltip);
Zerotorescue@132 399 btnCancel:SetScript("OnLeave", HideTooltip);
Zerotorescue@132 400
Zerotorescue@132 401 frame.btnCancel = btnCancel;
Zerotorescue@132 402
Zerotorescue@132 403 -- Because the scrolling table code-behind will change the scrolltable element's height, we can't rely on that. Make a dummy frame which we can measure
Zerotorescue@132 404 local frmMeasureDummy = CreateFrame("Frame", nil, frame);
Zerotorescue@132 405 frmMeasureDummy:SetPoint("TOP", frame.lblDescription, "BOTTOM", 0, -18);
Zerotorescue@132 406 frmMeasureDummy:SetPoint("LEFT", frame, "LEFT", 15, 0);
Zerotorescue@132 407 frmMeasureDummy:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -15, 35);
Zerotorescue@132 408
Zerotorescue@132 409 frame.frmMeasureDummy = frmMeasureDummy;
Zerotorescue@132 410
Zerotorescue@132 411 -- Scrolling table with a list of items to be queued
Zerotorescue@132 412 local ScrollingTable = LibStub("ScrollingTable");
Zerotorescue@132 413 local scrollTable = ScrollingTable:CreateST({}, 4, 15, nil, frame); -- inserting a dummy cols, real cols to be set in SetFrameSettings
Zerotorescue@132 414 scrollTable.frame:SetPoint("TOP", frame.lblDescription, "BOTTOM", 0, -18);
Zerotorescue@132 415 scrollTable.frame:SetPoint("LEFT", frame, "LEFT", 15, 0);
Zerotorescue@132 416 scrollTable.frame:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -15, 35);
Zerotorescue@132 417 -- When moving over a row, provide a tooltip for the item
Zerotorescue@132 418 scrollTable:RegisterEvents({
Zerotorescue@132 419 ["OnEnter"] = function(rowFrame, cellFrame, data, cols, row, realrow, column, scrollingTable, ...)
Zerotorescue@132 420 if row and realrow then
Zerotorescue@132 421 -- Data row
Zerotorescue@132 422
Zerotorescue@132 423 if data[realrow] and data[realrow].rowData and data[realrow].rowData.itemId then
Zerotorescue@132 424 GameTooltip:SetOwner(rowFrame, "ANCHOR_NONE");
Zerotorescue@132 425 GameTooltip:SetPoint("TOPLEFT", rowFrame, "BOTTOMLEFT");
Zerotorescue@132 426 GameTooltip:SetHyperlink(("item:%d"):format(data[realrow].rowData.itemId));
Zerotorescue@132 427 GameTooltip:Show();
Zerotorescue@132 428 end
Zerotorescue@132 429 else
Zerotorescue@132 430 -- Header row
Zerotorescue@132 431
Zerotorescue@132 432 if cols[column].tooltipTitle and type(cols[column].tooltipTitle) == "string" then
Zerotorescue@132 433 cellFrame.tooltipTitle = cols[column].tooltipTitle;
Zerotorescue@132 434 if cols[column].tooltip then
Zerotorescue@132 435 cellFrame.tooltip = cols[column].tooltip; -- Optional
Zerotorescue@132 436 else
Zerotorescue@132 437 cellFrame.tooltip = nil;
Zerotorescue@132 438 end
Zerotorescue@132 439
Zerotorescue@132 440 ShowTooltip(cellFrame);
Zerotorescue@132 441 end
Zerotorescue@132 442 end
Zerotorescue@132 443 end,
Zerotorescue@132 444 ["OnLeave"] = function(rowFrame, cellFrame, data, cols, row, realrow, column, scrollingTable, ...)
Zerotorescue@132 445 HideTooltip();
Zerotorescue@132 446 end,
Zerotorescue@132 447 });
Zerotorescue@132 448
Zerotorescue@132 449 frame.scrollTable = scrollTable;
Zerotorescue@132 450
Zerotorescue@132 451 -- Change the amount of displayed rows based on the size of the frame
Zerotorescue@132 452 frame.AdjustScrollTableRows = function(this)
Zerotorescue@132 453 local newRows = math.floor(( this.frmMeasureDummy:GetHeight() - 5 ) / 15);
Zerotorescue@132 454 newRows = (newRows < 4 and 4) or newRows;
Zerotorescue@132 455
Zerotorescue@132 456 this.scrollTable:SetDisplayRows(newRows, 15);
Zerotorescue@132 457 end;
Zerotorescue@132 458 frame:SetScript("OnSizeChanged", frame.AdjustScrollTableRows);
Zerotorescue@132 459 end
Zerotorescue@132 460 do
Zerotorescue@132 461 local frameWidth = 300;
Zerotorescue@132 462
Zerotorescue@132 463 -- Main window
Zerotorescue@132 464 local frame = CreateFrame("Frame", "InventoriumQueuerUnqueueables", InventoriumQueuer);
Zerotorescue@132 465 -- Hide by default
Zerotorescue@132 466 frame:Hide();
Zerotorescue@132 467 -- Position the frame against the queuer window
Zerotorescue@132 468 frame:SetPoint("TOPLEFT", InventoriumQueuer, "TOPRIGHT", 0, 0);
Zerotorescue@132 469 frame:SetPoint("BOTTOMLEFT", InventoriumQueuer, "BOTTOMLEFT", 0, 0);
Zerotorescue@132 470 -- Put in front of other windows
Zerotorescue@132 471 frame:SetFrameStrata("FULLSCREEN_DIALOG");
Zerotorescue@132 472 frame:SetToplevel(true);
Zerotorescue@132 473 -- Give it a size
Zerotorescue@132 474 frame:SetWidth(frameWidth);
Zerotorescue@132 475 -- Background
Zerotorescue@132 476 frame:SetBackdrop({
Zerotorescue@132 477 bgFile = "Interface\\ChatFrame\\ChatFrameBackground",
Zerotorescue@132 478 edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border",
Zerotorescue@132 479 edgeSize = 20,
Zerotorescue@132 480 insets = {
Zerotorescue@132 481 left = 5,
Zerotorescue@132 482 right = 5,
Zerotorescue@132 483 top = 5,
Zerotorescue@132 484 bottom = 5,
Zerotorescue@132 485 },
Zerotorescue@132 486 });
Zerotorescue@132 487 frame:SetBackdropColor(0, 0, 0, .8);
Zerotorescue@132 488 -- Mouse functions
Zerotorescue@132 489 frame:EnableMouse();
Zerotorescue@132 490 frame:SetMovable(true);
Zerotorescue@132 491 -- Set event handlers
Zerotorescue@132 492 frame:SetScript("OnMouseUp", function(this) this:StopMovingOrSizing(); end);
Zerotorescue@132 493 frame:SetScript("OnShow", function(this)
Zerotorescue@132 494 this:AdjustScrollTableRows();
Zerotorescue@132 495 end);
Zerotorescue@132 496
Zerotorescue@132 497 -- Title (AceGUI frame-widget-title used as example)
Zerotorescue@132 498 local titleBackground = frame:CreateTexture(nil, "OVERLAY");
Zerotorescue@132 499 titleBackground:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header");
Zerotorescue@132 500 titleBackground:SetTexCoord(0.31, 0.67, 0, 0.63);
Zerotorescue@132 501 titleBackground:SetPoint("TOP", 0, 12);
Zerotorescue@132 502 titleBackground:SetWidth(90);
Zerotorescue@132 503 titleBackground:SetHeight(40);
Zerotorescue@132 504
Zerotorescue@132 505 frame.titleBackground = titleBackground;
Zerotorescue@132 506
Zerotorescue@132 507 local titleBackgroundLeft = frame:CreateTexture(nil, "OVERLAY");
Zerotorescue@132 508 titleBackgroundLeft:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header");
Zerotorescue@132 509 titleBackgroundLeft:SetTexCoord(0.21, 0.31, 0, 0.63);
Zerotorescue@132 510 titleBackgroundLeft:SetPoint("RIGHT", titleBackground, "LEFT");
Zerotorescue@132 511 titleBackgroundLeft:SetWidth(30);
Zerotorescue@132 512 titleBackgroundLeft:SetHeight(40);
Zerotorescue@132 513
Zerotorescue@132 514 local titleBackgroundRight = frame:CreateTexture(nil, "OVERLAY");
Zerotorescue@132 515 titleBackgroundRight:SetTexture("Interface\\DialogFrame\\UI-DialogBox-Header");
Zerotorescue@132 516 titleBackgroundRight:SetTexCoord(0.67, 0.77, 0, 0.63);
Zerotorescue@132 517 titleBackgroundRight:SetPoint("LEFT", titleBackground, "RIGHT");
Zerotorescue@132 518 titleBackgroundRight:SetWidth(30);
Zerotorescue@132 519 titleBackgroundRight:SetHeight(40);
Zerotorescue@132 520
Zerotorescue@132 521 local frmTitle = CreateFrame("Frame", nil, frame);
Zerotorescue@132 522 frmTitle:EnableMouse(true);
Zerotorescue@132 523 frmTitle:SetScript("OnMouseDown", function(this) this:GetParent():StartMoving(); end);
Zerotorescue@132 524 frmTitle:SetScript("OnMouseUp", function(this) this:GetParent():StopMovingOrSizing(); end);
Zerotorescue@132 525 frmTitle:SetAllPoints(titleBackground);
Zerotorescue@132 526
Zerotorescue@132 527 local lblTitle = frmTitle:CreateFontString(nil, "OVERLAY", "GameFontNormal");
Zerotorescue@132 528 lblTitle:SetPoint("TOP", titleBackground, "TOP", 0, -14);
Zerotorescue@132 529 lblTitle:SetText("Unqueueables");
Zerotorescue@132 530
Zerotorescue@132 531 -- Because the scrolling table code-behind will change this element's height, we can't rely on that. Make a dummy frame which we can measure
Zerotorescue@132 532 local frmMeasureDummy = CreateFrame("Frame", nil, frame);
Zerotorescue@132 533 frmMeasureDummy:SetPoint("TOPLEFT", frame, "TOPLEFT", 15, -42);
Zerotorescue@132 534 frmMeasureDummy:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -15, 15);
Zerotorescue@132 535
Zerotorescue@132 536 frame.frmMeasureDummy = frmMeasureDummy;
Zerotorescue@132 537
Zerotorescue@132 538 -- Scrolling table with a list of items to be queued
Zerotorescue@132 539 local ScrollingTable = LibStub("ScrollingTable");
Zerotorescue@132 540 local scrollTable = ScrollingTable:CreateST({}, 4, 15, nil, frame); -- inserting a dummy cols, real cols to be set in SetFrameSettings
Zerotorescue@132 541 scrollTable.frame:SetPoint("TOPLEFT", frame, "TOPLEFT", 15, -42);
Zerotorescue@132 542 scrollTable.frame:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -15, 15);
Zerotorescue@132 543 -- When moving over a row, provide a tooltip for the item
Zerotorescue@132 544 scrollTable:RegisterEvents({
Zerotorescue@132 545 ["OnEnter"] = function(rowFrame, cellFrame, data, cols, row, realrow, column, scrollingTable, ...)
Zerotorescue@132 546 if row and realrow then
Zerotorescue@132 547 -- Data row
Zerotorescue@132 548
Zerotorescue@132 549 if data[realrow] and data[realrow].rowData and data[realrow].rowData.itemId then
Zerotorescue@132 550 if column == 1 then
Zerotorescue@132 551 GameTooltip:SetOwner(rowFrame, "ANCHOR_NONE");
Zerotorescue@132 552 GameTooltip:SetPoint("TOPLEFT", rowFrame, "BOTTOMLEFT");
Zerotorescue@132 553 GameTooltip:SetHyperlink(("item:%d"):format(data[realrow].rowData.itemId));
Zerotorescue@132 554 GameTooltip:Show();
Zerotorescue@132 555 else
Zerotorescue@132 556 GameTooltip:SetOwner(cellFrame, "ANCHOR_NONE");
Zerotorescue@132 557 GameTooltip:SetPoint("TOPLEFT", cellFrame, "BOTTOMLEFT");
Zerotorescue@132 558 GameTooltip:SetText(data[realrow].rowData.reason[1]);
Zerotorescue@132 559 GameTooltip:AddLine(data[realrow].rowData.reason[2], 1, 1, 1, 1);
Zerotorescue@132 560 GameTooltip:Show();
Zerotorescue@132 561 end
Zerotorescue@132 562 end
Zerotorescue@132 563 else
Zerotorescue@132 564 -- Header row
Zerotorescue@132 565
Zerotorescue@132 566 if cols[column].tooltipTitle and type(cols[column].tooltipTitle) == "string" then
Zerotorescue@132 567 cellFrame.tooltipTitle = cols[column].tooltipTitle;
Zerotorescue@132 568 if cols[column].tooltip then
Zerotorescue@132 569 cellFrame.tooltip = cols[column].tooltip; -- Optional
Zerotorescue@132 570 else
Zerotorescue@132 571 cellFrame.tooltip = nil;
Zerotorescue@132 572 end
Zerotorescue@132 573
Zerotorescue@132 574 ShowTooltip(cellFrame);
Zerotorescue@132 575 end
Zerotorescue@132 576 end
Zerotorescue@132 577 end,
Zerotorescue@132 578 ["OnLeave"] = function(rowFrame, cellFrame, data, cols, row, realrow, column, scrollingTable, ...)
Zerotorescue@132 579 HideTooltip();
Zerotorescue@132 580 end,
Zerotorescue@132 581 });
Zerotorescue@132 582
Zerotorescue@132 583 frame.scrollTable = scrollTable;
Zerotorescue@132 584
Zerotorescue@132 585 -- Change the amount of displayed rows based on the size of the frame
Zerotorescue@132 586 frame.AdjustScrollTableRows = function(this)
Zerotorescue@132 587 local newRows = math.floor(( this.frmMeasureDummy:GetHeight() - 5 ) / 15);
Zerotorescue@132 588 newRows = (newRows < 4 and 4) or newRows;
Zerotorescue@132 589
Zerotorescue@132 590 this.scrollTable:SetDisplayRows(newRows, 15);
Zerotorescue@132 591 end;
Zerotorescue@132 592 frame:SetScript("OnSizeChanged", frame.AdjustScrollTableRows);
Zerotorescue@132 593 end
Zerotorescue@132 594 end
Zerotorescue@132 595
Zerotorescue@132 596 function addon:SetQueueFrameData(queueable, unqueueables)
Zerotorescue@132 597 InventoriumQueuer.scrollTable:SetData(queueable);
Zerotorescue@132 598 InventoriumQueuerUnqueueables.scrollTable:SetData(unqueueables);
Zerotorescue@132 599
Zerotorescue@132 600 InventoriumQueuer:Show();
Zerotorescue@132 601 end
Zerotorescue@132 602
Zerotorescue@132 603 function addon:SetQueueFrameSettings(title, description, proceed, cancel, headers, unqueueablesHeaders)
Zerotorescue@132 604 local frame = InventoriumQueuer;
Zerotorescue@132 605
Zerotorescue@132 606 frame.lblTitle:SetText(title);
Zerotorescue@132 607 -- Adjust size for the title background
Zerotorescue@132 608 frame.titleBackground:SetWidth((frame.lblTitle:GetWidth() or 0) + 10); -- 10 pixels margin
Zerotorescue@132 609
Zerotorescue@132 610 frame.lblDescription:SetText(description);
Zerotorescue@132 611
Zerotorescue@132 612 frame.btnProceed:SetText(proceed.text);
Zerotorescue@132 613 frame.btnProceed.tooltipTitle = proceed.tooltipTitle;
Zerotorescue@132 614 frame.btnProceed.tooltip = proceed.tooltip;
Zerotorescue@132 615 frame.btnProceed.OnClick = proceed.onClick;
Zerotorescue@132 616
Zerotorescue@132 617 frame.btnCancel:SetText(cancel.text);
Zerotorescue@132 618 frame.btnCancel.tooltipTitle = cancel.tooltipTitle;
Zerotorescue@132 619 frame.btnCancel.tooltip = cancel.tooltip;
Zerotorescue@132 620 frame.btnCancel.OnClick = cancel.onClick;
Zerotorescue@132 621
Zerotorescue@132 622 frame.scrollTable:SetDisplayCols(headers);
Zerotorescue@132 623
Zerotorescue@132 624 InventoriumQueuerUnqueueables.scrollTable:SetDisplayCols(unqueueablesHeaders);
Zerotorescue@132 625 end