vanilla-wow-addons – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 function Perl_Config_Player_Buff_Display()
2 Perl_Config_Hide_All();
3 if (Perl_Player_Buff_Script_Frame) then
4 Perl_Config_Player_Buff_Frame:Show();
5 Perl_Config_Player_Buff_Set_Values();
6 else
7 Perl_Config_Player_Buff_Frame:Hide();
8 Perl_Config_NotInstalled_Frame:Show();
9 end
10 end
11  
12 function Perl_Config_Player_Buff_Set_Values()
13 local vartable = Perl_Player_Buff_GetVars();
14  
15 if (vartable["showbuffs"] == 1) then
16 Perl_Config_Player_Buff_Frame_CheckButton1:SetChecked(1);
17 else
18 Perl_Config_Player_Buff_Frame_CheckButton1:SetChecked(nil);
19 end
20  
21 if (vartable["buffalerts"] == 1) then
22 Perl_Config_Player_Buff_Frame_CheckButton2:SetChecked(1);
23 else
24 Perl_Config_Player_Buff_Frame_CheckButton2:SetChecked(nil);
25 end
26  
27 if (vartable["hideseconds"] == 1) then
28 Perl_Config_Player_Buff_Frame_CheckButton4:SetChecked(1);
29 else
30 Perl_Config_Player_Buff_Frame_CheckButton4:SetChecked(nil);
31 end
32  
33 Perl_Config_Player_Buff_Frame_Slider2Low:SetText("0");
34 Perl_Config_Player_Buff_Frame_Slider2High:SetText("100");
35 Perl_Config_Player_Buff_Frame_Slider2:SetValue(vartable["horizontalspacing"]);
36  
37 Perl_Config_Player_Buff_Frame_Slider1Low:SetText(PERL_LOCALIZED_CONFIG_SMALL);
38 Perl_Config_Player_Buff_Frame_Slider1High:SetText(PERL_LOCALIZED_CONFIG_BIG);
39 Perl_Config_Player_Buff_Frame_Slider1:SetValue(floor(vartable["scale"]*100+0.5));
40  
41 if (floor(vartable["scale"]*100+0.5) == floor(UIParent:GetScale()*100+0.5)) then
42 Perl_Config_Player_Buff_Frame_CheckButton3:SetChecked(1);
43 else
44 Perl_Config_Player_Buff_Frame_CheckButton3:SetChecked(nil);
45 end
46 end
47  
48 function Perl_Config_Player_Buff_ShowBuffs_Update()
49 if (Perl_Config_Player_Buff_Frame_CheckButton1:GetChecked() == 1) then
50 Perl_Player_Buff_Set_ShowBuffs(1);
51 else
52 Perl_Player_Buff_Set_ShowBuffs(0);
53 end
54 end
55  
56 function Perl_Config_Player_Buff_Alerts_Update()
57 if (Perl_Config_Player_Buff_Frame_CheckButton2:GetChecked() == 1) then
58 Perl_Player_Buff_Set_Alerts(1);
59 else
60 Perl_Player_Buff_Set_Alerts(0);
61 end
62 end
63  
64 function Perl_Config_Player_Buff_Hide_Seconds_Update()
65 if (Perl_Config_Player_Buff_Frame_CheckButton4:GetChecked() == 1) then
66 Perl_Player_Buff_Set_Hide_Seconds(1);
67 else
68 Perl_Player_Buff_Set_Hide_Seconds(0);
69 end
70 end
71  
72 function Perl_Config_Player_Buff_Set_Horizontal_Spacing(value)
73 if (Perl_Player_Buff_Script_Frame) then -- this check is to prevent errors if you aren't using Party
74 Perl_Player_Buff_Set_Horizontal_Spacing(value);
75 end
76 end
77  
78 function Perl_Config_Player_Buff_Set_Scale(value)
79 if (Perl_Player_Buff_Script_Frame) then -- this check is to prevent errors if you aren't using Player_Buff
80 if (value == nil) then
81 value = floor(UIParent:GetScale()*100+0.5);
82 Perl_Config_Player_Buff_Frame_Slider1Text:SetText(value);
83 Perl_Config_Player_Buff_Frame_Slider1:SetValue(value);
84 end
85 Perl_Player_Buff_Set_Scale(value);
86  
87 vartable = Perl_Player_Buff_GetVars();
88 if (floor(vartable["scale"]*100+0.5) == floor(UIParent:GetScale()*100+0.5)) then
89 Perl_Config_Player_Buff_Frame_CheckButton3:SetChecked(1);
90 else
91 Perl_Config_Player_Buff_Frame_CheckButton3:SetChecked(nil);
92 end
93 end
94 end