Mercurial > wow > hansgar_and_franzok_assist

annotate Libs/DF/textentry.lua @ 43:2681843ada1c r43-release

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- 7.2 ToC Update.
author Tercio
date Tue, 28 Mar 2017 19:59:04 -0300
parents a960d5372b0c
children 7d5934415ad0
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 APITextEntryFunctions = false
Tercio@11 19
Tercio@39 20 do
Tercio@39 21 local metaPrototype = {
Tercio@39 22 WidgetType = "textentry",
Tercio@39 23 SetHook = DF.SetHook,
Tercio@39 24 RunHooksForWidget = DF.RunHooksForWidget,
Tercio@39 25 }
Tercio@39 26
Tercio@39 27 _G [DF.GlobalWidgetControlNames ["textentry"]] = _G [DF.GlobalWidgetControlNames ["textentry"]] or metaPrototype
Tercio@39 28 end
Tercio@39 29
Tercio@39 30 local TextEntryMetaFunctions = _G [DF.GlobalWidgetControlNames ["textentry"]]
Tercio@39 31 DF.TextEntryCounter = DF.TextEntryCounter or 1
Tercio@11 32
Tercio@11 33 ------------------------------------------------------------------------------------------------------------
Tercio@11 34 --> metatables
Tercio@11 35
Tercio@11 36 TextEntryMetaFunctions.__call = function (_table, value)
Tercio@11 37 --> unknow
Tercio@11 38 end
Tercio@11 39
Tercio@11 40 ------------------------------------------------------------------------------------------------------------
Tercio@11 41 --> members
Tercio@11 42
Tercio@11 43 --> tooltip
Tercio@11 44 local gmember_tooltip = function (_object)
Tercio@11 45 return _object:GetTooltip()
Tercio@11 46 end
Tercio@11 47 --> shown
Tercio@11 48 local gmember_shown = function (_object)
Tercio@11 49 return _object:IsShown()
Tercio@11 50 end
Tercio@11 51 --> frame width
Tercio@11 52 local gmember_width = function (_object)
Tercio@11 53 return _object.editbox:GetWidth()
Tercio@11 54 end
Tercio@11 55 --> frame height
Tercio@11 56 local gmember_height = function (_object)
Tercio@11 57 return _object.editbox:GetHeight()
Tercio@11 58 end
Tercio@11 59 --> get text
Tercio@11 60 local gmember_text = function (_object)
Tercio@11 61 return _object.editbox:GetText()
Tercio@11 62 end
Tercio@11 63
Tercio@39 64 TextEntryMetaFunctions.GetMembers = TextEntryMetaFunctions.GetMembers or {}
Tercio@39 65 TextEntryMetaFunctions.GetMembers ["tooltip"] = gmember_tooltip
Tercio@39 66 TextEntryMetaFunctions.GetMembers ["shown"] = gmember_shown
Tercio@39 67 TextEntryMetaFunctions.GetMembers ["width"] = gmember_width
Tercio@39 68 TextEntryMetaFunctions.GetMembers ["height"] = gmember_height
Tercio@39 69 TextEntryMetaFunctions.GetMembers ["text"] = gmember_text
Tercio@11 70
Tercio@11 71 TextEntryMetaFunctions.__index = function (_table, _member_requested)
Tercio@39 72 local func = TextEntryMetaFunctions.GetMembers [_member_requested]
Tercio@11 73 if (func) then
Tercio@11 74 return func (_table, _member_requested)
Tercio@11 75 end
Tercio@11 76
Tercio@11 77 local fromMe = _rawget (_table, _member_requested)
Tercio@11 78 if (fromMe) then
Tercio@11 79 return fromMe
Tercio@11 80 end
Tercio@11 81
Tercio@11 82 return TextEntryMetaFunctions [_member_requested]
Tercio@11 83 end
Tercio@11 84
Tercio@11 85 -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Tercio@11 86
Tercio@11 87 --> tooltip
Tercio@11 88 local smember_tooltip = function (_object, _value)
Tercio@11 89 return _object:SetTooltip (_value)
Tercio@11 90 end
Tercio@11 91 --> show
Tercio@11 92 local smember_show = function (_object, _value)
Tercio@11 93 if (_value) then
Tercio@11 94 return _object:Show()
Tercio@11 95 else
Tercio@11 96 return _object:Hide()
Tercio@11 97 end
Tercio@11 98 end
Tercio@11 99 --> hide
Tercio@11 100 local smember_hide = function (_object, _value)
Tercio@11 101 if (not _value) then
Tercio@11 102 return _object:Show()
Tercio@11 103 else
Tercio@11 104 return _object:Hide()
Tercio@11 105 end
Tercio@11 106 end
Tercio@11 107 --> frame width
Tercio@11 108 local smember_width = function (_object, _value)
Tercio@11 109 return _object.editbox:SetWidth (_value)
Tercio@11 110 end
Tercio@11 111 --> frame height
Tercio@11 112 local smember_height = function (_object, _value)
Tercio@11 113 return _object.editbox:SetHeight (_value)
Tercio@11 114 end
Tercio@11 115 --> set text
Tercio@11 116 local smember_text = function (_object, _value)
Tercio@11 117 return _object.editbox:SetText (_value)
Tercio@11 118 end
Tercio@11 119 --> set multiline
Tercio@11 120 local smember_multiline = function (_object, _value)
Tercio@11 121 if (_value) then
Tercio@11 122 return _object.editbox:SetMultiLine (true)
Tercio@11 123 else
Tercio@11 124 return _object.editbox:SetMultiLine (false)
Tercio@11 125 end
Tercio@11 126 end
Tercio@11 127 --> text horizontal pos
Tercio@11 128 local smember_horizontalpos = function (_object, _value)
Tercio@11 129 return _object.editbox:SetJustifyH (string.lower (_value))
Tercio@11 130 end
Tercio@11 131
Tercio@39 132 TextEntryMetaFunctions.SetMembers = TextEntryMetaFunctions.SetMembers or {}
Tercio@39 133 TextEntryMetaFunctions.SetMembers ["tooltip"] = smember_tooltip
Tercio@39 134 TextEntryMetaFunctions.SetMembers ["show"] = smember_show
Tercio@39 135 TextEntryMetaFunctions.SetMembers ["hide"] = smember_hide
Tercio@39 136 TextEntryMetaFunctions.SetMembers ["width"] = smember_width
Tercio@39 137 TextEntryMetaFunctions.SetMembers ["height"] = smember_height
Tercio@39 138 TextEntryMetaFunctions.SetMembers ["text"] = smember_text
Tercio@39 139 TextEntryMetaFunctions.SetMembers ["multiline"] = smember_multiline
Tercio@39 140 TextEntryMetaFunctions.SetMembers ["align"] = smember_horizontalpos
Tercio@11 141
Tercio@11 142 TextEntryMetaFunctions.__newindex = function (_table, _key, _value)
Tercio@39 143 local func = TextEntryMetaFunctions.SetMembers [_key]
Tercio@11 144 if (func) then
Tercio@11 145 return func (_table, _value)
Tercio@11 146 else
Tercio@11 147 return _rawset (_table, _key, _value)
Tercio@11 148 end
Tercio@11 149 end
Tercio@11 150
Tercio@11 151 ------------------------------------------------------------------------------------------------------------
Tercio@11 152 --> methods
Tercio@39 153 local cleanfunction = function()end
Tercio@39 154 function TextEntryMetaFunctions:SetEnterFunction (func, param1, param2)
Tercio@39 155 if (func) then
Tercio@39 156 _rawset (self, "func", func)
Tercio@39 157 else
Tercio@39 158 _rawset (self, "func", cleanfunction)
Tercio@39 159 end
Tercio@39 160
Tercio@39 161 if (param1 ~= nil) then
Tercio@39 162 _rawset (self, "param1", param1)
Tercio@39 163 end
Tercio@39 164 if (param2 ~= nil) then
Tercio@39 165 _rawset (self, "param2", param2)
Tercio@39 166 end
Tercio@39 167 end
Tercio@11 168
Tercio@11 169 --> set point
Tercio@11 170 function TextEntryMetaFunctions:SetPoint (MyAnchor, SnapTo, HisAnchor, x, y, Width)
Tercio@11 171
Tercio@11 172 if (type (MyAnchor) == "boolean" and MyAnchor and self.space) then
Tercio@11 173 local textWidth = self.label:GetStringWidth()+2
Tercio@11 174 self.editbox:SetWidth (self.space - textWidth - 15)
Tercio@11 175 return
Tercio@11 176
Tercio@11 177 elseif (type (MyAnchor) == "boolean" and MyAnchor and not self.space) then
Tercio@11 178 self.space = self.label:GetStringWidth()+2 + self.editbox:GetWidth()
Tercio@11 179 end
Tercio@11 180
Tercio@11 181 if (Width) then
Tercio@11 182 self.space = Width
Tercio@11 183 end
Tercio@11 184
Tercio@11 185 MyAnchor, SnapTo, HisAnchor, x, y = DF:CheckPoints (MyAnchor, SnapTo, HisAnchor, x, y, self)
Tercio@11 186 if (not MyAnchor) then
Tercio@11 187 print ("Invalid parameter for SetPoint")
Tercio@11 188 return
Tercio@11 189 end
Tercio@11 190
Tercio@11 191 if (self.space) then
Tercio@11 192 self.label:ClearAllPoints()
Tercio@11 193 self.editbox:ClearAllPoints()
Tercio@11 194
Tercio@11 195 self.label:SetPoint (MyAnchor, SnapTo, HisAnchor, x, y)
Tercio@11 196 self.editbox:SetPoint ("left", self.label, "right", 2, 0)
Tercio@11 197
Tercio@11 198 local textWidth = self.label:GetStringWidth()+2
Tercio@11 199 self.editbox:SetWidth (self.space - textWidth - 15)
Tercio@11 200 else
Tercio@11 201 self.label:ClearAllPoints()
Tercio@11 202 self.editbox:ClearAllPoints()
Tercio@11 203 self.editbox:SetPoint (MyAnchor, SnapTo, HisAnchor, x, y)
Tercio@11 204 end
Tercio@11 205
Tercio@11 206 end
Tercio@11 207
Tercioo@29 208 function TextEntryMetaFunctions:SetText (text)
Tercioo@29 209 self.editbox:SetText (text)
Tercioo@29 210 end
Tercioo@29 211 function TextEntryMetaFunctions:GetText()
Tercioo@29 212 return self.editbox:GetText()
Tercioo@29 213 end
Tercioo@29 214
Tercio@11 215 --> frame levels
Tercio@11 216 function TextEntryMetaFunctions:GetFrameLevel()
Tercio@11 217 return self.editbox:GetFrameLevel()
Tercio@11 218 end
Tercio@11 219 function TextEntryMetaFunctions:SetFrameLevel (level, frame)
Tercio@11 220 if (not frame) then
Tercio@11 221 return self.editbox:SetFrameLevel (level)
Tercio@11 222 else
Tercio@11 223 local framelevel = frame:GetFrameLevel (frame) + level
Tercio@11 224 return self.editbox:SetFrameLevel (framelevel)
Tercio@11 225 end
Tercio@11 226 end
Tercio@11 227
Tercio@11 228 --> select all text
Tercio@11 229 function TextEntryMetaFunctions:SelectAll()
Tercio@11 230 self.editbox:HighlightText()
Tercio@11 231 end
Tercio@11 232
Tercio@11 233 --> set labal description
Tercio@11 234 function TextEntryMetaFunctions:SetLabelText (text)
Tercio@11 235 if (text) then
Tercio@11 236 self.label:SetText (text)
Tercio@11 237 else
Tercio@11 238 self.label:SetText ("")
Tercio@11 239 end
Tercio@11 240 self:SetPoint (true) --> refresh
Tercio@11 241 end
Tercio@11 242
Tercio@11 243 --> set tab order
Tercio@11 244 function TextEntryMetaFunctions:SetNext (nextbox)
Tercio@11 245 self.next = nextbox
Tercio@11 246 end
Tercio@11 247
Tercio@11 248 --> blink
Tercio@11 249 function TextEntryMetaFunctions:Blink()
Tercio@11 250 self.label:SetTextColor (1, .2, .2, 1)
Tercio@11 251 end
Tercio@11 252
Tercio@11 253 --> show & hide
Tercio@11 254 function TextEntryMetaFunctions:IsShown()
Tercio@11 255 return self.editbox:IsShown()
Tercio@11 256 end
Tercio@11 257 function TextEntryMetaFunctions:Show()
Tercio@11 258 return self.editbox:Show()
Tercio@11 259 end
Tercio@11 260 function TextEntryMetaFunctions:Hide()
Tercio@11 261 return self.editbox:Hide()
Tercio@11 262 end
Tercio@11 263
Tercio@11 264 -- tooltip
Tercio@11 265 function TextEntryMetaFunctions:SetTooltip (tooltip)
Tercio@11 266 if (tooltip) then
Tercio@11 267 return _rawset (self, "have_tooltip", tooltip)
Tercio@11 268 else
Tercio@11 269 return _rawset (self, "have_tooltip", nil)
Tercio@11 270 end
Tercio@11 271 end
Tercio@11 272 function TextEntryMetaFunctions:GetTooltip()
Tercio@11 273 return _rawget (self, "have_tooltip")
Tercio@11 274 end
Tercio@11 275
Tercio@11 276 --> hooks
Tercio@11 277 function TextEntryMetaFunctions:Enable()
Tercio@11 278 if (not self.editbox:IsEnabled()) then
Tercio@11 279 self.editbox:Enable()
Tercio@11 280 self.editbox:SetBackdropBorderColor (unpack (self.enabled_border_color))
Tercio@11 281 self.editbox:SetBackdropColor (unpack (self.enabled_backdrop_color))
Tercio@11 282 self.editbox:SetTextColor (unpack (self.enabled_text_color))
Tercio@22 283 if (self.editbox.borderframe) then
Tercio@22 284 self.editbox.borderframe:SetBackdropColor (unpack (self.editbox.borderframe.onleave_backdrop))
Tercio@22 285 end
Tercio@11 286 end
Tercio@11 287 end
Tercio@11 288
Tercio@11 289 function TextEntryMetaFunctions:Disable()
Tercio@11 290 if (self.editbox:IsEnabled()) then
Tercio@11 291 self.enabled_border_color = {self.editbox:GetBackdropBorderColor()}
Tercio@11 292 self.enabled_backdrop_color = {self.editbox:GetBackdropColor()}
Tercio@11 293 self.enabled_text_color = {self.editbox:GetTextColor()}
Tercio@11 294
Tercio@11 295 self.editbox:Disable()
Tercio@11 296
Tercio@11 297 self.editbox:SetBackdropBorderColor (.5, .5, .5, .5)
Tercio@11 298 self.editbox:SetBackdropColor (.5, .5, .5, .5)
Tercio@11 299 self.editbox:SetTextColor (.5, .5, .5, .5)
Tercio@22 300
Tercio@22 301 if (self.editbox.borderframe) then
Tercio@22 302 self.editbox.borderframe:SetBackdropColor (.5, .5, .5, .5)
Tercio@22 303 end
Tercio@11 304 end
Tercio@11 305 end
Tercio@11 306
Tercio@11 307 ------------------------------------------------------------------------------------------------------------
Tercio@39 308 --> scripts and hooks
Tercio@39 309
Tercio@11 310 local OnEnter = function (textentry)
Tercio@39 311 local capsule = textentry.MyObject
Tercio@39 312
Tercio@39 313 local kill = capsule:RunHooksForWidget ("OnEnter", textentry, capsule)
Tercio@39 314 if (kill) then
Tercio@39 315 return
Tercio@39 316 end
Tercio@11 317
Tercio@39 318 if (capsule.have_tooltip) then
Tercio@11 319 GameCooltip2:Preset (2)
Tercio@39 320 GameCooltip2:AddLine (capsule.have_tooltip)
Tercio@11 321 GameCooltip2:ShowCooltip (textentry, "tooltip")
Tercio@11 322 end
Tercio@11 323
Tercio@11 324 textentry.mouse_over = true
Tercio@11 325
Tercio@11 326 if (textentry:IsEnabled()) then
Tercio@11 327 textentry.current_bordercolor = textentry.current_bordercolor or {textentry:GetBackdropBorderColor()}
Tercio@11 328 textentry:SetBackdropBorderColor (1, 1, 1, 1)
Tercio@11 329 end
Tercio@11 330 end
Tercio@11 331
Tercio@11 332 local OnLeave = function (textentry)
Tercio@39 333 local capsule = textentry.MyObject
Tercio@39 334
Tercio@39 335 local kill = capsule:RunHooksForWidget ("OnLeave", textentry, capsule)
Tercio@39 336 if (kill) then
Tercio@39 337 return
Tercio@11 338 end
Tercio@39 339
Tercio@11 340 if (textentry.MyObject.have_tooltip) then
Tercio@11 341 GameCooltip2:ShowMe (false)
Tercio@11 342 end
Tercio@11 343
Tercio@11 344 textentry.mouse_over = false
Tercio@11 345
Tercio@11 346 if (textentry:IsEnabled()) then
Tercio@11 347 textentry:SetBackdropBorderColor (unpack (textentry.current_bordercolor))
Tercio@11 348 end
Tercio@11 349 end
Tercio@11 350
Tercio@11 351 local OnHide = function (textentry)
Tercio@39 352 local capsule = textentry.MyObject
Tercio@39 353
Tercio@39 354 local kill = capsule:RunHooksForWidget ("OnHide", textentry, capsule)
Tercio@39 355 if (kill) then
Tercio@39 356 return
Tercio@11 357 end
Tercio@11 358 end
Tercio@11 359
Tercio@11 360 local OnShow = function (textentry)
Tercio@39 361 local capsule = textentry.MyObject
Tercio@39 362
Tercio@39 363 local kill = capsule:RunHooksForWidget ("OnShow", textentry, capsule)
Tercio@39 364 if (kill) then
Tercio@39 365 return
Tercio@11 366 end
Tercio@11 367 end
Tercio@11 368
Tercio@39 369 local OnEnterPressed = function (textentry, byScript)
Tercio@39 370 local capsule = textentry.MyObject
Tercio@11 371
Tercio@39 372 local kill = capsule:RunHooksForWidget ("OnEnterPressed", textentry, capsule)
Tercio@39 373 if (kill) then
Tercio@39 374 return
Tercio@11 375 end
Tercio@11 376
Tercio@11 377 local texto = DF:trim (textentry:GetText())
Tercio@11 378 if (_string_len (texto) > 0) then
Tercio@11 379 textentry.text = texto
Tercio@11 380 if (textentry.MyObject.func) then
Tercio@11 381 textentry.MyObject.func (textentry.MyObject.param1, textentry.MyObject.param2, texto, textentry, byScript or textentry)
Tercio@11 382 end
Tercio@11 383 else
Tercio@11 384 textentry:SetText ("")
Tercio@11 385 textentry.MyObject.currenttext = ""
Tercio@11 386 end
Tercio@11 387
Tercio@39 388 if (not capsule.NoClearFocusOnEnterPressed) then
Tercio@39 389 textentry.focuslost = true --> quando estiver editando e clicar em outra caixa
Tercio@39 390 textentry:ClearFocus()
Tercio@39 391
Tercio@39 392 if (textentry.MyObject.tab_on_enter and textentry.MyObject.next) then
Tercio@39 393 textentry.MyObject.next:SetFocus()
Tercio@39 394 end
Tercio@11 395 end
Tercio@11 396 end
Tercio@11 397
Tercio@11 398 local OnEscapePressed = function (textentry)
Tercio@39 399 local capsule = textentry.MyObject
Tercio@11 400
Tercio@39 401 local kill = capsule:RunHooksForWidget ("OnEscapePressed", textentry, capsule)
Tercio@39 402 if (kill) then
Tercio@39 403 return
Tercio@39 404 end
Tercio@39 405
Tercio@11 406 textentry.focuslost = true
Tercio@11 407 textentry:ClearFocus()
Tercio@11 408 end
Tercio@11 409
Tercio@39 410 local OnSpacePressed = function (textentry)
Tercio@39 411 local capsule = textentry.MyObject
Tercio@39 412
Tercio@39 413 local kill = capsule:RunHooksForWidget ("OnSpacePressed", textentry, capsule)
Tercio@39 414 if (kill) then
Tercio@39 415 return
Tercio@39 416 end
Tercio@39 417 end
Tercio@39 418
Tercio@11 419 local OnEditFocusLost = function (textentry)
Tercio@11 420
Tercio@39 421 local capsule = textentry.MyObject
Tercio@39 422
Tercio@11 423 if (textentry:IsShown()) then
Tercio@11 424
Tercio@39 425 local kill = capsule:RunHooksForWidget ("OnEditFocusLost", textentry, capsule)
Tercio@39 426 if (kill) then
Tercio@39 427 return
Tercio@11 428 end
Tercio@11 429
Tercio@11 430 if (not textentry.focuslost) then
Tercio@11 431 local texto = DF:trim (textentry:GetText())
Tercio@11 432 if (_string_len (texto) > 0) then
Tercio@11 433 textentry.MyObject.currenttext = texto
Tercio@11 434 if (textentry.MyObject.func) then
Tercio@11 435 textentry.MyObject.func (textentry.MyObject.param1, textentry.MyObject.param2, texto, textentry, nil)
Tercio@11 436 end
Tercio@11 437 else
Tercio@11 438 textentry:SetText ("")
Tercio@11 439 textentry.MyObject.currenttext = ""
Tercio@11 440 end
Tercio@11 441 else
Tercio@11 442 textentry.focuslost = false
Tercio@11 443 end
Tercio@11 444
Tercio@11 445 textentry.MyObject.label:SetTextColor (.8, .8, .8, 1)
Tercio@11 446
Tercio@11 447 end
Tercio@11 448 end
Tercio@11 449
Tercio@11 450 local OnEditFocusGained = function (textentry)
Tercio@39 451
Tercio@39 452 local capsule = textentry.MyObject
Tercio@39 453
Tercio@39 454 local kill = capsule:RunHooksForWidget ("OnEditFocusGained", textentry, capsule)
Tercio@39 455 if (kill) then
Tercio@39 456 return
Tercio@11 457 end
Tercio@39 458
Tercio@11 459 textentry.MyObject.label:SetTextColor (1, 1, 1, 1)
Tercio@11 460 end
Tercio@11 461
Tercio@39 462 local OnChar = function (textentry, char)
Tercio@39 463 local capsule = textentry.MyObject
Tercio@39 464
Tercio@39 465 local kill = capsule:RunHooksForWidget ("OnChar", textentry, char, capsule)
Tercio@39 466 if (kill) then
Tercio@39 467 return
Tercio@11 468 end
Tercio@11 469 end
Tercio@11 470
Tercio@11 471 local OnTextChanged = function (textentry, byUser)
Tercio@39 472 local capsule = textentry.MyObject
Tercio@39 473
Tercio@39 474 local kill = capsule:RunHooksForWidget ("OnTextChanged", textentry, byUser, capsule)
Tercio@39 475 if (kill) then
Tercio@39 476 return
Tercio@11 477 end
Tercio@11 478 end
Tercio@11 479
Tercio@11 480 local OnTabPressed = function (textentry)
Tercio@39 481
Tercio@39 482 local capsule = textentry.MyObject
Tercio@39 483
Tercio@39 484 local kill = capsule:RunHooksForWidget ("OnTabPressed", textentry, byUser, capsule)
Tercio@39 485 if (kill) then
Tercio@39 486 return
Tercio@11 487 end
Tercio@11 488
Tercio@11 489 if (textentry.MyObject.next) then
Tercio@11 490 OnEnterPressed (textentry, false)
Tercio@11 491 textentry.MyObject.next:SetFocus()
Tercio@11 492 end
Tercio@11 493 end
Tercio@11 494
Tercio@11 495 function TextEntryMetaFunctions:PressEnter (byScript)
Tercio@11 496 OnEnterPressed (self.editbox, byScript)
Tercio@11 497 end
Tercio@11 498
Tercio@11 499 ------------------------------------------------------------------------------------------------------------
Tercio@22 500
Tercio@22 501 function TextEntryMetaFunctions:SetTemplate (template)
Tercio@22 502 if (template.width) then
Tercioo@29 503 self.editbox:SetWidth (template.width)
Tercio@22 504 end
Tercio@22 505 if (template.height) then
Tercioo@29 506 self.editbox:SetHeight (template.height)
Tercio@22 507 end
Tercio@22 508
Tercio@22 509 if (template.backdrop) then
Tercioo@29 510 self.editbox:SetBackdrop (template.backdrop)
Tercio@22 511 end
Tercio@22 512 if (template.backdropcolor) then
Tercio@22 513 local r, g, b, a = DF:ParseColors (template.backdropcolor)
Tercioo@29 514 self.editbox:SetBackdropColor (r, g, b, a)
Tercio@22 515 self.onleave_backdrop = {r, g, b, a}
Tercio@22 516 end
Tercio@22 517 if (template.backdropbordercolor) then
Tercio@22 518 local r, g, b, a = DF:ParseColors (template.backdropbordercolor)
Tercioo@29 519 self.editbox:SetBackdropBorderColor (r, g, b, a)
Tercio@22 520 self.editbox.current_bordercolor[1] = r
Tercio@22 521 self.editbox.current_bordercolor[2] = g
Tercio@22 522 self.editbox.current_bordercolor[3] = b
Tercio@22 523 self.editbox.current_bordercolor[4] = a
Tercio@22 524 self.onleave_backdrop_border_color = {r, g, b, a}
Tercio@22 525 end
Tercio@22 526 end
Tercio@22 527
Tercio@22 528 ------------------------------------------------------------------------------------------------------------
Tercio@11 529 --> object constructor
Tercio@11 530
Tercio@22 531 function DF:CreateTextEntry (parent, func, w, h, member, name, with_label, entry_template, label_template)
Tercio@22 532 return DF:NewTextEntry (parent, parent, name, member, w, h, func, nil, nil, nil, with_label, entry_template, label_template)
Tercio@11 533 end
Tercio@11 534
Tercio@22 535 function DF:NewTextEntry (parent, container, name, member, w, h, func, param1, param2, space, with_label, entry_template, label_template)
Tercio@11 536
Tercio@11 537 if (not name) then
Tercio@11 538 name = "DetailsFrameworkTextEntryNumber" .. DF.TextEntryCounter
Tercio@11 539 DF.TextEntryCounter = DF.TextEntryCounter + 1
Tercio@11 540
Tercio@11 541 elseif (not parent) then
Tercioo@29 542 return error ("Details! FrameWork: parent not found.", 2)
Tercio@11 543 end
Tercio@11 544
Tercio@11 545 if (not container) then
Tercio@11 546 container = parent
Tercio@11 547 end
Tercio@11 548
Tercio@11 549 if (name:find ("$parent")) then
Tercioo@29 550 local parentName = DF.GetParentName (parent)
Tercioo@29 551 name = name:gsub ("$parent", parentName)
Tercio@11 552 end
Tercio@11 553
Tercio@11 554 local TextEntryObject = {type = "textentry", dframework = true}
Tercio@11 555
Tercio@11 556 if (member) then
Tercio@11 557 parent [member] = TextEntryObject
Tercio@11 558 end
Tercio@11 559
Tercio@11 560 if (parent.dframework) then
Tercio@11 561 parent = parent.widget
Tercio@11 562 end
Tercio@11 563 if (container.dframework) then
Tercio@11 564 container = container.widget
Tercio@11 565 end
Tercio@11 566
Tercio@11 567 --> default members:
Tercio@11 568 --> hooks
Tercio@11 569 TextEntryObject.OnEnterHook = nil
Tercio@11 570 TextEntryObject.OnLeaveHook = nil
Tercio@11 571 TextEntryObject.OnHideHook = nil
Tercio@11 572 TextEntryObject.OnShowHook = nil
Tercio@11 573 TextEntryObject.OnEnterPressedHook = nil
Tercio@11 574 TextEntryObject.OnEscapePressedHook = nil
Tercio@11 575 TextEntryObject.OnEditFocusGainedHook = nil
Tercio@11 576 TextEntryObject.OnEditFocusLostHook = nil
Tercio@11 577 TextEntryObject.OnCharHook = nil
Tercio@11 578 TextEntryObject.OnTextChangedHook = nil
Tercio@11 579 TextEntryObject.OnTabPressedHook = nil
Tercio@11 580
Tercio@11 581 --> misc
Tercio@11 582 TextEntryObject.container = container
Tercio@11 583 TextEntryObject.have_tooltip = nil
Tercio@11 584
Tercio@11 585 TextEntryObject.editbox = CreateFrame ("EditBox", name, parent, "DetailsFrameworkEditBoxTemplate2")
Tercio@11 586 TextEntryObject.widget = TextEntryObject.editbox
Tercio@11 587
Tercio@11 588 TextEntryObject.editbox:SetTextInsets (3, 0, 0, -3)
Tercio@11 589
Tercio@11 590 if (not APITextEntryFunctions) then
Tercio@11 591 APITextEntryFunctions = true
Tercio@11 592 local idx = getmetatable (TextEntryObject.editbox).__index
Tercio@11 593 for funcName, funcAddress in pairs (idx) do
Tercio@11 594 if (not TextEntryMetaFunctions [funcName]) then
Tercio@11 595 TextEntryMetaFunctions [funcName] = function (object, ...)
Tercio@20 596 local x = loadstring ( "return _G['"..object.editbox:GetName().."']:"..funcName.."(...)")
Tercio@11 597 return x (...)
Tercio@11 598 end
Tercio@11 599 end
Tercio@11 600 end
Tercio@11 601 end
Tercio@11 602
Tercio@11 603 TextEntryObject.editbox.MyObject = TextEntryObject
Tercio@11 604
Tercio@11 605 if (not w and space) then
Tercio@11 606 w = space
Tercio@11 607 elseif (w and space) then
Tercio@11 608 if (DF.debug) then
Tercio@39 609 --print ("warning: you are using width and space, try use only space for better results.")
Tercio@11 610 end
Tercio@11 611 end
Tercio@11 612
Tercio@11 613 TextEntryObject.editbox:SetWidth (w)
Tercio@11 614 TextEntryObject.editbox:SetHeight (h)
Tercio@11 615
Tercio@11 616 TextEntryObject.editbox:SetJustifyH ("center")
Tercio@11 617 TextEntryObject.editbox:EnableMouse (true)
Tercio@11 618 TextEntryObject.editbox:SetText ("")
Tercio@11 619
Tercio@11 620 TextEntryObject.editbox:SetAutoFocus (false)
Tercio@11 621 TextEntryObject.editbox:SetFontObject ("GameFontHighlightSmall")
Tercio@11 622
Tercio@11 623 TextEntryObject.editbox.current_bordercolor = {1, 1, 1, 0.7}
Tercio@11 624 TextEntryObject.editbox:SetBackdropBorderColor (1, 1, 1, 0.7)
Tercio@11 625 TextEntryObject.enabled_border_color = {TextEntryObject.editbox:GetBackdropBorderColor()}
Tercio@11 626 TextEntryObject.enabled_backdrop_color = {TextEntryObject.editbox:GetBackdropColor()}
Tercio@11 627 TextEntryObject.enabled_text_color = {TextEntryObject.editbox:GetTextColor()}
Tercio@22 628 TextEntryObject.onleave_backdrop = {TextEntryObject.editbox:GetBackdropColor()}
Tercio@22 629 TextEntryObject.onleave_backdrop_border_color = {TextEntryObject.editbox:GetBackdropBorderColor()}
Tercio@11 630
Tercio@11 631 TextEntryObject.func = func
Tercio@11 632 TextEntryObject.param1 = param1
Tercio@11 633 TextEntryObject.param2 = param2
Tercio@11 634 TextEntryObject.next = nil
Tercio@11 635 TextEntryObject.space = space
Tercio@11 636 TextEntryObject.tab_on_enter = false
Tercio@11 637
Tercio@11 638 TextEntryObject.label = _G [name .. "_Desc"]
Tercio@11 639
Tercio@11 640 TextEntryObject.editbox:SetBackdrop ({bgFile = DF.folder .. "background", tileSize = 64, edgeFile = DF.folder .. "border_2", edgeSize = 10, insets = {left = 1, right = 1, top = 1, bottom = 1}})
Tercio@11 641
Tercio@11 642 --> hooks
Tercio@39 643
Tercio@39 644 TextEntryObject.HookList = {
Tercio@39 645 OnEnter = {},
Tercio@39 646 OnLeave = {},
Tercio@39 647 OnHide = {},
Tercio@39 648 OnShow = {},
Tercio@39 649 OnEnterPressed = {},
Tercio@39 650 OnEscapePressed = {},
Tercio@39 651 OnSpacePressed = {},
Tercio@39 652 OnEditFocusLost = {},
Tercio@39 653 OnEditFocusGained = {},
Tercio@39 654 OnChar = {},
Tercio@39 655 OnTextChanged = {},
Tercio@39 656 OnTabPressed = {},
Tercio@39 657 }
Tercio@40 658
Tercio@11 659 TextEntryObject.editbox:SetScript ("OnEnter", OnEnter)
Tercio@11 660 TextEntryObject.editbox:SetScript ("OnLeave", OnLeave)
Tercio@11 661 TextEntryObject.editbox:SetScript ("OnHide", OnHide)
Tercio@11 662 TextEntryObject.editbox:SetScript ("OnShow", OnShow)
Tercio@11 663
Tercio@11 664 TextEntryObject.editbox:SetScript ("OnEnterPressed", OnEnterPressed)
Tercio@11 665 TextEntryObject.editbox:SetScript ("OnEscapePressed", OnEscapePressed)
Tercio@39 666 TextEntryObject.editbox:SetScript ("OnSpacePressed", OnSpacePressed)
Tercio@11 667 TextEntryObject.editbox:SetScript ("OnEditFocusLost", OnEditFocusLost)
Tercio@11 668 TextEntryObject.editbox:SetScript ("OnEditFocusGained", OnEditFocusGained)
Tercio@11 669 TextEntryObject.editbox:SetScript ("OnChar", OnChar)
Tercio@11 670 TextEntryObject.editbox:SetScript ("OnTextChanged", OnTextChanged)
Tercio@11 671 TextEntryObject.editbox:SetScript ("OnTabPressed", OnTabPressed)
Tercio@11 672
Tercio@11 673 _setmetatable (TextEntryObject, TextEntryMetaFunctions)
Tercio@11 674
Tercio@22 675 if (with_label) then
Tercio@22 676 local label = DF:CreateLabel (TextEntryObject.editbox, with_label, nil, nil, nil, "label", nil, "overlay")
Tercio@22 677 label.text = with_label
Tercio@22 678 TextEntryObject.editbox:SetPoint ("left", label.widget, "right", 2, 0)
Tercio@22 679 if (label_template) then
Tercio@22 680 label:SetTemplate (label_template)
Tercio@22 681 end
Tercio@22 682 with_label = label
Tercio@22 683 end
Tercio@11 684
Tercio@22 685 if (entry_template) then
Tercio@22 686 TextEntryObject:SetTemplate (entry_template)
Tercio@22 687 end
Tercio@22 688
Tercio@22 689 return TextEntryObject, with_label
Tercio@22 690
Tercio@22 691 end
Tercio@22 692
Tercio@22 693 function DF:NewSpellEntry (parent, func, w, h, param1, param2, member, name)
Tercio@22 694 local editbox = DF:NewTextEntry (parent, parent, name, member, w, h, func, param1, param2)
Tercio@22 695
Tercio@39 696 -- editbox:SetHook ("OnEditFocusGained", SpellEntryOnEditFocusGained)
Tercio@39 697 -- editbox:SetHook ("OnTextChanged", SpellEntryOnTextChanged)
Tercio@22 698
Tercio@22 699 return editbox
Tercio@11 700 end
Tercio@11 701
Tercio@11 702 local function_gettext = function (self)
Tercio@11 703 return self.editbox:GetText()
Tercio@11 704 end
Tercio@11 705 local function_settext = function (self, text)
Tercio@11 706 return self.editbox:SetText (text)
Tercio@11 707 end
Tercio@11 708 local function_clearfocus = function (self)
Tercio@11 709 return self.editbox:ClearFocus()
Tercio@11 710 end
Tercio@11 711 local function_setfocus = function (self)
Tercio@11 712 return self.editbox:SetFocus (true)
Tercio@11 713 end
Tercio@11 714
Tercio@11 715 function DF:NewSpecialLuaEditorEntry (parent, w, h, member, name, nointent)
Tercio@11 716
Tercio@11 717 if (name:find ("$parent")) then
Tercioo@29 718 local parentName = DF.GetParentName (parent)
Tercioo@29 719 name = name:gsub ("$parent", parentName)
Tercio@11 720 end
Tercio@11 721
Tercio@11 722 local borderframe = CreateFrame ("Frame", name, parent)
Tercio@11 723 borderframe:SetSize (w, h)
Tercio@11 724
Tercio@11 725 if (member) then
Tercio@11 726 parent [member] = borderframe
Tercio@11 727 end
Tercio@11 728
Tercio@11 729 local scrollframe = CreateFrame ("ScrollFrame", name, borderframe, "DetailsFrameworkEditBoxMultiLineTemplate")
Tercio@11 730
Tercio@11 731 scrollframe:SetScript ("OnSizeChanged", function (self)
Tercio@11 732 scrollframe.editbox:SetSize (self:GetSize())
Tercio@11 733 end)
Tercio@11 734
Tercio@11 735 scrollframe:SetPoint ("topleft", borderframe, "topleft", 10, -10)
Tercio@11 736 scrollframe:SetPoint ("bottomright", borderframe, "bottomright", -30, 10)
Tercio@11 737
Tercio@11 738 scrollframe.editbox:SetMultiLine (true)
Tercio@11 739 scrollframe.editbox:SetJustifyH ("left")
Tercio@11 740 scrollframe.editbox:SetJustifyV ("top")
Tercio@11 741 scrollframe.editbox:SetMaxBytes (1024000)
Tercio@11 742 scrollframe.editbox:SetMaxLetters (128000)
Tercio@11 743
Tercio@11 744 borderframe.GetText = function_gettext
Tercio@11 745 borderframe.SetText = function_settext
Tercio@11 746 borderframe.ClearFocus = function_clearfocus
Tercio@11 747 borderframe.SetFocus = function_setfocus
Tercio@11 748
Tercio@22 749 borderframe.Enable = TextEntryMetaFunctions.Enable
Tercio@22 750 borderframe.Disable = TextEntryMetaFunctions.Disable
Tercio@22 751
Tercio@22 752 borderframe.SetTemplate = TextEntryMetaFunctions.SetTemplate
Tercio@22 753
Tercio@11 754 if (not nointent) then
Tercio@11 755 IndentationLib.enable (scrollframe.editbox, nil, 4)
Tercio@11 756 end
Tercio@11 757
Tercio@11 758 borderframe:SetBackdrop ({bgFile = [[Interface\Tooltips\UI-Tooltip-Background]], edgeFile = [[Interface\Tooltips\UI-Tooltip-Border]],
Tercio@11 759 tile = 1, tileSize = 16, edgeSize = 16, insets = {left = 5, right = 5, top = 5, bottom = 5}})
Tercio@22 760
Tercio@22 761 scrollframe.editbox.current_bordercolor = {1, 1, 1, 0.7}
Tercio@22 762 borderframe:SetBackdropBorderColor (1, 1, 1, 0.7)
Tercio@11 763 borderframe:SetBackdropColor (0.090195, 0.090195, 0.188234, 1)
Tercio@22 764
Tercio@22 765 borderframe.enabled_border_color = {borderframe:GetBackdropBorderColor()}
Tercio@22 766 borderframe.enabled_backdrop_color = {borderframe:GetBackdropColor()}
Tercio@22 767 borderframe.enabled_text_color = {scrollframe.editbox:GetTextColor()}
Tercio@22 768
Tercio@22 769 borderframe.onleave_backdrop = {scrollframe.editbox:GetBackdropColor()}
Tercio@22 770 borderframe.onleave_backdrop_border_color = {scrollframe.editbox:GetBackdropBorderColor()}
Tercio@11 771
Tercio@11 772 borderframe.scroll = scrollframe
Tercio@11 773 borderframe.editbox = scrollframe.editbox
Tercio@22 774 borderframe.editbox.borderframe = borderframe
Tercio@11 775
Tercio@11 776 return borderframe
Tercio@39 777 end
Tercio@39 778
Tercio@39 779
Tercio@39 780 ------------------------------------------------------------------------------------
Tercio@39 781 --auto complete
Tercio@39 782
Tercio@39 783 -- block -------------------
Tercio@39 784 --code author Saiket from http://www.wowinterface.com/forums/showpost.php?p=245759&postcount=6
Tercio@39 785 --- @return StartPos, EndPos of highlight in this editbox.
Tercio@39 786 local function GetTextHighlight ( self )
Tercio@39 787 local Text, Cursor = self:GetText(), self:GetCursorPosition();
Tercio@39 788 self:Insert( "" ); -- Delete selected text
Tercio@39 789 local TextNew, CursorNew = self:GetText(), self:GetCursorPosition();
Tercio@39 790 -- Restore previous text
Tercio@39 791 self:SetText( Text );
Tercio@39 792 self:SetCursorPosition( Cursor );
Tercio@39 793 local Start, End = CursorNew, #Text - ( #TextNew - CursorNew );
Tercio@39 794 self:HighlightText( Start, End );
Tercio@39 795 return Start, End;
Tercio@39 796 end
Tercio@39 797 local StripColors;
Tercio@39 798 do
Tercio@39 799 local CursorPosition, CursorDelta;
Tercio@39 800 --- Callback for gsub to remove unescaped codes.
Tercio@39 801 local function StripCodeGsub ( Escapes, Code, End )
Tercio@39 802 if ( #Escapes % 2 == 0 ) then -- Doesn't escape Code
Tercio@39 803 if ( CursorPosition and CursorPosition >= End - 1 ) then
Tercio@39 804 CursorDelta = CursorDelta - #Code;
Tercio@39 805 end
Tercio@39 806 return Escapes;
Tercio@39 807 end
Tercio@39 808 end
Tercio@39 809 --- Removes a single escape sequence.
Tercio@39 810 local function StripCode ( Pattern, Text, OldCursor )
Tercio@39 811 CursorPosition, CursorDelta = OldCursor, 0;
Tercio@39 812 return Text:gsub( Pattern, StripCodeGsub ), OldCursor and CursorPosition + CursorDelta;
Tercio@39 813 end
Tercio@39 814 --- Strips Text of all color escape sequences.
Tercio@39 815 -- @param Cursor Optional cursor position to keep track of.
Tercio@39 816 -- @return Stripped text, and the updated cursor position if Cursor was given.
Tercio@39 817 function StripColors ( Text, Cursor )
Tercio@39 818 Text, Cursor = StripCode( "(|*)(|c%x%x%x%x%x%x%x%x)()", Text, Cursor );
Tercio@39 819 return StripCode( "(|*)(|r)()", Text, Cursor );
Tercio@39 820 end
Tercio@39 821 end
Tercio@39 822
Tercio@39 823 local COLOR_END = "|r";
Tercio@39 824 --- Wraps this editbox's selected text with the given color.
Tercio@39 825 local function ColorSelection ( self, ColorCode )
Tercio@39 826 local Start, End = GetTextHighlight( self );
Tercio@39 827 local Text, Cursor = self:GetText(), self:GetCursorPosition();
Tercio@39 828 if ( Start == End ) then -- Nothing selected
Tercio@39 829 --Start, End = Cursor, Cursor; -- Wrap around cursor
Tercio@39 830 return; -- Wrapping the cursor in a color code and hitting backspace crashes the client!
Tercio@39 831 end
Tercio@39 832 -- Find active color code at the end of the selection
Tercio@39 833 local ActiveColor;
Tercio@39 834 if ( End < #Text ) then -- There is text to color after the selection
Tercio@39 835 local ActiveEnd;
Tercio@39 836 local CodeEnd, _, Escapes, Color = 0;
Tercio@39 837 while ( true ) do
Tercio@39 838 _, CodeEnd, Escapes, Color = Text:find( "(|*)(|c%x%x%x%x%x%x%x%x)", CodeEnd + 1 );
Tercio@39 839 if ( not CodeEnd or CodeEnd > End ) then
Tercio@39 840 break;
Tercio@39 841 end
Tercio@39 842 if ( #Escapes % 2 == 0 ) then -- Doesn't escape Code
Tercio@39 843 ActiveColor, ActiveEnd = Color, CodeEnd;
Tercio@39 844 end
Tercio@39 845 end
Tercio@39 846
Tercio@39 847 if ( ActiveColor ) then
Tercio@39 848 -- Check if color gets terminated before selection ends
Tercio@39 849 CodeEnd = 0;
Tercio@39 850 while ( true ) do
Tercio@39 851 _, CodeEnd, Escapes = Text:find( "(|*)|r", CodeEnd + 1 );
Tercio@39 852 if ( not CodeEnd or CodeEnd > End ) then
Tercio@39 853 break;
Tercio@39 854 end
Tercio@39 855 if ( CodeEnd > ActiveEnd and #Escapes % 2 == 0 ) then -- Terminates ActiveColor
Tercio@39 856 ActiveColor = nil;
Tercio@39 857 break;
Tercio@39 858 end
Tercio@39 859 end
Tercio@39 860 end
Tercio@39 861 end
Tercio@39 862
Tercio@39 863 local Selection = Text:sub( Start + 1, End );
Tercio@39 864 -- Remove color codes from the selection
Tercio@39 865 local Replacement, CursorReplacement = StripColors( Selection, Cursor - Start );
Tercio@39 866
Tercio@39 867 self:SetText( ( "" ):join(
Tercio@39 868 Text:sub( 1, Start ),
Tercio@39 869 ColorCode, Replacement, COLOR_END,
Tercio@39 870 ActiveColor or "", Text:sub( End + 1 )
Tercio@39 871 ) );
Tercio@39 872
Tercio@39 873 -- Restore cursor and highlight, adjusting for wrapper text
Tercio@39 874 Cursor = Start + CursorReplacement;
Tercio@39 875 if ( CursorReplacement > 0 ) then -- Cursor beyond start of color code
Tercio@39 876 Cursor = Cursor + #ColorCode;
Tercio@39 877 end
Tercio@39 878 if ( CursorReplacement >= #Replacement ) then -- Cursor beyond end of color
Tercio@39 879 Cursor = Cursor + #COLOR_END;
Tercio@39 880 end
Tercio@39 881
Tercio@39 882 self:SetCursorPosition( Cursor );
Tercio@39 883 -- Highlight selection and wrapper
Tercio@39 884 self:HighlightText( Start, #ColorCode + ( #Replacement - #Selection ) + #COLOR_END + End );
Tercio@39 885 end
Tercio@39 886 -- end of the block ---------------------
Tercio@39 887
Tercio@39 888 local get_last_word = function (self)
Tercio@39 889 self.lastword = ""
Tercio@39 890 local cursor_pos = self.editbox:GetCursorPosition()
Tercio@39 891 local text = self.editbox:GetText()
Tercio@39 892 for i = cursor_pos, 1, -1 do
Tercio@39 893 local character = text:sub (i, i)
Tercio@39 894 if (character:match ("%a")) then
Tercio@39 895 self.lastword = character .. self.lastword
Tercio@39 896 else
Tercio@39 897 break
Tercio@39 898 end
Tercio@39 899 end
Tercio@39 900 end
Tercio@39 901
Tercio@39 902 --On Text Changed
Tercio@39 903 local AutoComplete_OnTextChanged = function (editboxWidget, byUser, capsule)
Tercio@39 904 capsule = capsule or editboxWidget.MyObject
Tercio@39 905
Tercio@39 906 local chars_now = editboxWidget:GetText():len()
Tercio@39 907 if (not editboxWidget.ignore_textchange) then
Tercio@39 908 --> backspace
Tercio@39 909 if (chars_now == capsule.characters_count -1) then
Tercio@39 910 capsule.lastword = capsule.lastword:sub (1, capsule.lastword:len()-1)
Tercio@39 911 --> delete lots of text
Tercio@39 912 elseif (chars_now < capsule.characters_count) then
Tercio@39 913 --o auto complete selecionou outra palavra bem menor e caiu nesse filtro
Tercio@39 914 editboxWidget.end_selection = nil
Tercio@39 915 capsule:GetLastWord()
Tercio@39 916 end
Tercio@39 917 else
Tercio@39 918 editboxWidget.ignore_textchange = nil
Tercio@39 919 end
Tercio@39 920 capsule.characters_count = chars_now
Tercio@39 921 end
Tercio@39 922
Tercio@39 923 local AutoComplete_OnSpacePressed = function (editboxWidget, capsule)
Tercio@39 924 capsule = capsule or editboxWidget.MyObject
Tercio@39 925
Tercio@39 926 -- if (not gotMatch) then
Tercio@39 927 --editboxWidget.end_selection = nil
Tercio@39 928 -- end
Tercio@39 929 end
Tercio@39 930
Tercio@39 931 local AutoComplete_OnEscapePressed = function (editboxWidget)
Tercio@39 932 editboxWidget.end_selection = nil
Tercio@39 933 end
Tercio@39 934
Tercio@39 935 local AutoComplete_OnEnterPressed = function (editboxWidget)
Tercio@39 936
Tercio@39 937 local capsule = editboxWidget.MyObject
Tercio@39 938 if (editboxWidget.end_selection) then
Tercio@39 939 editboxWidget:SetCursorPosition (editboxWidget.end_selection)
Tercio@39 940 editboxWidget:HighlightText (0, 0)
Tercio@39 941 editboxWidget.end_selection = nil
Tercio@39 942 --editboxWidget:Insert (" ") --estava causando a adição de uma palavra a mais quando o próximo catactere for um espaço
Tercio@39 943 else
Tercio@39 944 if (editboxWidget:IsMultiLine()) then
Tercio@39 945 editboxWidget:Insert ("\n")
Tercio@39 946 --reseta a palavra se acabou de ganhar focus e apertou enter
Tercio@39 947 if (editboxWidget.focusGained) then
Tercio@39 948 capsule.lastword = ""
Tercio@39 949 editboxWidget.focusGained = nil
Tercio@39 950 end
Tercio@39 951 else
Tercio@39 952 editboxWidget:Insert ("")
Tercio@39 953 editboxWidget.focuslost = true
Tercio@39 954 editboxWidget:ClearFocus()
Tercio@39 955 end
Tercio@39 956 end
Tercio@39 957 capsule.lastword = ""
Tercio@39 958
Tercio@39 959 end
Tercio@39 960
Tercio@39 961 local AutoComplete_OnEditFocusGained = function (editboxWidget)
Tercio@39 962 local capsule = editboxWidget.MyObject
Tercio@39 963 capsule:GetLastWord()
Tercio@39 964 editboxWidget.end_selection = nil
Tercio@39 965 editboxWidget.focusGained = true
Tercio@39 966 capsule.characters_count = editboxWidget:GetText():len()
Tercio@39 967 end
Tercio@39 968
Tercio@39 969 local AutoComplete_OnChar = function (editboxWidget, char, capsule)
Tercio@39 970 if (char == "") then
Tercio@39 971 return
Tercio@39 972 end
Tercio@39 973
Tercio@39 974 capsule = capsule or editboxWidget.MyObject
Tercio@39 975 editboxWidget.end_selection = nil
Tercio@39 976
Tercio@39 977 if (editboxWidget.ignore_input) then
Tercio@39 978 return
Tercio@39 979 end
Tercio@39 980
Tercio@39 981 --reseta a palavra se acabou de ganhar focus e apertou espaço
Tercio@39 982 if (editboxWidget.focusGained and char == " ") then
Tercio@39 983 capsule.lastword = ""
Tercio@39 984 editboxWidget.focusGained = nil
Tercio@39 985 else
Tercio@39 986 editboxWidget.focusGained = nil
Tercio@39 987 end
Tercio@39 988
Tercio@39 989 if (char:match ("%a") or (char == " " and capsule.lastword ~= "")) then
Tercio@39 990 capsule.lastword = capsule.lastword .. char
Tercio@39 991 else
Tercio@39 992 capsule.lastword = ""
Tercio@39 993 end
Tercio@39 994
Tercio@39 995 editboxWidget.ignore_input = true
Tercio@39 996 if (capsule.lastword:len() >= 2) then
Tercio@39 997
Tercio@39 998 local wordList = capsule [capsule.poolName]
Tercio@39 999 if (not wordList) then
Tercio@39 1000 if (DF.debug) then
Tercio@39 1001 error ("Details! Framework: Invalid word list table.")
Tercio@39 1002 end
Tercio@39 1003 return
Tercio@39 1004 end
Tercio@39 1005
Tercio@39 1006 for i = 1, #wordList do
Tercio@39 1007 local thisWord = wordList [i]
Tercio@39 1008 if (thisWord and (thisWord:find ("^" .. capsule.lastword) or thisWord:lower():find ("^" .. capsule.lastword))) then
Tercio@39 1009 local rest = thisWord:gsub (capsule.lastword, "")
Tercio@39 1010 rest = rest:lower():gsub (capsule.lastword, "")
Tercio@39 1011 local cursor_pos = editboxWidget:GetCursorPosition()
Tercio@39 1012 editboxWidget:Insert (rest)
Tercio@39 1013 editboxWidget:HighlightText (cursor_pos, cursor_pos + rest:len())
Tercio@39 1014 editboxWidget:SetCursorPosition (cursor_pos)
Tercio@39 1015 editboxWidget.end_selection = cursor_pos + rest:len()
Tercio@39 1016 editboxWidget.ignore_textchange = true
Tercio@39 1017 break
Tercio@39 1018 end
Tercio@39 1019 end
Tercio@39 1020
Tercio@39 1021 end
Tercio@39 1022 editboxWidget.ignore_input = false
Tercio@39 1023 end
Tercio@39 1024
Tercio@39 1025 function TextEntryMetaFunctions:SetAsAutoComplete (poolName)
Tercio@39 1026
Tercio@39 1027 self.lastword = ""
Tercio@39 1028 self.characters_count = 0
Tercio@39 1029 self.poolName = poolName
Tercio@39 1030 self.GetLastWord = get_last_word --editbox:GetLastWord()
Tercio@39 1031 self.NoClearFocusOnEnterPressed = true --avoid auto clear focus
Tercio@39 1032
Tercio@39 1033 self:SetHook ("OnEditFocusGained", AutoComplete_OnEditFocusGained)
Tercio@39 1034 self.editbox:HookScript ("OnEscapePressed", AutoComplete_OnEscapePressed)
Tercio@39 1035
Tercio@39 1036 -- self:SetHook ("OnTextChanged", AutoComplete_OnTextChanged)
Tercio@39 1037 self:SetHook ("OnEnterPressed", AutoComplete_OnEnterPressed)
Tercio@39 1038 -- self:SetHook ("OnChar", AutoComplete_OnChar)
Tercio@39 1039 -- self:SetHook ("OnSpacePressed", AutoComplete_OnSpacePressed)
Tercio@39 1040
Tercio@39 1041 self.editbox:SetScript ("OnTextChanged", AutoComplete_OnTextChanged)
Tercio@39 1042 -- self.editbox:SetScript ("OnEnterPressed", AutoComplete_OnEnterPressed)
Tercio@39 1043 self.editbox:SetScript ("OnChar", AutoComplete_OnChar)
Tercio@39 1044 self.editbox:SetScript ("OnSpacePressed", AutoComplete_OnSpacePressed)
Tercio@39 1045
Tercio@39 1046 end
Tercio@39 1047
Tercio@39 1048 -- endp