wow/hansgar_and_franzok_assist: Libs/DF/panel.lua annotate

annotate Libs/DF/panel.lua @ 20:dc1c77254f80

- added close button to users panel. - framework update.

author	Tercio
date	Tue, 11 Aug 2015 12:46:46 -0300
parents	215f0dd37a6c
children	dbd417f413a8

rev	line source
Tercio@11	1
Tercio@11	2 local DF = _G ["DetailsFramework"]
Tercio@20	3 if (not DF or not DetailsFrameworkCanLoad) then
Tercio@18	4 return
Tercio@18	5 end
Tercio@18	6
Tercio@20	7 local _
Tercio@11	8 --> lua locals
Tercio@11	9 local _rawset = rawset --> lua local
Tercio@11	10 local _rawget = rawget --> lua local
Tercio@11	11 local _setmetatable = setmetatable --> lua local
Tercio@11	12 local _unpack = unpack --> lua local
Tercio@11	13 local _type = type --> lua local
Tercio@11	14 local _math_floor = math.floor --> lua local
Tercio@11	15 local loadstring = loadstring --> lua local
Tercio@11	16
Tercio@11	17 local cleanfunction = function() end
Tercio@11	18 local PanelMetaFunctions = {}
Tercio@11	19 local APIFrameFunctions
Tercio@11	20
Tercio@11	21 local simple_panel_counter = 1
Tercio@11	22
Tercio@11	23 ------------------------------------------------------------------------------------------------------------
Tercio@11	24 --> metatables
Tercio@11	25
Tercio@11	26 PanelMetaFunctions.__call = function (_table, value)
Tercio@11	27 --> nothing to do
Tercio@11	28 return true
Tercio@11	29 end
Tercio@11	30
Tercio@11	31 ------------------------------------------------------------------------------------------------------------
Tercio@11	32 --> members
Tercio@11	33
Tercio@11	34 --> tooltip
Tercio@11	35 local gmember_tooltip = function (_object)
Tercio@11	36 return _object:GetTooltip()
Tercio@11	37 end
Tercio@11	38 --> shown
Tercio@11	39 local gmember_shown = function (_object)
Tercio@11	40 return _object:IsShown()
Tercio@11	41 end
Tercio@11	42 --> backdrop color
Tercio@11	43 local gmember_color = function (_object)
Tercio@11	44 return _object.frame:GetBackdropColor()
Tercio@11	45 end
Tercio@11	46 --> backdrop table
Tercio@11	47 local gmember_backdrop = function (_object)
Tercio@11	48 return _object.frame:GetBackdrop()
Tercio@11	49 end
Tercio@11	50 --> frame width
Tercio@11	51 local gmember_width = function (_object)
Tercio@11	52 return _object.frame:GetWidth()
Tercio@11	53 end
Tercio@11	54 --> frame height
Tercio@11	55 local gmember_height = function (_object)
Tercio@11	56 return _object.frame:GetHeight()
Tercio@11	57 end
Tercio@11	58 --> locked
Tercio@11	59 local gmember_locked = function (_object)
Tercio@11	60 return _rawget (_object, "is_locked")
Tercio@11	61 end
Tercio@11	62
Tercio@11	63 local get_members_function_index = {
Tercio@11	64 ["tooltip"] = gmember_tooltip,
Tercio@11	65 ["shown"] = gmember_shown,
Tercio@11	66 ["color"] = gmember_color,
Tercio@11	67 ["backdrop"] = gmember_backdrop,
Tercio@11	68 ["width"] = gmember_width,
Tercio@11	69 ["height"] = gmember_height,
Tercio@11	70 ["locked"] = gmember_locked,
Tercio@11	71 }
Tercio@11	72
Tercio@11	73 PanelMetaFunctions.__index = function (_table, _member_requested)
Tercio@11	74
Tercio@11	75 local func = get_members_function_index [_member_requested]
Tercio@11	76 if (func) then
Tercio@11	77 return func (_table, _member_requested)
Tercio@11	78 end
Tercio@11	79
Tercio@11	80 local fromMe = _rawget (_table, _member_requested)
Tercio@11	81 if (fromMe) then
Tercio@11	82 return fromMe
Tercio@11	83 end
Tercio@11	84
Tercio@11	85 return PanelMetaFunctions [_member_requested]
Tercio@11	86 end
Tercio@11	87
Tercio@11	88
Tercio@11	89 --> tooltip
Tercio@11	90 local smember_tooltip = function (_object, _value)
Tercio@11	91 return _object:SetTooltip (_value)
Tercio@11	92 end
Tercio@11	93 --> show
Tercio@11	94 local smember_show = function (_object, _value)
Tercio@11	95 if (_value) then
Tercio@11	96 return _object:Show()
Tercio@11	97 else
Tercio@11	98 return _object:Hide()
Tercio@11	99 end
Tercio@11	100 end
Tercio@11	101 --> hide
Tercio@11	102 local smember_hide = function (_object, _value)
Tercio@11	103 if (not _value) then
Tercio@11	104 return _object:Show()
Tercio@11	105 else
Tercio@11	106 return _object:Hide()
Tercio@11	107 end
Tercio@11	108 end
Tercio@11	109 --> backdrop color
Tercio@11	110 local smember_color = function (_object, _value)
Tercio@11	111 local _value1, _value2, _value3, _value4 = DF:ParseColors (_value)
Tercio@11	112 return _object:SetBackdropColor (_value1, _value2, _value3, _value4)
Tercio@11	113 end
Tercio@11	114 --> frame width
Tercio@11	115 local smember_width = function (_object, _value)
Tercio@11	116 return _object.frame:SetWidth (_value)
Tercio@11	117 end
Tercio@11	118 --> frame height
Tercio@11	119 local smember_height = function (_object, _value)
Tercio@11	120 return _object.frame:SetHeight (_value)
Tercio@11	121 end
Tercio@11	122
Tercio@11	123 --> locked
Tercio@11	124 local smember_locked = function (_object, _value)
Tercio@11	125 if (_value) then
Tercio@11	126 _object.frame:SetMovable (false)
Tercio@11	127 return _rawset (_object, "is_locked", true)
Tercio@11	128 else
Tercio@11	129 _object.frame:SetMovable (true)
Tercio@11	130 _rawset (_object, "is_locked", false)
Tercio@11	131 return
Tercio@11	132 end
Tercio@11	133 end
Tercio@11	134
Tercio@11	135 --> backdrop
Tercio@11	136 local smember_backdrop = function (_object, _value)
Tercio@11	137 return _object.frame:SetBackdrop (_value)
Tercio@11	138 end
Tercio@11	139
Tercio@11	140 --> close with right button
Tercio@11	141 local smember_right_close = function (_object, _value)
Tercio@11	142 return _rawset (_object, "rightButtonClose", _value)
Tercio@11	143 end
Tercio@11	144
Tercio@11	145 local set_members_function_index = {
Tercio@11	146 ["tooltip"] = smember_tooltip,
Tercio@11	147 ["show"] = smember_show,
Tercio@11	148 ["hide"] = smember_hide,
Tercio@11	149 ["color"] = smember_color,
Tercio@11	150 ["backdrop"] = smember_backdrop,
Tercio@11	151 ["width"] = smember_width,
Tercio@11	152 ["height"] = smember_height,
Tercio@11	153 ["locked"] = smember_locked,
Tercio@11	154 ["close_with_right"] = smember_right_close,
Tercio@11	155 }
Tercio@11	156
Tercio@11	157 PanelMetaFunctions.__newindex = function (_table, _key, _value)
Tercio@11	158 local func = set_members_function_index [_key]
Tercio@11	159 if (func) then
Tercio@11	160 return func (_table, _value)
Tercio@11	161 else
Tercio@11	162 return _rawset (_table, _key, _value)
Tercio@11	163 end
Tercio@11	164 end
Tercio@11	165
Tercio@11	166 ------------------------------------------------------------------------------------------------------------
Tercio@11	167 --> methods
Tercio@11	168
Tercio@11	169 --> right click to close
Tercio@11	170 function PanelMetaFunctions:CreateRightClickLabel (textType, w, h, close_text)
Tercio@11	171 local text
Tercio@11	172 w = w or 20
Tercio@11	173 h = h or 20
Tercio@11	174
Tercio@11	175 if (close_text) then
Tercio@11	176 text = close_text
Tercio@11	177 else
Tercio@11	178 if (textType) then
Tercio@11	179 textType = string.lower (textType)
Tercio@11	180 if (textType == "short") then
Tercio@11	181 text = "close window"
Tercio@11	182 elseif (textType == "medium") then
Tercio@11	183 text = "close window"
Tercio@11	184 elseif (textType == "large") then
Tercio@11	185 text = "close window"
Tercio@11	186 end
Tercio@11	187 else
Tercio@11	188 text = "close window"
Tercio@11	189 end
Tercio@11	190 end
Tercio@11	191
Tercio@11	192 return DF:NewLabel (self, _, "$parentRightMouseToClose", nil, "\|TInterface\\TUTORIALFRAME\\UI-TUTORIAL-FRAME:"..w..":"..h..":0:1:512:512:8:70:328:409\|t " .. text)
Tercio@11	193 end
Tercio@11	194
Tercio@11	195 --> show & hide
Tercio@11	196 function PanelMetaFunctions:Show()
Tercio@11	197 self.frame:Show()
Tercio@11	198
Tercio@11	199 end
Tercio@11	200 function PanelMetaFunctions:Hide()
Tercio@11	201 self.frame:Hide()
Tercio@11	202
Tercio@11	203 end
Tercio@11	204
Tercio@11	205 -- setpoint
Tercio@11	206 function PanelMetaFunctions:SetPoint (v1, v2, v3, v4, v5)
Tercio@11	207 v1, v2, v3, v4, v5 = DF:CheckPoints (v1, v2, v3, v4, v5, self)
Tercio@11	208 if (not v1) then
Tercio@11	209 print ("Invalid parameter for SetPoint")
Tercio@11	210 return
Tercio@11	211 end
Tercio@11	212 return self.widget:SetPoint (v1, v2, v3, v4, v5)
Tercio@11	213 end
Tercio@11	214
Tercio@11	215 -- sizes
Tercio@11	216 function PanelMetaFunctions:SetSize (w, h)
Tercio@11	217 if (w) then
Tercio@11	218 self.frame:SetWidth (w)
Tercio@11	219 end
Tercio@11	220 if (h) then
Tercio@11	221 self.frame:SetHeight (h)
Tercio@11	222 end
Tercio@11	223 end
Tercio@11	224
Tercio@11	225 -- clear
Tercio@11	226 function PanelMetaFunctions:HideWidgets()
Tercio@11	227 for widgetName, widgetSelf in pairs (self) do
Tercio@11	228 if (type (widgetSelf) == "table" and widgetSelf.dframework) then
Tercio@11	229 widgetSelf:Hide()
Tercio@11	230 end
Tercio@11	231 end
Tercio@11	232 end
Tercio@11	233
Tercio@11	234 -- backdrop
Tercio@11	235 function PanelMetaFunctions:SetBackdrop (background, edge, tilesize, edgesize, tile, left, right, top, bottom)
Tercio@11	236
Tercio@11	237 if (_type (background) == "boolean" and not background) then
Tercio@11	238 return self.frame:SetBackdrop (nil)
Tercio@11	239
Tercio@11	240 elseif (_type (background) == "table") then
Tercio@11	241 self.frame:SetBackdrop (background)
Tercio@11	242
Tercio@11	243 else
Tercio@11	244 local currentBackdrop = self.frame:GetBackdrop() or {edgeFile="Interface\\DialogFrame\\UI-DialogBox-Border", bgFile="Interface\\DialogFrame\\UI-DialogBox-Background", tile=true, tileSize=16, edgeSize=16, insets={left=1, right=0, top=0, bottom=0}}
Tercio@11	245 currentBackdrop.bgFile = background or currentBackdrop.bgFile
Tercio@11	246 currentBackdrop.edgeFile = edgeFile or currentBackdrop.edgeFile
Tercio@11	247 currentBackdrop.tileSize = tilesize or currentBackdrop.tileSize
Tercio@11	248 currentBackdrop.edgeSize = edgesize or currentBackdrop.edgeSize
Tercio@11	249 currentBackdrop.tile = tile or currentBackdrop.tile
Tercio@11	250 currentBackdrop.insets.left = left or currentBackdrop.insets.left
Tercio@11	251 currentBackdrop.insets.right = left or currentBackdrop.insets.right
Tercio@11	252 currentBackdrop.insets.top = left or currentBackdrop.insets.top
Tercio@11	253 currentBackdrop.insets.bottom = left or currentBackdrop.insets.bottom
Tercio@11	254 self.frame:SetBackdrop (currentBackdrop)
Tercio@11	255 end
Tercio@11	256 end
Tercio@11	257
Tercio@11	258 -- backdropcolor
Tercio@11	259 function PanelMetaFunctions:SetBackdropColor (color, arg2, arg3, arg4)
Tercio@11	260 if (arg2) then
Tercio@11	261 self.frame:SetBackdropColor (color, arg2, arg3, arg4 or 1)
Tercio@11	262 self.frame.Gradient.OnLeave = {color, arg2, arg3, arg4 or 1}
Tercio@11	263 else
Tercio@11	264 local _value1, _value2, _value3, _value4 = DF:ParseColors (color)
Tercio@11	265 self.frame:SetBackdropColor (_value1, _value2, _value3, _value4)
Tercio@11	266 self.frame.Gradient.OnLeave = {_value1, _value2, _value3, _value4}
Tercio@11	267 end
Tercio@11	268 end
Tercio@11	269
Tercio@11	270 -- border color
Tercio@11	271 function PanelMetaFunctions:SetBackdropBorderColor (color, arg2, arg3, arg4)
Tercio@11	272 if (arg2) then
Tercio@11	273 return self.frame:SetBackdropBorderColor (color, arg2, arg3, arg4)
Tercio@11	274 end
Tercio@11	275 local _value1, _value2, _value3, _value4 = DF:ParseColors (color)
Tercio@11	276 self.frame:SetBackdropBorderColor (_value1, _value2, _value3, _value4)
Tercio@11	277 end
Tercio@11	278
Tercio@11	279 -- gradient colors
Tercio@11	280 function PanelMetaFunctions:SetGradient (FadeType, color)
Tercio@11	281 local _value1, _value2, _value3, _value4 = DF:ParseColors (color)
Tercio@11	282 if (FadeType == "OnEnter") then
Tercio@11	283 self.frame.Gradient.OnEnter = {_value1, _value2, _value3, _value4}
Tercio@11	284 elseif (FadeType == "OnLeave") then
Tercio@11	285 self.frame.Gradient.OnLeave = {_value1, _value2, _value3, _value4}
Tercio@11	286 end
Tercio@11	287 end
Tercio@11	288
Tercio@11	289 -- tooltip
Tercio@11	290 function PanelMetaFunctions:SetTooltip (tooltip)
Tercio@11	291 if (tooltip) then
Tercio@11	292 return _rawset (self, "have_tooltip", tooltip)
Tercio@11	293 else
Tercio@11	294 return _rawset (self, "have_tooltip", nil)
Tercio@11	295 end
Tercio@11	296 end
Tercio@11	297 function PanelMetaFunctions:GetTooltip()
Tercio@11	298 return _rawget (self, "have_tooltip")
Tercio@11	299 end
Tercio@11	300
Tercio@11	301 -- frame levels
Tercio@11	302 function PanelMetaFunctions:GetFrameLevel()
Tercio@11	303 return self.widget:GetFrameLevel()
Tercio@11	304 end
Tercio@11	305 function PanelMetaFunctions:SetFrameLevel (level, frame)
Tercio@11	306 if (not frame) then
Tercio@11	307 return self.widget:SetFrameLevel (level)
Tercio@11	308 else
Tercio@11	309 local framelevel = frame:GetFrameLevel (frame) + level
Tercio@11	310 return self.widget:SetFrameLevel (framelevel)
Tercio@11	311 end
Tercio@11	312 end
Tercio@11	313
Tercio@11	314 -- frame stratas
Tercio@11	315 function PanelMetaFunctions:SetFrameStrata()
Tercio@11	316 return self.widget:GetFrameStrata()
Tercio@11	317 end
Tercio@11	318 function PanelMetaFunctions:SetFrameStrata (strata)
Tercio@11	319 if (_type (strata) == "table") then
Tercio@11	320 self.widget:SetFrameStrata (strata:GetFrameStrata())
Tercio@11	321 else
Tercio@11	322 self.widget:SetFrameStrata (strata)
Tercio@11	323 end
Tercio@11	324 end
Tercio@11	325
Tercio@11	326 -- enable and disable gradients
Tercio@11	327 function PanelMetaFunctions:DisableGradient()
Tercio@11	328 self.GradientEnabled = false
Tercio@11	329 end
Tercio@11	330 function PanelMetaFunctions:EnableGradient()
Tercio@11	331 self.GradientEnabled = true
Tercio@11	332 end
Tercio@11	333
Tercio@11	334 --> hooks
Tercio@11	335 function PanelMetaFunctions:SetHook (hookType, func)
Tercio@11	336 if (func) then
Tercio@11	337 _rawset (self, hookType.."Hook", func)
Tercio@11	338 else
Tercio@11	339 _rawset (self, hookType.."Hook", nil)
Tercio@11	340 end
Tercio@11	341 end
Tercio@11	342
Tercio@11	343 ------------------------------------------------------------------------------------------------------------
Tercio@11	344 --> scripts
Tercio@11	345
Tercio@11	346 local OnEnter = function (frame)
Tercio@11	347 if (frame.MyObject.OnEnterHook) then
Tercio@11	348 local interrupt = frame.MyObject.OnEnterHook (frame, frame.MyObject)
Tercio@11	349 if (interrupt) then
Tercio@11	350 return
Tercio@11	351 end
Tercio@11	352 end
Tercio@11	353
Tercio@11	354 if (frame.MyObject.have_tooltip) then
Tercio@11	355 GameCooltip2:Reset()
Tercio@11	356 GameCooltip2:SetType ("tooltip")
Tercio@11	357 GameCooltip2:SetColor ("main", "transparent")
Tercio@11	358 GameCooltip2:AddLine (frame.MyObject.have_tooltip)
Tercio@11	359 GameCooltip2:SetOwner (frame)
Tercio@11	360 GameCooltip2:ShowCooltip()
Tercio@11	361 end
Tercio@11	362 end
Tercio@11	363
Tercio@11	364 local OnLeave = function (frame)
Tercio@11	365 if (frame.MyObject.OnLeaveHook) then
Tercio@11	366 local interrupt = frame.MyObject.OnLeaveHook (frame, frame.MyObject)
Tercio@11	367 if (interrupt) then
Tercio@11	368 return
Tercio@11	369 end
Tercio@11	370 end
Tercio@11	371
Tercio@11	372 if (frame.MyObject.have_tooltip) then
Tercio@11	373 GameCooltip2:ShowMe (false)
Tercio@11	374 end
Tercio@11	375
Tercio@11	376 end
Tercio@11	377
Tercio@11	378 local OnHide = function (frame)
Tercio@11	379 if (frame.MyObject.OnHideHook) then
Tercio@11	380 local interrupt = frame.MyObject.OnHideHook (frame, frame.MyObject)
Tercio@11	381 if (interrupt) then
Tercio@11	382 return
Tercio@11	383 end
Tercio@11	384 end
Tercio@11	385 end
Tercio@11	386
Tercio@11	387 local OnShow = function (frame)
Tercio@11	388 if (frame.MyObject.OnShowHook) then
Tercio@11	389 local interrupt = frame.MyObject.OnShowHook (frame, frame.MyObject)
Tercio@11	390 if (interrupt) then
Tercio@11	391 return
Tercio@11	392 end
Tercio@11	393 end
Tercio@11	394 end
Tercio@11	395
Tercio@11	396 local OnMouseDown = function (frame, button)
Tercio@11	397 if (frame.MyObject.OnMouseDownHook) then
Tercio@11	398 local interrupt = frame.MyObject.OnMouseDownHook (frame, button, frame.MyObject)
Tercio@11	399 if (interrupt) then
Tercio@11	400 return
Tercio@11	401 end
Tercio@11	402 end
Tercio@11	403
Tercio@11	404 if (frame.MyObject.container == UIParent) then
Tercio@11	405 if (not frame.isLocked and frame:IsMovable()) then
Tercio@11	406 frame.isMoving = true
Tercio@11	407 frame:StartMoving()
Tercio@11	408 end
Tercio@11	409
Tercio@11	410 elseif (not frame.MyObject.container.isLocked and frame.MyObject.container:IsMovable()) then
Tercio@11	411 if (not frame.isLocked and frame:IsMovable()) then
Tercio@11	412 frame.MyObject.container.isMoving = true
Tercio@11	413 frame.MyObject.container:StartMoving()
Tercio@11	414 end
Tercio@11	415 end
Tercio@11	416
Tercio@11	417
Tercio@11	418 end
Tercio@11	419
Tercio@11	420 local OnMouseUp = function (frame, button)
Tercio@11	421 if (frame.MyObject.OnMouseUpHook) then
Tercio@11	422 local interrupt = frame.MyObject.OnMouseUpHook (frame, button, frame.MyObject)
Tercio@11	423 if (interrupt) then
Tercio@11	424 return
Tercio@11	425 end
Tercio@11	426 end
Tercio@11	427
Tercio@11	428 if (button == "RightButton" and frame.MyObject.rightButtonClose) then
Tercio@11	429 frame.MyObject:Hide()
Tercio@11	430 end
Tercio@11	431
Tercio@11	432 if (frame.MyObject.container == UIParent) then
Tercio@11	433 if (frame.isMoving) then
Tercio@11	434 frame:StopMovingOrSizing()
Tercio@11	435 frame.isMoving = false
Tercio@11	436 end
Tercio@11	437 else
Tercio@11	438 if (frame.MyObject.container.isMoving) then
Tercio@11	439 frame.MyObject.container:StopMovingOrSizing()
Tercio@11	440 frame.MyObject.container.isMoving = false
Tercio@11	441 end
Tercio@11	442 end
Tercio@11	443 end
Tercio@11	444
Tercio@11	445 ------------------------------------------------------------------------------------------------------------
Tercio@11	446 --> object constructor
Tercio@11	447 function DF:CreatePanel (parent, w, h, backdrop, backdropcolor, bordercolor, member, name)
Tercio@11	448 return DF:NewPanel (parent, parent, name, member, w, h, backdrop, backdropcolor, bordercolor)
Tercio@11	449 end
Tercio@11	450
Tercio@11	451 function DF:NewPanel (parent, container, name, member, w, h, backdrop, backdropcolor, bordercolor)
Tercio@11	452
Tercio@11	453 if (not name) then
Tercio@11	454 name = "DetailsFrameworkPanelNumber" .. DF.PanelCounter
Tercio@11	455 DF.PanelCounter = DF.PanelCounter + 1
Tercio@11	456
Tercio@11	457 elseif (not parent) then
Tercio@11	458 parent = UIParent
Tercio@11	459 end
Tercio@11	460 if (not container) then
Tercio@11	461 container = parent
Tercio@11	462 end
Tercio@11	463
Tercio@11	464 if (name:find ("$parent")) then
Tercio@11	465 name = name:gsub ("$parent", parent:GetName())
Tercio@11	466 end
Tercio@11	467
Tercio@11	468 local PanelObject = {type = "panel", dframework = true}
Tercio@11	469
Tercio@11	470 if (member) then
Tercio@11	471 parent [member] = PanelObject
Tercio@11	472 end
Tercio@11	473
Tercio@11	474 if (parent.dframework) then
Tercio@11	475 parent = parent.widget
Tercio@11	476 end
Tercio@11	477 if (container.dframework) then
Tercio@11	478 container = container.widget
Tercio@11	479 end
Tercio@11	480
Tercio@11	481
Tercio@11	482 --> default members:
Tercio@11	483 --> hooks
Tercio@11	484 PanelObject.OnEnterHook = nil
Tercio@11	485 PanelObject.OnLeaveHook = nil
Tercio@11	486 PanelObject.OnHideHook = nil
Tercio@11	487 PanelObject.OnShowHook = nil
Tercio@11	488 PanelObject.OnMouseDownHook = nil
Tercio@11	489 PanelObject.OnMouseUpHook = nil
Tercio@11	490 --> misc
Tercio@11	491 PanelObject.is_locked = true
Tercio@11	492 PanelObject.GradientEnabled = true
Tercio@11	493 PanelObject.container = container
Tercio@11	494 PanelObject.rightButtonClose = false
Tercio@11	495
Tercio@11	496 PanelObject.frame = CreateFrame ("frame", name, parent, "DetailsFrameworkPanelTemplate")
Tercio@11	497 PanelObject.widget = PanelObject.frame
Tercio@11	498
Tercio@11	499 if (not APIFrameFunctions) then
Tercio@11	500 APIFrameFunctions = {}
Tercio@11	501 local idx = getmetatable (PanelObject.frame).__index
Tercio@11	502 for funcName, funcAddress in pairs (idx) do
Tercio@11	503 if (not PanelMetaFunctions [funcName]) then
Tercio@11	504 PanelMetaFunctions [funcName] = function (object, ...)
Tercio@20	505 local x = loadstring ( "return _G['"..object.frame:GetName().."']:"..funcName.."(...)")
Tercio@11	506 return x (...)
Tercio@11	507 end
Tercio@11	508 end
Tercio@11	509 end
Tercio@11	510 end
Tercio@11	511
Tercio@11	512 PanelObject.frame:SetWidth (w or 100)
Tercio@11	513 PanelObject.frame:SetHeight (h or 100)
Tercio@11	514
Tercio@11	515 PanelObject.frame.MyObject = PanelObject
Tercio@11	516
Tercio@11	517 --> hooks
Tercio@11	518 PanelObject.frame:SetScript ("OnEnter", OnEnter)
Tercio@11	519 PanelObject.frame:SetScript ("OnLeave", OnLeave)
Tercio@11	520 PanelObject.frame:SetScript ("OnHide", OnHide)
Tercio@11	521 PanelObject.frame:SetScript ("OnShow", OnShow)
Tercio@11	522 PanelObject.frame:SetScript ("OnMouseDown", OnMouseDown)
Tercio@11	523 PanelObject.frame:SetScript ("OnMouseUp", OnMouseUp)
Tercio@11	524
Tercio@11	525 _setmetatable (PanelObject, PanelMetaFunctions)
Tercio@11	526
Tercio@11	527 if (backdrop) then
Tercio@11	528 PanelObject:SetBackdrop (backdrop)
Tercio@11	529 elseif (_type (backdrop) == "boolean") then
Tercio@11	530 PanelObject.frame:SetBackdrop (nil)
Tercio@11	531 end
Tercio@11	532
Tercio@11	533 if (backdropcolor) then
Tercio@11	534 PanelObject:SetBackdropColor (backdropcolor)
Tercio@11	535 end
Tercio@11	536
Tercio@11	537 if (bordercolor) then
Tercio@11	538 PanelObject:SetBackdropBorderColor (bordercolor)
Tercio@11	539 end
Tercio@11	540
Tercio@11	541 return PanelObject
Tercio@11	542 end
Tercio@11	543
Tercio@11	544 ------------fill panel
Tercio@11	545
Tercio@11	546 local button_on_enter = function (self)
Tercio@11	547 self.MyObject._icon:SetBlendMode ("ADD")
Tercio@11	548 end
Tercio@11	549 local button_on_leave = function (self)
Tercio@11	550 self.MyObject._icon:SetBlendMode ("BLEND")
Tercio@11	551 end
Tercio@11	552
Tercio@20	553 local add_row = function (self, t, need_update)
Tercio@20	554 local index = #self.rows+1
Tercio@20	555
Tercio@20	556 local thisrow = DF:NewPanel (self, self, "$parentHeader_" .. self._name .. index, nil, 1, 20)
Tercio@20	557 thisrow.backdrop = {bgFile = [[Interface\DialogFrame\UI-DialogBox-Gold-Background]]}
Tercio@20	558 thisrow.color = "silver"
Tercio@20	559 thisrow.type = t.type
Tercio@20	560 thisrow.func = t.func
Tercio@20	561 thisrow.name = t.name
Tercio@20	562 thisrow.notext = t.notext
Tercio@20	563 thisrow.icon = t.icon
Tercio@20	564 thisrow.iconalign = t.iconalign
Tercio@20	565
Tercio@20	566 thisrow.hidden = t.hidden or false
Tercio@20	567
Tercio@20	568 local text = DF:NewLabel (thisrow, nil, self._name .. "$parentLabel" .. index, "text")
Tercio@20	569 text:SetPoint ("left", thisrow, "left", 2, 0)
Tercio@20	570 text:SetText (t.name)
Tercio@20	571
Tercio@20	572 tinsert (self._raw_rows, t)
Tercio@20	573 tinsert (self.rows, thisrow)
Tercio@20	574
Tercio@20	575 if (need_update) then
Tercio@20	576 self:AlignRows()
Tercio@20	577 end
Tercio@11	578 end
Tercio@11	579
Tercio@20	580 local align_rows = function (self)
Tercio@20	581
Tercio@20	582 local rows_shown = 0
Tercio@20	583 for index, row in ipairs (self.rows) do
Tercio@20	584 if (not row.hidden) then
Tercio@20	585 rows_shown = rows_shown + 1
Tercio@20	586 end
Tercio@20	587 end
Tercio@20	588
Tercio@20	589 local cur_width = 0
Tercio@20	590 local row_width = self._width / rows_shown
Tercio@20	591 local sindex = 1
Tercio@20	592
Tercio@20	593 wipe (self._anchors)
Tercio@20	594
Tercio@20	595 for index, row in ipairs (self.rows) do
Tercio@20	596 if (not row.hidden) then
Tercio@20	597 if (self._autowidth) then
Tercio@20	598 if (self._raw_rows [index].width) then
Tercio@20	599 row.width = self._raw_rows [index].width
Tercio@20	600 else
Tercio@20	601 row.width = row_width
Tercio@20	602 end
Tercio@20	603 row:SetPoint ("topleft", self, "topleft", cur_width, 0)
Tercio@20	604 tinsert (self._anchors, cur_width)
Tercio@20	605 cur_width = cur_width + row_width + 1
Tercio@20	606 else
Tercio@20	607 row:SetPoint ("topleft", self, "topleft", cur_width, 0)
Tercio@20	608 row.width = self._raw_rows [index].width
Tercio@20	609 tinsert (self._anchors, cur_width)
Tercio@20	610 cur_width = cur_width + self._raw_rows [index].width + 1
Tercio@20	611 end
Tercio@20	612 row:Show()
Tercio@20	613
Tercio@20	614 local type = row.type
Tercio@20	615
Tercio@20	616 if (type == "text") then
Tercio@20	617 for i = 1, #self.scrollframe.lines do
Tercio@20	618 local line = self.scrollframe.lines [i]
Tercio@20	619 local text = tremove (line.text_available)
Tercio@20	620 if (not text) then
Tercio@20	621 self:CreateRowText (line)
Tercio@20	622 text = tremove (line.text_available)
Tercio@20	623 end
Tercio@20	624 tinsert (line.text_inuse, text)
Tercio@20	625 text:SetPoint ("left", line, "left", self._anchors [#self._anchors], 0)
Tercio@20	626 text:SetWidth (row.width)
Tercio@20	627 end
Tercio@20	628 elseif (type == "entry") then
Tercio@20	629 for i = 1, #self.scrollframe.lines do
Tercio@20	630 local line = self.scrollframe.lines [i]
Tercio@20	631 local entry = tremove (line.entry_available)
Tercio@20	632 if (not entry) then
Tercio@20	633 self:CreateRowEntry (line)
Tercio@20	634 entry = tremove (line.entry_available)
Tercio@20	635 end
Tercio@20	636 tinsert (line.entry_inuse, entry)
Tercio@20	637 entry:SetPoint ("left", line, "left", self._anchors [#self._anchors], 0)
Tercio@20	638 if (sindex == rows_shown) then
Tercio@20	639 entry:SetWidth (row.width - 25)
Tercio@20	640 else
Tercio@20	641 entry:SetWidth (row.width)
Tercio@20	642 end
Tercio@20	643 entry.func = row.func
Tercio@20	644 end
Tercio@20	645 elseif (type == "button") then
Tercio@20	646 for i = 1, #self.scrollframe.lines do
Tercio@20	647 local line = self.scrollframe.lines [i]
Tercio@20	648 local button = tremove (line.button_available)
Tercio@20	649 if (not button) then
Tercio@20	650 self:CreateRowButton (line)
Tercio@20	651 button = tremove (line.button_available)
Tercio@20	652 end
Tercio@20	653 tinsert (line.button_inuse, button)
Tercio@20	654 button:SetPoint ("left", line, "left", self._anchors [#self._anchors], 0)
Tercio@20	655 if (sindex == rows_shown) then
Tercio@20	656 button:SetWidth (row.width - 25)
Tercio@20	657 else
Tercio@20	658 button:SetWidth (row.width)
Tercio@20	659 end
Tercio@20	660
Tercio@20	661 if (row.icon) then
Tercio@20	662 button._icon.texture = row.icon
Tercio@20	663 button._icon:ClearAllPoints()
Tercio@20	664 if (row.iconalign) then
Tercio@20	665 if (row.iconalign == "center") then
Tercio@20	666 button._icon:SetPoint ("center", button, "center")
Tercio@20	667 elseif (row.iconalign == "right") then
Tercio@20	668 button._icon:SetPoint ("right", button, "right")
Tercio@20	669 end
Tercio@20	670 else
Tercio@20	671 button._icon:SetPoint ("left", button, "left")
Tercio@20	672 end
Tercio@20	673 end
Tercio@20	674
Tercio@20	675 if (row.name and not row.notext) then
Tercio@20	676 button._text:SetPoint ("left", button._icon, "right", 2, 0)
Tercio@20	677 button._text.text = row.name
Tercio@20	678 end
Tercio@20	679
Tercio@20	680 end
Tercio@20	681 elseif (type == "icon") then
Tercio@20	682 for i = 1, #self.scrollframe.lines do
Tercio@20	683 local line = self.scrollframe.lines [i]
Tercio@20	684 local icon = tremove (line.icon_available)
Tercio@20	685 if (not icon) then
Tercio@20	686 self:CreateRowIcon (line)
Tercio@20	687 icon = tremove (line.icon_available)
Tercio@20	688 end
Tercio@20	689 tinsert (line.icon_inuse, icon)
Tercio@20	690 icon:SetPoint ("left", line, "left", self._anchors [#self._anchors] + ( ((row.width or 22) - 22) / 2), 0)
Tercio@20	691 icon.func = row.func
Tercio@20	692 end
Tercio@20	693 end
Tercio@20	694
Tercio@20	695 sindex = sindex + 1
Tercio@20	696 else
Tercio@20	697 row:Hide()
Tercio@20	698 end
Tercio@20	699 end
Tercio@20	700
Tercio@20	701 if (#self.rows > 0) then
Tercio@20	702 if (self._autowidth) then
Tercio@20	703 self.rows [#self.rows]:SetWidth (row_width - rows_shown + 1)
Tercio@20	704 else
Tercio@20	705 self.rows [#self.rows]:SetWidth (self._raw_rows [rows_shown].width - rows_shown + 1)
Tercio@20	706 end
Tercio@20	707 end
Tercio@20	708
Tercio@20	709 self.showing_amt = rows_shown
Tercio@20	710 end
Tercio@20	711
Tercio@20	712 local update_rows = function (self, updated_rows)
Tercio@20	713 for i = 1, #updated_rows do
Tercio@20	714 local t = updated_rows [i]
Tercio@20	715 local raw = self._raw_rows [i]
Tercio@20	716
Tercio@20	717 if (not raw) then
Tercio@20	718 self:AddRow (t)
Tercio@20	719 else
Tercio@20	720 raw.name = t.name
Tercio@20	721 raw.hidden = t.hidden or false
Tercio@20	722
Tercio@20	723 local widget = self.rows [i]
Tercio@20	724 widget.name = t.name
Tercio@20	725 widget.hidden = t.hidden or false
Tercio@20	726
Tercio@20	727 widget.text:SetText (t.name)
Tercio@20	728 end
Tercio@20	729 end
Tercio@20	730
Tercio@20	731 for i = #updated_rows+1, #self._raw_rows do
Tercio@20	732 local raw = self._raw_rows [i]
Tercio@20	733 local widget = self.rows [i]
Tercio@20	734 raw.hidden = true
Tercio@20	735 widget.hidden = true
Tercio@20	736 end
Tercio@20	737
Tercio@20	738 for index, row in ipairs (self.scrollframe.lines) do
Tercio@20	739 for i = #row.text_inuse, 1, -1 do
Tercio@20	740 tinsert (row.text_available, tremove (row.text_inuse, i))
Tercio@20	741 end
Tercio@20	742 for i = 1, #row.text_available do
Tercio@20	743 row.text_available[i]:Hide()
Tercio@20	744 end
Tercio@20	745
Tercio@20	746 for i = #row.entry_inuse, 1, -1 do
Tercio@20	747 tinsert (row.entry_available, tremove (row.entry_inuse, i))
Tercio@20	748 end
Tercio@20	749 for i = 1, #row.entry_available do
Tercio@20	750 row.entry_available[i]:Hide()
Tercio@20	751 end
Tercio@20	752
Tercio@20	753 for i = #row.button_inuse, 1, -1 do
Tercio@20	754 tinsert (row.button_available, tremove (row.button_inuse, i))
Tercio@20	755 end
Tercio@20	756 for i = 1, #row.button_available do
Tercio@20	757 row.button_available[i]:Hide()
Tercio@20	758 end
Tercio@20	759
Tercio@20	760 for i = #row.icon_inuse, 1, -1 do
Tercio@20	761 tinsert (row.icon_available, tremove (row.icon_inuse, i))
Tercio@20	762 end
Tercio@20	763 for i = 1, #row.icon_available do
Tercio@20	764 row.icon_available[i]:Hide()
Tercio@20	765 end
Tercio@20	766 end
Tercio@20	767
Tercio@20	768 self:AlignRows()
Tercio@20	769
Tercio@20	770 end
Tercio@20	771
Tercio@20	772 local create_panel_text = function (self, row)
Tercio@20	773 row.text_total = row.text_total + 1
Tercio@20	774 local text = DF:NewLabel (row, nil, self._name .. "$parentLabel" .. row.text_total, "text" .. row.text_total)
Tercio@20	775 tinsert (row.text_available, text)
Tercio@20	776 end
Tercio@20	777
Tercio@20	778 local create_panel_entry = function (self, row)
Tercio@20	779 row.entry_total = row.entry_total + 1
Tercio@20	780 local editbox = DF:NewTextEntry (row, nil, "$parentEntry" .. row.entry_total, "entry", 120, 20)
Tercio@20	781 editbox.align = "left"
Tercio@20	782
Tercio@20	783 editbox:SetHook ("OnEnterPressed", function()
Tercio@20	784 editbox.widget.focuslost = true
Tercio@20	785 editbox:ClearFocus()
Tercio@20	786 editbox.func (editbox.index, editbox.text)
Tercio@20	787 return true
Tercio@20	788 end)
Tercio@20	789
Tercio@20	790 editbox:SetBackdrop ({bgFile = [[Interface\DialogFrame\UI-DialogBox-Background]], edgeFile = "Interface\\ChatFrame\\ChatFrameBackground", edgeSize = 1})
Tercio@20	791 editbox:SetBackdropColor (1, 1, 1, 0.1)
Tercio@20	792 editbox:SetBackdropBorderColor (1, 1, 1, 0.1)
Tercio@20	793 editbox.editbox.current_bordercolor = {1, 1, 1, 0.1}
Tercio@20	794
Tercio@20	795 tinsert (row.entry_available, editbox)
Tercio@20	796 end
Tercio@20	797
Tercio@20	798 local create_panel_button = function (self, row)
Tercio@20	799 row.button_total = row.button_total + 1
Tercio@20	800 local button = DF:NewButton (row, nil, "$parentButton" .. row.button_total, "button" .. row.button_total, 120, 20)
Tercio@20	801 button:InstallCustomTexture()
Tercio@20	802
Tercio@20	803 --> create icon and the text
Tercio@20	804 local icon = DF:NewImage (button, nil, 20, 20)
Tercio@20	805 local text = DF:NewLabel (button)
Tercio@20	806
Tercio@20	807 button._icon = icon
Tercio@20	808 button._text = text
Tercio@20	809
Tercio@20	810 button:SetHook ("OnEnter", button_on_enter)
Tercio@20	811 button:SetHook ("OnLeave", button_on_leave)
Tercio@20	812
Tercio@20	813 tinsert (row.button_available, button)
Tercio@20	814 end
Tercio@20	815
Tercio@20	816 local icon_onclick = function (texture, iconbutton)
Tercio@20	817 iconbutton._icon.texture = texture
Tercio@20	818 iconbutton.func (iconbutton.index, texture)
Tercio@20	819 end
Tercio@20	820
Tercio@20	821 local create_panel_icon = function (self, row)
Tercio@20	822 row.icon_total = row.icon_total + 1
Tercio@20	823 local iconbutton = DF:NewButton (row, nil, "$parentIconButton" .. row.icon_total, "iconbutton", 22, 20)
Tercio@20	824 iconbutton:InstallCustomTexture()
Tercio@20	825
Tercio@20	826 iconbutton:SetHook ("OnEnter", button_on_enter)
Tercio@20	827 iconbutton:SetHook ("OnLeave", button_on_leave)
Tercio@20	828
Tercio@20	829 iconbutton:SetHook ("OnMouseUp", function()
Tercio@20	830 DF:IconPick (icon_onclick, true, iconbutton)
Tercio@20	831 return true
Tercio@20	832 end)
Tercio@20	833
Tercio@20	834 local icon = DF:NewImage (iconbutton, nil, 20, 20, "artwork", nil, "_icon", "$parentIcon" .. row.icon_total)
Tercio@20	835 iconbutton._icon = icon
Tercio@20	836
Tercio@20	837 icon:SetPoint ("center", iconbutton, "center", 0, 0)
Tercio@20	838
Tercio@20	839 tinsert (row.icon_available, iconbutton)
Tercio@20	840 end
Tercio@20	841
Tercio@20	842 local set_fill_function = function (self, func)
Tercio@20	843 self._fillfunc = func
Tercio@20	844 end
Tercio@20	845 local set_total_function = function (self, func)
Tercio@20	846 self._totalfunc = func
Tercio@20	847 end
Tercio@20	848 local drop_header_function = function (self)
Tercio@20	849 wipe (self.rows)
Tercio@20	850 end
Tercio@20	851 -- ~fillpanel
Tercio@11	852 function DF:NewFillPanel (parent, rows, name, member, w, h, total_lines, fill_row, autowidth, options)
Tercio@11	853
Tercio@11	854 local panel = DF:NewPanel (parent, parent, name, member, w, h)
Tercio@11	855 panel.backdrop = nil
Tercio@11	856
Tercio@11	857 options = options or {rowheight = 20}
Tercio@11	858 panel.rows = {}
Tercio@20	859
Tercio@20	860 panel.AddRow = add_row
Tercio@20	861 panel.AlignRows = align_rows
Tercio@20	862 panel.UpdateRows = update_rows
Tercio@20	863 panel.CreateRowText = create_panel_text
Tercio@20	864 panel.CreateRowEntry = create_panel_entry
Tercio@20	865 panel.CreateRowButton = create_panel_button
Tercio@20	866 panel.CreateRowIcon = create_panel_icon
Tercio@20	867 panel.SetFillFunction = set_fill_function
Tercio@20	868 panel.SetTotalFunction = set_total_function
Tercio@20	869 panel.DropHeader = drop_header_function
Tercio@20	870
Tercio@20	871 panel._name = name
Tercio@20	872 panel._width = w
Tercio@20	873 panel._height = h
Tercio@20	874 panel._raw_rows = {}
Tercio@20	875 panel._anchors = {}
Tercio@20	876 panel._fillfunc = fill_row
Tercio@20	877 panel._totalfunc = total_lines
Tercio@20	878 panel._autowidth = autowidth
Tercio@20	879
Tercio@11	880 for index, t in ipairs (rows) do
Tercio@20	881 panel.AddRow (panel, t)
Tercio@11	882 end
Tercio@11	883
Tercio@11	884 local refresh_fillbox = function (self)
Tercio@20	885
Tercio@11	886 local offset = FauxScrollFrame_GetOffset (self)
Tercio@20	887 local filled_lines = panel._totalfunc (panel)
Tercio@20	888
Tercio@11	889 for index = 1, #self.lines do
Tercio@20	890
Tercio@11	891 local row = self.lines [index]
Tercio@11	892 if (index <= filled_lines) then
Tercio@20	893
Tercio@11	894 local real_index = index + offset
Tercio@20	895 local results = panel._fillfunc (real_index, panel)
Tercio@11	896
Tercio@11	897 if (results [1]) then
Tercio@11	898 row:Show()
Tercio@20	899
Tercio@20	900 local text, entry, button, icon = 1, 1, 1, 1
Tercio@11	901
Tercio@20	902 for index, t in ipairs (panel.rows) do
Tercio@20	903 if (not t.hidden) then
Tercio@20	904 if (t.type == "text") then
Tercio@20	905 local fontstring = row.text_inuse [text]
Tercio@20	906 text = text + 1
Tercio@20	907 fontstring:SetText (results [index])
Tercio@20	908 fontstring.index = real_index
Tercio@20	909 fontstring:Show()
Tercio@11	910
Tercio@20	911 elseif (t.type == "entry") then
Tercio@20	912 local entrywidget = row.entry_inuse [entry]
Tercio@20	913 entry = entry + 1
Tercio@20	914 entrywidget:SetText (results [index])
Tercio@20	915 entrywidget.index = real_index
Tercio@20	916 entrywidget:Show()
Tercio@20	917
Tercio@20	918 elseif (t.type == "button") then
Tercio@20	919 local buttonwidget = row.button_inuse [button]
Tercio@20	920 button = button + 1
Tercio@20	921 buttonwidget.index = real_index
Tercio@11	922
Tercio@20	923 local func = function()
Tercio@20	924 t.func (real_index, index)
Tercio@20	925 panel:Refresh()
Tercio@20	926 end
Tercio@20	927 buttonwidget:SetClickFunction (func)
Tercio@20	928
Tercio@20	929 if (type (results [index]) == "table") then
Tercio@20	930 if (results [index].text) then
Tercio@20	931 buttonwidget:SetText (results [index].text)
Tercio@20	932 end
Tercio@20	933
Tercio@20	934 if (results [index].icon) then
Tercio@20	935 buttonwidget._icon:SetTexture (results [index].icon)
Tercio@20	936 end
Tercio@20	937
Tercio@20	938 if (results [index].func) then
Tercio@20	939 buttonwidget:SetClickFunction (results [index].func, real_index, results [index].value)
Tercio@20	940 end
Tercio@20	941 else
Tercio@20	942 buttonwidget:SetText (results [index])
Tercio@11	943 end
Tercio@11	944
Tercio@20	945 buttonwidget:Show()
Tercio@11	946
Tercio@20	947 elseif (t.type == "icon") then
Tercio@20	948 local iconwidget = row.icon_inuse [icon]
Tercio@20	949 icon = icon + 1
Tercio@20	950
Tercio@20	951 iconwidget.line = index
Tercio@20	952 iconwidget.index = real_index
Tercio@20	953
Tercio@20	954 local result = results [index]:gsub (".-%\\", "")
Tercio@20	955 iconwidget._icon.texture = results [index]
Tercio@20	956
Tercio@20	957 iconwidget:Show()
Tercio@11	958 end
Tercio@11	959 end
Tercio@11	960 end
Tercio@20	961
Tercio@11	962 else
Tercio@11	963 row:Hide()
Tercio@11	964 end
Tercio@11	965 else
Tercio@11	966 row:Hide()
Tercio@11	967 end
Tercio@11	968 end
Tercio@11	969 end
Tercio@11	970
Tercio@11	971 function panel:Refresh()
Tercio@20	972 local filled_lines = panel._totalfunc (panel)
Tercio@17	973 local scroll_total_lines = #panel.scrollframe.lines
Tercio@11	974 local line_height = options.rowheight
Tercio@20	975 refresh_fillbox (panel.scrollframe)
Tercio@11	976 FauxScrollFrame_Update (panel.scrollframe, filled_lines, scroll_total_lines, line_height)
Tercio@11	977 end
Tercio@11	978
Tercio@11	979 local scrollframe = CreateFrame ("scrollframe", name .. "Scroll", panel.widget, "FauxScrollFrameTemplate")
Tercio@11	980 scrollframe:SetScript ("OnVerticalScroll", function (self, offset) FauxScrollFrame_OnVerticalScroll (self, offset, 20, panel.Refresh) end)
Tercio@11	981 scrollframe:SetPoint ("topleft", panel.widget, "topleft", 0, -21)
Tercio@11	982 scrollframe:SetPoint ("topright", panel.widget, "topright", -23, -21)
Tercio@11	983 scrollframe:SetPoint ("bottomleft", panel.widget, "bottomleft")
Tercio@11	984 scrollframe:SetPoint ("bottomright", panel.widget, "bottomright", -23, 0)
Tercio@11	985 scrollframe:SetSize (w, h)
Tercio@11	986 panel.scrollframe = scrollframe
Tercio@11	987 scrollframe.lines = {}
Tercio@11	988
Tercio@11	989 --create lines
Tercio@11	990 local size = options.rowheight
Tercio@11	991 local amount = math.floor (((h-21) / size))
Tercio@11	992
Tercio@11	993 for i = 1, amount do
Tercio@20	994 local row = CreateFrame ("frame", panel:GetName() .. "Row_" .. i, panel.widget)
Tercio@20	995 row:SetSize (1, size)
Tercio@11	996 row.color = {1, 1, 1, .2}
Tercio@20	997
Tercio@20	998 row:SetBackdrop ({bgFile = [[Interface\Tooltips\UI-Tooltip-Background]]})
Tercio@20	999
Tercio@20	1000 if (i%2 == 0) then
Tercio@20	1001 row:SetBackdropColor (.5, .5, .5, 0.2)
Tercio@20	1002 else
Tercio@20	1003 row:SetBackdropColor (1, 1, 1, 0.00)
Tercio@20	1004 end
Tercio@20	1005
Tercio@11	1006 row:SetPoint ("topleft", scrollframe, "topleft", 0, (i-1) * size * -1)
Tercio@11	1007 row:SetPoint ("topright", scrollframe, "topright", 0, (i-1) * size * -1)
Tercio@11	1008 tinsert (scrollframe.lines, row)
Tercio@11	1009
Tercio@20	1010 row.text_available = {}
Tercio@20	1011 row.text_inuse = {}
Tercio@20	1012 row.text_total = 0
Tercio@11	1013
Tercio@20	1014 row.entry_available = {}
Tercio@20	1015 row.entry_inuse = {}
Tercio@20	1016 row.entry_total = 0
Tercio@11	1017
Tercio@20	1018 row.button_available = {}
Tercio@20	1019 row.button_inuse = {}
Tercio@20	1020 row.button_total = 0
Tercio@20	1021
Tercio@20	1022 row.icon_available = {}
Tercio@20	1023 row.icon_inuse = {}
Tercio@20	1024 row.icon_total = 0
Tercio@11	1025 end
Tercio@11	1026
Tercio@20	1027 panel.AlignRows (panel)
Tercio@20	1028
Tercio@11	1029 return panel
Tercio@11	1030 end
Tercio@11	1031
Tercio@11	1032
Tercio@11	1033 ------------color pick
Tercio@11	1034 local color_pick_func = function()
Tercio@11	1035 local r, g, b = ColorPickerFrame:GetColorRGB()
Tercio@11	1036 local a = OpacitySliderFrame:GetValue()
Tercio@11	1037 ColorPickerFrame:dcallback (r, g, b, a, ColorPickerFrame.dframe)
Tercio@11	1038 end
Tercio@11	1039 local color_pick_func_cancel = function()
Tercio@11	1040 ColorPickerFrame:SetColorRGB (unpack (ColorPickerFrame.previousValues))
Tercio@11	1041 local r, g, b = ColorPickerFrame:GetColorRGB()
Tercio@11	1042 local a = OpacitySliderFrame:GetValue()
Tercio@11	1043 ColorPickerFrame:dcallback (r, g, b, a, ColorPickerFrame.dframe)
Tercio@11	1044 end
Tercio@11	1045
Tercio@11	1046 function DF:ColorPick (frame, r, g, b, alpha, callback)
Tercio@11	1047
Tercio@11	1048 ColorPickerFrame:ClearAllPoints()
Tercio@11	1049 ColorPickerFrame:SetPoint ("bottomleft", frame, "topright", 0, 0)
Tercio@11	1050
Tercio@11	1051 ColorPickerFrame.dcallback = callback
Tercio@11	1052 ColorPickerFrame.dframe = frame
Tercio@11	1053
Tercio@11	1054 ColorPickerFrame.func = color_pick_func
Tercio@11	1055 ColorPickerFrame.opacityFunc = color_pick_func
Tercio@11	1056 ColorPickerFrame.cancelFunc = color_pick_func_cancel
Tercio@11	1057
Tercio@11	1058 ColorPickerFrame.opacity = alpha
Tercio@11	1059 ColorPickerFrame.hasOpacity = alpha and true
Tercio@11	1060
Tercio@11	1061 ColorPickerFrame.previousValues = {r, g, b}
Tercio@11	1062 ColorPickerFrame:SetParent (UIParent)
Tercio@11	1063 ColorPickerFrame:SetFrameStrata ("tooltip")
Tercio@11	1064 ColorPickerFrame:SetColorRGB (r, g, b)
Tercio@11	1065 ColorPickerFrame:Show()
Tercio@11	1066
Tercio@11	1067 end
Tercio@11	1068
Tercio@11	1069 ------------icon pick
Tercio@20	1070 function DF:IconPick (callback, close_when_select, param1, param2)
Tercio@11	1071
Tercio@11	1072 if (not DF.IconPickFrame) then
Tercio@11	1073
Tercio@11	1074 local string_lower = string.lower
Tercio@11	1075
Tercio@11	1076 DF.IconPickFrame = CreateFrame ("frame", "DetailsFrameworkIconPickFrame", UIParent)
Tercio@11	1077 tinsert (UISpecialFrames, "DetailsFrameworkIconPickFrame")
Tercio@11	1078 DF.IconPickFrame:SetFrameStrata ("DIALOG")
Tercio@11	1079
Tercio@11	1080 DF.IconPickFrame:SetPoint ("center", UIParent, "center")
Tercio@11	1081 DF.IconPickFrame:SetWidth (350)
Tercio@11	1082 DF.IconPickFrame:SetHeight (227)
Tercio@11	1083 DF.IconPickFrame:EnableMouse (true)
Tercio@11	1084 DF.IconPickFrame:SetMovable (true)
Tercio@11	1085 DF.IconPickFrame:SetBackdrop ({bgFile = DF.folder .. "background", edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border",
Tercio@11	1086 tile = true, tileSize = 32, edgeSize = 32, insets = {left = 5, right = 5, top = 5, bottom = 5}})
Tercio@11	1087
Tercio@11	1088 DF.IconPickFrame:SetBackdropBorderColor (170/255, 170/255, 170/255)
Tercio@11	1089 DF.IconPickFrame:SetBackdropColor (24/255, 24/255, 24/255, .8)
Tercio@11	1090 DF.IconPickFrame:SetFrameLevel (1)
Tercio@11	1091
Tercio@11	1092 DF.IconPickFrame.emptyFunction = function() end
Tercio@11	1093 DF.IconPickFrame.callback = DF.IconPickFrame.emptyFunction
Tercio@11	1094
Tercio@11	1095 DF.IconPickFrame.preview = CreateFrame ("frame", nil, UIParent)
Tercio@11	1096 DF.IconPickFrame.preview:SetFrameStrata ("tooltip")
Tercio@11	1097 DF.IconPickFrame.preview:SetSize (76, 76)
Tercio@11	1098 local preview_image = DF:NewImage (DF.IconPickFrame.preview, nil, 76, 76)
Tercio@11	1099 preview_image:SetAllPoints (DF.IconPickFrame.preview)
Tercio@11	1100 DF.IconPickFrame.preview.icon = preview_image
Tercio@11	1101 DF.IconPickFrame.preview:Hide()
Tercio@11	1102
Tercio@11	1103 DF.IconPickFrame.searchLabel = DF:NewLabel (DF.IconPickFrame, nil, "$parentSearchBoxLabel", nil, "search:", font, size, color)
Tercio@11	1104 DF.IconPickFrame.searchLabel:SetPoint ("topleft", DF.IconPickFrame, "topleft", 12, -20)
Tercio@11	1105 DF.IconPickFrame.search = DF:NewTextEntry (DF.IconPickFrame, nil, "$parentSearchBox", nil, 140, 20)
Tercio@11	1106 DF.IconPickFrame.search:SetPoint ("left", DF.IconPickFrame.searchLabel, "right", 2, 0)
Tercio@11	1107 DF.IconPickFrame.search:SetHook ("OnTextChanged", function()
Tercio@11	1108 DF.IconPickFrame.searching = DF.IconPickFrame.search:GetText()
Tercio@11	1109 if (DF.IconPickFrame.searching == "") then
Tercio@11	1110 DF.IconPickFrameScroll:Show()
Tercio@11	1111 DF.IconPickFrame.searching = nil
Tercio@11	1112 DF.IconPickFrame.updateFunc()
Tercio@11	1113 else
Tercio@11	1114 DF.IconPickFrameScroll:Hide()
Tercio@11	1115 FauxScrollFrame_SetOffset (DF.IconPickFrame, 1)
Tercio@11	1116 DF.IconPickFrame.last_filter_index = 1
Tercio@11	1117 DF.IconPickFrame.updateFunc()
Tercio@11	1118 end
Tercio@11	1119 end)
Tercio@11	1120
Tercio@11	1121 --> close button
Tercio@11	1122 local close_button = CreateFrame ("button", nil, DF.IconPickFrame, "UIPanelCloseButton")
Tercio@11	1123 close_button:SetWidth (32)
Tercio@11	1124 close_button:SetHeight (32)
Tercio@11	1125 close_button:SetPoint ("TOPRIGHT", DF.IconPickFrame, "TOPRIGHT", -8, -7)
Tercio@11	1126 close_button:SetFrameLevel (close_button:GetFrameLevel()+2)
Tercio@11	1127
Tercio@11	1128 local MACRO_ICON_FILENAMES = {}
Tercio@11	1129 DF.IconPickFrame:SetScript ("OnShow", function()
Tercio@11	1130
Tercio@11	1131 MACRO_ICON_FILENAMES = {};
Tercio@11	1132 MACRO_ICON_FILENAMES[1] = "INV_MISC_QUESTIONMARK";
Tercio@11	1133 local index = 2;
Tercio@11	1134
Tercio@11	1135 for i = 1, GetNumSpellTabs() do
Tercio@11	1136 local tab, tabTex, offset, numSpells, _ = GetSpellTabInfo(i);
Tercio@11	1137 offset = offset + 1;
Tercio@11	1138 local tabEnd = offset + numSpells;
Tercio@11	1139 for j = offset, tabEnd - 1 do
Tercio@11	1140 --to get spell info by slot, you have to pass in a pet argument
Tercio@11	1141 local spellType, ID = GetSpellBookItemInfo(j, "player");
Tercio@11	1142 if (spellType ~= "FUTURESPELL") then
Tercio@11	1143 local spellTexture = strupper(GetSpellBookItemTexture(j, "player"));
Tercio@11	1144 if ( not string.match( spellTexture, "INTERFACE\\BUTTONS\\") ) then
Tercio@11	1145 MACRO_ICON_FILENAMES[index] = gsub( spellTexture, "INTERFACE\\ICONS\\", "");
Tercio@11	1146 index = index + 1;
Tercio@11	1147 end
Tercio@11	1148 end
Tercio@11	1149 if (spellType == "FLYOUT") then
Tercio@11	1150 local _, _, numSlots, isKnown = GetFlyoutInfo(ID);
Tercio@11	1151 if (isKnown and numSlots > 0) then
Tercio@11	1152 for k = 1, numSlots do
Tercio@11	1153 local spellID, overrideSpellID, isKnown = GetFlyoutSlotInfo(ID, k)
Tercio@11	1154 if (isKnown) then
Tercio@11	1155 MACRO_ICON_FILENAMES[index] = gsub( strupper(GetSpellTexture(spellID)), "INTERFACE\\ICONS\\", "");
Tercio@11	1156 index = index + 1;
Tercio@11	1157 end
Tercio@11	1158 end
Tercio@11	1159 end
Tercio@11	1160 end
Tercio@11	1161 end
Tercio@11	1162 end
Tercio@11	1163
Tercio@11	1164 GetLooseMacroItemIcons (MACRO_ICON_FILENAMES)
Tercio@11	1165 GetLooseMacroIcons (MACRO_ICON_FILENAMES)
Tercio@11	1166 GetMacroIcons (MACRO_ICON_FILENAMES)
Tercio@11	1167 GetMacroItemIcons (MACRO_ICON_FILENAMES )
Tercio@11	1168
Tercio@11	1169 end)
Tercio@11	1170
Tercio@11	1171 DF.IconPickFrame:SetScript ("OnHide", function()
Tercio@11	1172 MACRO_ICON_FILENAMES = nil;
Tercio@11	1173 collectgarbage()
Tercio@11	1174 end)
Tercio@11	1175
Tercio@11	1176 DF.IconPickFrame.buttons = {}
Tercio@11	1177
Tercio@11	1178 local OnClickFunction = function (self)
Tercio@20	1179 DF.IconPickFrame.callback (self.icon:GetTexture(), DF.IconPickFrame.param1, DF.IconPickFrame.param2)
Tercio@11	1180 if (DF.IconPickFrame.click_close) then
Tercio@11	1181 close_button:Click()
Tercio@11	1182 end
Tercio@11	1183 end
Tercio@11	1184
Tercio@11	1185 local onenter = function (self)
Tercio@11	1186 DF.IconPickFrame.preview:SetPoint ("bottom", self, "top", 0, 2)
Tercio@11	1187 DF.IconPickFrame.preview.icon:SetTexture (self.icon:GetTexture())
Tercio@11	1188 DF.IconPickFrame.preview:Show()
Tercio@11	1189 self.icon:SetBlendMode ("ADD")
Tercio@11	1190 end
Tercio@11	1191 local onleave = function (self)
Tercio@11	1192 DF.IconPickFrame.preview:Hide()
Tercio@11	1193 self.icon:SetBlendMode ("BLEND")
Tercio@11	1194 end
Tercio@11	1195
Tercio@11	1196 local backdrop = {bgFile = DF.folder .. "background", tile = true, tileSize = 16,
Tercio@11	1197 insets = {left = 0, right = 0, top = 0, bottom = 0}, edgeFile = [[Interface\DialogFrame\UI-DialogBox-Border]], edgeSize = 10}
Tercio@11	1198
Tercio@11	1199 for i = 0, 9 do
Tercio@11	1200 local newcheck = CreateFrame ("Button", "DetailsFrameworkIconPickFrameButton"..(i+1), DF.IconPickFrame)
Tercio@11	1201 local image = newcheck:CreateTexture ("DetailsFrameworkIconPickFrameButton"..(i+1).."Icon", "overlay")
Tercio@11	1202 newcheck.icon = image
Tercio@11	1203 image:SetPoint ("topleft", newcheck, "topleft", 2, -2); image:SetPoint ("bottomright", newcheck, "bottomright", -2, 2)
Tercio@11	1204 newcheck:SetSize (30, 28)
Tercio@11	1205 newcheck:SetBackdrop (backdrop)
Tercio@11	1206
Tercio@11	1207 newcheck:SetScript ("OnClick", OnClickFunction)
Tercio@11	1208 newcheck.param1 = i+1
Tercio@11	1209
Tercio@11	1210 newcheck:SetPoint ("topleft", DF.IconPickFrame, "topleft", 12 + (i*30), -40)
Tercio@11	1211 newcheck:SetID (i+1)
Tercio@11	1212 DF.IconPickFrame.buttons [#DF.IconPickFrame.buttons+1] = newcheck
Tercio@11	1213 newcheck:SetScript ("OnEnter", onenter)
Tercio@11	1214 newcheck:SetScript ("OnLeave", onleave)
Tercio@11	1215 end
Tercio@11	1216 for i = 11, 20 do
Tercio@11	1217 local newcheck = CreateFrame ("Button", "DetailsFrameworkIconPickFrameButton"..i, DF.IconPickFrame)
Tercio@11	1218 local image = newcheck:CreateTexture ("DetailsFrameworkIconPickFrameButton"..i.."Icon", "overlay")
Tercio@11	1219 newcheck.icon = image
Tercio@11	1220 image:SetPoint ("topleft", newcheck, "topleft", 2, -2); image:SetPoint ("bottomright", newcheck, "bottomright", -2, 2)
Tercio@11	1221 newcheck:SetSize (30, 28)
Tercio@11	1222 newcheck:SetBackdrop (backdrop)
Tercio@11	1223
Tercio@11	1224 newcheck:SetScript ("OnClick", OnClickFunction)
Tercio@11	1225 newcheck.param1 = i
Tercio@11	1226
Tercio@11	1227 newcheck:SetPoint ("topleft", "DetailsFrameworkIconPickFrameButton"..(i-10), "bottomleft", 0, -1)
Tercio@11	1228 newcheck:SetID (i)
Tercio@11	1229 DF.IconPickFrame.buttons [#DF.IconPickFrame.buttons+1] = newcheck
Tercio@11	1230 newcheck:SetScript ("OnEnter", onenter)
Tercio@11	1231 newcheck:SetScript ("OnLeave", onleave)
Tercio@11	1232 end
Tercio@11	1233 for i = 21, 30 do
Tercio@11	1234 local newcheck = CreateFrame ("Button", "DetailsFrameworkIconPickFrameButton"..i, DF.IconPickFrame)
Tercio@11	1235 local image = newcheck:CreateTexture ("DetailsFrameworkIconPickFrameButton"..i.."Icon", "overlay")
Tercio@11	1236 newcheck.icon = image
Tercio@11	1237 image:SetPoint ("topleft", newcheck, "topleft", 2, -2); image:SetPoint ("bottomright", newcheck, "bottomright", -2, 2)
Tercio@11	1238 newcheck:SetSize (30, 28)
Tercio@11	1239 newcheck:SetBackdrop (backdrop)
Tercio@11	1240
Tercio@11	1241 newcheck:SetScript ("OnClick", OnClickFunction)
Tercio@11	1242 newcheck.param1 = i
Tercio@11	1243
Tercio@11	1244 newcheck:SetPoint ("topleft", "DetailsFrameworkIconPickFrameButton"..(i-10), "bottomleft", 0, -1)
Tercio@11	1245 newcheck:SetID (i)
Tercio@11	1246 DF.IconPickFrame.buttons [#DF.IconPickFrame.buttons+1] = newcheck
Tercio@11	1247 newcheck:SetScript ("OnEnter", onenter)
Tercio@11	1248 newcheck:SetScript ("OnLeave", onleave)
Tercio@11	1249 end
Tercio@11	1250 for i = 31, 40 do
Tercio@11	1251 local newcheck = CreateFrame ("Button", "DetailsFrameworkIconPickFrameButton"..i, DF.IconPickFrame)
Tercio@11	1252 local image = newcheck:CreateTexture ("DetailsFrameworkIconPickFrameButton"..i.."Icon", "overlay")
Tercio@11	1253 newcheck.icon = image
Tercio@11	1254 image:SetPoint ("topleft", newcheck, "topleft", 2, -2); image:SetPoint ("bottomright", newcheck, "bottomright", -2, 2)
Tercio@11	1255 newcheck:SetSize (30, 28)
Tercio@11	1256 newcheck:SetBackdrop (backdrop)
Tercio@11	1257
Tercio@11	1258 newcheck:SetScript ("OnClick", OnClickFunction)
Tercio@11	1259 newcheck.param1 = i
Tercio@11	1260
Tercio@11	1261 newcheck:SetPoint ("topleft", "DetailsFrameworkIconPickFrameButton"..(i-10), "bottomleft", 0, -1)
Tercio@11	1262 newcheck:SetID (i)
Tercio@11	1263 DF.IconPickFrame.buttons [#DF.IconPickFrame.buttons+1] = newcheck
Tercio@11	1264 newcheck:SetScript ("OnEnter", onenter)
Tercio@11	1265 newcheck:SetScript ("OnLeave", onleave)
Tercio@11	1266 end
Tercio@11	1267 for i = 41, 50 do
Tercio@11	1268 local newcheck = CreateFrame ("Button", "DetailsFrameworkIconPickFrameButton"..i, DF.IconPickFrame)
Tercio@11	1269 local image = newcheck:CreateTexture ("DetailsFrameworkIconPickFrameButton"..i.."Icon", "overlay")
Tercio@11	1270 newcheck.icon = image
Tercio@11	1271 image:SetPoint ("topleft", newcheck, "topleft", 2, -2); image:SetPoint ("bottomright", newcheck, "bottomright", -2, 2)
Tercio@11	1272 newcheck:SetSize (30, 28)
Tercio@11	1273 newcheck:SetBackdrop (backdrop)
Tercio@11	1274
Tercio@11	1275 newcheck:SetScript ("OnClick", OnClickFunction)
Tercio@11	1276 newcheck.param1 = i
Tercio@11	1277
Tercio@11	1278 newcheck:SetPoint ("topleft", "DetailsFrameworkIconPickFrameButton"..(i-10), "bottomleft", 0, -1)
Tercio@11	1279 newcheck:SetID (i)
Tercio@11	1280 DF.IconPickFrame.buttons [#DF.IconPickFrame.buttons+1] = newcheck
Tercio@11	1281 newcheck:SetScript ("OnEnter", onenter)
Tercio@11	1282 newcheck:SetScript ("OnLeave", onleave)
Tercio@11	1283 end
Tercio@11	1284 for i = 51, 60 do
Tercio@11	1285 local newcheck = CreateFrame ("Button", "DetailsFrameworkIconPickFrameButton"..i, DF.IconPickFrame)
Tercio@11	1286 local image = newcheck:CreateTexture ("DetailsFrameworkIconPickFrameButton"..i.."Icon", "overlay")
Tercio@11	1287 newcheck.icon = image
Tercio@11	1288 image:SetPoint ("topleft", newcheck, "topleft", 2, -2); image:SetPoint ("bottomright", newcheck, "bottomright", -2, 2)
Tercio@11	1289 newcheck:SetSize (30, 28)
Tercio@11	1290 newcheck:SetBackdrop (backdrop)
Tercio@11	1291
Tercio@11	1292 newcheck:SetScript ("OnClick", OnClickFunction)
Tercio@11	1293 newcheck.param1 = i
Tercio@11	1294
Tercio@11	1295 newcheck:SetPoint ("topleft", "DetailsFrameworkIconPickFrameButton"..(i-10), "bottomleft", 0, -1)
Tercio@11	1296 newcheck:SetID (i)
Tercio@11	1297 DF.IconPickFrame.buttons [#DF.IconPickFrame.buttons+1] = newcheck
Tercio@11	1298 newcheck:SetScript ("OnEnter", onenter)
Tercio@11	1299 newcheck:SetScript ("OnLeave", onleave)
Tercio@11	1300 end
Tercio@11	1301
Tercio@11	1302 local scroll = CreateFrame ("ScrollFrame", "DetailsFrameworkIconPickFrameScroll", DF.IconPickFrame, "ListScrollFrameTemplate")
Tercio@11	1303
Tercio@11	1304 local ChecksFrame_Update = function (self)
Tercio@11	1305
Tercio@11	1306 local numMacroIcons = #MACRO_ICON_FILENAMES
Tercio@11	1307 local macroPopupIcon, macroPopupButton
Tercio@11	1308 local macroPopupOffset = FauxScrollFrame_GetOffset (scroll)
Tercio@11	1309 local index
Tercio@11	1310
Tercio@11	1311 local texture
Tercio@11	1312 local filter
Tercio@11	1313 if (DF.IconPickFrame.searching) then
Tercio@11	1314 filter = string_lower (DF.IconPickFrame.searching)
Tercio@11	1315 end
Tercio@11	1316
Tercio@11	1317 if (filter and filter ~= "") then
Tercio@11	1318
Tercio@11	1319 local ignored = 0
Tercio@11	1320 local tryed = 0
Tercio@11	1321 local found = 0
Tercio@11	1322 local type = type
Tercio@11	1323 local buttons = DF.IconPickFrame.buttons
Tercio@11	1324 index = 1
Tercio@11	1325
Tercio@11	1326 for i = 1, 60 do
Tercio@11	1327
Tercio@11	1328 macroPopupIcon = buttons[i].icon
Tercio@11	1329 macroPopupButton = buttons[i]
Tercio@11	1330
Tercio@11	1331 for o = index, numMacroIcons do
Tercio@11	1332
Tercio@11	1333 tryed = tryed + 1
Tercio@11	1334
Tercio@11	1335 texture = MACRO_ICON_FILENAMES [o]
Tercio@11	1336 if (type (texture) == "number") then
Tercio@11	1337 macroPopupIcon:SetToFileData (texture)
Tercio@11	1338 texture = macroPopupIcon:GetTexture()
Tercio@11	1339 macroPopupIcon:SetTexture (nil)
Tercio@11	1340 else
Tercio@11	1341 texture = "INTERFACE\\ICONS\\" .. texture
Tercio@11	1342 end
Tercio@11	1343
Tercio@11	1344 if (texture and texture:find (filter)) then
Tercio@11	1345 macroPopupIcon:SetTexture (texture)
Tercio@11	1346 macroPopupButton:Show()
Tercio@11	1347 found = found + 1
Tercio@11	1348 DF.IconPickFrame.last_filter_index = o
Tercio@11	1349 index = o+1
Tercio@11	1350 break
Tercio@11	1351 else
Tercio@11	1352 ignored = ignored + 1
Tercio@11	1353 end
Tercio@11	1354
Tercio@11	1355 end
Tercio@11	1356 end
Tercio@11	1357
Tercio@11	1358 for o = found+1, 60 do
Tercio@11	1359 macroPopupButton = _G ["DetailsFrameworkIconPickFrameButton"..o]
Tercio@11	1360 macroPopupButton:Hide()
Tercio@11	1361 end
Tercio@11	1362 else
Tercio@11	1363 for i = 1, 60 do
Tercio@11	1364 macroPopupIcon = _G ["DetailsFrameworkIconPickFrameButton"..i.."Icon"]
Tercio@11	1365 macroPopupButton = _G ["DetailsFrameworkIconPickFrameButton"..i]
Tercio@11	1366 index = (macroPopupOffset * 10) + i
Tercio@11	1367 texture = MACRO_ICON_FILENAMES [index]
Tercio@11	1368 if ( index <= numMacroIcons and texture ) then
Tercio@11	1369
Tercio@11	1370 if (type (texture) == "number") then
Tercio@11	1371 macroPopupIcon:SetToFileData (texture)
Tercio@11	1372 else
Tercio@11	1373 macroPopupIcon:SetTexture ("INTERFACE\\ICONS\\" .. texture)
Tercio@11	1374 end
Tercio@11	1375
Tercio@11	1376 macroPopupIcon:SetTexCoord (4/64, 60/64, 4/64, 60/64)
Tercio@11	1377 macroPopupButton.IconID = index
Tercio@11	1378 macroPopupButton:Show()
Tercio@11	1379 else
Tercio@11	1380 macroPopupButton:Hide()
Tercio@11	1381 end
Tercio@11	1382 end
Tercio@11	1383 end
Tercio@11	1384
Tercio@11	1385 -- Scrollbar stuff
Tercio@11	1386 FauxScrollFrame_Update (scroll, ceil (numMacroIcons / 10) , 5, 20 )
Tercio@11	1387 end
Tercio@11	1388
Tercio@11	1389 DF.IconPickFrame.updateFunc = ChecksFrame_Update
Tercio@11	1390
Tercio@11	1391 scroll:SetPoint ("topleft", DF.IconPickFrame, "topleft", -18, -37)
Tercio@11	1392 scroll:SetWidth (330)
Tercio@11	1393 scroll:SetHeight (178)
Tercio@11	1394 scroll:SetScript ("OnVerticalScroll", function (self, offset) FauxScrollFrame_OnVerticalScroll (scroll, offset, 20, ChecksFrame_Update) end)
Tercio@11	1395 scroll.update = ChecksFrame_Update
Tercio@11	1396 DF.IconPickFrameScroll = scroll
Tercio@11	1397 DF.IconPickFrame:Hide()
Tercio@11	1398
Tercio@11	1399 end
Tercio@11	1400
Tercio@20	1401 DF.IconPickFrame.param1, DF.IconPickFrame.param2 = param1, param2
Tercio@20	1402
Tercio@11	1403 DF.IconPickFrame:Show()
Tercio@11	1404 DF.IconPickFrameScroll.update (DF.IconPickFrameScroll)
Tercio@11	1405 DF.IconPickFrame.callback = callback or DF.IconPickFrame.emptyFunction
Tercio@11	1406 DF.IconPickFrame.click_close = close_when_select
Tercio@11	1407
Tercio@11	1408 end
Tercio@11	1409
Tercio@11	1410 local simple_panel_counter = 1
Tercio@11	1411 local simple_panel_mouse_down = function (self, button)
Tercio@11	1412 if (button == "RightButton") then
Tercio@11	1413 if (self.IsMoving) then
Tercio@11	1414 self.IsMoving = false
Tercio@11	1415 self:StopMovingOrSizing()
Tercio@11	1416 if (self.db and self.db.position) then
Tercio@11	1417 DF:SavePositionOnScreen (self)
Tercio@11	1418 end
Tercio@11	1419 end
Tercio@17	1420 if (not self.DontRightClickClose) then
Tercio@17	1421 self:Hide()
Tercio@17	1422 end
Tercio@11	1423 return
Tercio@11	1424 end
Tercio@11	1425 if (not self.IsMoving and not self.IsLocked) then
Tercio@11	1426 self.IsMoving = true
Tercio@11	1427 self:StartMoving()
Tercio@11	1428 end
Tercio@11	1429 end
Tercio@11	1430 local simple_panel_mouse_up = function (self, button)
Tercio@11	1431 if (self.IsMoving) then
Tercio@11	1432 self.IsMoving = false
Tercio@11	1433 self:StopMovingOrSizing()
Tercio@11	1434 if (self.db and self.db.position) then
Tercio@11	1435 DF:SavePositionOnScreen (self)
Tercio@11	1436 end
Tercio@11	1437 end
Tercio@11	1438 end
Tercio@11	1439 local simple_panel_settitle = function (self, title)
Tercio@11	1440 self.title:SetText (title)
Tercio@11	1441 end
Tercio@11	1442
Tercio@11	1443 function DF:CreateSimplePanel (parent, w, h, title, name)
Tercio@11	1444
Tercio@11	1445 if (not name) then
Tercio@11	1446 name = "DetailsFrameworkSimplePanel" .. simple_panel_counter
Tercio@11	1447 simple_panel_counter = simple_panel_counter + 1
Tercio@11	1448 end
Tercio@11	1449 if (not parent) then
Tercio@11	1450 parent = UIParent
Tercio@11	1451 end
Tercio@11	1452
Tercio@11	1453 local f = CreateFrame ("frame", name, UIParent)
Tercio@11	1454 f:SetSize (w or 400, h or 250)
Tercio@11	1455 f:SetPoint ("center", UIParent, "center", 0, 0)
Tercio@11	1456 f:SetFrameStrata ("FULLSCREEN")
Tercio@11	1457 f:EnableMouse()
Tercio@11	1458 f:SetMovable (true)
Tercio@11	1459 tinsert (UISpecialFrames, name)
Tercio@11	1460
Tercio@11	1461 f:SetScript ("OnMouseDown", simple_panel_mouse_down)
Tercio@11	1462 f:SetScript ("OnMouseUp", simple_panel_mouse_up)
Tercio@11	1463
Tercio@11	1464 local bg = f:CreateTexture (nil, "background")
Tercio@11	1465 bg:SetAllPoints (f)
Tercio@11	1466 bg:SetTexture (DF.folder .. "background")
Tercio@11	1467
Tercio@11	1468 local close = CreateFrame ("button", name .. "Close", f, "UIPanelCloseButton")
Tercio@11	1469 close:SetSize (32, 32)
Tercio@11	1470 close:SetPoint ("topright", f, "topright", 0, -12)
Tercio@11	1471
Tercio@11	1472 f.title = DF:CreateLabel (f, title or "", 12, nil, "GameFontNormal")
Tercio@11	1473 f.title:SetPoint ("top", f, "top", 0, -22)
Tercio@11	1474
Tercio@11	1475 f.SetTitle = simple_panel_settitle
Tercio@11	1476
Tercio@11	1477 simple_panel_counter = simple_panel_counter + 1
Tercio@11	1478
Tercio@11	1479 return f
Tercio@11	1480 end
Tercio@11	1481
Tercio@11	1482 local Panel1PxBackdrop = {bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", tile = true, tileSize = 64,
Tercio@11	1483 edgeFile = DF.folder .. "border_3", edgeSize = 9, insets = {left = 2, right = 2, top = 3, bottom = 3}}
Tercio@11	1484
Tercio@11	1485 local Panel1PxOnClickClose = function (self)
Tercio@11	1486 self:GetParent():Hide()
Tercio@11	1487 end
Tercio@11	1488 local Panel1PxOnToggleLock = function (self)
Tercio@11	1489 if (self.IsLocked) then
Tercio@11	1490 self.IsLocked = false
Tercio@11	1491 self:SetMovable (true)
Tercio@11	1492 self:EnableMouse (true)
Tercio@11	1493 self.Lock:GetNormalTexture():SetTexCoord (32/128, 48/128, 0, 1)
Tercio@11	1494 self.Lock:GetHighlightTexture():SetTexCoord (32/128, 48/128, 0, 1)
Tercio@11	1495 self.Lock:GetPushedTexture():SetTexCoord (32/128, 48/128, 0, 1)
Tercio@17	1496 if (self.OnUnlock) then
Tercio@17	1497 self:OnUnlock()
Tercio@17	1498 end
Tercio@17	1499 if (self.db) then
Tercio@17	1500 self.db.IsLocked = self.IsLocked
Tercio@17	1501 end
Tercio@11	1502 else
Tercio@11	1503 self.IsLocked = true
Tercio@11	1504 self:SetMovable (false)
Tercio@11	1505 self:EnableMouse (false)
Tercio@11	1506 self.Lock:GetNormalTexture():SetTexCoord (16/128, 32/128, 0, 1)
Tercio@11	1507 self.Lock:GetHighlightTexture():SetTexCoord (16/128, 32/128, 0, 1)
Tercio@11	1508 self.Lock:GetPushedTexture():SetTexCoord (16/128, 32/128, 0, 1)
Tercio@17	1509 if (self.OnLock) then
Tercio@17	1510 self:OnLock()
Tercio@17	1511 end
Tercio@17	1512 if (self.db) then
Tercio@17	1513 self.db.IsLocked = self.IsLocked
Tercio@17	1514 end
Tercio@11	1515 end
Tercio@11	1516 end
Tercio@11	1517 local Panel1PxOnClickLock = function (self)
Tercio@11	1518 local f = self:GetParent()
Tercio@11	1519 Panel1PxOnToggleLock (f)
Tercio@11	1520 end
Tercio@11	1521 local Panel1PxSetTitle = function (self, text)
Tercio@11	1522 self.Title:SetText (text or "")
Tercio@11	1523 end
Tercio@11	1524
Tercio@20	1525 local Panel1PxSetLocked= function (self, lock_state)
Tercio@20	1526 if (type (lock_state) ~= "boolean") then
Tercio@20	1527 return
Tercio@20	1528 end
Tercio@20	1529 if (lock_state) then
Tercio@20	1530 -- lock it
Tercio@20	1531 self.IsLocked = false
Tercio@20	1532 Panel1PxOnClickLock (self.Lock)
Tercio@20	1533 else
Tercio@20	1534 -- unlockit
Tercio@20	1535 self.IsLocked = true
Tercio@20	1536 Panel1PxOnClickLock (self.Lock)
Tercio@20	1537 end
Tercio@20	1538 end
Tercio@20	1539
Tercio@11	1540 local Panel1PxReadConfig = function (self)
Tercio@11	1541 local db = self.db
Tercio@11	1542 if (db) then
Tercio@11	1543 db.IsLocked = db.IsLocked or false
Tercio@11	1544 self.IsLocked = db.IsLocked
Tercio@11	1545 db.position = db.position or {x = 0, y = 0}
Tercio@19	1546 db.position.x = db.position.x or 0
Tercio@19	1547 db.position.y = db.position.y or 0
Tercio@11	1548 DF:RestoreFramePosition (self)
Tercio@11	1549 end
Tercio@11	1550 end
Tercio@11	1551
Tercio@11	1552 function DF:SavePositionOnScreen (frame)
Tercio@11	1553 if (frame.db and frame.db.position) then
Tercio@11	1554 local x, y = DF:GetPositionOnScreen (frame)
Tercio@18	1555 --print ("saving...", x, y, frame:GetName())
Tercio@19	1556 if (x and y) then
Tercio@19	1557 frame.db.position.x, frame.db.position.y = x, y
Tercio@19	1558 end
Tercio@11	1559 end
Tercio@11	1560 end
Tercio@11	1561
Tercio@11	1562 function DF:GetPositionOnScreen (frame)
Tercio@11	1563 local xOfs, yOfs = frame:GetCenter()
Tercio@11	1564 if (not xOfs) then
Tercio@11	1565 return
Tercio@11	1566 end
Tercio@11	1567 local scale = frame:GetEffectiveScale()
Tercio@11	1568 local UIscale = UIParent:GetScale()
Tercio@11	1569 xOfs = xOfsscale - GetScreenWidth()UIscale/2
Tercio@11	1570 yOfs = yOfsscale - GetScreenHeight()UIscale/2
Tercio@11	1571 return xOfs/UIscale, yOfs/UIscale
Tercio@11	1572 end
Tercio@11	1573
Tercio@11	1574 function DF:RestoreFramePosition (frame)
Tercio@11	1575 if (frame.db and frame.db.position) then
Tercio@11	1576 local scale, UIscale = frame:GetEffectiveScale(), UIParent:GetScale()
Tercio@11	1577 frame:ClearAllPoints()
Tercio@19	1578 frame.db.position.x = frame.db.position.x or 0
Tercio@19	1579 frame.db.position.y = frame.db.position.y or 0
Tercio@11	1580 frame:SetPoint ("center", UIParent, "center", frame.db.position.x * UIscale / scale, frame.db.position.y * UIscale / scale)
Tercio@11	1581 end
Tercio@11	1582 end
Tercio@11	1583
Tercio@20	1584 local Panel1PxSavePosition= function (self)
Tercio@20	1585 DF:SavePositionOnScreen (self)
Tercio@20	1586 end
Tercio@20	1587
Tercio@18	1588 local Panel1PxHasPosition = function (self)
Tercio@18	1589 local db = self.db
Tercio@18	1590 if (db) then
Tercio@18	1591 if (db.position and db.position.x and (db.position.x ~= 0 or db.position.y ~= 0)) then
Tercio@18	1592 return true
Tercio@18	1593 end
Tercio@18	1594 end
Tercio@18	1595 end
Tercio@18	1596
Tercio@13	1597 function DF:Create1PxPanel (parent, w, h, title, name, config, title_anchor, no_special_frame)
Tercio@11	1598 local f = CreateFrame ("frame", name, parent or UIParent)
Tercio@11	1599 f:SetSize (w or 100, h or 75)
Tercio@11	1600 f:SetPoint ("center", UIParent, "center")
Tercio@11	1601
Tercio@13	1602 if (name and not no_special_frame) then
Tercio@11	1603 tinsert (UISpecialFrames, name)
Tercio@11	1604 end
Tercio@11	1605
Tercio@11	1606 f:SetScript ("OnMouseDown", simple_panel_mouse_down)
Tercio@11	1607 f:SetScript ("OnMouseUp", simple_panel_mouse_up)
Tercio@11	1608
Tercio@11	1609 f:SetBackdrop (Panel1PxBackdrop)
Tercio@11	1610 f:SetBackdropColor (0, 0, 0, 0.5)
Tercio@11	1611
Tercio@17	1612 f.IsLocked = (config and config.IsLocked ~= nil and config.IsLocked) or false
Tercio@11	1613 f:SetMovable (true)
Tercio@11	1614 f:EnableMouse (true)
Tercio@11	1615 f:SetUserPlaced (true)
Tercio@11	1616
Tercio@11	1617 f.db = config
Tercio@18	1618 --print (config.position.x, config.position.x)
Tercio@11	1619 Panel1PxReadConfig (f)
Tercio@11	1620
Tercio@11	1621 local close = CreateFrame ("button", name and name .. "CloseButton", f)
Tercio@11	1622 close:SetSize (16, 16)
Tercio@11	1623 close:SetNormalTexture (DF.folder .. "icons")
Tercio@11	1624 close:SetHighlightTexture (DF.folder .. "icons")
Tercio@11	1625 close:SetPushedTexture (DF.folder .. "icons")
Tercio@11	1626 close:GetNormalTexture():SetTexCoord (0, 16/128, 0, 1)
Tercio@11	1627 close:GetHighlightTexture():SetTexCoord (0, 16/128, 0, 1)
Tercio@11	1628 close:GetPushedTexture():SetTexCoord (0, 16/128, 0, 1)
Tercio@11	1629 close:SetAlpha (0.7)
Tercio@11	1630
Tercio@11	1631 local lock = CreateFrame ("button", name and name .. "LockButton", f)
Tercio@11	1632 lock:SetSize (16, 16)
Tercio@11	1633 lock:SetNormalTexture (DF.folder .. "icons")
Tercio@11	1634 lock:SetHighlightTexture (DF.folder .. "icons")
Tercio@11	1635 lock:SetPushedTexture (DF.folder .. "icons")
Tercio@11	1636 lock:GetNormalTexture():SetTexCoord (32/128, 48/128, 0, 1)
Tercio@11	1637 lock:GetHighlightTexture():SetTexCoord (32/128, 48/128, 0, 1)
Tercio@11	1638 lock:GetPushedTexture():SetTexCoord (32/128, 48/128, 0, 1)
Tercio@11	1639 lock:SetAlpha (0.7)
Tercio@11	1640
Tercio@11	1641 close:SetPoint ("topright", f, "topright", -3, -3)
Tercio@11	1642 lock:SetPoint ("right", close, "left", 3, 0)
Tercio@11	1643
Tercio@11	1644 close:SetScript ("OnClick", Panel1PxOnClickClose)
Tercio@11	1645 lock:SetScript ("OnClick", Panel1PxOnClickLock)
Tercio@11	1646
Tercio@11	1647 local title_string = f:CreateFontString (name and name .. "Title", "overlay", "GameFontNormal")
Tercio@11	1648 title_string:SetPoint ("topleft", f, "topleft", 5, -5)
Tercio@11	1649 title_string:SetText (title or "")
Tercio@11	1650
Tercio@11	1651 if (title_anchor) then
Tercio@11	1652 if (title_anchor == "top") then
Tercio@11	1653 title_string:ClearAllPoints()
Tercio@11	1654 title_string:SetPoint ("bottomleft", f, "topleft", 0, 0)
Tercio@11	1655 close:ClearAllPoints()
Tercio@11	1656 close:SetPoint ("bottomright", f, "topright", 0, 0)
Tercio@11	1657 end
Tercio@11	1658 f.title_anchor = title_anchor
Tercio@11	1659 end
Tercio@11	1660
Tercio@11	1661 f.SetTitle = Panel1PxSetTitle
Tercio@11	1662 f.Title = title_string
Tercio@11	1663 f.Lock = lock
Tercio@11	1664 f.Close = close
Tercio@18	1665 f.HasPosition = Panel1PxHasPosition
Tercio@20	1666 f.SavePosition = Panel1PxSavePosition
Tercio@11	1667
Tercio@17	1668 f.IsLocked = not f.IsLocked
Tercio@20	1669 f.SetLocked = Panel1PxSetLocked
Tercio@17	1670 Panel1PxOnToggleLock (f)
Tercio@17	1671
Tercio@11	1672 return f
Tercio@11	1673 end
Tercio@11	1674
Tercio@11	1675 ------------------------------------------------------------------------------------------------------------------------------------------------
Tercio@20	1676 -- ~prompt
Tercio@20	1677 function DF:ShowPromptPanel (message, func_true, func_false)
Tercio@20	1678
Tercio@20	1679 if (not DF.prompt_panel) then
Tercio@20	1680 local f = CreateFrame ("frame", "DetailsFrameworkPrompt", UIParent)
Tercio@20	1681 f:SetSize (400, 100)
Tercio@20	1682 f:SetFrameStrata ("DIALOG")
Tercio@20	1683 f:SetPoint ("center", UIParent, "center", 0, -300)
Tercio@20	1684 f:SetBackdrop ({edgeFile = [[Interface\Buttons\WHITE8X8]], edgeSize = 1, bgFile = [[Interface\Tooltips\UI-Tooltip-Background]], tileSize = 64, tile = true})
Tercio@20	1685 f:SetBackdropColor (0, 0, 0, 0.8)
Tercio@20	1686 f:SetBackdropBorderColor (0, 0, 0, 1)
Tercio@20	1687
Tercio@20	1688 local button_true = DF:CreateButton (f, nil, 60, 20, "")
Tercio@20	1689 button_true:SetPoint ("bottomleft", f, "bottomleft", 5, 5)
Tercio@20	1690 f.button_true = button_true
Tercio@20	1691
Tercio@20	1692 local button_false = DF:CreateButton (f, nil, 60, 20, "")
Tercio@20	1693 button_false:SetPoint ("bottomright", f, "bottomright", -5, 5)
Tercio@20	1694 f.button_false = button_false
Tercio@20	1695
Tercio@20	1696 button_true:SetClickFunction (function()
Tercio@20	1697 local my_func = button_true.true_function
Tercio@20	1698 if (my_func) then
Tercio@20	1699 local okey, errormessage = pcall (my_func, true)
Tercio@20	1700 if (not okey) then
Tercio@20	1701 print ("error:", errormessage)
Tercio@20	1702 end
Tercio@20	1703 end
Tercio@20	1704 end)
Tercio@20	1705
Tercio@20	1706 button_false:SetClickFunction (function()
Tercio@20	1707 local my_func = button_false.false_function
Tercio@20	1708 if (my_func) then
Tercio@20	1709 local okey, errormessage = pcall (my_func, true)
Tercio@20	1710 if (not okey) then
Tercio@20	1711 print ("error:", errormessage)
Tercio@20	1712 end
Tercio@20	1713 end
Tercio@20	1714 end)
Tercio@20	1715
Tercio@20	1716 f:Hide()
Tercio@20	1717 DF.promtp_panel = f
Tercio@20	1718 end
Tercio@20	1719
Tercio@20	1720 assert (type (func_true) == "function" and type (func_false) == "function", "ShowPromptPanel expects two functions.")
Tercio@20	1721
Tercio@20	1722 DF.promtp_panel.button_true.true_function = func_true
Tercio@20	1723 DF.promtp_panel.button_false.false_function = func_false
Tercio@20	1724
Tercio@20	1725 DF.promtp_panel:Show()
Tercio@20	1726 end
Tercio@20	1727 ------------------------------------------------------------------------------------------------------------------------------------------------
Tercio@11	1728 --> options button -- ~options
Tercio@11	1729 function DF:CreateOptionsButton (parent, callback, name)
Tercio@11	1730
Tercio@11	1731 local b = CreateFrame ("button", name, parent)
Tercio@11	1732 b:SetSize (14, 14)
Tercio@11	1733 b:SetNormalTexture (DF.folder .. "icons")
Tercio@11	1734 b:SetHighlightTexture (DF.folder .. "icons")
Tercio@11	1735 b:SetPushedTexture (DF.folder .. "icons")
Tercio@11	1736 b:GetNormalTexture():SetTexCoord (48/128, 64/128, 0, 1)
Tercio@11	1737 b:GetHighlightTexture():SetTexCoord (48/128, 64/128, 0, 1)
Tercio@11	1738 b:GetPushedTexture():SetTexCoord (48/128, 64/128, 0, 1)
Tercio@11	1739 b:SetAlpha (0.7)
Tercio@11	1740
Tercio@11	1741 b:SetScript ("OnClick", callback)
Tercio@11	1742 b:SetScript ("OnEnter", function (self)
Tercio@11	1743 GameCooltip2:Reset()
Tercio@11	1744 GameCooltip2:AddLine ("Options")
Tercio@11	1745 GameCooltip2:ShowCooltip (self, "tooltip")
Tercio@11	1746 end)
Tercio@11	1747 b:SetScript ("OnLeave", function (self)
Tercio@11	1748 GameCooltip2:Hide()
Tercio@11	1749 end)
Tercio@11	1750
Tercio@11	1751 return b
Tercio@11	1752
Tercio@11	1753 end
Tercio@11	1754
Tercio@11	1755 ------------------------------------------------------------------------------------------------------------------------------------------------
Tercio@11	1756 --> feedback panel -- ~feedback
Tercio@11	1757
Tercio@11	1758 function DF:CreateFeedbackButton (parent, callback, name)
Tercio@11	1759 local b = CreateFrame ("button", name, parent)
Tercio@11	1760 b:SetSize (12, 13)
Tercio@11	1761 b:SetNormalTexture (DF.folder .. "mail")
Tercio@11	1762 b:SetPushedTexture (DF.folder .. "mail")
Tercio@11	1763 b:SetHighlightTexture (DF.folder .. "mail")
Tercio@11	1764
Tercio@11	1765 b:SetScript ("OnClick", callback)
Tercio@11	1766 b:SetScript ("OnEnter", function (self)
Tercio@11	1767 GameCooltip2:Reset()
Tercio@11	1768 GameCooltip2:AddLine ("Send Feedback")
Tercio@11	1769 GameCooltip2:ShowCooltip (self, "tooltip")
Tercio@11	1770 end)
Tercio@11	1771 b:SetScript ("OnLeave", function (self)
Tercio@11	1772 GameCooltip2:Hide()
Tercio@11	1773 end)
Tercio@11	1774
Tercio@11	1775 return b
Tercio@11	1776 end
Tercio@11	1777
Tercio@11	1778 local backdrop_fb_line = {bgFile = DF.folder .. "background", edgeFile = DF.folder .. "border_3",
Tercio@11	1779 tile = true, tileSize = 64, edgeSize = 8, insets = {left = 2, right = 2, top = 2, bottom = 2}}
Tercio@11	1780
Tercio@11	1781 local on_enter_feedback = function (self)
Tercio@11	1782 self:SetBackdropColor (1, 1, 0, 0.5)
Tercio@11	1783 end
Tercio@11	1784 local on_leave_feedback = function (self)
Tercio@11	1785 self:SetBackdropColor (0, 0, 0, 0.3)
Tercio@11	1786 end
Tercio@11	1787
Tercio@11	1788 local on_click_feedback = function (self)
Tercio@11	1789
Tercio@11	1790 local feedback_link_textbox = DF.feedback_link_textbox
Tercio@11	1791
Tercio@11	1792 if (not feedback_link_textbox) then
Tercio@11	1793 local editbox = DF:CreateTextEntry (AddonFeedbackPanel, _, 275, 34)
Tercio@11	1794 editbox:SetAutoFocus (false)
Tercio@11	1795 editbox:SetHook ("OnEditFocusGained", function()
Tercio@11	1796 editbox.text = editbox.link
Tercio@11	1797 editbox:HighlightText()
Tercio@11	1798 end)
Tercio@11	1799 editbox:SetHook ("OnEditFocusLost", function()
Tercio@11	1800 editbox:Hide()
Tercio@11	1801 end)
Tercio@11	1802 editbox:SetHook ("OnChar", function()
Tercio@11	1803 editbox.text = editbox.link
Tercio@11	1804 editbox:HighlightText()
Tercio@11	1805 end)
Tercio@11	1806 editbox.text = ""
Tercio@11	1807
Tercio@11	1808 DF.feedback_link_textbox = editbox
Tercio@11	1809 feedback_link_textbox = editbox
Tercio@11	1810 end
Tercio@11	1811
Tercio@11	1812 feedback_link_textbox.link = self.link
Tercio@11	1813 feedback_link_textbox.text = self.link
Tercio@11	1814 feedback_link_textbox:Show()
Tercio@11	1815
Tercio@11	1816 feedback_link_textbox:SetPoint ("topleft", self.icon, "topright", 3, 0)
Tercio@11	1817
Tercio@11	1818 feedback_link_textbox:HighlightText()
Tercio@11	1819
Tercio@11	1820 feedback_link_textbox:SetFocus()
Tercio@11	1821 feedback_link_textbox:SetFrameLevel (self:GetFrameLevel()+2)
Tercio@11	1822 end
Tercio@11	1823
Tercio@11	1824 local feedback_get_fb_line = function (self)
Tercio@11	1825
Tercio@11	1826 local line = self.feedback_lines [self.next_feedback]
Tercio@11	1827 if (not line) then
Tercio@11	1828 line = CreateFrame ("frame", "AddonFeedbackPanelFB" .. self.next_feedback, self)
Tercio@11	1829 line:SetBackdrop (backdrop_fb_line)
Tercio@11	1830 line:SetBackdropColor (0, 0, 0, 0.3)
Tercio@11	1831 line:SetSize (390, 42)
Tercio@11	1832 line:SetPoint ("topleft", self.feedback_anchor, "bottomleft", 0, -5 + ((self.next_feedback-1) * 46 * -1))
Tercio@11	1833 line:SetScript ("OnEnter", on_enter_feedback)
Tercio@11	1834 line:SetScript ("OnLeave", on_leave_feedback)
Tercio@11	1835 line:SetScript ("OnMouseUp", on_click_feedback)
Tercio@11	1836
Tercio@11	1837 line.icon = line:CreateTexture (nil, "overlay")
Tercio@11	1838 line.icon:SetSize (90, 36)
Tercio@11	1839
Tercio@11	1840 line.desc = line:CreateFontString (nil, "overlay", "GameFontHighlightSmall")
Tercio@11	1841
Tercio@11	1842 line.icon:SetPoint ("left", line, "left", 5, 0)
Tercio@11	1843 line.desc:SetPoint ("left", line.icon, "right", 5, 0)
Tercio@11	1844
Tercio@11	1845 local arrow = line:CreateTexture (nil, "overlay")
Tercio@11	1846 arrow:SetTexture ([[Interface\Buttons\JumpUpArrow]])
Tercio@11	1847 arrow:SetRotation (-1.55)
Tercio@11	1848 arrow:SetPoint ("right", line, "right", -5, 0)
Tercio@11	1849
Tercio@11	1850 self.feedback_lines [self.next_feedback] = line
Tercio@11	1851 end
Tercio@11	1852
Tercio@11	1853 self.next_feedback = self.next_feedback + 1
Tercio@11	1854
Tercio@11	1855 return line
Tercio@11	1856 end
Tercio@11	1857
Tercio@11	1858 local on_click_feedback = function (self)
Tercio@11	1859
Tercio@11	1860 local feedback_link_textbox = DF.feedback_link_textbox
Tercio@11	1861
Tercio@11	1862 if (not feedback_link_textbox) then
Tercio@11	1863 local editbox = DF:CreateTextEntry (AddonFeedbackPanel, _, 275, 34)
Tercio@11	1864 editbox:SetAutoFocus (false)
Tercio@11	1865 editbox:SetHook ("OnEditFocusGained", function()
Tercio@11	1866 editbox.text = editbox.link
Tercio@11	1867 editbox:HighlightText()
Tercio@11	1868 end)
Tercio@11	1869 editbox:SetHook ("OnEditFocusLost", function()
Tercio@11	1870 editbox:Hide()
Tercio@11	1871 end)
Tercio@11	1872 editbox:SetHook ("OnChar", function()
Tercio@11	1873 editbox.text = editbox.link
Tercio@11	1874 editbox:HighlightText()
Tercio@11	1875 end)
Tercio@11	1876 editbox.text = ""
Tercio@11	1877
Tercio@11	1878 DF.feedback_link_textbox = editbox
Tercio@11	1879 feedback_link_textbox = editbox
Tercio@11	1880 end
Tercio@11	1881
Tercio@11	1882 feedback_link_textbox.link = self.link
Tercio@11	1883 feedback_link_textbox.text = self.link
Tercio@11	1884 feedback_link_textbox:Show()
Tercio@11	1885
Tercio@11	1886 feedback_link_textbox:SetPoint ("topleft", self.icon, "topright", 3, 0)
Tercio@11	1887
Tercio@11	1888 feedback_link_textbox:HighlightText()
Tercio@11	1889
Tercio@11	1890 feedback_link_textbox:SetFocus()
Tercio@11	1891 feedback_link_textbox:SetFrameLevel (self:GetFrameLevel()+2)
Tercio@11	1892 end
Tercio@11	1893
Tercio@11	1894 local on_enter_addon = function (self)
Tercio@11	1895 if (self.tooltip) then
Tercio@11	1896 GameCooltip2:Preset (2)
Tercio@11	1897 GameCooltip2:AddLine ("\|cFFFFFF00" .. self.name .. "\|r")
Tercio@11	1898 GameCooltip2:AddLine ("")
Tercio@11	1899 GameCooltip2:AddLine (self.tooltip)
Tercio@11	1900 GameCooltip2:ShowCooltip (self, "tooltip")
Tercio@11	1901 end
Tercio@11	1902 self.icon:SetBlendMode ("ADD")
Tercio@11	1903 end
Tercio@11	1904 local on_leave_addon = function (self)
Tercio@11	1905 if (self.tooltip) then
Tercio@11	1906 GameCooltip2:Hide()
Tercio@11	1907 end
Tercio@11	1908 self.icon:SetBlendMode ("BLEND")
Tercio@11	1909 end
Tercio@11	1910 local on_click_addon = function (self)
Tercio@11	1911 local addon_link_textbox = DF.addon_link_textbox
Tercio@11	1912
Tercio@11	1913 if (not addon_link_textbox) then
Tercio@11	1914 local editbox = DF:CreateTextEntry (AddonFeedbackPanel, _, 128, 64)
Tercio@11	1915 editbox:SetAutoFocus (false)
Tercio@11	1916 editbox:SetHook ("OnEditFocusGained", function()
Tercio@11	1917 editbox.text = editbox.link
Tercio@11	1918 editbox:HighlightText()
Tercio@11	1919 end)
Tercio@11	1920 editbox:SetHook ("OnEditFocusLost", function()
Tercio@11	1921 editbox:Hide()
Tercio@11	1922 end)
Tercio@11	1923 editbox:SetHook ("OnChar", function()
Tercio@11	1924 editbox.text = editbox.link
Tercio@11	1925 editbox:HighlightText()
Tercio@11	1926 end)
Tercio@11	1927 editbox.text = ""
Tercio@11	1928
Tercio@11	1929 DF.addon_link_textbox = editbox
Tercio@11	1930 addon_link_textbox = editbox
Tercio@11	1931 end
Tercio@11	1932
Tercio@11	1933 addon_link_textbox.link = self.link
Tercio@11	1934 addon_link_textbox.text = self.link
Tercio@11	1935 addon_link_textbox:Show()
Tercio@11	1936
Tercio@11	1937 addon_link_textbox:SetPoint ("topleft", self.icon, "topleft", 0, 0)
Tercio@11	1938
Tercio@11	1939 addon_link_textbox:HighlightText()
Tercio@11	1940
Tercio@11	1941 addon_link_textbox:SetFocus()
Tercio@11	1942 addon_link_textbox:SetFrameLevel (self:GetFrameLevel()+2)
Tercio@11	1943 end
Tercio@11	1944
Tercio@11	1945 local feedback_get_addons_line = function (self)
Tercio@11	1946 local line = self.addons_lines [self.next_addons]
Tercio@11	1947 if (not line) then
Tercio@11	1948
Tercio@11	1949 line = CreateFrame ("frame", "AddonFeedbackPanelSA" .. self.next_addons, self)
Tercio@11	1950 line:SetSize (128, 64)
Tercio@11	1951
Tercio@11	1952 if (self.next_addons == 1) then
Tercio@11	1953 line:SetPoint ("topleft", self.addons_anchor, "bottomleft", 0, -5)
Tercio@11	1954 elseif (self.next_addons_line_break == self.next_addons) then
Tercio@11	1955 line:SetPoint ("topleft", self.addons_anchor, "bottomleft", 0, -5 + floor (self.next_addons_line_break/3) * 66 * -1)
Tercio@11	1956 self.next_addons_line_break = self.next_addons_line_break + 3
Tercio@11	1957 else
Tercio@11	1958 local previous = self.addons_lines [self.next_addons - 1]
Tercio@11	1959 line:SetPoint ("topleft", previous, "topright", 2, 0)
Tercio@11	1960 end
Tercio@11	1961
Tercio@11	1962 line:SetScript ("OnEnter", on_enter_addon)
Tercio@11	1963 line:SetScript ("OnLeave", on_leave_addon)
Tercio@11	1964 line:SetScript ("OnMouseUp", on_click_addon)
Tercio@11	1965
Tercio@11	1966 line.icon = line:CreateTexture (nil, "overlay")
Tercio@11	1967 line.icon:SetSize (128, 64)
Tercio@11	1968
Tercio@11	1969 line.icon:SetPoint ("topleft", line, "topleft", 0, 0)
Tercio@11	1970
Tercio@11	1971 self.addons_lines [self.next_addons] = line
Tercio@11	1972 end
Tercio@11	1973
Tercio@11	1974 self.next_addons = self.next_addons + 1
Tercio@11	1975
Tercio@11	1976 return line
Tercio@11	1977 end
Tercio@11	1978
Tercio@11	1979 local default_coords = {0, 1, 0, 1}
Tercio@11	1980 local feedback_add_fb = function (self, table)
Tercio@11	1981 local line = self:GetFeedbackLine()
Tercio@11	1982 line.icon:SetTexture (table.icon)
Tercio@11	1983 line.icon:SetTexCoord (unpack (table.coords or default_coords))
Tercio@11	1984 line.desc:SetText (table.desc)
Tercio@11	1985 line.link = table.link
Tercio@11	1986 line:Show()
Tercio@11	1987 end
Tercio@11	1988
Tercio@11	1989 local feedback_add_addon = function (self, table)
Tercio@11	1990 local block = self:GetAddonsLine()
Tercio@11	1991 block.icon:SetTexture (table.icon)
Tercio@11	1992 block.icon:SetTexCoord (unpack (table.coords or default_coords))
Tercio@11	1993 block.link = table.link
Tercio@11	1994 block.tooltip = table.desc
Tercio@11	1995 block.name = table.name
Tercio@11	1996 block:Show()
Tercio@11	1997 end
Tercio@11	1998
Tercio@11	1999 local feedback_hide_all = function (self)
Tercio@11	2000 self.next_feedback = 1
Tercio@11	2001 self.next_addons = 1
Tercio@11	2002
Tercio@11	2003 for index, line in ipairs (self.feedback_lines) do
Tercio@11	2004 line:Hide()
Tercio@11	2005 end
Tercio@11	2006
Tercio@11	2007 for index, line in ipairs (self.addons_lines) do
Tercio@11	2008 line:Hide()
Tercio@11	2009 end
Tercio@11	2010 end
Tercio@11	2011
Tercio@11	2012 -- feedback_methods = { { icon = icon path, desc = description, link = url}}
Tercio@11	2013 function DF:ShowFeedbackPanel (addon_name, version, feedback_methods, more_addons)
Tercio@11	2014
Tercio@11	2015 local f = _G.AddonFeedbackPanel
Tercio@11	2016
Tercio@11	2017 if (not f) then
Tercio@11	2018 f = DF:Create1PxPanel (UIParent, 400, 100, addon_name .. " Feedback", "AddonFeedbackPanel", nil)
Tercio@11	2019 f:SetFrameStrata ("FULLSCREEN")
Tercio@11	2020 f:SetPoint ("center", UIParent, "center")
Tercio@11	2021 f:SetBackdropColor (0, 0, 0, 0.8)
Tercio@11	2022 f.feedback_lines = {}
Tercio@11	2023 f.addons_lines = {}
Tercio@11	2024 f.next_feedback = 1
Tercio@11	2025 f.next_addons = 1
Tercio@11	2026 f.next_addons_line_break = 4
Tercio@11	2027
Tercio@11	2028 local feedback_anchor = f:CreateFontString (nil, "overlay", "GameFontNormal")
Tercio@11	2029 feedback_anchor:SetText ("Feedback:")
Tercio@11	2030 feedback_anchor:SetPoint ("topleft", f, "topleft", 5, -30)
Tercio@11	2031 f.feedback_anchor = feedback_anchor
Tercio@11	2032 local excla_text = f:CreateFontString (nil, "overlay", "GameFontNormal")
Tercio@11	2033 excla_text:SetText ("click and copy the link")
Tercio@11	2034 excla_text:SetPoint ("topright", f, "topright", -5, -30)
Tercio@11	2035 excla_text:SetTextColor (1, 0.8, 0.2, 0.6)
Tercio@11	2036
Tercio@11	2037 local addons_anchor = f:CreateFontString (nil, "overlay", "GameFontNormal")
Tercio@11	2038 addons_anchor:SetText ("AddOns From the Same Author:")
Tercio@11	2039 f.addons_anchor = addons_anchor
Tercio@11	2040 local excla_text2 = f:CreateFontString (nil, "overlay", "GameFontNormal")
Tercio@11	2041 excla_text2:SetText ("click and copy the link")
Tercio@11	2042 excla_text2:SetTextColor (1, 0.8, 0.2, 0.6)
Tercio@11	2043 f.excla_text2 = excla_text2
Tercio@11	2044
Tercio@11	2045 f.GetFeedbackLine = feedback_get_fb_line
Tercio@11	2046 f.GetAddonsLine = feedback_get_addons_line
Tercio@11	2047 f.AddFeedbackMethod = feedback_add_fb
Tercio@11	2048 f.AddOtherAddon = feedback_add_addon
Tercio@11	2049 f.HideAll = feedback_hide_all
Tercio@11	2050
Tercio@11	2051 DF:SetFontSize (f.Title, 14)
Tercio@11	2052
Tercio@11	2053 end
Tercio@11	2054
Tercio@11	2055 f:HideAll()
Tercio@11	2056 f:SetTitle (addon_name)
Tercio@11	2057
Tercio@11	2058 for index, feedback in ipairs (feedback_methods) do
Tercio@11	2059 f:AddFeedbackMethod (feedback)
Tercio@11	2060 end
Tercio@11	2061
Tercio@11	2062 f.addons_anchor:SetPoint ("topleft", f, "topleft", 5, f.next_feedback * 50 * -1)
Tercio@11	2063 f.excla_text2:SetPoint ("topright", f, "topright", -5, f.next_feedback * 50 * -1)
Tercio@11	2064
Tercio@11	2065 for index, addon in ipairs (more_addons) do
Tercio@11	2066 f:AddOtherAddon (addon)
Tercio@11	2067 end
Tercio@11	2068
Tercio@11	2069 f:SetHeight (80 + ((f.next_feedback-1) * 50) + (ceil ((f.next_addons-1)/3) * 66))
Tercio@11	2070
Tercio@11	2071 f:Show()
Tercio@11	2072
Tercio@11	2073 return true
Tercio@11	2074 end
Tercio@11	2075
Tercio@11	2076
Tercio@11	2077 ------------------------------------------------------------------------------------------------------------------------------------------------
Tercio@11	2078 --> chart panel -- ~chart
Tercio@11	2079
Tercio@11	2080 local chart_panel_backdrop = {bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", tile = true, tileSize = 16,
Tercio@11	2081 edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", edgeSize = 32, insets = {left = 5, right = 5, top = 5, bottom = 5}}
Tercio@11	2082
Tercio@11	2083 local chart_panel_align_timelabels = function (self, elapsed_time)
Tercio@11	2084
Tercio@11	2085 self.TimeScale = elapsed_time
Tercio@11	2086
Tercio@11	2087 local linha = self.TimeLabels [17]
Tercio@11	2088 local minutos, segundos = math.floor (elapsed_time / 60), math.floor (elapsed_time % 60)
Tercio@11	2089 if (segundos < 10) then
Tercio@11	2090 segundos = "0" .. segundos
Tercio@11	2091 end
Tercio@11	2092
Tercio@11	2093 if (minutos > 0) then
Tercio@11	2094 if (minutos < 10) then
Tercio@11	2095 minutos = "0" .. minutos
Tercio@11	2096 end
Tercio@11	2097 linha:SetText (minutos .. ":" .. segundos)
Tercio@11	2098 else
Tercio@11	2099 linha:SetText ("00:" .. segundos)
Tercio@11	2100 end
Tercio@11	2101
Tercio@11	2102 local time_div = elapsed_time / 16 --786 -- 49.125
Tercio@11	2103
Tercio@11	2104 for i = 2, 16 do
Tercio@11	2105
Tercio@11	2106 local linha = self.TimeLabels [i]
Tercio@11	2107
Tercio@11	2108 local this_time = time_div * (i-1)
Tercio@11	2109 local minutos, segundos = math.floor (this_time / 60), math.floor (this_time % 60)
Tercio@11	2110
Tercio@11	2111 if (segundos < 10) then
Tercio@11	2112 segundos = "0" .. segundos
Tercio@11	2113 end
Tercio@11	2114
Tercio@11	2115 if (minutos > 0) then
Tercio@11	2116 if (minutos < 10) then
Tercio@11	2117 minutos = "0" .. minutos
Tercio@11	2118 end
Tercio@11	2119 linha:SetText (minutos .. ":" .. segundos)
Tercio@11	2120 else
Tercio@11	2121 linha:SetText ("00:" .. segundos)
Tercio@11	2122 end
Tercio@11	2123
Tercio@11	2124 end
Tercio@11	2125
Tercio@11	2126 end
Tercio@11	2127
Tercio@11	2128 local chart_panel_set_scale = function (self, amt, func, text)
Tercio@11	2129 if (type (amt) ~= "number") then
Tercio@11	2130 return
Tercio@11	2131 end
Tercio@11	2132
Tercio@11	2133 local piece = amt / 1000 / 8
Tercio@11	2134
Tercio@11	2135 for i = 1, 8 do
Tercio@11	2136 if (func) then
Tercio@11	2137 self ["dpsamt" .. math.abs (i-9)]:SetText ( func (piece*i) .. (text or ""))
Tercio@11	2138 else
Tercio@11	2139 if (piece*i > 1) then
Tercio@11	2140 self ["dpsamt" .. math.abs (i-9)]:SetText ( floor (piece*i) .. (text or ""))
Tercio@11	2141 else
Tercio@11	2142 self ["dpsamt" .. math.abs (i-9)]:SetText ( format ("%.3f", piece*i) .. (text or ""))
Tercio@11	2143 end
Tercio@11	2144 end
Tercio@11	2145 end
Tercio@11	2146 end
Tercio@11	2147
Tercio@11	2148 local chart_panel_can_move = function (self, can)
Tercio@11	2149 self.can_move = can
Tercio@11	2150 end
Tercio@11	2151
Tercio@11	2152 local chart_panel_overlay_reset = function (self)
Tercio@11	2153 self.OverlaysAmount = 1
Tercio@11	2154 for index, pack in ipairs (self.Overlays) do
Tercio@11	2155 for index2, texture in ipairs (pack) do
Tercio@11	2156 texture:Hide()
Tercio@11	2157 end
Tercio@11	2158 end
Tercio@11	2159 end
Tercio@11	2160
Tercio@11	2161 local chart_panel_reset = function (self)
Tercio@11	2162
Tercio@11	2163 self.Graphic:ResetData()
Tercio@11	2164 self.Graphic.max_value = 0
Tercio@11	2165
Tercio@11	2166 self.TimeScale = nil
Tercio@11	2167 self.BoxLabelsAmount = 1
Tercio@11	2168 table.wipe (self.GData)
Tercio@11	2169 table.wipe (self.OData)
Tercio@11	2170
Tercio@11	2171 for index, box in ipairs (self.BoxLabels) do
Tercio@11	2172 box.check:Hide()
Tercio@11	2173 box.button:Hide()
Tercio@11	2174 box.box:Hide()
Tercio@11	2175 box.text:Hide()
Tercio@11	2176 box.border:Hide()
Tercio@11	2177 box.showing = false
Tercio@11	2178 end
Tercio@11	2179
Tercio@11	2180 chart_panel_overlay_reset (self)
Tercio@11	2181 end
Tercio@11	2182
Tercio@11	2183 local chart_panel_enable_line = function (f, thisbox)
Tercio@11	2184
Tercio@11	2185 local index = thisbox.index
Tercio@11	2186 local type = thisbox.type
Tercio@11	2187
Tercio@11	2188 if (thisbox.enabled) then
Tercio@11	2189 --disable
Tercio@11	2190 thisbox.check:Hide()
Tercio@11	2191 thisbox.enabled = false
Tercio@11	2192 else
Tercio@11	2193 --enable
Tercio@11	2194 thisbox.check:Show()
Tercio@11	2195 thisbox.enabled = true
Tercio@11	2196 end
Tercio@11	2197
Tercio@11	2198 if (type == "graphic") then
Tercio@11	2199
Tercio@11	2200 f.Graphic:ResetData()
Tercio@11	2201 f.Graphic.max_value = 0
Tercio@11	2202
Tercio@11	2203 local max = 0
Tercio@11	2204 local max_time = 0
Tercio@11	2205
Tercio@11	2206 for index, box in ipairs (f.BoxLabels) do
Tercio@11	2207 if (box.type == type and box.showing and box.enabled) then
Tercio@11	2208 local data = f.GData [index]
Tercio@11	2209
Tercio@11	2210 f.Graphic:AddDataSeries (data[1], data[2], nil, data[3])
Tercio@11	2211
Tercio@11	2212 if (data[4] > max) then
Tercio@11	2213 max = data[4]
Tercio@11	2214 end
Tercio@11	2215 if (data [5] > max_time) then
Tercio@11	2216 max_time = data [5]
Tercio@11	2217 end
Tercio@11	2218 end
Tercio@11	2219 end
Tercio@11	2220
Tercio@11	2221 f:SetScale (max)
Tercio@11	2222 f:SetTime (max_time)
Tercio@11	2223
Tercio@11	2224 elseif (type == "overlay") then
Tercio@11	2225
Tercio@11	2226 chart_panel_overlay_reset (f)
Tercio@11	2227
Tercio@11	2228 for index, box in ipairs (f.BoxLabels) do
Tercio@11	2229 if (box.type == type and box.showing and box.enabled) then
Tercio@11	2230
Tercio@11	2231 f:AddOverlay (box.index)
Tercio@11	2232
Tercio@11	2233 end
Tercio@11	2234 end
Tercio@11	2235
Tercio@11	2236 end
Tercio@11	2237 end
Tercio@11	2238
Tercio@11	2239 local create_box = function (self, next_box)
Tercio@11	2240
Tercio@11	2241 local thisbox = {}
Tercio@11	2242 self.BoxLabels [next_box] = thisbox
Tercio@11	2243
Tercio@11	2244 local box = DF:NewImage (self.Graphic, nil, 16, 16, "border")
Tercio@11	2245
Tercio@11	2246 local text = DF:NewLabel (self.Graphic)
Tercio@11	2247
Tercio@11	2248 local border = DF:NewImage (self.Graphic, [[Interface\DialogFrame\UI-DialogBox-Gold-Corner]], 30, 30, "artwork")
Tercio@11	2249 border:SetPoint ("center", box, "center", -3, -4)
Tercio@11	2250 border:SetTexture ([[Interface\DialogFrame\UI-DialogBox-Gold-Corner]])
Tercio@11	2251
Tercio@11	2252 local checktexture = DF:NewImage (self.Graphic, [[Interface\Buttons\UI-CheckBox-Check]], 18, 18, "overlay")
Tercio@11	2253 checktexture:SetPoint ("center", box, "center", -1, -1)
Tercio@11	2254 checktexture:SetTexture ([[Interface\Buttons\UI-CheckBox-Check]])
Tercio@11	2255
Tercio@11	2256 thisbox.box = box
Tercio@11	2257 thisbox.text = text
Tercio@11	2258 thisbox.border = border
Tercio@11	2259 thisbox.check = checktexture
Tercio@11	2260 thisbox.enabled = true
Tercio@11	2261
Tercio@11	2262 local button = CreateFrame ("button", nil, self.Graphic)
Tercio@11	2263 button:SetSize (20, 20)
Tercio@11	2264 button:SetScript ("OnClick", function()
Tercio@11	2265 chart_panel_enable_line (self, thisbox)
Tercio@11	2266 end)
Tercio@11	2267 button:SetPoint ("center", box, "center")
Tercio@11	2268
Tercio@11	2269 thisbox.button = button
Tercio@11	2270
Tercio@11	2271 thisbox.box:SetPoint ("right", text, "left", -4, 0)
Tercio@11	2272
Tercio@11	2273 if (next_box == 1) then
Tercio@11	2274 thisbox.text:SetPoint ("topright", self, "topright", -35, -16)
Tercio@11	2275 else
Tercio@11	2276 thisbox.text:SetPoint ("right", self.BoxLabels [next_box-1].box, "left", -7, 0)
Tercio@11	2277 end
Tercio@11	2278
Tercio@11	2279 return thisbox
Tercio@11	2280
Tercio@11	2281 end
Tercio@11	2282
Tercio@11	2283 local realign_labels = function (self)
Tercio@11	2284
Tercio@11	2285 local width = self:GetWidth() - 108
Tercio@11	2286
Tercio@11	2287 local first_box = self.BoxLabels [1]
Tercio@11	2288 first_box.text:SetPoint ("topright", self, "topright", -35, -16)
Tercio@11	2289
Tercio@11	2290 local line_width = first_box.text:GetStringWidth() + 26
Tercio@11	2291
Tercio@11	2292 for i = 2, #self.BoxLabels do
Tercio@11	2293
Tercio@11	2294 local box = self.BoxLabels [i]
Tercio@11	2295
Tercio@11	2296 if (box.box:IsShown()) then
Tercio@11	2297
Tercio@11	2298 line_width = line_width + box.text:GetStringWidth() + 26
Tercio@11	2299
Tercio@11	2300 if (line_width > width) then
Tercio@11	2301 line_width = box.text:GetStringWidth() + 26
Tercio@11	2302 box.text:SetPoint ("topright", self, "topright", -35, -40)
Tercio@11	2303 else
Tercio@11	2304 box.text:SetPoint ("right", self.BoxLabels [i-1].box, "left", -7, 0)
Tercio@11	2305 end
Tercio@11	2306 else
Tercio@11	2307 break
Tercio@11	2308 end
Tercio@11	2309 end
Tercio@11	2310
Tercio@11	2311 end
Tercio@11	2312
Tercio@11	2313 local chart_panel_add_label = function (self, color, name, type, number)
Tercio@11	2314
Tercio@11	2315 local next_box = self.BoxLabelsAmount
Tercio@11	2316 local thisbox = self.BoxLabels [next_box]
Tercio@11	2317
Tercio@11	2318 if (not thisbox) then
Tercio@11	2319 thisbox = create_box (self, next_box)
Tercio@11	2320 end
Tercio@11	2321
Tercio@11	2322 self.BoxLabelsAmount = self.BoxLabelsAmount + 1
Tercio@11	2323
Tercio@11	2324 thisbox.type = type
Tercio@11	2325 thisbox.index = number
Tercio@11	2326
Tercio@11	2327 thisbox.box:SetTexture (unpack (color))
Tercio@11	2328 thisbox.text:SetText (name)
Tercio@11	2329
Tercio@11	2330 thisbox.check:Show()
Tercio@11	2331 thisbox.button:Show()
Tercio@11	2332 thisbox.border:Show()
Tercio@11	2333 thisbox.box:Show()
Tercio@11	2334 thisbox.text:Show()
Tercio@11	2335
Tercio@11	2336 thisbox.showing = true
Tercio@11	2337 thisbox.enabled = true
Tercio@11	2338
Tercio@11	2339 realign_labels (self)
Tercio@11	2340
Tercio@11	2341 end
Tercio@11	2342
Tercio@11	2343 local line_default_color = {1, 1, 1}
Tercio@11	2344 local draw_overlay = function (self, this_overlay, overlayData, color)
Tercio@11	2345
Tercio@11	2346 local pixel = self.Graphic:GetWidth() / self.TimeScale
Tercio@11	2347 local index = 1
Tercio@11	2348 local r, g, b = unpack (color)
Tercio@11	2349
Tercio@11	2350 for i = 1, #overlayData, 2 do
Tercio@11	2351 local aura_start = overlayData [i]
Tercio@11	2352 local aura_end = overlayData [i+1]
Tercio@11	2353
Tercio@11	2354 local this_block = this_overlay [index]
Tercio@11	2355 if (not this_block) then
Tercio@11	2356 this_block = self.Graphic:CreateTexture (nil, "border")
Tercio@11	2357 tinsert (this_overlay, this_block)
Tercio@11	2358 end
Tercio@11	2359 this_block:SetHeight (self.Graphic:GetHeight())
Tercio@11	2360
Tercio@11	2361 this_block:SetPoint ("left", self.Graphic, "left", pixel * aura_start, 0)
Tercio@11	2362 if (aura_end) then
Tercio@11	2363 this_block:SetWidth ((aura_end-aura_start)*pixel)
Tercio@11	2364 else
Tercio@11	2365 --malformed table
Tercio@11	2366 this_block:SetWidth (pixel*5)
Tercio@11	2367 end
Tercio@11	2368
Tercio@11	2369 this_block:SetTexture (r, g, b, 0.25)
Tercio@11	2370 this_block:Show()
Tercio@11	2371
Tercio@11	2372 index = index + 1
Tercio@11	2373 end
Tercio@11	2374
Tercio@11	2375 end
Tercio@11	2376
Tercio@11	2377 local chart_panel_add_overlay = function (self, overlayData, color, name, icon)
Tercio@11	2378
Tercio@11	2379 if (not self.TimeScale) then
Tercio@11	2380 error ("Use SetTime (time) before adding an overlay.")
Tercio@11	2381 end
Tercio@11	2382
Tercio@11	2383 if (type (overlayData) == "number") then
Tercio@11	2384 local overlay_index = overlayData
Tercio@11	2385 draw_overlay (self, self.Overlays [self.OverlaysAmount], self.OData [overlay_index][1], self.OData [overlay_index][2])
Tercio@11	2386 else
Tercio@11	2387 local this_overlay = self.Overlays [self.OverlaysAmount]
Tercio@11	2388 if (not this_overlay) then
Tercio@11	2389 this_overlay = {}
Tercio@11	2390 tinsert (self.Overlays, this_overlay)
Tercio@11	2391 end
Tercio@11	2392
Tercio@11	2393 draw_overlay (self, this_overlay, overlayData, color)
Tercio@11	2394
Tercio@11	2395 tinsert (self.OData, {overlayData, color or line_default_color})
Tercio@11	2396 if (name) then
Tercio@11	2397 self:AddLabel (color or line_default_color, name, "overlay", #self.OData)
Tercio@11	2398 end
Tercio@11	2399 end
Tercio@11	2400
Tercio@11	2401 self.OverlaysAmount = self.OverlaysAmount + 1
Tercio@11	2402 end
Tercio@11	2403
Tercio@11	2404 local SMA_table = {}
Tercio@11	2405 local SMA_max = 0
Tercio@11	2406 local reset_SMA = function()
Tercio@11	2407 table.wipe (SMA_table)
Tercio@11	2408 SMA_max = 0
Tercio@11	2409 end
Tercio@11	2410
Tercio@11	2411 local calc_SMA
Tercio@11	2412 calc_SMA = function (a, b, ...)
Tercio@11	2413 if (b) then
Tercio@11	2414 return calc_SMA (a + b, ...)
Tercio@11	2415 else
Tercio@11	2416 return a
Tercio@11	2417 end
Tercio@11	2418 end
Tercio@11	2419
Tercio@11	2420 local do_SMA = function (value, max_value)
Tercio@11	2421
Tercio@11	2422 if (#SMA_table == 10) then
Tercio@11	2423 tremove (SMA_table, 1)
Tercio@11	2424 end
Tercio@11	2425
Tercio@11	2426 SMA_table [#SMA_table + 1] = value
Tercio@11	2427
Tercio@11	2428 local new_value = calc_SMA (unpack (SMA_table)) / #SMA_table
Tercio@11	2429
Tercio@11	2430 if (new_value > SMA_max) then
Tercio@11	2431 SMA_max = new_value
Tercio@11	2432 return new_value, SMA_max
Tercio@11	2433 else
Tercio@11	2434 return new_value
Tercio@11	2435 end
Tercio@11	2436
Tercio@11	2437 end
Tercio@11	2438
Tercio@11	2439 local chart_panel_add_data = function (self, graphicData, color, name, elapsed_time, lineTexture, smoothLevel, firstIndex)
Tercio@11	2440
Tercio@11	2441 local f = self
Tercio@11	2442 self = self.Graphic
Tercio@11	2443
Tercio@11	2444 local _data = {}
Tercio@11	2445 local max_value = graphicData.max_value
Tercio@11	2446 local amount = #graphicData
Tercio@11	2447
Tercio@11	2448 local scaleW = 1/self:GetWidth()
Tercio@11	2449
Tercio@11	2450 local content = graphicData
Tercio@11	2451 tinsert (content, 1, 0)
Tercio@11	2452 tinsert (content, 1, 0)
Tercio@11	2453 tinsert (content, #content+1, 0)
Tercio@11	2454 tinsert (content, #content+1, 0)
Tercio@11	2455
Tercio@11	2456 local _i = 3
Tercio@11	2457
Tercio@11	2458 local graphMaxDps = math.max (self.max_value, max_value)
Tercio@11	2459
Tercio@11	2460 if (not smoothLevel) then
Tercio@11	2461 while (_i <= #content-2) do
Tercio@11	2462 local v = (content[_i-2]+content[_i-1]+content[_i]+content[_i+1]+content[_i+2])/5 --> normalize
Tercio@11	2463 _data [#_data+1] = {scaleW*(_i-2), v/graphMaxDps} --> x and y coords
Tercio@11	2464 _i = _i + 1
Tercio@11	2465 end
Tercio@11	2466
Tercio@11	2467 elseif (smoothLevel == "SHORT") then
Tercio@11	2468 while (_i <= #content-2) do
Tercio@11	2469 local value = (content[_i] + content[_i+1]) / 2
Tercio@11	2470 _data [#_data+1] = {scaleW*(_i-2), value}
Tercio@11	2471 _data [#_data+1] = {scaleW*(_i-2), value}
Tercio@11	2472 _i = _i + 2
Tercio@11	2473 end
Tercio@11	2474
Tercio@11	2475 elseif (smoothLevel == "SMA") then
Tercio@11	2476 reset_SMA()
Tercio@11	2477 while (_i <= #content-2) do
Tercio@11	2478 local value, is_new_max_value = do_SMA (content[_i], max_value)
Tercio@11	2479 if (is_new_max_value) then
Tercio@11	2480 max_value = is_new_max_value
Tercio@11	2481 end
Tercio@11	2482 _data [#_data+1] = {scaleW*(_i-2), value} --> x and y coords
Tercio@11	2483 _i = _i + 1
Tercio@11	2484 end
Tercio@11	2485
Tercio@11	2486 elseif (smoothLevel == -1) then
Tercio@11	2487 while (_i <= #content-2) do
Tercio@11	2488 local current = content[_i]
Tercio@11	2489
Tercio@11	2490 local minus_2 = content[_i-2] * 0.6
Tercio@11	2491 local minus_1 = content[_i-1] * 0.8
Tercio@11	2492 local plus_1 = content[_i+1] * 0.8
Tercio@11	2493 local plus_2 = content[_i+2] * 0.6
Tercio@11	2494
Tercio@11	2495 local v = (current + minus_2 + minus_1 + plus_1 + plus_2)/5 --> normalize
Tercio@11	2496 _data [#_data+1] = {scaleW*(_i-2), v/graphMaxDps} --> x and y coords
Tercio@11	2497 _i = _i + 1
Tercio@11	2498 end
Tercio@11	2499
Tercio@11	2500 elseif (smoothLevel == 1) then
Tercio@11	2501 _i = 2
Tercio@11	2502 while (_i <= #content-1) do
Tercio@11	2503 local v = (content[_i-1]+content[_i]+content[_i+1])/3 --> normalize
Tercio@11	2504 _data [#_data+1] = {scaleW*(_i-1), v/graphMaxDps} --> x and y coords
Tercio@11	2505 _i = _i + 1
Tercio@11	2506 end
Tercio@11	2507
Tercio@11	2508 elseif (smoothLevel == 2) then
Tercio@11	2509 _i = 1
Tercio@11	2510 while (_i <= #content) do
Tercio@11	2511 local v = content[_i] --> do not normalize
Tercio@11	2512 _data [#_data+1] = {scaleW*(_i), v/graphMaxDps} --> x and y coords
Tercio@11	2513 _i = _i + 1
Tercio@11	2514 end
Tercio@11	2515
Tercio@11	2516 end
Tercio@11	2517
Tercio@11	2518 tremove (content, 1)
Tercio@11	2519 tremove (content, 1)
Tercio@11	2520 tremove (content, #graphicData)
Tercio@11	2521 tremove (content, #graphicData)
Tercio@11	2522
Tercio@11	2523 if (max_value > self.max_value) then
Tercio@11	2524 --> normalize previous data
Tercio@11	2525 if (self.max_value > 0) then
Tercio@11	2526 local normalizePercent = self.max_value / max_value
Tercio@11	2527 for dataIndex, Data in ipairs (self.Data) do
Tercio@11	2528 local Points = Data.Points
Tercio@11	2529 for i = 1, #Points do
Tercio@11	2530 Points[i][2] = Points[i][2]*normalizePercent
Tercio@11	2531 end
Tercio@11	2532 end
Tercio@11	2533 end
Tercio@11	2534
Tercio@11	2535 self.max_value = max_value
Tercio@11	2536 f:SetScale (max_value)
Tercio@11	2537
Tercio@11	2538 end
Tercio@11	2539
Tercio@11	2540 tinsert (f.GData, {_data, color or line_default_color, lineTexture, max_value, elapsed_time})
Tercio@11	2541 if (name) then
Tercio@11	2542 f:AddLabel (color or line_default_color, name, "graphic", #f.GData)
Tercio@11	2543 end
Tercio@11	2544
Tercio@11	2545 if (firstIndex) then
Tercio@11	2546 if (lineTexture) then
Tercio@11	2547 if (not lineTexture:find ("\\") and not lineTexture:find ("//")) then
Tercio@11	2548 local path = string.match (debugstack (1, 1, 0), "AddOns\\(.+)LibGraph%-2%.0%.lua")
Tercio@11	2549 if path then
Tercio@11	2550 lineTexture = "Interface\\AddOns\\" .. path .. lineTexture
Tercio@11	2551 else
Tercio@11	2552 lineTexture = nil
Tercio@11	2553 end
Tercio@11	2554 end
Tercio@11	2555 end
Tercio@11	2556
Tercio@11	2557 table.insert (self.Data, 1, {Points = _data, Color = color or line_default_color, lineTexture = lineTexture, ElapsedTime = elapsed_time})
Tercio@11	2558 self.NeedsUpdate = true
Tercio@11	2559 else
Tercio@11	2560 self:AddDataSeries (_data, color or line_default_color, nil, lineTexture)
Tercio@11	2561 self.Data [#self.Data].ElapsedTime = elapsed_time
Tercio@11	2562 end
Tercio@11	2563
Tercio@11	2564 local max_time = 0
Tercio@11	2565 for _, data in ipairs (self.Data) do
Tercio@11	2566 if (data.ElapsedTime > max_time) then
Tercio@11	2567 max_time = data.ElapsedTime
Tercio@11	2568 end
Tercio@11	2569 end
Tercio@11	2570
Tercio@11	2571 f:SetTime (max_time)
Tercio@11	2572
Tercio@11	2573 end
Tercio@11	2574
Tercio@11	2575 local chart_panel_onresize = function (self)
Tercio@11	2576 local width, height = self:GetSize()
Tercio@11	2577 local spacement = width - 78 - 60
Tercio@11	2578 spacement = spacement / 16
Tercio@11	2579
Tercio@11	2580 for i = 1, 17 do
Tercio@11	2581 local label = self.TimeLabels [i]
Tercio@11	2582 label:SetPoint ("bottomleft", self, "bottomleft", 78 + ((i-1)*spacement), 13)
Tercio@11	2583 label.line:SetHeight (height - 45)
Tercio@11	2584 end
Tercio@11	2585
Tercio@11	2586 local spacement = (self.Graphic:GetHeight()) / 8
Tercio@11	2587 for i = 1, 8 do
Tercio@11	2588 self ["dpsamt"..i]:SetPoint ("TOPLEFT", self, "TOPLEFT", 27, -25 + (-(spacement* (i-1))) )
Tercio@11	2589 self ["dpsamt"..i].line:SetWidth (width-20)
Tercio@11	2590 end
Tercio@11	2591
Tercio@11	2592 self.Graphic:SetSize (width - 135, height - 67)
Tercio@11	2593 self.Graphic:SetPoint ("topleft", self, "topleft", 108, -35)
Tercio@11	2594 end
Tercio@11	2595
Tercio@11	2596 local chart_panel_vlines_on = function (self)
Tercio@11	2597 for i = 1, 17 do
Tercio@11	2598 local label = self.TimeLabels [i]
Tercio@11	2599 label.line:Show()
Tercio@11	2600 end
Tercio@11	2601 end
Tercio@11	2602
Tercio@11	2603 local chart_panel_vlines_off = function (self)
Tercio@11	2604 for i = 1, 17 do
Tercio@11	2605 local label = self.TimeLabels [i]
Tercio@11	2606 label.line:Hide()
Tercio@11	2607 end
Tercio@11	2608 end
Tercio@11	2609
Tercio@11	2610 local chart_panel_set_title = function (self, title)
Tercio@11	2611 self.chart_title.text = title
Tercio@11	2612 end
Tercio@11	2613
Tercio@11	2614 local chart_panel_mousedown = function (self, button)
Tercio@11	2615 if (button == "LeftButton" and self.can_move) then
Tercio@11	2616 if (not self.isMoving) then
Tercio@11	2617 self:StartMoving()
Tercio@11	2618 self.isMoving = true
Tercio@11	2619 end
Tercio@11	2620 elseif (button == "RightButton" and not self.no_right_click_close) then
Tercio@11	2621 if (not self.isMoving) then
Tercio@11	2622 self:Hide()
Tercio@11	2623 end
Tercio@11	2624 end
Tercio@11	2625 end
Tercio@11	2626 local chart_panel_mouseup = function (self, button)
Tercio@11	2627 if (button == "LeftButton" and self.isMoving) then
Tercio@11	2628 self:StopMovingOrSizing()
Tercio@11	2629 self.isMoving = nil
Tercio@11	2630 end
Tercio@11	2631 end
Tercio@11	2632
Tercio@11	2633 local chart_panel_hide_close_button = function (self)
Tercio@11	2634 self.CloseButton:Hide()
Tercio@11	2635 end
Tercio@11	2636
Tercio@11	2637 local chart_panel_right_click_close = function (self, value)
Tercio@11	2638 if (type (value) == "boolean") then
Tercio@11	2639 if (value) then
Tercio@11	2640 self.no_right_click_close = nil
Tercio@11	2641 else
Tercio@11	2642 self.no_right_click_close = true
Tercio@11	2643 end
Tercio@11	2644 end
Tercio@11	2645 end
Tercio@11	2646
Tercio@11	2647 function DF:CreateChartPanel (parent, w, h, name)
Tercio@11	2648
Tercio@11	2649 if (not name) then
Tercio@11	2650 name = "DFPanel" .. DF.PanelCounter
Tercio@11	2651 DF.PanelCounter = DF.PanelCounter + 1
Tercio@11	2652 end
Tercio@11	2653
Tercio@11	2654 parent = parent or UIParent
Tercio@11	2655 w = w or 800
Tercio@11	2656 h = h or 500
Tercio@11	2657
Tercio@11	2658 local f = CreateFrame ("frame", name, parent)
Tercio@11	2659 f:SetSize (w or 500, h or 400)
Tercio@11	2660 f:EnableMouse (true)
Tercio@11	2661 f:SetMovable (true)
Tercio@11	2662
Tercio@11	2663 f:SetScript ("OnMouseDown", chart_panel_mousedown)
Tercio@11	2664 f:SetScript ("OnMouseUp", chart_panel_mouseup)
Tercio@11	2665
Tercio@11	2666 f:SetBackdrop (chart_panel_backdrop)
Tercio@11	2667 f:SetBackdropColor (.3, .3, .3, .3)
Tercio@11	2668
Tercio@11	2669 local c = CreateFrame ("Button", nil, f, "UIPanelCloseButton")
Tercio@11	2670 c:SetWidth (32)
Tercio@11	2671 c:SetHeight (32)
Tercio@11	2672 c:SetPoint ("TOPRIGHT", f, "TOPRIGHT", -3, -7)
Tercio@11	2673 c:SetFrameLevel (f:GetFrameLevel()+1)
Tercio@11	2674 c:SetAlpha (0.9)
Tercio@11	2675 f.CloseButton = c
Tercio@11	2676
Tercio@11	2677 local title = DF:NewLabel (f, nil, "$parentTitle", "chart_title", "Chart!", nil, 20, {1, 1, 0})
Tercio@11	2678 title:SetPoint ("topleft", f, "topleft", 110, -13)
Tercio@11	2679
Tercio@11	2680 local bottom_texture = DF:NewImage (f, nil, 702, 25, "background", nil, nil, "$parentBottomTexture")
Tercio@11	2681 bottom_texture:SetTexture (0, 0, 0, .6)
Tercio@11	2682 bottom_texture:SetPoint ("bottomleft", f, "bottomleft", 8, 7)
Tercio@11	2683 bottom_texture:SetPoint ("bottomright", f, "bottomright", -8, 7)
Tercio@11	2684
Tercio@11	2685 f.Overlays = {}
Tercio@11	2686 f.OverlaysAmount = 1
Tercio@11	2687
Tercio@11	2688 f.BoxLabels = {}
Tercio@11	2689 f.BoxLabelsAmount = 1
Tercio@11	2690
Tercio@11	2691 f.TimeLabels = {}
Tercio@11	2692 for i = 1, 17 do
Tercio@11	2693 local time = f:CreateFontString (nil, "overlay", "GameFontHighlightSmall")
Tercio@11	2694 time:SetText ("00:00")
Tercio@11	2695 time:SetPoint ("bottomleft", f, "bottomleft", 78 + ((i-1)*36), 13)
Tercio@11	2696 f.TimeLabels [i] = time
Tercio@11	2697
Tercio@11	2698 local line = f:CreateTexture (nil, "border")
Tercio@11	2699 line:SetSize (1, h-45)
Tercio@11	2700 line:SetTexture (1, 1, 1, .1)
Tercio@11	2701 line:SetPoint ("bottomleft", time, "topright", 0, -10)
Tercio@11	2702 line:Hide()
Tercio@11	2703 time.line = line
Tercio@11	2704 end
Tercio@11	2705
Tercio@11	2706 --graphic
Tercio@11	2707 local g = LibStub:GetLibrary("LibGraph-2.0"):CreateGraphLine (name .. "Graphic", f, "topleft","topleft", 108, -35, w - 120, h - 67)
Tercio@11	2708 g:SetXAxis (-1,1)
Tercio@11	2709 g:SetYAxis (-1,1)
Tercio@11	2710 g:SetGridSpacing (false, false)
Tercio@11	2711 g:SetGridColor ({0.5,0.5,0.5,0.3})
Tercio@11	2712 g:SetAxisDrawing (false,false)
Tercio@11	2713 g:SetAxisColor({1.0,1.0,1.0,1.0})
Tercio@11	2714 g:SetAutoScale (true)
Tercio@11	2715 g:SetLineTexture ("smallline")
Tercio@11	2716 g:SetBorderSize ("right", 0.001)
Tercio@11	2717 g:SetBorderSize ("left", 0.000)
Tercio@11	2718 g:SetBorderSize ("top", 0.002)
Tercio@11	2719 g:SetBorderSize ("bottom", 0.001)
Tercio@11	2720 g.VerticalLines = {}
Tercio@11	2721 g.max_value = 0
Tercio@11	2722
Tercio@11	2723 g:SetLineTexture ("line")
Tercio@11	2724
Tercio@11	2725 f.Graphic = g
Tercio@11	2726 f.GData = {}
Tercio@11	2727 f.OData = {}
Tercio@11	2728
Tercio@11	2729 --div lines
Tercio@11	2730 for i = 1, 8, 1 do
Tercio@11	2731 local line = g:CreateTexture (nil, "overlay")
Tercio@11	2732 line:SetTexture (1, 1, 1, .2)
Tercio@11	2733 line:SetWidth (670)
Tercio@11	2734 line:SetHeight (1.1)
Tercio@11	2735
Tercio@11	2736 local s = f:CreateFontString (nil, "overlay", "GameFontHighlightSmall")
Tercio@11	2737 f ["dpsamt"..i] = s
Tercio@11	2738 s:SetText ("100k")
Tercio@11	2739 s:SetPoint ("topleft", f, "topleft", 27, -61 + (-(24.6*i)))
Tercio@11	2740
Tercio@11	2741 line:SetPoint ("topleft", s, "bottom", -27, 0)
Tercio@11	2742 s.line = line
Tercio@11	2743 end
Tercio@11	2744
Tercio@11	2745 f.SetTime = chart_panel_align_timelabels
Tercio@11	2746 f.EnableVerticalLines = chart_panel_vlines_on
Tercio@11	2747 f.DisableVerticalLines = chart_panel_vlines_off
Tercio@11	2748 f.SetTitle = chart_panel_set_title
Tercio@11	2749 f.SetScale = chart_panel_set_scale
Tercio@11	2750 f.Reset = chart_panel_reset
Tercio@11	2751 f.AddLine = chart_panel_add_data
Tercio@11	2752 f.CanMove = chart_panel_can_move
Tercio@11	2753 f.AddLabel = chart_panel_add_label
Tercio@11	2754 f.AddOverlay = chart_panel_add_overlay
Tercio@11	2755 f.HideCloseButton = chart_panel_hide_close_button
Tercio@11	2756 f.RightClickClose = chart_panel_right_click_close
Tercio@11	2757
Tercio@11	2758 f:SetScript ("OnSizeChanged", chart_panel_onresize)
Tercio@11	2759 chart_panel_onresize (f)
Tercio@11	2760
Tercio@11	2761 return f
Tercio@20	2762 end
Tercio@20	2763
Tercio@20	2764 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Tercio@20	2765 -- ~gframe
Tercio@20	2766 local gframe_on_enter_line = function (self)
Tercio@20	2767 self:SetBackdropColor (0, 0, 0, 0)
Tercio@20	2768
Tercio@20	2769 local parent = self:GetParent()
Tercio@20	2770 local ball = self.ball
Tercio@20	2771 ball:SetBlendMode ("ADD")
Tercio@20	2772
Tercio@20	2773 local on_enter = parent._onenter_line
Tercio@20	2774 if (on_enter) then
Tercio@20	2775 return on_enter (self, parent)
Tercio@20	2776 end
Tercio@20	2777 end
Tercio@20	2778
Tercio@20	2779 local gframe_on_leave_line = function (self)
Tercio@20	2780 self:SetBackdropColor (0, 0, 0, .6)
Tercio@20	2781
Tercio@20	2782 local parent = self:GetParent()
Tercio@20	2783 local ball = self.ball
Tercio@20	2784 ball:SetBlendMode ("BLEND")
Tercio@20	2785
Tercio@20	2786 local on_leave = parent._onleave_line
Tercio@20	2787 if (on_leave) then
Tercio@20	2788 return on_leave (self, parent)
Tercio@20	2789 end
Tercio@20	2790 end
Tercio@20	2791
Tercio@20	2792 local gframe_create_line = function (self)
Tercio@20	2793 local index = #self._lines+1
Tercio@20	2794
Tercio@20	2795 local f = CreateFrame ("frame", nil, self)
Tercio@20	2796 self._lines [index] = f
Tercio@20	2797 f.id = index
Tercio@20	2798 f:SetScript ("OnEnter", gframe_on_enter_line)
Tercio@20	2799 f:SetScript ("OnLeave", gframe_on_leave_line)
Tercio@20	2800
Tercio@20	2801 f:SetWidth (self._linewidth)
Tercio@20	2802
Tercio@20	2803 if (index == 1) then
Tercio@20	2804 f:SetPoint ("topleft", self, "topleft")
Tercio@20	2805 f:SetPoint ("bottomleft", self, "bottomleft")
Tercio@20	2806 else
Tercio@20	2807 local previous_line = self._lines [index-1]
Tercio@20	2808 f:SetPoint ("topleft", previous_line, "topright")
Tercio@20	2809 f:SetPoint ("bottomleft", previous_line, "bottomright")
Tercio@20	2810 end
Tercio@20	2811
Tercio@20	2812 local t = f:CreateTexture (nil, "background")
Tercio@20	2813 t:SetWidth (1)
Tercio@20	2814 t:SetPoint ("topright", f, "topright")
Tercio@20	2815 t:SetPoint ("bottomright", f, "bottomright")
Tercio@20	2816 t:SetTexture (1, 1, 1, .1)
Tercio@20	2817 f.grid = t
Tercio@20	2818
Tercio@20	2819 local b = f:CreateTexture (nil, "overlay")
Tercio@20	2820 b:SetTexture ([[Interface\COMMON\Indicator-Yellow]])
Tercio@20	2821 b:SetSize (16, 16)
Tercio@20	2822 f.ball = b
Tercio@20	2823 local anchor = CreateFrame ("frame", nil, f)
Tercio@20	2824 anchor:SetAllPoints (b)
Tercio@20	2825 b.tooltip_anchor = anchor
Tercio@20	2826
Tercio@20	2827 local spellicon = f:CreateTexture (nil, "artwork")
Tercio@20	2828 spellicon:SetPoint ("bottom", b, "bottom", 0, 10)
Tercio@20	2829 spellicon:SetSize (16, 16)
Tercio@20	2830 f.spellicon = spellicon
Tercio@20	2831
Tercio@20	2832 local timeline = f:CreateFontString (nil, "overlay", "GameFontNormal")
Tercio@20	2833 timeline:SetPoint ("bottomright", f, "bottomright", -2, 0)
Tercio@20	2834 _detalhes:SetFontSize (timeline, 8)
Tercio@20	2835 f.timeline = timeline
Tercio@20	2836
Tercio@20	2837 return f
Tercio@20	2838 end
Tercio@20	2839
Tercio@20	2840 local gframe_getline = function (self, index)
Tercio@20	2841 local line = self._lines [index]
Tercio@20	2842 if (not line) then
Tercio@20	2843 line = gframe_create_line (self)
Tercio@20	2844 end
Tercio@20	2845 return line
Tercio@20	2846 end
Tercio@20	2847
Tercio@20	2848 local gframe_reset = function (self)
Tercio@20	2849 for i, line in ipairs (self._lines) do
Tercio@20	2850 line:Hide()
Tercio@20	2851 end
Tercio@20	2852 if (self.GraphLib_Lines_Used) then
Tercio@20	2853 for i = #self.GraphLib_Lines_Used, 1, -1 do
Tercio@20	2854 local line = tremove (self.GraphLib_Lines_Used)
Tercio@20	2855 tinsert (self.GraphLib_Lines, line)
Tercio@20	2856 line:Hide()
Tercio@20	2857 end
Tercio@20	2858 end
Tercio@20	2859 end
Tercio@20	2860
Tercio@20	2861 local gframe_update = function (self, lines)
Tercio@20	2862
Tercio@20	2863 local g = LibStub:GetLibrary ("LibGraph-2.0")
Tercio@20	2864 local h = self:GetHeight()/100
Tercio@20	2865 local amtlines = #lines
Tercio@20	2866 local linewidth = self._linewidth
Tercio@20	2867
Tercio@20	2868 local max_value = 0
Tercio@20	2869 for i = 1, amtlines do
Tercio@20	2870 if (lines [i].value > max_value) then
Tercio@20	2871 max_value = lines [i].value
Tercio@20	2872 end
Tercio@20	2873 end
Tercio@20	2874
Tercio@20	2875 local o = 1
Tercio@20	2876 local lastvalue = self:GetHeight()/2
Tercio@20	2877
Tercio@20	2878 for i = 1, min (amtlines, self._maxlines) do
Tercio@20	2879
Tercio@20	2880 local data = lines [i]
Tercio@20	2881
Tercio@20	2882 local pvalue = data.value / max_value * 100
Tercio@20	2883 if (pvalue > 98) then
Tercio@20	2884 pvalue = 98
Tercio@20	2885 end
Tercio@20	2886 pvalue = pvalue * h
Tercio@20	2887
Tercio@20	2888 g:DrawLine (self, (o-1)linewidth, lastvalue, olinewidth, pvalue, linewidth, {1, 1, 1, 1}, "overlay")
Tercio@20	2889 lastvalue = pvalue
Tercio@20	2890
Tercio@20	2891 local line = self:GetLine (i)
Tercio@20	2892 line:Show()
Tercio@20	2893 line.ball:Show()
Tercio@20	2894
Tercio@20	2895 line.ball:SetPoint ("bottomleft", self, "bottomleft", (o*linewidth)-8, pvalue-8)
Tercio@20	2896 line.spellicon:SetTexture (nil)
Tercio@20	2897 line.timeline:SetText (data.text)
Tercio@20	2898 line.timeline:Show()
Tercio@20	2899
Tercio@20	2900 line.data = data
Tercio@20	2901
Tercio@20	2902 o = o + 1
Tercio@20	2903 end
Tercio@20	2904
Tercio@20	2905 end
Tercio@20	2906
Tercio@20	2907 function DF:CreateGFrame (parent, w, h, linewidth, onenter, onleave, member, name)
Tercio@20	2908 local f = CreateFrame ("frame", name, parent)
Tercio@20	2909 f:SetSize (w or 450, h or 150)
Tercio@20	2910 f.CustomLine = [[Interface\AddOns\Details\Libs\LibGraph-2.0\line]]
Tercio@20	2911
Tercio@20	2912 if (member) then
Tercio@20	2913 parent [member] = f
Tercio@20	2914 end
Tercio@20	2915
Tercio@20	2916 f.CreateLine = gframe_create_line
Tercio@20	2917 f.GetLine = gframe_getline
Tercio@20	2918 f.Reset = gframe_reset
Tercio@20	2919 f.UpdateLines = gframe_update
Tercio@20	2920
Tercio@20	2921 f._lines = {}
Tercio@20	2922
Tercio@20	2923 f._onenter_line = onenter
Tercio@20	2924 f._onleave_line = onleave
Tercio@20	2925
Tercio@20	2926 f._linewidth = linewidth or 50
Tercio@20	2927 f._maxlines = floor (f:GetWidth() / f._linewidth)
Tercio@20	2928
Tercio@20	2929 return f
Tercio@11	2930 end

Mercurial > wow > hansgar_and_franzok_assist

annotate Libs/DF/panel.lua @ 20:dc1c77254f80