sokoban.love/0076-delete_pane_button

delete_pane_button = function(x, y, r)
	return overflowable_button('delete', x, y, r,
		function()
			if Current_pane.example_name then
				Deleted_example_panes[Current_pane.example_name] = true
			end
			table.remove(Panes, Current_pane_index)
			if #Panes == 0 then
				table.insert(Panes, new_pane())
			end
			if Current_pane_index > #Panes then
				Current_pane_index = Current_pane_index-1
			end
			Current_pane = Panes[Current_pane_index]
		end,
		--[[final button]] true)
end