From 70dbec4221784c9b7bfa2fbbb3317ca5c74c8771 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Thu, 22 Jun 1995 00:44:17 +0000
Subject: [PATCH] Mark update_needed after a clear.

---
 lists.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lists.tcl b/lists.tcl
index b0f552d..47ca61e 100644
--- a/lists.tcl
+++ b/lists.tcl
@@ -171,6 +171,7 @@ widget tkinspect_list {
     }
     method clear {} {
 	set slot(contents) ""
+	$self update_needed
     }
     method append {item} {
 	lappend slot(contents) $item
-- 
2.23.0