fix clearing keybindings on bar1

2008-05-04 10:15:28 +00:00
parent ebed178bd3
commit 4fc318de81
1 changed files with 13 additions and 0 deletions
@@ -325,6 +325,19 @@ function Button:SetKey(key)
 	end
 end

+function Button:ClearBindings()
+	if self.id <= 12 then
+		local binding = format("ACTIONBUTTON%d", self.id)
+		while GetBindingKey(binding) do
+			SetBinding(GetBindingKey(binding), nil)
+		end
+	end
+	local binding = "CLICK "..self:GetName()..":LeftButton"
+	while GetBindingKey(binding) do
+		SetBinding(GetBindingKey(binding), nil)
+	end
+end
+
 local actionTmpl = "BT4 Bar %d Button %d"
 function Button:GetActionName()
 	return format(actionTmpl, self.parent.id, self.rid)