vanilla-wow-addons – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 --[[
2 actionBarGlobal.lua
3 Scripts for the Global Actionbar Options Panel
4 This panel does things like enabling altcast, toggling range coloring, etc
5 --]]
6  
7 local frameName = "BOptionsPanelActionBar";
8  
9  
10 --[[ Global Pane ]]--
11 function BOptionsActionBarGlobal_OnLoad()
12 getglobal(frameName .. "AltCastLabel"):SetText("Selfcast Key");
13 UIDropDownMenu_Initialize(getglobal(frameName .. "AltCast"), BOptionsAltCast_Initialize);
14 end
15  
16 function BOptionsActionBarGlobal_OnShow()
17 this.onShow = 1;
18  
19 getglobal(frameName .. "Tooltips"):SetChecked(BActionSets_TooltipsShown());
20 getglobal(frameName .. "Range"):SetChecked(BActionSets_ColorOutOfRange());
21 getglobal(frameName .. "SelfCast"):SetChecked(GetCVar("autoSelfCast"));
22 getglobal(frameName .. "MacroText"):SetChecked(not BActionSets_MacrosShown());
23 getglobal(frameName .. "HotkeysText"):SetChecked(not BActionSets_HotkeysShown());
24 local rangeColor = BActionSets_GetRangeColor();
25 getglobal(frameName .. "RangeColorNormalTexture"):SetVertexColor(rangeColor.r, rangeColor.g, rangeColor.b);
26  
27 UIDropDownMenu_SetSelectedValue(getglobal(frameName .. "AltCast"), BActionSets_GetSelfCastMode());
28  
29 getglobal(frameName .. "NumActionBars"):SetValue(BActionBar:GetNumber())
30 this.onShow = nil;
31 end
32  
33 --[[
34 Altcast Key Dropdown
35 --]]
36  
37 function BOptionsAltCast_OnShow()
38 UIDropDownMenu_Initialize(this, BOptionsAltCast_Initialize);
39  
40 UIDropDownMenu_SetWidth(72, this);
41 end
42  
43 function BOptionsAltCast_OnClick()
44 UIDropDownMenu_SetSelectedValue(getglobal(frameName .. "AltCast"), this.value);
45 BActionSets_SetSelfCastMode(this.value);
46 end
47  
48 local function AddAltCastButton(text, value, selectedValue)
49 --no hotkey
50 local info = {};
51 info.text = text;
52 info.func = BOptionsAltCast_OnClick;
53 info.value = value;
54 if value == selectedValue then
55 info.checked = 1;
56 end
57 UIDropDownMenu_AddButton(info);
58 end
59  
60  
61 --add all buttons to the dropdown menu
62 function BOptionsAltCast_Initialize()
63 local selectedValue = UIDropDownMenu_GetSelectedValue( getglobal(frameName .. "AltCast") );
64  
65 AddAltCastButton("None", nil, selectedValue)
66 AddAltCastButton("Alt", 1, selectedValue)
67 AddAltCastButton("Control", 2, selectedValue)
68 AddAltCastButton("Shift", 3, selectedValue)
69 end
70  
71 --[[
72 Out of Range Coloring Functions
73 --]]
74 --set the background of the frame between opaque/transparent
75 function BOptionsRangeColor_OnClick()
76 if ColorPickerFrame:IsShown() then
77 ColorPickerFrame:Hide();
78 else
79 local settings = BActionSets_GetRangeColor()
80  
81 ColorPickerFrame.func = BOptionsRangeColor_ColorChange;
82 ColorPickerFrame.cancelFunc = BOptionsRangeColor_CancelChanges;
83  
84 getglobal(frameName .. "RangeColorNormalTexture"):SetVertexColor(settings.r, settings.g, settings.b);
85 ColorPickerFrame:SetColorRGB(settings.r, settings.g, settings.b);
86 ColorPickerFrame.previousValues = {r = settings.r, g = settings.g, b = settings.b};
87  
88 ShowUIPanel(ColorPickerFrame);
89 end
90 end
91  
92 function BOptionsRangeColor_ColorChange()
93 local r, g, b = ColorPickerFrame:GetColorRGB();
94  
95 BActionSets_SetRangeColor(r, g, b)
96  
97 getglobal(frameName .. "RangeColorNormalTexture"):SetVertexColor(r, g, b);
98 end
99  
100  
101 function BOptionsRangeColor_CancelChanges()
102 local prevValues = ColorPickerFrame.previousValues;
103  
104 BActionSets_SetRangeColor(prevValues.r, prevValues.g, prevValues.b)
105  
106 getglobal(frameName .. "RangeColorNormalTexture"):SetVertexColor(prevValues.r, prevValues.g, prevValues.b);
107 end