vanilla-wow-addons – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 function Perl_Config_Party_Pet_Display()
2 Perl_Config_Hide_All();
3 if (Perl_Party_Pet_Script_Frame) then
4 Perl_Config_Party_Pet_Frame:Show();
5 Perl_Config_Party_Pet_Set_Values();
6 else
7 Perl_Config_Party_Pet_Frame:Hide();
8 Perl_Config_NotInstalled_Frame:Show();
9 end
10 end
11  
12 function Perl_Config_Party_Pet_Set_Values()
13 local vartable = Perl_Party_Pet_GetVars();
14  
15 Perl_Config_Party_Pet_Frame_Slider1Low:SetText("Small");
16 Perl_Config_Party_Pet_Frame_Slider1High:SetText("Big");
17 Perl_Config_Party_Pet_Frame_Slider1:SetValue(floor(vartable["scale"]*100+0.5));
18  
19 if (floor(vartable["scale"]*100+0.5) == floor(UIParent:GetScale()*100+0.5)) then
20 Perl_Config_Party_Pet_Frame_CheckButton1:SetChecked(1);
21 else
22 Perl_Config_Party_Pet_Frame_CheckButton1:SetChecked(nil);
23 end
24  
25 Perl_Config_Party_Pet_Frame_Slider2Low:SetText("0");
26 Perl_Config_Party_Pet_Frame_Slider2High:SetText("100");
27 Perl_Config_Party_Pet_Frame_Slider2:SetValue(vartable["transparency"]*100);
28  
29 Perl_Config_Party_Pet_Frame_Slider3Low:SetText("0");
30 Perl_Config_Party_Pet_Frame_Slider3High:SetText("16");
31 Perl_Config_Party_Pet_Frame_Slider3:SetValue(vartable["numpetbuffsshown"]);
32  
33 Perl_Config_Party_Pet_Frame_Slider4Low:SetText("0");
34 Perl_Config_Party_Pet_Frame_Slider4High:SetText("16");
35 Perl_Config_Party_Pet_Frame_Slider4:SetValue(vartable["numpetdebuffsshown"]);
36  
37 Perl_Config_Party_Pet_Frame_Slider5Low:SetText("1");
38 Perl_Config_Party_Pet_Frame_Slider5High:SetText("50");
39 Perl_Config_Party_Pet_Frame_Slider5:SetValue(vartable["buffsize"]);
40  
41 Perl_Config_Party_Pet_Frame_Slider6Low:SetText("1");
42 Perl_Config_Party_Pet_Frame_Slider6High:SetText("50");
43 Perl_Config_Party_Pet_Frame_Slider6:SetValue(vartable["debuffsize"]);
44  
45 Perl_Config_Party_Pet_Frame_Slider7Low:SetText("1");
46 Perl_Config_Party_Pet_Frame_Slider7High:SetText("5");
47 Perl_Config_Party_Pet_Frame_Slider7:SetValue(vartable["bufflocation"]);
48  
49 Perl_Config_Party_Pet_Frame_Slider8Low:SetText("1");
50 Perl_Config_Party_Pet_Frame_Slider8High:SetText("5");
51 Perl_Config_Party_Pet_Frame_Slider8:SetValue(vartable["debufflocation"]);
52  
53 if (vartable["showportrait"] == 1) then
54 Perl_Config_Party_Pet_Frame_CheckButton2:SetChecked(1);
55 else
56 Perl_Config_Party_Pet_Frame_CheckButton2:SetChecked(nil);
57 end
58  
59 if (vartable["threedportrait"] == 1) then
60 Perl_Config_Party_Pet_Frame_CheckButton3:SetChecked(1);
61 else
62 Perl_Config_Party_Pet_Frame_CheckButton3:SetChecked(nil);
63 end
64  
65 if (vartable["locked"] == 1) then
66 Perl_Config_Party_Pet_Frame_CheckButton4:SetChecked(1);
67 else
68 Perl_Config_Party_Pet_Frame_CheckButton4:SetChecked(nil);
69 end
70  
71 if (vartable["hiddeninraids"] == 1) then
72 Perl_Config_Party_Pet_Frame_CheckButton5:SetChecked(1);
73 else
74 Perl_Config_Party_Pet_Frame_CheckButton5:SetChecked(nil);
75 end
76 end
77  
78 function Perl_Config_Party_Pet_Portrait_Update()
79 if (Perl_Config_Party_Pet_Frame_CheckButton2:GetChecked() == 1) then
80 Perl_Party_Pet_Set_Portrait(1);
81 else
82 Perl_Party_Pet_Set_Portrait(0);
83 end
84 end
85  
86 function Perl_Config_Party_Pet_3D_Portrait_Update()
87 if (Perl_Config_Party_Pet_Frame_CheckButton3:GetChecked() == 1) then
88 Perl_Party_Pet_Set_3D_Portrait(1);
89 else
90 Perl_Party_Pet_Set_3D_Portrait(0);
91 end
92 end
93  
94 function Perl_Config_Party_Pet_Lock_Update()
95 if (Perl_Config_Party_Pet_Frame_CheckButton4:GetChecked() == 1) then
96 Perl_Party_Pet_Set_Lock(1);
97 else
98 Perl_Party_Pet_Set_Lock(0);
99 end
100 end
101  
102 function Perl_Config_Party_Pet_Hidden_Update()
103 if (Perl_Config_Party_Pet_Frame_CheckButton5:GetChecked() == 1) then
104 Perl_Party_Pet_Set_Hidden(1);
105 else
106 Perl_Party_Pet_Set_Hidden(0);
107 end
108 end
109  
110 function Perl_Config_Party_Pet_Set_Buffs(value)
111 if (Perl_Party_Pet_Script_Frame) then -- this check is to prevent errors if you aren't using Party_Pet
112 Perl_Party_Pet_Set_Buffs(value);
113 end
114 end
115  
116 function Perl_Config_Party_Pet_Set_Debuffs(value)
117 if (Perl_Party_Pet_Script_Frame) then -- this check is to prevent errors if you aren't using Party_Pet
118 Perl_Party_Pet_Set_Debuffs(value);
119 end
120 end
121  
122 function Perl_Config_Party_Pet_Set_Buff_Size(value)
123 if (Perl_Party_Pet_Script_Frame) then -- this check is to prevent errors if you aren't using Party_Pet
124 Perl_Party_Pet_Set_Buff_Size(value);
125 end
126 end
127  
128 function Perl_Config_Party_Pet_Set_Debuff_Size(value)
129 if (Perl_Party_Pet_Script_Frame) then -- this check is to prevent errors if you aren't using Party_Pet
130 Perl_Party_Pet_Set_Debuff_Size(value);
131 end
132 end
133  
134 function Perl_Config_Party_Pet_Set_Buff_Location(value)
135 if (Perl_Party_Pet_Script_Frame) then -- this check is to prevent errors if you aren't using Party_Pet
136 Perl_Party_Pet_Set_Buff_Location(value);
137 end
138 end
139  
140 function Perl_Config_Party_Pet_Set_Debuff_Location(value)
141 if (Perl_Party_Pet_Script_Frame) then -- this check is to prevent errors if you aren't using Party_Pet
142 Perl_Party_Pet_Set_Debuff_Location(value);
143 end
144 end
145  
146 function Perl_Config_Party_Pet_Set_Scale(value)
147 if (Perl_Party_Pet_Script_Frame) then -- this check is to prevent errors if you aren't using Party_Pet
148 if (value == nil) then
149 value = floor(UIParent:GetScale()*100+0.5);
150 Perl_Config_Party_Pet_Frame_Slider1Text:SetText(value);
151 Perl_Config_Party_Pet_Frame_Slider1:SetValue(value);
152 end
153 Perl_Party_Pet_Set_Scale(value);
154  
155 vartable = Perl_Party_Pet_GetVars();
156 if (floor(vartable["scale"]*100+0.5) == floor(UIParent:GetScale()*100+0.5)) then
157 Perl_Config_Party_Pet_Frame_CheckButton1:SetChecked(1);
158 else
159 Perl_Config_Party_Pet_Frame_CheckButton1:SetChecked(nil);
160 end
161 end
162 end
163  
164 function Perl_Config_Party_Pet_Set_Transparency(value)
165 if (Perl_Party_Pet_Script_Frame) then -- this check is to prevent errors if you aren't using Party_Pet
166 Perl_Party_Pet_Set_Transparency(value);
167 end
168 end