From 9d4f2fad9a0dcda7d95419b67f00aa9949641bd7 Mon Sep 17 00:00:00 2001
From: Tim Felgentreff <timfelgentreff@gmail.com>
Date: Mon, 29 Jun 2020 07:44:46 +0200
Subject: [PATCH] expose clearing all buttons to lua

---
 src/ui/script_ui.cpp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/ui/script_ui.cpp b/src/ui/script_ui.cpp
index 510fd4b1d..f00ad431a 100644
--- a/src/ui/script_ui.cpp
+++ b/src/ui/script_ui.cpp
@@ -861,6 +861,18 @@ void CallHandler(unsigned int handle, int value)
 	lua_pop(Lua, 1);
 }
 
+/**
+**  Clear all buttons
+**
+**  @param l  Lua state.
+*/
+static int CclClearButtons(lua_State *l)
+{
+	LuaCheckArgs(l, 0);
+	CleanButtons();
+	return 0;
+}
+
 /**
 **  Define a button.
 **
@@ -1192,6 +1204,7 @@ void UserInterfaceCclRegister()
 	lua_register(Lua, "SetFancyBuildings", CclSetFancyBuildings);
 
 	lua_register(Lua, "DefineButton", CclDefineButton);
+	lua_register(Lua, "ClearButtons", CclClearButtons);
 
 	lua_register(Lua, "DefineButtonStyle", CclDefineButtonStyle);