Other updated

example/examples/data_list/add_remove_clear/data_list_add_remove_clear.lua

@@ -64,4 +64,61 @@ function M:clear()
 end
 
 
+---@param output_list output_list
+function M:on_example_created(output_list)
+	self.on_item_click:subscribe(function(index)
+		self:remove_item(index)
+		output_list:add_log_text("Item removed: " .. index)
+	end)
+end
+
+
+---@param properties_panel properties_panel
+function M:properties_control(properties_panel)
+	local view_node = self.scroll.view_node
+	local is_stencil = gui.get_clipping_mode(view_node) == gui.CLIPPING_MODE_STENCIL
+
+	properties_panel:add_checkbox("ui_clipping", is_stencil, function(value)
+		gui.set_clipping_mode(view_node, value and gui.CLIPPING_MODE_STENCIL or gui.CLIPPING_MODE_NONE)
+	end)
+
+	properties_panel:add_slider("ui_scroll", 0, function(value)
+		self.scroll:scroll_to_percent(vmath.vector3(0, 1 - value, 0), true)
+	end)
+
+	properties_panel:add_button("ui_add_element", function()
+		self:add_item()
+	end)
+
+	properties_panel:add_button("ui_remove_element", function()
+		self:remove_item()
+	end)
+
+	properties_panel:add_button("ui_clear_elements", function()
+		self.data_list:clear()
+	end)
+end
+
+
+---@return string
+function M:get_debug_info()
+	local data_list = self.data_list
+
+	local data = data_list:get_data()
+	local info = ""
+	info = info .. "Data length: " .. #data .. "\n"
+	info = info .. "First Visual Index: " .. data_list.top_index .. "\n"
+	info = info .. "Last Visual Index: " .. data_list.last_index .. "\n"
+
+	local s = self.scroll
+	info = info .. "\n"
+	info = info .. "View Size X: " .. gui.get(s.view_node, "size.x") .. "\n"
+	info = info .. "Content Size X: " .. gui.get(s.content_node, "size.x") .. "\n"
+	info = info .. "Content position X: " .. math.ceil(s.position.x) .. "\n"
+	info = info .. "Content Range X: " .. s.available_pos.x .. " - " .. s.available_pos.z .. "\n"
+
+	return info
+end
+
+
 return M