From 4fc318de8100d39062dc59b06714eb85df7c5f3f Mon Sep 17 00:00:00 2001
From: Hendrik Leppkes <h.leppkes@gmail.com>
Date: Sun, 4 May 2008 10:15:28 +0000
Subject: [PATCH] fix clearing keybindings on bar1

---
 Button.lua | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/Button.lua b/Button.lua
index 0eacfdf..ed49d9c 100644
--- a/Button.lua
+++ b/Button.lua
@@ -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)