tekkub / controlfreak fork watch download tarball
public
Description: WoW Addon - Crowd control assistance
Homepage: http://www.tekkub.net
Clone URL: git://github.com/tekkub/controlfreak.git
Click here to lend your support to: controlfreak and make a donation at www.pledgie.com !
controlfreak / Config.lua
100644 80 lines (56 sloc) 3.075 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80


 
if not ControlFreak then return end
 
 
----------------------
--      Locals      --
----------------------
 
local tekcheck = LibStub("tekKonfig-Checkbox")
local tekslider = LibStub("tekKonfig-Slider")
local GAP = 8
 
 
---------------------
--      Panel      --
---------------------
 
local frame = CreateFrame("Frame", nil, UIParent)
frame.name = "Control Freak"
frame:Hide()
frame:SetScript("OnShow", function(frame)
  local ControlFreak = ControlFreak
  local title, subtitle = LibStub("tekKonfig-Heading").new(frame, "Control Freak", "These settings change the 'always up' frame.  They are saved on a per-char basis.")
 
 
  local lockpos = tekcheck.new(frame, nil, "Lock frame", "TOPLEFT", subtitle, "BOTTOMLEFT", -2, -GAP)
  lockpos.tiptext = "Locks the frame to prevent accidental movement"
  local checksound = lockpos:GetScript("OnClick")
  lockpos:SetScript("OnClick", function(self) checksound(self); ControlFreak.db.char.frameopts.locked = not ControlFreak.db.char.frameopts.locked end)
  lockpos:SetChecked(ControlFreak.db.char.frameopts.locked)
 
 
  local showtip = tekcheck.new(frame, nil, "Show tooltip", "TOPLEFT", lockpos, "BOTTOMLEFT", 0, -GAP)
  showtip.tiptext = "Show help tooltip on hover"
  showtip:SetScript("OnClick", function(self) checksound(self); ControlFreak.db.char.showtooltip = not ControlFreak.db.char.showtooltip end)
  showtip:SetChecked(ControlFreak.db.char.showtooltip)
 
 
  local threshslider, threshslidertext, threshcontainer = tekslider.new(frame, "Break Threshold: "..ControlFreak.db.char.breakthreshold.." sec", 0, 10, "LEFT", frame, "TOP", GAP, 0)
  threshcontainer:SetPoint("TOP", lockpos, "TOP", 0, 0)
  threshslider.tiptext = "Time (in seconds) before spell breaks to unfade frame."
  threshslider:SetValue(ControlFreak.db.char.breakthreshold)
  threshslider:SetValueStep(1)
  threshslider:SetScript("OnValueChanged", function()
    ControlFreak.db.char.breakthreshold = threshslider:GetValue()
    threshslidertext:SetText("Break Threshold: "..ControlFreak.db.char.breakthreshold.." sec")
  end)
 
 
  local alpha = math.floor(ControlFreak.db.char.alpha*100 + .5)
  local alphaslider, alphaslidertext = tekslider.new(frame, "Alpha: "..alpha.."%", "0%", "100%", "TOP", threshcontainer, "BOTTOM", 0, -GAP)
--~   alphaslider:SetPoint("LEFT", threshslider, "LEFT")
  alphaslider.tiptext = "Alpha level to fade frame to when focus is controlled, dead, or not set."
  alphaslider:SetValue(ControlFreak.db.char.alpha)
  alphaslider:SetValueStep(0.05)
  alphaslider:SetScript("OnValueChanged", function()
    ControlFreak.db.char.alpha = alphaslider:GetValue()
    local alpha = math.floor(ControlFreak.db.char.alpha*100 + .5)
    alphaslidertext:SetText("Alpha: "..alpha.."%")
    ControlFreak:OnUpdate(true)
  end)
 
 
  frame:SetScript("OnShow", fade)
end)
 
InterfaceOptions_AddCategory(frame)
 
 
LibStub("tekKonfig-AboutPanel").new("Control Freak", "ControlFreak")
 
 
-----------------------------
--      Slash command      --
-----------------------------
 
SLASH_CONTROLFREAK1 = "/freak"
SlashCmdList.CONTROLFREAK = function() InterfaceOptionsFrame_OpenToFrame(frame) end