vanilla-wow-addons – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 function Perl_Config_All_Display()
2 Perl_Config_Hide_All();
3 Perl_Config_All_Frame:Show();
4 Perl_Config_All_Set_Values();
5 end
6  
7 function Perl_Config_All_Set_Values()
8 local vartable = Perl_Config_GetVars();
9  
10 if (vartable["texture"] ~= nil) then
11 Perl_Config_All_Frame_CheckButton1:SetChecked(nil);
12 Perl_Config_All_Frame_CheckButton2:SetChecked(nil);
13 Perl_Config_All_Frame_CheckButton3:SetChecked(nil);
14 Perl_Config_All_Frame_CheckButton4:SetChecked(nil);
15 Perl_Config_All_Frame_CheckButton5:SetChecked(nil);
16 Perl_Config_All_Frame_CheckButton6:SetChecked(nil);
17  
18 local num = vartable["texture"];
19 if (num == 0) then
20 num = 6;
21 end
22 Perl_Config_All_Frame_CheckButton6:SetChecked(nil);
23 getglobal("Perl_Config_All_Frame_CheckButton"..num):SetChecked(1);
24 end
25  
26 Perl_Config_All_Frame_Slider1Low:SetText("Small");
27 Perl_Config_All_Frame_Slider1High:SetText("Big");
28 --Perl_Config_All_Frame_Slider1:SetValue(nil); -- Figure out how to get the slider to poof on every open
29 --Perl_Config_All_Frame_CheckButton7:SetChecked(nil); -- We want a clean scale bar when opening the frame since nothing is saved or loaded for it
30  
31 Perl_Config_All_Frame_Slider2Low:SetText("0");
32 Perl_Config_All_Frame_Slider2High:SetText("100");
33  
34 Perl_Config_All_Frame_Slider3Low:SetText("0");
35 Perl_Config_All_Frame_Slider3High:SetText("360");
36 Perl_Config_All_Frame_Slider3:SetValue(vartable["minimapbuttonpos"]);
37  
38 if (vartable["showminimapbutton"] == 1) then
39 Perl_Config_All_Frame_CheckButton8:SetChecked(1);
40 else
41 Perl_Config_All_Frame_CheckButton8:SetChecked(nil);
42 end
43  
44 if (vartable["transparentbackground"] == 1) then
45 Perl_Config_All_Frame_CheckButton9:SetChecked(1);
46 else
47 Perl_Config_All_Frame_CheckButton9:SetChecked(nil);
48 end
49  
50 if (vartable["PCUF_CastPartySupport"] == 1) then
51 Perl_Config_All_Frame_CheckButton10:SetChecked(1);
52 else
53 Perl_Config_All_Frame_CheckButton10:SetChecked(nil);
54 end
55  
56 if (vartable["PCUF_ColorHealth"] == 1) then
57 Perl_Config_All_Frame_CheckButton11:SetChecked(1);
58 else
59 Perl_Config_All_Frame_CheckButton11:SetChecked(nil);
60 end
61 end
62  
63 function Perl_Config_All_Texture_Update(texturenum)
64 if (Perl_Config_All_Frame_CheckButton1:GetChecked() == 1 or Perl_Config_All_Frame_CheckButton2:GetChecked() == 1 or Perl_Config_All_Frame_CheckButton3:GetChecked() == 1 or Perl_Config_All_Frame_CheckButton4:GetChecked() == 1 or Perl_Config_All_Frame_CheckButton5:GetChecked() == 1) then
65 -- do nothing
66 else
67 Perl_Config_All_Frame_CheckButton6:SetChecked(1);
68 texturenum = 0;
69 end
70  
71 Perl_Config_Set_Texture(texturenum); -- Go save the value and texture the bars
72 end
73  
74 function Perl_Config_All_Lock_Unlock(value)
75 if (Perl_CombatDisplay_Frame) then
76 Perl_CombatDisplay_Set_Lock(value);
77 end
78  
79 if (Perl_Party_Frame) then
80 Perl_Party_Set_Lock(value);
81 end
82  
83 if (Perl_Party_Pet_Script_Frame) then
84 Perl_Party_Pet_Set_Lock(value);
85 end
86  
87 if (Perl_Player_Frame) then
88 Perl_Player_Set_Lock(value);
89 end
90  
91 if (Perl_Player_Pet_Frame) then
92 Perl_Player_Pet_Set_Lock(value);
93 end
94  
95 if (Perl_Raid_Frame) then
96 Perl_Raid_Set_Lock(value);
97 end
98  
99 if (Perl_Target_Frame) then
100 Perl_Target_Set_Lock(value);
101 end
102  
103 if (Perl_Target_Target_Script_Frame) then
104 Perl_Target_Target_Set_Lock(value);
105 end
106 end
107  
108 function Perl_Config_All_Set_Scale(value)
109 if (value == nil) then
110 value = floor(UIParent:GetScale()*100+0.5);
111 Perl_Config_All_Frame_Slider1Text:SetText(value);
112 Perl_Config_All_Frame_Slider1:SetValue(value);
113 end
114  
115 if (floor(value+0.5) == floor(UIParent:GetScale()*100+0.5)) then
116 Perl_Config_All_Frame_CheckButton7:SetChecked(1);
117 else
118 Perl_Config_All_Frame_CheckButton7:SetChecked(nil);
119 end
120  
121 if (Perl_CombatDisplay_Frame) then
122 Perl_CombatDisplay_Set_Scale(value);
123 end
124  
125 if (Perl_Party_Frame) then
126 Perl_Party_Set_Scale(value);
127 end
128  
129 if (Perl_Party_Pet_Script_Frame) then
130 Perl_Party_Pet_Set_Scale(value);
131 end
132  
133 if (Perl_Player_Frame) then
134 Perl_Player_Set_Scale(value);
135 end
136  
137 if (Perl_Player_Buff_Script_Frame) then
138 Perl_Player_Buff_Set_Scale(value);
139 end
140  
141 if (Perl_Player_Pet_Frame) then
142 Perl_Player_Pet_Set_Scale(value);
143 end
144  
145 if (Perl_Raid_Frame) then
146 Perl_Raid_Set_Scale(value);
147 end
148  
149 if (Perl_Target_Frame) then
150 Perl_Target_Set_Scale(value);
151 Perl_Target_Set_BuffDebuff_Scale(value);
152 end
153  
154 if (Perl_Target_Target_Script_Frame) then
155 Perl_Target_Target_Set_Scale(value);
156 end
157 end
158  
159 function Perl_Config_All_Set_Transparency(value)
160 Perl_Config_Set_Transparency(value);
161 end
162  
163 function Perl_Config_All_Set_MiniMap_Button()
164 if (Perl_Config_All_Frame_CheckButton8:GetChecked() == 1) then
165 Perl_Config_Set_MiniMap_Button(1);
166 else
167 Perl_Config_Set_MiniMap_Button(0);
168 end
169 end
170  
171 function Perl_Config_All_Set_MiniMap_Position(value)
172 Perl_Config_Set_MiniMap_Position(value);
173 end
174  
175 function Perl_Config_All_Set_Transparent_Background()
176 if (Perl_Config_All_Frame_CheckButton9:GetChecked() == 1) then
177 Perl_Config_Set_Background(1);
178 else
179 Perl_Config_Set_Background(0);
180 end
181 end
182  
183 function Perl_Config_All_Set_CastParty_Support()
184 if (Perl_Config_All_Frame_CheckButton10:GetChecked() == 1) then
185 Perl_Config_Set_CastParty_Support(1);
186 else
187 Perl_Config_Set_CastParty_Support(0);
188 end
189 end
190  
191 function Perl_Config_All_Set_Color_Health()
192 if (Perl_Config_All_Frame_CheckButton11:GetChecked() == 1) then
193 Perl_Config_Set_Color_Health(1);
194 else
195 Perl_Config_Set_Color_Health(0);
196 end
197 end