vanilla-wow-addons – Blame information for rev 1
?pathlinks?
| 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 | Perl_Config_All_Frame_CheckButton7:SetChecked(nil); |
||
| 18 | |||
| 19 | local num = vartable["texture"]; |
||
| 20 | if (num == 0) then |
||
| 21 | num = 7; |
||
| 22 | end |
||
| 23 | Perl_Config_All_Frame_CheckButton7:SetChecked(nil); |
||
| 24 | getglobal("Perl_Config_All_Frame_CheckButton"..num):SetChecked(1); |
||
| 25 | end |
||
| 26 | |||
| 27 | Perl_Config_All_Frame_Slider1Low:SetText(PERL_LOCALIZED_CONFIG_SMALL); |
||
| 28 | Perl_Config_All_Frame_Slider1High:SetText(PERL_LOCALIZED_CONFIG_BIG); |
||
| 29 | --Perl_Config_All_Frame_Slider1:SetValue(nil); -- Figure out how to get the slider to poof on every open |
||
| 30 | --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 |
||
| 31 | |||
| 32 | Perl_Config_All_Frame_Slider2Low:SetText("0"); |
||
| 33 | Perl_Config_All_Frame_Slider2High:SetText("100"); |
||
| 34 | |||
| 35 | Perl_Config_All_Frame_Slider3Low:SetText("0"); |
||
| 36 | Perl_Config_All_Frame_Slider3High:SetText("360"); |
||
| 37 | Perl_Config_All_Frame_Slider3:SetValue(vartable["minimapbuttonpos"]); |
||
| 38 | |||
| 39 | if (vartable["showminimapbutton"] == 1) then |
||
| 40 | Perl_Config_All_Frame_CheckButton8:SetChecked(1); |
||
| 41 | else |
||
| 42 | Perl_Config_All_Frame_CheckButton8:SetChecked(nil); |
||
| 43 | end |
||
| 44 | |||
| 45 | if (vartable["transparentbackground"] == 1) then |
||
| 46 | Perl_Config_All_Frame_CheckButton9:SetChecked(1); |
||
| 47 | else |
||
| 48 | Perl_Config_All_Frame_CheckButton9:SetChecked(nil); |
||
| 49 | end |
||
| 50 | |||
| 51 | if (vartable["PCUF_CastPartySupport"] == 1) then |
||
| 52 | Perl_Config_All_Frame_CheckButton10:SetChecked(1); |
||
| 53 | else |
||
| 54 | Perl_Config_All_Frame_CheckButton10:SetChecked(nil); |
||
| 55 | end |
||
| 56 | |||
| 57 | if (vartable["PCUF_ColorHealth"] == 1) then |
||
| 58 | Perl_Config_All_Frame_CheckButton11:SetChecked(1); |
||
| 59 | else |
||
| 60 | Perl_Config_All_Frame_CheckButton11:SetChecked(nil); |
||
| 61 | end |
||
| 62 | |||
| 63 | if (vartable["texturedbarbackground"] == 1) then |
||
| 64 | Perl_Config_All_Frame_CheckButton13:SetChecked(1); |
||
| 65 | else |
||
| 66 | Perl_Config_All_Frame_CheckButton13:SetChecked(nil); |
||
| 67 | end |
||
| 68 | |||
| 69 | if (vartable["PCUF_FadeBars"] == 1) then |
||
| 70 | Perl_Config_All_Frame_CheckButton14:SetChecked(1); |
||
| 71 | else |
||
| 72 | Perl_Config_All_Frame_CheckButton14:SetChecked(nil); |
||
| 73 | end |
||
| 74 | |||
| 75 | if (vartable["PCUF_NameFrameClickCast"] == 1) then |
||
| 76 | Perl_Config_All_Frame_CheckButton15:SetChecked(1); |
||
| 77 | else |
||
| 78 | Perl_Config_All_Frame_CheckButton15:SetChecked(nil); |
||
| 79 | end |
||
| 80 | |||
| 81 | if (vartable["PCUF_InvertBarValues"] == 1) then |
||
| 82 | Perl_Config_All_Frame_CheckButton16:SetChecked(1); |
||
| 83 | else |
||
| 84 | Perl_Config_All_Frame_CheckButton16:SetChecked(nil); |
||
| 85 | end |
||
| 86 | end |
||
| 87 | |||
| 88 | function Perl_Config_All_Texture_Update(texturenum) |
||
| 89 | 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 or Perl_Config_All_Frame_CheckButton6:GetChecked() == 1) then |
||
| 90 | -- do nothing |
||
| 91 | else |
||
| 92 | Perl_Config_All_Frame_CheckButton7:SetChecked(1); |
||
| 93 | texturenum = 0; |
||
| 94 | end |
||
| 95 | |||
| 96 | Perl_Config_Set_Texture(texturenum); -- Go save the value and texture the bars |
||
| 97 | end |
||
| 98 | |||
| 99 | function Perl_Config_All_Set_Scale(value) |
||
| 100 | if (value == nil) then |
||
| 101 | value = floor(UIParent:GetScale()*100+0.5); |
||
| 102 | Perl_Config_All_Frame_Slider1Text:SetText(value); |
||
| 103 | Perl_Config_All_Frame_Slider1:SetValue(value); |
||
| 104 | end |
||
| 105 | |||
| 106 | if (floor(value+0.5) == floor(UIParent:GetScale()*100+0.5)) then |
||
| 107 | Perl_Config_All_Frame_CheckButton12:SetChecked(1); |
||
| 108 | else |
||
| 109 | Perl_Config_All_Frame_CheckButton12:SetChecked(nil); |
||
| 110 | end |
||
| 111 | |||
| 112 | if (Perl_CombatDisplay_Frame) then |
||
| 113 | Perl_CombatDisplay_Set_Scale(value); |
||
| 114 | end |
||
| 115 | |||
| 116 | if (Perl_Party_Frame) then |
||
| 117 | Perl_Party_Set_Scale(value); |
||
| 118 | end |
||
| 119 | |||
| 120 | if (Perl_Party_Pet_Script_Frame) then |
||
| 121 | Perl_Party_Pet_Set_Scale(value); |
||
| 122 | end |
||
| 123 | |||
| 124 | if (Perl_Party_Target_Script_Frame) then |
||
| 125 | Perl_Party_Target_Set_Scale(value); |
||
| 126 | end |
||
| 127 | |||
| 128 | if (Perl_Player_Frame) then |
||
| 129 | Perl_Player_Set_Scale(value); |
||
| 130 | end |
||
| 131 | |||
| 132 | if (Perl_Player_Buff_Script_Frame) then |
||
| 133 | Perl_Player_Buff_Set_Scale(value); |
||
| 134 | end |
||
| 135 | |||
| 136 | if (Perl_Player_Pet_Frame) then |
||
| 137 | Perl_Player_Pet_Set_Scale(value); |
||
| 138 | end |
||
| 139 | |||
| 140 | if (Perl_Raid_Frame) then |
||
| 141 | Perl_Raid_Set_Scale(value); |
||
| 142 | end |
||
| 143 | |||
| 144 | if (Perl_Target_Frame) then |
||
| 145 | Perl_Target_Set_Scale(value); |
||
| 146 | end |
||
| 147 | |||
| 148 | if (Perl_Target_Target_Script_Frame) then |
||
| 149 | Perl_Target_Target_Set_Scale(value); |
||
| 150 | end |
||
| 151 | end |
||
| 152 | |||
| 153 | function Perl_Config_All_Set_Transparency(value) |
||
| 154 | Perl_Config_Set_Transparency(value); |
||
| 155 | end |
||
| 156 | |||
| 157 | function Perl_Config_All_Set_MiniMap_Button() |
||
| 158 | if (Perl_Config_All_Frame_CheckButton8:GetChecked() == 1) then |
||
| 159 | Perl_Config_Set_MiniMap_Button(1); |
||
| 160 | else |
||
| 161 | Perl_Config_Set_MiniMap_Button(0); |
||
| 162 | end |
||
| 163 | end |
||
| 164 | |||
| 165 | function Perl_Config_All_Set_MiniMap_Position(value) |
||
| 166 | Perl_Config_Set_MiniMap_Position(value); |
||
| 167 | end |
||
| 168 | |||
| 169 | function Perl_Config_All_Set_Transparent_Background() |
||
| 170 | if (Perl_Config_All_Frame_CheckButton9:GetChecked() == 1) then |
||
| 171 | Perl_Config_Set_Background(1); |
||
| 172 | else |
||
| 173 | Perl_Config_Set_Background(0); |
||
| 174 | end |
||
| 175 | end |
||
| 176 | |||
| 177 | function Perl_Config_All_Set_CastParty_Support() |
||
| 178 | if (Perl_Config_All_Frame_CheckButton10:GetChecked() == 1) then |
||
| 179 | Perl_Config_Set_CastParty_Support(1); |
||
| 180 | else |
||
| 181 | Perl_Config_Set_CastParty_Support(0); |
||
| 182 | end |
||
| 183 | end |
||
| 184 | |||
| 185 | function Perl_Config_All_Set_Color_Health() |
||
| 186 | if (Perl_Config_All_Frame_CheckButton11:GetChecked() == 1) then |
||
| 187 | Perl_Config_Set_Color_Health(1); |
||
| 188 | else |
||
| 189 | Perl_Config_Set_Color_Health(0); |
||
| 190 | end |
||
| 191 | end |
||
| 192 | |||
| 193 | function Perl_Config_All_Set_Textured_Bar_Background() |
||
| 194 | if (Perl_Config_All_Frame_CheckButton13:GetChecked() == 1) then |
||
| 195 | Perl_Config_Set_Textured_Bar_Background(1); |
||
| 196 | else |
||
| 197 | Perl_Config_Set_Textured_Bar_Background(0); |
||
| 198 | end |
||
| 199 | end |
||
| 200 | |||
| 201 | function Perl_Config_All_Set_Fade_Bars() |
||
| 202 | if (Perl_Config_All_Frame_CheckButton14:GetChecked() == 1) then |
||
| 203 | Perl_Config_Set_Fade_Bars(1); |
||
| 204 | else |
||
| 205 | Perl_Config_Set_Fade_Bars(0); |
||
| 206 | end |
||
| 207 | end |
||
| 208 | |||
| 209 | function Perl_Config_All_Set_Name_Frame_Click_Cast() |
||
| 210 | if (Perl_Config_All_Frame_CheckButton15:GetChecked() == 1) then |
||
| 211 | Perl_Config_Set_Name_Frame_Click_Cast(1); |
||
| 212 | else |
||
| 213 | Perl_Config_Set_Name_Frame_Click_Cast(0); |
||
| 214 | end |
||
| 215 | end |
||
| 216 | |||
| 217 | function Perl_Config_All_Set_Invert_Bar_Values() |
||
| 218 | if (Perl_Config_All_Frame_CheckButton16:GetChecked() == 1) then |
||
| 219 | Perl_Config_Set_Invert_Bar_Values(1); |
||
| 220 | else |
||
| 221 | Perl_Config_Set_Invert_Bar_Values(0); |
||
| 222 | end |
||
| 223 | end |