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

- added close button to users panel. - framework update.
author Tercio
date Tue, 11 Aug 2015 12:46:46 -0300
parents 0c160948ac5e
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@20 4 return
Tercio@20 5 end
Tercio@20 6
Tercio@11 7 local _
Tercio@11 8 local _rawset = rawset --> lua local
Tercio@11 9 local _rawget = rawget --> lua local
Tercio@11 10 local _setmetatable = setmetatable --> lua local
Tercio@11 11 local _unpack = unpack --> lua local
Tercio@11 12 local _type = type --> lua local
Tercio@11 13 local _math_floor = math.floor --> lua local
Tercio@11 14 local loadstring = loadstring --> lua local
Tercio@11 15 local _string_len = string.len --> lua local
Tercio@11 16
Tercio@11 17 local cleanfunction = function() end
Tercio@11 18 local APIDropDownFunctions = false
Tercio@11 19 local DropDownMetaFunctions = {}
Tercio@11 20
Tercio@11 21 ------------------------------------------------------------------------------------------------------------
Tercio@11 22 --> metatables
Tercio@11 23
Tercio@11 24 DropDownMetaFunctions.__call = function (_table, value)
Tercio@11 25 --> unknow
Tercio@11 26 end
Tercio@11 27
Tercio@11 28 ------------------------------------------------------------------------------------------------------------
Tercio@11 29 --> members
Tercio@11 30
Tercio@11 31 --> selected value
Tercio@11 32 local gmember_value = function (_object)
Tercio@11 33 return _object:GetValue()
Tercio@11 34 end
Tercio@11 35 --> tooltip
Tercio@11 36 local gmember_tooltip = function (_object)
Tercio@11 37 return _object:GetTooltip()
Tercio@11 38 end
Tercio@11 39 --> shown
Tercio@11 40 local gmember_shown = function (_object)
Tercio@11 41 return _object:IsShown()
Tercio@11 42 end
Tercio@11 43 --> frame width
Tercio@11 44 local gmember_width = function (_object)
Tercio@11 45 return _object.button:GetWidth()
Tercio@11 46 end
Tercio@11 47 --> frame height
Tercio@11 48 local gmember_height = function (_object)
Tercio@11 49 return _object.button:GetHeight()
Tercio@11 50 end
Tercio@11 51 --> current text
Tercio@11 52 local gmember_text = function (_object)
Tercio@11 53 return _object.label:GetText()
Tercio@11 54 end
Tercio@11 55 --> menu creation function
Tercio@11 56 local gmember_function = function (_object)
Tercio@11 57 return _object:GetFunction()
Tercio@11 58 end
Tercio@11 59 --> menu width
Tercio@11 60 local gmember_menuwidth = function (_object)
Tercio@11 61 return _rawget (self, "realsizeW")
Tercio@11 62 end
Tercio@11 63 --> menu height
Tercio@11 64 local gmember_menuheight = function (_object)
Tercio@11 65 return _rawget (self, "realsizeH")
Tercio@11 66 end
Tercio@11 67
Tercio@11 68 local get_members_function_index = {
Tercio@11 69 ["value"] = gmember_value,
Tercio@11 70 ["text"] = gmember_text,
Tercio@11 71 ["shown"] = gmember_shown,
Tercio@11 72 ["width"] = gmember_width,
Tercio@11 73 ["menuwidth"] = gmember_menuwidth,
Tercio@11 74 ["height"] = gmember_height,
Tercio@11 75 ["menuheight"] = gmember_menuheight,
Tercio@11 76 ["tooltip"] = gmember_tooltip,
Tercio@11 77 ["func"] = gmember_function,
Tercio@11 78 }
Tercio@11 79
Tercio@11 80 DropDownMetaFunctions.__index = function (_table, _member_requested)
Tercio@11 81
Tercio@11 82 local func = get_members_function_index [_member_requested]
Tercio@11 83 if (func) then
Tercio@11 84 return func (_table, _member_requested)
Tercio@11 85 end
Tercio@11 86
Tercio@11 87 local fromMe = _rawget (_table, _member_requested)
Tercio@11 88 if (fromMe) then
Tercio@11 89 return fromMe
Tercio@11 90 end
Tercio@11 91
Tercio@11 92 return DropDownMetaFunctions [_member_requested]
Tercio@11 93 end
Tercio@11 94
Tercio@11 95 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Tercio@11 96
Tercio@11 97 --> tooltip
Tercio@11 98 local smember_tooltip = function (_object, _value)
Tercio@11 99 return _object:SetTooltip (_value)
Tercio@11 100 end
Tercio@11 101 --> show
Tercio@11 102 local smember_show = function (_object, _value)
Tercio@11 103 if (_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 --> hide
Tercio@11 110 local smember_hide = function (_object, _value)
Tercio@11 111 if (not _value) then
Tercio@11 112 return _object:Show()
Tercio@11 113 else
Tercio@11 114 return _object:Hide()
Tercio@11 115 end
Tercio@11 116 end
Tercio@11 117 --> frame width
Tercio@11 118 local smember_width = function (_object, _value)
Tercio@11 119 return _object.dropdown:SetWidth (_value)
Tercio@11 120 end
Tercio@11 121 --> frame height
Tercio@11 122 local smember_height = function (_object, _value)
Tercio@11 123 return _object.dropdown:SetHeight (_value)
Tercio@11 124 end
Tercio@11 125 --> menu creation function
Tercio@11 126 local smember_function = function (_object, _value)
Tercio@11 127 return _object:SetFunction (_value)
Tercio@11 128 end
Tercio@11 129 --> menu width
Tercio@11 130 local smember_menuwidth = function (_object, _value)
Tercio@11 131 _object:SetMenuSize (_value, nil)
Tercio@11 132 end
Tercio@11 133 --> menu height
Tercio@11 134 local smember_menuheight = function (_object, _value)
Tercio@11 135 _object:SetMenuSize (nil, _value)
Tercio@11 136 end
Tercio@11 137
Tercio@11 138 local set_members_function_index = {
Tercio@11 139 ["tooltip"] = smember_tooltip,
Tercio@11 140 ["show"] = smember_show,
Tercio@11 141 ["hide"] = smember_hide,
Tercio@11 142 ["width"] = smember_width,
Tercio@11 143 ["menuwidth"] = smember_menuwidth,
Tercio@11 144 ["height"] = smember_height,
Tercio@11 145 ["menuheight"] = smember_menuheight,
Tercio@11 146 ["func"] = smember_function,
Tercio@11 147 }
Tercio@11 148
Tercio@11 149 DropDownMetaFunctions.__newindex = function (_table, _key, _value)
Tercio@11 150 local func = set_members_function_index [_key]
Tercio@11 151 if (func) then
Tercio@11 152 return func (_table, _value)
Tercio@11 153 else
Tercio@11 154 return _rawset (_table, _key, _value)
Tercio@11 155 end
Tercio@11 156 end
Tercio@11 157
Tercio@11 158 ------------------------------------------------------------------------------------------------------------
Tercio@11 159 --> methods
Tercio@11 160 function DropDownMetaFunctions:IsShown()
Tercio@11 161 return self.dropdown:IsShown()
Tercio@11 162 end
Tercio@11 163 function DropDownMetaFunctions:Show()
Tercio@11 164 return self.dropdown:Show()
Tercio@11 165 end
Tercio@11 166 function DropDownMetaFunctions:Hide()
Tercio@11 167 return self.dropdown:Hide()
Tercio@11 168 end
Tercio@11 169
Tercio@11 170 --> menu width and height
Tercio@11 171 function DropDownMetaFunctions:SetMenuSize (w, h)
Tercio@11 172 if (w) then
Tercio@11 173 return _rawset (self, "realsizeW", w)
Tercio@11 174 end
Tercio@11 175 if (h) then
Tercio@11 176 return _rawset (self, "realsizeH", h)
Tercio@11 177 end
Tercio@11 178 end
Tercio@11 179 function DropDownMetaFunctions:GetMenuSize()
Tercio@11 180 return _rawget (self, "realsizeW"), _rawget (self, "realsizeH")
Tercio@11 181 end
Tercio@11 182
Tercio@11 183 --> function
Tercio@11 184 function DropDownMetaFunctions:SetFunction (func)
Tercio@11 185 return _rawset (self, "func", func)
Tercio@11 186 end
Tercio@11 187 function DropDownMetaFunctions:GetFunction()
Tercio@11 188 return _rawget (self, "func")
Tercio@11 189 end
Tercio@11 190
Tercio@11 191 --> value
Tercio@11 192 function DropDownMetaFunctions:GetValue()
Tercio@11 193 return _rawget (self, "myvalue")
Tercio@11 194 end
Tercio@11 195 function DropDownMetaFunctions:SetValue (value)
Tercio@11 196 return _rawset (self, "myvalue", value)
Tercio@11 197 end
Tercio@11 198
Tercio@11 199 --> setpoint
Tercio@11 200 function DropDownMetaFunctions:SetPoint (v1, v2, v3, v4, v5)
Tercio@11 201 v1, v2, v3, v4, v5 = DF:CheckPoints (v1, v2, v3, v4, v5, self)
Tercio@11 202 if (not v1) then
Tercio@11 203 print ("Invalid parameter for SetPoint")
Tercio@11 204 return
Tercio@11 205 end
Tercio@11 206 return self.widget:SetPoint (v1, v2, v3, v4, v5)
Tercio@11 207 end
Tercio@11 208
Tercio@11 209 --> sizes
Tercio@11 210 function DropDownMetaFunctions:SetSize (w, h)
Tercio@11 211 if (w) then
Tercio@11 212 self.dropdown:SetWidth (w)
Tercio@11 213 end
Tercio@11 214 if (h) then
Tercio@11 215 return self.dropdown:SetHeight (h)
Tercio@11 216 end
Tercio@11 217 end
Tercio@11 218
Tercio@11 219 --> tooltip
Tercio@11 220 function DropDownMetaFunctions:SetTooltip (tooltip)
Tercio@11 221 if (tooltip) then
Tercio@11 222 return _rawset (self, "have_tooltip", tooltip)
Tercio@11 223 else
Tercio@11 224 return _rawset (self, "have_tooltip", nil)
Tercio@11 225 end
Tercio@11 226 end
Tercio@11 227 function DropDownMetaFunctions:GetTooltip()
Tercio@11 228 return _rawget (self, "have_tooltip")
Tercio@11 229 end
Tercio@11 230
Tercio@11 231 --> frame levels
Tercio@11 232 function DropDownMetaFunctions:GetFrameLevel()
Tercio@11 233 return self.dropdown:GetFrameLevel()
Tercio@11 234 end
Tercio@11 235 function DropDownMetaFunctions:SetFrameLevel (level, frame)
Tercio@11 236 if (not frame) then
Tercio@11 237 return self.dropdown:SetFrameLevel (level)
Tercio@11 238 else
Tercio@11 239 local framelevel = frame:GetFrameLevel (frame) + level
Tercio@11 240 return self.dropdown:SetFrameLevel (framelevel)
Tercio@11 241 end
Tercio@11 242 end
Tercio@11 243
Tercio@11 244 --> frame stratas
Tercio@11 245 function DropDownMetaFunctions:GetFrameStrata()
Tercio@11 246 return self.dropdown:GetFrameStrata()
Tercio@11 247 end
Tercio@11 248 function DropDownMetaFunctions:SetFrameStrata (strata)
Tercio@11 249 if (_type (strata) == "table") then
Tercio@11 250 self.dropdown:SetFrameStrata (strata:GetFrameStrata())
Tercio@11 251 else
Tercio@11 252 self.dropdown:SetFrameStrata (strata)
Tercio@11 253 end
Tercio@11 254 end
Tercio@11 255
Tercio@11 256 --> enabled
Tercio@11 257 function DropDownMetaFunctions:IsEnabled()
Tercio@11 258 return self.dropdown:IsEnabled()
Tercio@11 259 end
Tercio@11 260
Tercio@11 261 function DropDownMetaFunctions:Enable()
Tercio@11 262
Tercio@11 263 self:SetAlpha (1)
Tercio@11 264 _rawset (self, "lockdown", false)
Tercio@11 265
Tercio@11 266 if (self.OnEnable) then
Tercio@11 267 self.OnEnable (self)
Tercio@11 268 end
Tercio@11 269 --return self.dropdown:Enable()
Tercio@11 270 end
Tercio@11 271
Tercio@11 272 function DropDownMetaFunctions:Disable()
Tercio@11 273
Tercio@11 274 self:SetAlpha (.4)
Tercio@11 275 _rawset (self, "lockdown", true)
Tercio@11 276
Tercio@11 277 if (self.OnDisable) then
Tercio@11 278 self.OnDisable (self)
Tercio@11 279 end
Tercio@11 280 --return self.dropdown:Disable()
Tercio@11 281 end
Tercio@11 282
Tercio@11 283 --> fixed value
Tercio@11 284 function DropDownMetaFunctions:SetFixedParameter (value)
Tercio@11 285 _rawset (self, "FixedValue", value)
Tercio@11 286 end
Tercio@11 287
Tercio@11 288 --> hooks
Tercio@11 289 function DropDownMetaFunctions:SetHook (hookType, func)
Tercio@11 290 if (func) then
Tercio@11 291 _rawset (self, hookType.."Hook", func)
Tercio@11 292 else
Tercio@11 293 _rawset (self, hookType.."Hook", nil)
Tercio@11 294 end
Tercio@11 295 end
Tercio@11 296
Tercio@11 297 ------------------------------------------------------------------------------------------------------------
Tercio@11 298 --> scripts
Tercio@11 299
Tercio@11 300 local last_opened = false
Tercio@11 301
Tercio@11 302 local function isOptionVisible (thisOption)
Tercio@11 303 if (_type (thisOption.shown) == "boolean" or _type (thisOption.shown) == "function") then
Tercio@11 304 if (not thisOption.shown) then
Tercio@11 305 return false
Tercio@11 306 elseif (not thisOption.shown()) then
Tercio@11 307 return false
Tercio@11 308 end
Tercio@11 309 end
Tercio@11 310 return true
Tercio@11 311 end
Tercio@11 312
Tercio@11 313 function DropDownMetaFunctions:Refresh()
Tercio@11 314 local menu = self.func()
Tercio@11 315
Tercio@11 316 if (#menu == 0) then
Tercio@11 317 self:NoOption (true)
Tercio@11 318 self.no_options = true
Tercio@11 319 return false
Tercio@11 320
Tercio@11 321 elseif (self.no_options) then
Tercio@11 322 self.no_options = false
Tercio@11 323 self:NoOption (false)
Tercio@11 324 self:NoOptionSelected()
Tercio@11 325 return true
Tercio@11 326 end
Tercio@11 327
Tercio@11 328 return true
Tercio@11 329 end
Tercio@11 330
Tercio@11 331 function DropDownMetaFunctions:NoOptionSelected()
Tercio@11 332 self.label:SetText (self.empty_text or "no option selected")
Tercio@11 333 self.label:SetTextColor (1, 1, 1, 0.4)
Tercio@11 334 if (self.empty_icon) then
Tercio@11 335 self.icon:SetTexture (self.empty_icon)
Tercio@11 336 else
Tercio@11 337 self.icon:SetTexture ([[Interface\COMMON\UI-ModelControlPanel]])
Tercio@11 338 self.icon:SetTexCoord (0.625, 0.78125, 0.328125, 0.390625)
Tercio@11 339 end
Tercio@11 340 self.icon:SetVertexColor (1, 1, 1, 0.4)
Tercio@11 341
Tercio@11 342 self.last_select = nil
Tercio@11 343 end
Tercio@11 344
Tercio@11 345 function DropDownMetaFunctions:NoOption (state)
Tercio@11 346 if (state) then
Tercio@11 347 self:Disable()
Tercio@11 348 self:SetAlpha (0.5)
Tercio@11 349 self.no_options = true
Tercio@11 350 self.label:SetText ("no options")
Tercio@11 351 self.label:SetTextColor (1, 1, 1, 0.4)
Tercio@11 352 self.icon:SetTexture ([[Interface\CHARACTERFRAME\UI-Player-PlayTimeUnhealthy]])
Tercio@11 353 self.icon:SetTexCoord (0, 1, 0, 1)
Tercio@11 354 self.icon:SetVertexColor (1, 1, 1, 0.4)
Tercio@11 355 else
Tercio@11 356 self.no_options = false
Tercio@11 357 self:Enable()
Tercio@11 358 self:SetAlpha (1)
Tercio@11 359 end
Tercio@11 360 end
Tercio@11 361
Tercio@11 362 function DropDownMetaFunctions:Select (optionName, byOptionNumber)
Tercio@11 363
Tercio@11 364 if (type (optionName) == "boolean" and not optionName) then
Tercio@11 365 self:NoOptionSelected()
Tercio@11 366 return false
Tercio@11 367 end
Tercio@11 368
Tercio@11 369 local menu = self.func()
Tercio@11 370
Tercio@11 371 if (#menu == 0) then
Tercio@11 372 self:NoOption (true)
Tercio@11 373 return true
Tercio@11 374 else
Tercio@11 375 self:NoOption (false)
Tercio@11 376 end
Tercio@11 377
Tercio@11 378 if (byOptionNumber and type (optionName) == "number") then
Tercio@11 379 if (not menu [optionName]) then --> invalid index
Tercio@11 380 self:NoOptionSelected()
Tercio@11 381 return false
Tercio@11 382 end
Tercio@11 383 self:Selected (menu [optionName])
Tercio@11 384 return true
Tercio@11 385 end
Tercio@11 386
Tercio@11 387 for _, thisMenu in ipairs (menu) do
Tercio@11 388 if ( ( thisMenu.label == optionName or thisMenu.value == optionName ) and isOptionVisible (thisMenu)) then
Tercio@11 389 self:Selected (thisMenu)
Tercio@11 390 return true
Tercio@11 391 end
Tercio@11 392 end
Tercio@11 393
Tercio@11 394 return false
Tercio@11 395 end
Tercio@11 396
Tercio@11 397 function DropDownMetaFunctions:SetEmptyTextAndIcon (text, icon)
Tercio@11 398 if (text) then
Tercio@11 399 self.empty_text = text
Tercio@11 400 end
Tercio@11 401 if (icon) then
Tercio@11 402 self.empty_icon = icon
Tercio@11 403 end
Tercio@11 404
Tercio@11 405 self:Selected (self.last_select)
Tercio@11 406 end
Tercio@11 407
Tercio@11 408 function DropDownMetaFunctions:Selected (_table)
Tercio@11 409
Tercio@11 410 if (not _table) then
Tercio@11 411
Tercio@11 412 --> there is any options?
Tercio@11 413 if (not self:Refresh()) then
Tercio@11 414 self.last_select = nil
Tercio@11 415 return
Tercio@11 416 end
Tercio@11 417
Tercio@11 418 --> exists options but none selected
Tercio@11 419 self:NoOptionSelected()
Tercio@11 420 return
Tercio@11 421 end
Tercio@11 422
Tercio@11 423 self.last_select = _table
Tercio@11 424 self:NoOption (false)
Tercio@11 425
Tercio@11 426 self.label:SetText (_table.label)
Tercio@11 427 self.icon:SetTexture (_table.icon)
Tercio@11 428
Tercio@11 429 if (_table.icon) then
Tercio@11 430 self.label:SetPoint ("left", self.icon, "right", 2, 0)
Tercio@11 431 if (_table.texcoord) then
Tercio@11 432 self.icon:SetTexCoord (unpack (_table.texcoord))
Tercio@11 433 else
Tercio@11 434 self.icon:SetTexCoord (0, 1, 0, 1)
Tercio@11 435 end
Tercio@11 436
Tercio@11 437 if (_table.iconcolor) then
Tercio@11 438 if (type (_table.iconcolor) == "string") then
Tercio@11 439 self.icon:SetVertexColor (DF:ParseColors (_table.iconcolor))
Tercio@11 440 else
Tercio@11 441 self.icon:SetVertexColor (unpack (_table.iconcolor))
Tercio@11 442 end
Tercio@11 443 else
Tercio@11 444 self.icon:SetVertexColor (1, 1, 1, 1)
Tercio@11 445 end
Tercio@11 446
Tercio@11 447 else
Tercio@11 448 self.label:SetPoint ("left", self.label:GetParent(), "left", 4, 0)
Tercio@11 449 end
Tercio@11 450
Tercio@11 451 self.statusbar:SetTexture (_table.statusbar)
Tercio@11 452
Tercio@11 453 if (_table.color) then
Tercio@11 454 local _value1, _value2, _value3, _value4 = DF:ParseColors (_table.color)
Tercio@11 455 self.label:SetTextColor (_value1, _value2, _value3, _value4)
Tercio@11 456 else
Tercio@11 457 self.label:SetTextColor (1, 1, 1, 1)
Tercio@11 458 end
Tercio@11 459
Tercio@11 460 if (_table.font) then
Tercio@11 461 self.label:SetFont (_table.font, 10)
Tercio@11 462 else
Tercio@11 463 self.label:SetFont ("GameFontHighlightSmall", 10)
Tercio@11 464 end
Tercio@11 465
Tercio@11 466 self:SetValue (_table.value)
Tercio@11 467
Tercio@11 468 end
Tercio@11 469
Tercio@11 470 function DetailsFrameworkDropDownOptionClick (button)
Tercio@11 471
Tercio@11 472 --> update name and icon on main frame
Tercio@11 473 button.object:Selected (button.table)
Tercio@11 474
Tercio@11 475 --> close menu frame
Tercio@11 476 button.object:Close()
Tercio@11 477
Tercio@11 478 --> exec function if any
Tercio@11 479 if (button.table.onclick) then
Tercio@11 480 button.table.onclick (button:GetParent():GetParent():GetParent().MyObject, button.object.FixedValue, button.table.value)
Tercio@11 481 end
Tercio@11 482
Tercio@11 483 --> set the value of selected option in main object
Tercio@11 484 button.object.myvalue = button.table.value
Tercio@11 485 end
Tercio@11 486
Tercio@11 487 function DropDownMetaFunctions:Open()
Tercio@11 488 self.dropdown.dropdownframe:Show()
Tercio@11 489 self.dropdown.dropdownborder:Show()
Tercio@11 490 self.dropdown.arrowTexture:SetTexture ("Interface\\Buttons\\UI-ScrollBar-ScrollDownButton-Down")
Tercio@11 491 self.opened = true
Tercio@11 492 if (last_opened) then
Tercio@11 493 last_opened:Close()
Tercio@11 494 end
Tercio@11 495 last_opened = self
Tercio@11 496 end
Tercio@11 497
Tercio@11 498 function DropDownMetaFunctions:Close()
Tercio@11 499 --> when menu is being close, just hide the border and the script will call back this again
Tercio@11 500 if (self.dropdown.dropdownborder:IsShown()) then
Tercio@11 501 self.dropdown.dropdownborder:Hide()
Tercio@11 502 return
Tercio@11 503 end
Tercio@11 504 self.dropdown.dropdownframe:Hide()
Tercio@11 505 self.dropdown.arrowTexture:SetTexture ("Interface\\Buttons\\UI-ScrollBar-ScrollDownButton-Up")
Tercio@11 506
Tercio@11 507 local selectedTexture = _G [self:GetName() .. "_ScrollFrame_ScrollChild_SelectedTexture"]
Tercio@11 508 selectedTexture:Hide()
Tercio@11 509
Tercio@11 510 self.opened = false
Tercio@11 511 last_opened = false
Tercio@11 512 end
Tercio@11 513
Tercio@11 514 --> close by escape key
Tercio@11 515 function DetailsFrameworkDropDownOptionsFrameOnHide (frame)
Tercio@11 516 frame:GetParent().MyObject:Close()
Tercio@11 517 end
Tercio@11 518
Tercio@11 519 function DetailsFrameworkDropDownOptionOnEnter (frame)
Tercio@11 520 if (frame.table.desc) then
Tercio@17 521 GameCooltip2:Preset (2)
Tercio@11 522 GameCooltip2:AddLine (frame.table.desc)
Tercio@11 523 if (frame.table.descfont) then
Tercio@11 524 GameCooltip2:SetOption ("TextFont", frame.table.descfont)
Tercio@11 525 end
Tercio@11 526
Tercio@11 527 GameCooltip2:SetHost (frame, "topleft", "topright", 10, 0)
Tercio@11 528
Tercio@11 529 GameCooltip2:ShowCooltip (nil, "tooltip")
Tercio@11 530 frame.tooltip = true
Tercio@11 531 end
Tercio@11 532 frame:GetParent().mouseover:SetPoint ("left", frame)
Tercio@11 533 frame:GetParent().mouseover:Show()
Tercio@11 534 end
Tercio@11 535
Tercio@11 536 function DetailsFrameworkDropDownOptionOnLeave (frame)
Tercio@11 537 if (frame.table.desc) then
Tercio@11 538 GameCooltip2:ShowMe (false)
Tercio@11 539 end
Tercio@11 540 frame:GetParent().mouseover:Hide()
Tercio@11 541 end
Tercio@11 542
Tercio@11 543 function DetailsFrameworkDropDownOnMouseDown (button)
Tercio@11 544
Tercio@11 545 local object = button.MyObject
Tercio@11 546
Tercio@11 547 if (not object.opened and not _rawget (object, "lockdown")) then --> click to open
Tercio@11 548
Tercio@11 549 local menu = object:func()
Tercio@11 550 object.builtMenu = menu
Tercio@11 551
Tercio@11 552 local frame_witdh = object.realsizeW
Tercio@11 553
Tercio@11 554 if (menu [1]) then
Tercio@11 555 --> build menu
Tercio@11 556
Tercio@11 557 local scrollFrame = _G [button:GetName() .. "_ScrollFrame"]
Tercio@11 558 local scrollChild = _G [button:GetName() .. "_ScrollFrame_ScrollChild"]
Tercio@11 559 local scrollBorder = _G [button:GetName() .. "_Border"]
Tercio@11 560 local selectedTexture = _G [button:GetName() .. "_ScrollFrame_ScrollChild_SelectedTexture"]
Tercio@11 561 local mouseOverTexture = _G [button:GetName() .. "_ScrollFrame_ScrollChild_MouseOverTexture"]
Tercio@11 562
Tercio@11 563 local i = 1
Tercio@11 564 local showing = 0
Tercio@11 565 local currentText = button.text:GetText() or ""
Tercio@11 566
Tercio@11 567 if (object.OnMouseDownHook) then
Tercio@11 568 local interrupt = object.OnMouseDownHook (button, buttontype, menu, scrollFrame, scrollChild, selectedTexture)
Tercio@11 569 if (interrupt) then
Tercio@11 570 return
Tercio@11 571 end
Tercio@11 572 end
Tercio@11 573
Tercio@11 574 for _, _table in ipairs (menu) do
Tercio@11 575
Tercio@11 576 local show = isOptionVisible (_table)
Tercio@11 577
Tercio@11 578 if (show) then
Tercio@11 579 local _this_row = object.menus [i]
Tercio@11 580 showing = showing + 1
Tercio@11 581
Tercio@11 582 if (not _this_row) then
Tercio@11 583
Tercio@11 584 local name = button:GetName() .. "Row" .. i
Tercio@11 585 local parent = scrollChild
Tercio@11 586
Tercio@11 587 _this_row = CreateFrame ("Button", name, parent, "DetailsFrameworkDropDownOptionTemplate")
Tercio@11 588 local anchor_i = i-1
Tercio@11 589 _this_row:SetPoint ("topleft", parent, "topleft", 5, (-anchor_i*20)-5)
Tercio@11 590 _this_row:SetPoint ("topright", parent, "topright", -5, (-anchor_i*20)-5)
Tercio@11 591 _this_row.object = object
Tercio@11 592 object.menus [i] = _this_row
Tercio@11 593 end
Tercio@11 594
Tercio@11 595 _this_row.icon:SetTexture (_table.icon)
Tercio@11 596 if (_table.icon) then
Tercio@11 597
Tercio@11 598 _this_row.label:SetPoint ("left", _this_row.icon, "right", 5, 0)
Tercio@11 599
Tercio@11 600 if (_table.texcoord) then
Tercio@11 601 _this_row.icon:SetTexCoord (unpack (_table.texcoord))
Tercio@11 602 else
Tercio@11 603 _this_row.icon:SetTexCoord (0, 1, 0, 1)
Tercio@11 604 end
Tercio@11 605
Tercio@11 606 if (_table.iconcolor) then
Tercio@11 607 if (type (_table.iconcolor) == "string") then
Tercio@11 608 _this_row.icon:SetVertexColor (DF:ParseColors (_table.iconcolor))
Tercio@11 609 else
Tercio@11 610 _this_row.icon:SetVertexColor (unpack (_table.iconcolor))
Tercio@11 611 end
Tercio@11 612 else
Tercio@11 613 _this_row.icon:SetVertexColor (1, 1, 1, 1)
Tercio@11 614 end
Tercio@11 615 else
Tercio@11 616 _this_row.label:SetPoint ("left", _this_row.statusbar, "left", 2, 0)
Tercio@11 617 end
Tercio@11 618
Tercio@11 619 if (_table.iconsize) then
Tercio@11 620 _this_row.icon:SetSize (_table.iconsize[1], _table.iconsize[2])
Tercio@11 621 else
Tercio@11 622 _this_row.icon:SetSize (20, 20)
Tercio@11 623 end
Tercio@11 624
Tercio@11 625 if (_table.font) then
Tercio@11 626 _this_row.label:SetFont (_table.font, 10.5)
Tercio@11 627 else
Tercio@11 628 _this_row.label:SetFont ("GameFontHighlightSmall", 10.5)
Tercio@11 629 end
Tercio@11 630
Tercio@11 631 _this_row.statusbar:SetTexture (_table.statusbar)
Tercio@11 632 _this_row.label:SetText (_table.label)
Tercio@11 633
Tercio@11 634 if (currentText and currentText == _table.label) then
Tercio@11 635 if (_table.icon) then
Tercio@11 636 selectedTexture:SetPoint ("left", _this_row.icon, "left", -3, 0)
Tercio@11 637 else
Tercio@11 638 selectedTexture:SetPoint ("left", _this_row.statusbar, "left", 0, 0)
Tercio@11 639 end
Tercio@11 640
Tercio@11 641 selectedTexture:Show()
Tercio@11 642 selectedTexture:SetVertexColor (1, 1, 1, .3);
Tercio@11 643 currentText = nil
Tercio@11 644 end
Tercio@11 645
Tercio@11 646 if (_table.color) then
Tercio@11 647 local _value1, _value2, _value3, _value4 = DF:ParseColors (_table.color)
Tercio@11 648 _this_row.label:SetTextColor (_value1, _value2, _value3, _value4)
Tercio@11 649 else
Tercio@11 650 _this_row.label:SetTextColor (1, 1, 1, 1)
Tercio@11 651 end
Tercio@11 652
Tercio@11 653 _this_row.table = _table
Tercio@11 654
Tercio@11 655 local labelwitdh = _this_row.label:GetStringWidth()
Tercio@11 656 if (labelwitdh+40 > frame_witdh) then
Tercio@11 657 frame_witdh = labelwitdh+40
Tercio@11 658 end
Tercio@11 659 _this_row:Show()
Tercio@11 660
Tercio@11 661 i = i + 1
Tercio@11 662 end
Tercio@11 663
Tercio@11 664 end
Tercio@11 665
Tercio@11 666 if (currentText) then
Tercio@11 667 selectedTexture:Hide()
Tercio@11 668 else
Tercio@11 669 selectedTexture:SetWidth (frame_witdh-20)
Tercio@11 670 end
Tercio@11 671
Tercio@11 672 for i = showing+1, #object.menus do
Tercio@11 673 object.menus [i]:Hide()
Tercio@11 674 end
Tercio@11 675
Tercio@11 676 local size = object.realsizeH
Tercio@11 677
Tercio@11 678 if (showing*20 > size) then
Tercio@11 679 --show scrollbar and setup scroll
Tercio@11 680 object:ShowScroll()
Tercio@11 681 scrollFrame:EnableMouseWheel (true)
Tercio@11 682 object.scroll:Altura (size-35)
Tercio@11 683 object.scroll:SetMinMaxValues (0, (showing*20) - size + 20)
Tercio@11 684 --width
Tercio@11 685 scrollBorder:SetWidth (frame_witdh+20)
Tercio@11 686 scrollFrame:SetWidth (frame_witdh+20)
Tercio@11 687 scrollChild:SetWidth (frame_witdh+20)
Tercio@11 688 --height
Tercio@11 689 scrollBorder:SetHeight (size+20)
Tercio@11 690 scrollFrame:SetHeight (size)
Tercio@11 691 scrollChild:SetHeight ((showing*20)+20)
Tercio@11 692 --mouse over texture
Tercio@11 693 mouseOverTexture:SetWidth (frame_witdh-7)
Tercio@11 694 --selected
Tercio@11 695 selectedTexture:SetWidth (frame_witdh - 9)
Tercio@11 696
Tercio@11 697 for index, row in ipairs (object.menus) do
Tercio@11 698 row:SetPoint ("topright", scrollChild, "topright", -22, ((-index-1)*20)-5)
Tercio@11 699 end
Tercio@11 700
Tercio@11 701 else
Tercio@11 702 --hide scrollbar and disable wheel
Tercio@11 703 object:HideScroll()
Tercio@11 704 scrollFrame:EnableMouseWheel (false)
Tercio@11 705 --width
Tercio@11 706 scrollBorder:SetWidth (frame_witdh)
Tercio@11 707 scrollFrame:SetWidth (frame_witdh)
Tercio@11 708 scrollChild:SetWidth (frame_witdh)
Tercio@11 709 --height
Tercio@11 710 scrollBorder:SetHeight ((showing*20) + 25)
Tercio@11 711 scrollFrame:SetHeight ((showing*20) + 25)
Tercio@11 712 --mouse over texture
Tercio@11 713 mouseOverTexture:SetWidth (frame_witdh-10)
Tercio@11 714 --selected
Tercio@11 715 selectedTexture:SetWidth (frame_witdh - 9)
Tercio@11 716
Tercio@11 717 for index, row in ipairs (object.menus) do
Tercio@11 718 row:SetPoint ("topright", scrollChild, "topright", -5, ((-index-1)*20)-5)
Tercio@11 719 end
Tercio@11 720 end
Tercio@11 721
Tercio@11 722 object.scroll:SetValue (0)
Tercio@11 723 object:Open()
Tercio@11 724
Tercio@11 725 else
Tercio@11 726 --> clear menu
Tercio@11 727
Tercio@11 728 end
Tercio@11 729
Tercio@11 730 else --> click to close
Tercio@11 731
Tercio@11 732 object:Close()
Tercio@11 733 end
Tercio@11 734
Tercio@11 735 end
Tercio@11 736
Tercio@11 737 function DetailsFrameworkDropDownOnEnter (self)
Tercio@11 738
Tercio@11 739 if (self.MyObject.OnEnterHook) then
Tercio@11 740 local interrupt = self.MyObject.OnEnterHook (self)
Tercio@11 741 if (interrupt) then
Tercio@11 742 return
Tercio@11 743 end
Tercio@11 744 end
Tercio@11 745
Tercio@11 746 if (self.MyObject.onenter_backdrop) then
Tercio@11 747 self:SetBackdropColor (unpack (self.MyObject.onenter_backdrop))
Tercio@11 748 else
Tercio@11 749 self:SetBackdropColor (.2, .2, .2, .2)
Tercio@11 750 end
Tercio@11 751
Tercio@11 752 self.arrowTexture2:Show()
Tercio@11 753
Tercio@11 754 if (self.MyObject.have_tooltip) then
Tercio@17 755 GameCooltip2:Preset (2)
Tercio@17 756
Tercio@17 757 if (type (self.MyObject.have_tooltip) == "function") then
Tercio@17 758 GameCooltip2:AddLine (self.MyObject.have_tooltip() or "")
Tercio@17 759 else
Tercio@17 760 GameCooltip2:AddLine (self.MyObject.have_tooltip)
Tercio@17 761 end
Tercio@17 762
Tercio@11 763 GameCooltip2:SetOwner (self)
Tercio@11 764 GameCooltip2:ShowCooltip()
Tercio@11 765 end
Tercio@11 766
Tercio@11 767 local parent = self:GetParent().MyObject
Tercio@11 768 if (parent and parent.type == "panel") then
Tercio@11 769 if (parent.GradientEnabled) then
Tercio@11 770 parent:RunGradient()
Tercio@11 771 end
Tercio@11 772 end
Tercio@11 773
Tercio@11 774 end
Tercio@11 775
Tercio@11 776 function DetailsFrameworkDropDownOnLeave (self)
Tercio@11 777 if (self.MyObject.OnLeaveHook) then
Tercio@11 778 local interrupt = self.MyObject.OnLeaveHook (self)
Tercio@11 779 if (interrupt) then
Tercio@11 780 return
Tercio@11 781 end
Tercio@11 782 end
Tercio@11 783
Tercio@11 784 if (self.MyObject.onleave_backdrop) then
Tercio@11 785 self:SetBackdropColor (unpack (self.MyObject.onleave_backdrop))
Tercio@11 786 else
Tercio@11 787 self:SetBackdropColor (1, 1, 1, .5)
Tercio@11 788 end
Tercio@11 789
Tercio@11 790 self.arrowTexture2:Hide()
Tercio@11 791
Tercio@11 792 if (self.MyObject.have_tooltip) then
Tercio@11 793 GameCooltip2:ShowMe (false)
Tercio@11 794 end
Tercio@11 795
Tercio@11 796 local parent = self:GetParent().MyObject
Tercio@11 797 if (parent and parent.type == "panel") then
Tercio@11 798 if (parent.GradientEnabled) then
Tercio@11 799 parent:RunGradient (false)
Tercio@11 800 end
Tercio@11 801 end
Tercio@11 802 end
Tercio@11 803
Tercio@11 804 function DetailsFrameworkDropDownOnSizeChanged (self, w, h)
Tercio@11 805 self.MyObject.label:SetSize (self:GetWidth()-40, 10)
Tercio@11 806 end
Tercio@11 807
Tercio@11 808 function DetailsFrameworkDropDownOnShow (self)
Tercio@11 809 if (self.MyObject and self.MyObject.OnShowHook) then
Tercio@11 810 local interrupt = self.MyObject.OnShowHook (self)
Tercio@11 811 if (interrupt) then
Tercio@11 812 return
Tercio@11 813 end
Tercio@11 814 end
Tercio@11 815 end
Tercio@11 816
Tercio@11 817 function DetailsFrameworkDropDownOnHide (self)
Tercio@11 818 if (self.MyObject and self.MyObject.OnHideHook) then
Tercio@11 819 local interrupt = self.MyObject.OnHideHook (self)
Tercio@11 820 if (interrupt) then
Tercio@11 821 return
Tercio@11 822 end
Tercio@11 823 end
Tercio@11 824
Tercio@11 825 self.MyObject:Close()
Tercio@11 826 end
Tercio@11 827
Tercio@20 828 function DF:BuildDropDownFontList (on_click, icon, icon_texcoord, icon_size)
Tercio@20 829 local t = {}
Tercio@20 830 local SharedMedia = LibStub:GetLibrary ("LibSharedMedia-3.0")
Tercio@20 831 for name, fontPath in pairs (SharedMedia:HashTable ("font")) do
Tercio@20 832 t[#t+1] = {value = name, label = name, onclick = on_click, icon = icon, iconsize = icon_size, texcoord = icon_texcoord, font = fontPath, descfont = "abcdefg ABCDEFG"}
Tercio@20 833 end
Tercio@20 834 table.sort (t, function (t1, t2) return t1.label < t2.label end)
Tercio@20 835 return t
Tercio@20 836 end
Tercio@11 837
Tercio@11 838 ------------------------------------------------------------------------------------------------------------
Tercio@11 839 --> object constructor
Tercio@11 840
Tercio@11 841 function DF:CreateDropDown (parent, func, default, w, h, member, name)
Tercio@11 842 return DF:NewDropDown (parent, parent, name, member, w, h, func, default)
Tercio@11 843 end
Tercio@11 844
Tercio@11 845 function DF:NewDropDown (parent, container, name, member, w, h, func, default)
Tercio@11 846
Tercio@11 847 if (not name) then
Tercio@11 848 name = "DetailsFrameworkDropDownNumber" .. DF.DropDownCounter
Tercio@11 849 DF.DropDownCounter = DF.DropDownCounter + 1
Tercio@11 850
Tercio@11 851 elseif (not parent) then
Tercio@11 852 return nil
Tercio@11 853 end
Tercio@11 854 if (not container) then
Tercio@11 855 container = parent
Tercio@11 856 end
Tercio@11 857
Tercio@11 858 if (name:find ("$parent")) then
Tercio@11 859 name = name:gsub ("$parent", parent:GetName())
Tercio@11 860 end
Tercio@11 861
Tercio@11 862 local DropDownObject = {type = "dropdown", dframework = true}
Tercio@11 863
Tercio@11 864 if (member) then
Tercio@11 865 parent [member] = DropDownObject
Tercio@11 866 end
Tercio@11 867
Tercio@11 868 if (parent.dframework) then
Tercio@11 869 parent = parent.widget
Tercio@11 870 end
Tercio@11 871 if (container.dframework) then
Tercio@11 872 container = container.widget
Tercio@11 873 end
Tercio@11 874
Tercio@11 875 if (default == nil) then
Tercio@11 876 default = 1
Tercio@11 877 end
Tercio@11 878
Tercio@11 879 --> default members:
Tercio@11 880 --> hooks
Tercio@11 881 DropDownObject.OnEnterHook = nil
Tercio@11 882 DropDownObject.OnLeaveHook = nil
Tercio@11 883 DropDownObject.OnHideHook = nil
Tercio@11 884 DropDownObject.OnShowHook = nil
Tercio@11 885 DropDownObject.OnMouseDownHook = nil
Tercio@11 886 --> misc
Tercio@11 887 DropDownObject.container = container
Tercio@11 888 DropDownObject.have_tooltip = nil
Tercio@11 889
Tercio@11 890 DropDownObject.dropdown = CreateFrame ("Button", name, parent, "DetailsFrameworkDropDownTemplate")
Tercio@11 891 DropDownObject.widget = DropDownObject.dropdown
Tercio@11 892
Tercio@11 893 DropDownObject.__it = {nil, nil}
Tercio@11 894 --_G [name] = DropDownObject
Tercio@11 895
Tercio@11 896 if (not APIDropDownFunctions) then
Tercio@11 897 APIDropDownFunctions = true
Tercio@11 898 local idx = getmetatable (DropDownObject.dropdown).__index
Tercio@11 899 for funcName, funcAddress in pairs (idx) do
Tercio@11 900 if (not DropDownMetaFunctions [funcName]) then
Tercio@11 901 DropDownMetaFunctions [funcName] = function (object, ...)
Tercio@20 902 local x = loadstring ( "return _G['"..object.dropdown:GetName().."']:"..funcName.."(...)")
Tercio@11 903 return x (...)
Tercio@11 904 end
Tercio@11 905 end
Tercio@11 906 end
Tercio@11 907 end
Tercio@11 908
Tercio@11 909 DropDownObject.dropdown.MyObject = DropDownObject
Tercio@11 910
Tercio@11 911 DropDownObject.dropdown:SetWidth (w)
Tercio@11 912 DropDownObject.dropdown:SetHeight (h)
Tercio@11 913
Tercio@11 914 DropDownObject.func = func
Tercio@11 915 DropDownObject.realsizeW = 150
Tercio@11 916 DropDownObject.realsizeH = 150
Tercio@11 917 DropDownObject.FixedValue = nil
Tercio@11 918 DropDownObject.opened = false
Tercio@11 919 DropDownObject.menus = {}
Tercio@11 920 DropDownObject.myvalue = nil
Tercio@11 921
Tercio@11 922 DropDownObject.label = _G [name .. "_Text"]
Tercio@11 923
Tercio@11 924 DropDownObject.icon = _G [name .. "_IconTexture"]
Tercio@11 925 DropDownObject.statusbar = _G [name .. "_StatusBarTexture"]
Tercio@11 926 DropDownObject.select = _G [name .. "_SelectedTexture"]
Tercio@11 927
Tercio@11 928 local scroll = _G [DropDownObject.dropdown:GetName() .. "_ScrollFrame"]
Tercio@11 929
Tercio@11 930 DropDownObject.scroll = DF:NewScrollBar (scroll, _G [DropDownObject.dropdown:GetName() .. "_ScrollFrame".."_ScrollChild"], -25, -18)
Tercio@11 931
Tercio@11 932 function DropDownObject:HideScroll()
Tercio@11 933 scroll.baixo:Hide()
Tercio@11 934 scroll.cima:Hide()
Tercio@11 935 scroll.slider:Hide()
Tercio@11 936 end
Tercio@11 937 function DropDownObject:ShowScroll()
Tercio@11 938 scroll.baixo:Show()
Tercio@11 939 scroll.cima:Show()
Tercio@11 940 scroll.slider:Show()
Tercio@11 941 end
Tercio@11 942
Tercio@11 943 --button_down_scripts (DropDownObject, scroll.slider, scroll.baixo)
Tercio@11 944
Tercio@11 945 DropDownObject:HideScroll()
Tercio@11 946 DropDownObject.label:SetSize (DropDownObject.dropdown:GetWidth()-40, 10)
Tercio@11 947
Tercio@11 948 --> setup class
Tercio@11 949 _setmetatable (DropDownObject, DropDownMetaFunctions)
Tercio@11 950
Tercio@11 951 --> initialize first menu selected
Tercio@11 952
Tercio@11 953 if (type (default) == "string") then
Tercio@11 954 DropDownObject:Select (default)
Tercio@11 955
Tercio@11 956 elseif (type (default) == "number") then
Tercio@11 957 if (not DropDownObject:Select (default)) then
Tercio@11 958 DropDownObject:Select (default, true)
Tercio@11 959 end
Tercio@11 960 end
Tercio@11 961
Tercio@11 962 return DropDownObject
Tercio@11 963
Tercio@11 964 end