vanilla-wow-addons – Blame information for rev 1
?pathlinks?
| 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 | Perl_Config_Player_Buff_Frame_Slider1Low:SetText("Small"); |
||
| 28 | Perl_Config_Player_Buff_Frame_Slider1High:SetText("Big"); |
||
| 29 | Perl_Config_Player_Buff_Frame_Slider1:SetValue(floor(vartable["scale"]*100+0.5)); |
||
| 30 | |||
| 31 | if (floor(vartable["scale"]*100+0.5) == floor(UIParent:GetScale()*100+0.5)) then |
||
| 32 | Perl_Config_Player_Buff_Frame_CheckButton3:SetChecked(1); |
||
| 33 | else |
||
| 34 | Perl_Config_Player_Buff_Frame_CheckButton3:SetChecked(nil); |
||
| 35 | end |
||
| 36 | end |
||
| 37 | |||
| 38 | function Perl_Config_Player_Buff_ShowBuffs_Update() |
||
| 39 | if (Perl_Config_Player_Buff_Frame_CheckButton1:GetChecked() == 1) then |
||
| 40 | Perl_Player_Buff_Set_ShowBuffs(1); |
||
| 41 | else |
||
| 42 | Perl_Player_Buff_Set_ShowBuffs(0); |
||
| 43 | end |
||
| 44 | end |
||
| 45 | |||
| 46 | function Perl_Config_Player_Buff_Alerts_Update() |
||
| 47 | if (Perl_Config_Player_Buff_Frame_CheckButton2:GetChecked() == 1) then |
||
| 48 | Perl_Player_Buff_Set_Alerts(1); |
||
| 49 | else |
||
| 50 | Perl_Player_Buff_Set_Alerts(0); |
||
| 51 | end |
||
| 52 | end |
||
| 53 | |||
| 54 | function Perl_Config_Player_Buff_Set_Scale(value) |
||
| 55 | if (Perl_Player_Buff_Script_Frame) then -- this check is to prevent errors if you aren't using Player_Buff |
||
| 56 | if (value == nil) then |
||
| 57 | value = floor(UIParent:GetScale()*100+0.5); |
||
| 58 | Perl_Config_Player_Buff_Frame_Slider1Text:SetText(value); |
||
| 59 | Perl_Config_Player_Buff_Frame_Slider1:SetValue(value); |
||
| 60 | end |
||
| 61 | Perl_Player_Buff_Set_Scale(value); |
||
| 62 | |||
| 63 | vartable = Perl_Player_Buff_GetVars(); |
||
| 64 | if (floor(vartable["scale"]*100+0.5) == floor(UIParent:GetScale()*100+0.5)) then |
||
| 65 | Perl_Config_Player_Buff_Frame_CheckButton3:SetChecked(1); |
||
| 66 | else |
||
| 67 | Perl_Config_Player_Buff_Frame_CheckButton3:SetChecked(nil); |
||
| 68 | end |
||
| 69 | end |
||
| 70 | end |