vanilla-wow-addons – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 --[[ random notes
2  
3 Frame:SetBackdrop([backdropTable]) - Set the backdrop of the frame according to the specification provided - New in 1700.
4 Frame:SetBackdropBorderColor(r,g,b)
5 Frame:SetBackdropColor(r,g,b)
6  
7 Frame:StartSizing("RIGHT");
8 Frame:SetBackdrop({bgFile = "Interface\Tooltips\UI-Tooltip-Background", edgeFile = "Interface\Tooltips\UI-Tooltip-Border", tile = true, tileSize = 32, edgeSize = 32, insets = { left = 0, right = 0, top = 0, bottom = 0 }})
9  
10 handlerFunction = Frame:GetScript("handler") - (for handlers like "OnShow", "OnEnter", etc) which returns the current event handler for a frame.
11 Frame:SetScript("handler", function) - sets the action/event handler for a frame (or removes it with a nil function)
12  
13 UltimateUI_UpdateValue("UUI_VAR_NAME",CSM_CHECKONOFF,1);
14 UltimateUIMaster_Save();
15 ]]
16  
17 -- defaults
18 EnableBackdrops = 0;
19 LockAllBackdrops = 0;
20  
21 BackdropRed = 0;
22 BackdropGreen = 0;
23 BackdropBlue = 0;
24 BackdropAlpha = 0;
25  
26 function UUIBackdrop_OnEvent(event)
27 -- if (event == "VARIABLES_LOADED") then
28 if (UltimateUI_RegisterConfiguration) then
29 Backdrop_RegisterUltimateUI();
30 end
31 -- end
32 end
33  
34 function ForceBackdropEnable()
35 UltimateUI_UpdateValue("UUI_BACKDROP_ENABLE",CSM_CHECKONOFF,1);
36 UltimateUIMaster_Save();
37 end
38  
39 function ForceBackdropLock()
40 UltimateUI_UpdateValue("UUI_BACKDROP_LOCKALL",CSM_CHECKONOFF,1);
41 UltimateUIMaster_Save();
42 end
43  
44 function ShowAllBackdrops()
45 UUIBackdropFrame1:Show();
46 UUIBackdropFrame2:Show();
47 UUIBackdropFrame3:Show();
48 UUIBackdropFrame4:Show();
49 UUIBackdropFrame5:Show();
50 UUIBackdropFrame6:Show();
51 UUIBackdropFrame7:Show();
52 end
53  
54 function HideAllBackdrops()
55 UUIBackdropFrame1:Hide();
56 UUIBackdropFrame2:Hide();
57 UUIBackdropFrame3:Hide();
58 UUIBackdropFrame4:Hide();
59 UUIBackdropFrame5:Hide();
60 UUIBackdropFrame6:Hide();
61 UUIBackdropFrame7:Hide();
62 end
63  
64 function Backdrop_ToggleLock(toggle)
65 if (toggle) then
66 LockAllBackdrops = toggle;
67 if (LockAllBackdrops == 1) then
68 LockAllBackdrops = 0;
69 elseif (LockAllBackdrops == 0) then
70 LockAllBackdrops = 1;
71 else
72 LockAllBackdrops = 1;
73 ChatFrame1:AddMessage("All Backdrops locked. (returned other than 1 or 0)",info.r, info.g, info.b);
74 end
75 toggle = nil;
76 end
77 end
78  
79 function ToggleEnableBackdrops(toggle)
80 if (toggle) then
81 EnableBackdrops = toggle;
82 if (EnableBackdrops == 0) then
83 EnableBackdrops = 1;
84 ShowAllBackdrops();
85 elseif (EnableBackdrops == 1) then
86 EnableBackdrops = 0;
87 HideAllBackdrops();
88 end
89 end
90 end
91  
92 function UUIBackdropAllColorSlider_ChangeRed(checked,value)
93 if (value) then
94 BackdropRed = value;
95 UUIBackdropFrame1:SetBackdropColor(value,BackdropGreen,BackdropBlue,BackdropAlpha);
96 UUIBackdropFrame2:SetBackdropColor(value,BackdropGreen,BackdropBlue,BackdropAlpha);
97 UUIBackdropFrame3:SetBackdropColor(value,BackdropGreen,BackdropBlue,BackdropAlpha);
98 UUIBackdropFrame4:SetBackdropColor(value,BackdropGreen,BackdropBlue,BackdropAlpha);
99 UUIBackdropFrame5:SetBackdropColor(value,BackdropGreen,BackdropBlue,BackdropAlpha);
100 UUIBackdropFrame6:SetBackdropColor(value,BackdropGreen,BackdropBlue,BackdropAlpha);
101 UUIBackdropFrame7:SetBackdropColor(value,BackdropGreen,BackdropBlue,BackdropAlpha);
102 else
103 ChatFrame1:AddMessage("value returned nil",info.r, info.g, info.b);
104 end
105 end
106  
107 function UUIBackdropAllColorSlider_ChangeGreen(checked,value)
108 if (value) then
109 BackdropGreen = value;
110 UUIBackdropFrame1:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
111 UUIBackdropFrame2:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
112 UUIBackdropFrame3:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
113 UUIBackdropFrame4:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
114 UUIBackdropFrame5:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
115 UUIBackdropFrame6:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
116 UUIBackdropFrame7:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
117 else
118 ChatFrame1:AddMessage("value returned nil",info.r, info.g, info.b);
119 end
120 end
121  
122 function UUIBackdropAllColorSlider_ChangeBlue(checked,value)
123 if (value) then
124 BackdropBlue = value;
125 UUIBackdropFrame1:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
126 UUIBackdropFrame2:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
127 UUIBackdropFrame3:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
128 UUIBackdropFrame4:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
129 UUIBackdropFrame5:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
130 UUIBackdropFrame6:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
131 UUIBackdropFrame7:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
132 else
133 ChatFrame1:AddMessage("value returned nil",info.r, info.g, info.b);
134 end
135 end
136  
137 function UUIBackdropAllColorSlider_ChangeAlpha(checked,value)
138 if (value) then
139 BackdropAlpha = value;
140 UUIBackdropFrame1:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
141 UUIBackdropFrame2:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
142 UUIBackdropFrame3:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
143 UUIBackdropFrame4:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
144 UUIBackdropFrame5:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
145 UUIBackdropFrame6:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
146 UUIBackdropFrame7:SetBackdropColor(BackdropRed,BackdropGreen,BackdropBlue,BackdropAlpha);
147 end
148 end
149  
150 --[[
151 function UUIBackdropAllBorderType(checked,value)
152 if (value == 1) then
153 UUIBackdropFrame1:SetBackdrop({bgFile = "Interface\Tooltips\UI-Tooltip-Background", edgeFile = "Interface\Tooltips\UI-Tooltip-Border", tile = true, tileSize = 32, edgeSize = 32, insets = { left = 0, right = 0, top = 0, bottom = 0 }});
154 elseif (value == 2) then
155 UUIBackdropFrame1:SetBackdrop({bgFile = "Interface\DialogFrame\UI-DialogBox-Background", edgeFile = "Interface\DialogFrame\UI-DialogBox-Border", tile = true, tileSize = 32, edgeSize = 32, insets = { left = 0, right = 0, top = 0, bottom = 0 }});
156 else
157 ChatFrame1:AddMessage("this shouldn't happen");
158 end
159 end
160 ]]
161  
162 function UUIBackdropChangeNumber(checked,value)
163 if (value) then
164 if (value == 0) then
165 UUIBackdropFrame1:Hide();
166 UUIBackdropFrame2:Hide();
167 UUIBackdropFrame3:Hide();
168 UUIBackdropFrame4:Hide();
169 UUIBackdropFrame5:Hide();
170 UUIBackdropFrame6:Hide();
171 UUIBackdropFrame7:Hide();
172 elseif (value == 1) then
173 UUIBackdropFrame1:Show();
174 UUIBackdropFrame2:Hide();
175 UUIBackdropFrame3:Hide();
176 UUIBackdropFrame4:Hide();
177 UUIBackdropFrame5:Hide();
178 UUIBackdropFrame6:Hide();
179 UUIBackdropFrame7:Hide();
180 elseif (value == 2) then
181 UUIBackdropFrame2:Show();
182 UUIBackdropFrame3:Hide();
183 UUIBackdropFrame4:Hide();
184 UUIBackdropFrame5:Hide();
185 UUIBackdropFrame6:Hide();
186 UUIBackdropFrame7:Hide();
187 elseif (value == 3) then
188 UUIBackdropFrame3:Show();
189 UUIBackdropFrame4:Hide();
190 UUIBackdropFrame5:Hide();
191 UUIBackdropFrame6:Hide();
192 UUIBackdropFrame7:Hide();
193 elseif (value == 4) then
194 UUIBackdropFrame4:Show();
195 UUIBackdropFrame5:Hide();
196 UUIBackdropFrame6:Hide();
197 UUIBackdropFrame7:Hide();
198 elseif (value == 5) then
199 UUIBackdropFrame5:Show();
200 UUIBackdropFrame6:Hide();
201 UUIBackdropFrame7:Hide();
202 elseif (value == 6) then
203 UUIBackdropFrame6:Show();
204 UUIBackdropFrame7:Hide();
205 elseif (value == 7) then
206 UUIBackdropFrame7:Show();
207 else
208 ChatFrame1:AddMessage("This shouldn't happen.",r,g,b);
209 end
210 end
211 end
212  
213 function Backdrop_RegisterUltimateUI()
214 UltimateUI_RegisterConfiguration(
215 "UUI_BACKDROP", -- prefix that all options that should go in this section have to start with
216 "SECTION", -- Type
217 "Backdrops", -- Section Label
218 "Add Backdrops anywhere on the screen!" -- Mouseover
219 );
220 UltimateUI_RegisterConfiguration(
221 "UUI_BACKDROP_SEPARATOR", -- Keyword
222 "SEPARATOR", -- Type
223 "Backdrop Options", -- Separator Label
224 "Options for all backdrops" -- Mouseover
225 );
226 UltimateUI_RegisterConfiguration(
227 "UUI_BACKDROP_ENABLE", -- CVar
228 "CHECKBOX", -- Type
229 "Disable All Backdrops", -- Short description
230 "Disables the use of Backdrops that can be shaped to any size and placed anywhere on the screen", -- Long description
231 ToggleEnableBackdrops, -- Callback
232 1 -- Default Checked/Unchecked
233 );
234 UltimateUI_RegisterConfiguration(
235 "UUI_BACKDROP_LOCKALL", -- CVar
236 "CHECKBOX", -- Type
237 "Unlock All Backdrops", -- Short description
238 "Unlocks all Backdrops so they can be moved and resized", -- Long description
239 Backdrop_ToggleLock, -- Callback
240 1 -- Default Checked/Unchecked
241 );
242 --[[
243 UltimateUI_RegisterConfiguration(
244 "UUI_BACKDROP_BORDERTYPE", -- CVar
245 "SLIDER", -- Type
246 "Set the bordertype", -- Short description
247 "This sliders sets the type of border you want for all backdrops", -- Long description
248 UUIBackdropAllBorderType, -- Callback
249 1, -- Default Checked/Unchecked
250 1, -- Default slider value
251 1, -- Minimum slider value
252 2, -- max value
253 "Border Type", -- slider "header" text
254 1, -- Slider steps
255 1, -- Text on slider?
256 "", -- slider text append
257 1 -- slider multiplier
258 );
259 ]]
260 UltimateUI_RegisterConfiguration(
261 "UUI_BACKDROP_SEPARATORCOLOR", -- Keyword
262 "SEPARATOR", -- Type
263 "Backdrop Colors", -- Separator Label
264 "Coloring for all backdrops" -- Mouseover
265 );
266 UltimateUI_RegisterConfiguration(
267 "UUI_BACKDROP_COLORALL_RED", -- CVar
268 "SLIDER", -- Type
269 "Color all backdrops: [R]", -- Short description
270 "This sliders sets the R value for the color of all the backdrops at the same time.", -- Long description
271 UUIBackdropAllColorSlider_ChangeRed, -- Callback
272 1, -- Default Checked/Unchecked
273 0, -- Default slider value
274 0, -- Minimum slider value
275 1, -- max value
276 "R Value", -- slider "header" text
277 .01, -- Slider steps
278 1, -- Text on slider?
279 "", -- slider text append
280 1 -- slider multiplier
281 );
282 UltimateUI_RegisterConfiguration(
283 "UUI_BACKDROP_COLORALL_GREEN", -- CVar
284 "SLIDER", -- Type
285 "Color all backdrops: [G]", -- Short description
286 "This sliders sets the G value for the color of all the backdrops at the same time.", -- Long description
287 UUIBackdropAllColorSlider_ChangeGreen, -- Callback
288 1, -- Default Checked/Unchecked
289 0, -- Default slider value
290 0, -- Minimum slider value
291 1, -- max value
292 "G Value", -- slider "header" text
293 .01, -- Slider steps
294 1, -- Text on slider?
295 "", -- slider text append
296 1 -- slider multiplier
297 );
298 UltimateUI_RegisterConfiguration(
299 "UUI_BACKDROP_COLORALL_BLUE", -- CVar
300 "SLIDER", -- Type
301 "Color all backdrops: [B]", -- Short description
302 "This sliders sets the B value for the color of all the backdrops at the same time.", -- Long description
303 UUIBackdropAllColorSlider_ChangeBlue, -- Callback
304 1, -- Default Checked/Unchecked
305 0, -- Default slider value
306 0, -- Minimum slider value
307 1, -- max value
308 "B Value", -- slider "header" text
309 .01, -- Slider steps
310 1, -- Text on slider?
311 "", -- slider text append
312 1 -- slider multiplier
313 );
314 UltimateUI_RegisterConfiguration(
315 "UUI_BACKDROP_COLORALL_ALPHA", -- CVar
316 "SLIDER", -- Type
317 "Color all backdrops: [A]", -- Short description
318 "This sliders sets the ALPHA value for the color of all the backdrops at the same time.", -- Long description
319 UUIBackdropAllColorSlider_ChangeAlpha, -- Callback
320 1, -- Default Checked/Unchecked
321 0, -- Default slider value
322 0, -- Minimum slider value
323 1, -- max value
324 "Alpha Value", -- slider "header" text
325 .01, -- Slider steps
326 1, -- Text on slider?
327 "", -- slider text append
328 1 -- slider multiplier
329 );
330 UltimateUI_RegisterConfiguration(
331 "UUI_BACKDROP_SEPARATORHIDE", -- Keyword
332 "SEPARATOR", -- Type
333 "Backdrop Toggling", -- Separator Label
334 "Toggling for each individual backdrop" -- Mouseover
335 );
336 UltimateUI_RegisterConfiguration(
337 "UUI_BACKDROP_HIDEBACKDROPS", -- CVar
338 "SLIDER", -- Type
339 "Number of backdrops to use:", -- Short description
340 "This sliders sets the number of backdrops which should be shown on the screen.", -- Long description
341 UUIBackdropChangeNumber, -- Callback
342 1, -- Default Checked/Unchecked
343 0, -- Default slider value
344 0, -- Minimum slider value
345 7, -- max value
346 "Backdrops Used:", -- slider "header" text
347 1, -- Slider steps
348 1, -- Text on slider?
349 "", -- slider text append
350 1 -- slider multiplier
351 );
352 end
353  
354  
355 function UUIBackdrop_OnLoad()
356 this:RegisterEvent("VARIABLES_LOADED");
357 this:SetBackdropBorderColor(1,1,1,1);
358 this:SetBackdropColor(1,0,0,.7);
359 end
360  
361 function Backdrop_OnMouseUp(arg1)
362 this:StopMovingOrSizing();
363 end
364  
365 function Backdrop_OnMouseDown(arg1)
366 if (LockAllBackdrops == 0) then
367 if (IsShiftKeyDown()) then
368 if(arg1 == "LeftButton") then
369 this:StartSizing("TOP");
370 elseif(arg1 == "RightButton") then
371 this:StartSizing("BOTTOM");
372 else
373 if (DEFAULT_CHAT_FRAME) then
374 DEFAULT_CHAT_FRAME:AddMessage("arg1 returned: "..arg1);
375 end
376 end
377 elseif (IsControlKeyDown()) then
378 if(arg1 == "LeftButton") then
379 this:StartSizing("LEFT");
380 elseif(arg1 == "RightButton") then
381 this:StartSizing("RIGHT");
382 else
383 if (DEFAULT_CHAT_FRAME) then
384 DEFAULT_CHAT_FRAME:AddMessage("arg1 returned: "..arg1);
385 end
386 end
387 else
388 this:StartMoving();
389 end
390 end
391 end