From: sls <sls>
Date: Thu, 22 Jun 1995 00:44:17 +0000 (+0000)
Subject: Mark update_needed after a clear.
X-Git-Tag: r_5_1_4
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=70dbec4221784c9b7bfa2fbbb3317ca5c74c8771;p=tkinspect

Mark update_needed after a clear.
---

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