vanilla-wow-addons – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 --[[
2 Bagnon
3 Displays the player's inventory in a single frame
4 --]]
5  
6 local bBagSlotButton_OnEnter, bMainBag_OnEnter, bKeyRingButton_OnEnter;
7 local bBagSlotButton_OnClick, bKeyRingButton_OnClick, bMainBag_OnClick;
8  
9 --[[ Loading Functions ]]--
10  
11 function Bagnon_OnLoad()
12 this:RegisterEvent("ADDON_LOADED");
13 end
14  
15 --[[ Event Handler ]]--
16  
17 function Bagnon_OnEvent(event)
18 if ( event == "ADDON_LOADED" and arg1 == "Bagnon") then
19 Bagnon:UnregisterEvent("ADDON_LOADED");
20 Bagnon_Load();
21 end
22 end
23  
24 function Bagnon_Load()
25 BagnonFrame_Load(Bagnon, {-2, 0, 1, 2, 3, 4}, BAGNON_INVENTORY_TITLE);
26 Bagnon_AddBagHooks();
27 end
28  
29 --[[ UI Functions ]]--
30  
31 --OnShow
32 function Bagnon_OnShow()
33 MainMenuBarBackpackButton:SetChecked(1);
34 PlaySound("igBackPackOpen");
35 end
36  
37 --OnHide
38 function Bagnon_OnHide()
39 MainMenuBarBackpackButton:SetChecked(0);
40 PlaySound("igBackPackClose");
41 end
42  
43 --Show Bags
44 function Bagnon_ToggleBags()
45 if( not BagnonBags:IsShown() ) then
46 BagnonBags:Show();
47 BagnonSets["Bagnon"].bagsShown = 1;
48 this:SetText(BAGNON_HIDEBAGS);
49 else
50 BagnonBags:Hide();
51 BagnonSets["Bagnon"].bagsShown = nil;
52 this:SetText(BAGNON_SHOWBAGS);
53 end
54  
55 BagnonFrame_TrimToSize(Bagnon);
56 end
57  
58 --[[ Bag Overrides ]]--
59  
60 function Bagnon_AddBagHooks()
61 bMainBag_OnEnter = MainMenuBarBackpackButton:GetScript("OnEnter");
62 bMainBag_OnClick = MainMenuBarBackpackButton:GetScript("OnClick");
63 MainMenuBarBackpackButton:SetScript("OnEnter", BagnonBlizMainBag_OnEnter);
64 MainMenuBarBackpackButton:SetScript("OnLeave", BagnonBlizBag_OnLeave);
65 MainMenuBarBackpackButton:SetScript("OnClick", BagnonBlizMainBag_OnClick);
66  
67 bBagSlotButton_OnEnter = BagSlotButton_OnEnter;
68 BagSlotButton_OnEnter = BagnonBlizBag_OnEnter;
69 bBagSlotButton_OnClick = getglobal("CharacterBag0Slot"):GetScript("OnClick");
70 for i = 0, 3 do
71 getglobal("CharacterBag" .. i .. "Slot"):SetScript("OnLeave", BagnonBlizBag_OnLeave);
72 getglobal("CharacterBag" .. i .. "Slot"):SetScript("OnClick", BagnonBlizBag_OnClick);
73 end
74  
75 bKeyRingButton_OnEnter = KeyRingButton:GetScript("OnEnter");
76 bKeyRingButton_OnClick = KeyRingButton:GetScript("OnClick");
77 KeyRingButton:SetScript("OnEnter", BagnonBlizKeyRing_OnEnter);
78 KeyRingButton:SetScript("OnLeave", BagnonBlizBag_OnLeave);
79 KeyRingButton:SetScript("OnClick", BagnonBlizKeyRing_OnClick);
80 end
81  
82 --Main Bag
83 function BagnonBlizMainBag_OnEnter()
84 if( Bagnon:IsShown() ) then
85 BagnonFrame_HighlightSlots(Bagnon, this:GetID());
86 end
87 bMainBag_OnEnter();
88 end
89  
90 function BagnonBlizMainBag_OnClick()
91 if( IsShiftKeyDown() ) then
92 BagnonFrame_ToggleBag(Bagnon, this:GetID());
93 else
94 bMainBag_OnClick();
95 end
96 end
97  
98 --Normal Bags
99 function BagnonBlizBag_OnEnter()
100 if(Bagnon:IsShown() ) then
101 BagnonFrame_HighlightSlots(Bagnon, this:GetID() - 19);
102 end
103  
104 bBagSlotButton_OnEnter();
105 end
106  
107 function BagnonBlizBag_OnClick()
108 if( IsShiftKeyDown() ) then
109 BagnonFrame_ToggleBag(Bagnon, this:GetID() - 19);
110 else
111 bBagSlotButton_OnClick();
112 end
113 end
114  
115 function BagnonBlizBag_OnLeave()
116 GameTooltip:Hide();
117 BagnonFrame_UnhighlightAll(Bagnon);
118 end
119  
120 --KeyRing
121 function BagnonBlizKeyRing_OnEnter()
122 if(Bagnon:IsShown() ) then
123 BagnonFrame_HighlightSlots(Bagnon, this:GetID());
124 end
125 bKeyRingButton_OnEnter();
126 end
127  
128 function BagnonBlizKeyRing_OnClick()
129 if( IsShiftKeyDown() ) then
130 BagnonFrame_ToggleBag(Bagnon, this:GetID());
131 else
132 bKeyRingButton_OnClick();
133 end
134 end