Mark update_needed after a clear.

diff --git a/lists.tcl b/lists.tcl
index b0f552d26e97abc934f0bc6fa25a8b0d19f9e4d3..47ca61e9858ebd84e29572638c713e85191dc7dd 100644 (file)
--- 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