--- a/HierarchicalListView.st	Fri Nov 08 13:45:53 2002 +0100
+++ b/HierarchicalListView.st	Fri Nov 08 15:15:43 2002 +0100
@@ -14,14 +14,14 @@
 "{ Package: 'stx:libwidg2' }"
 
 SelectionInListModelView subclass:#HierarchicalListView
-        instanceVariableNames:'imageInset imageWidth lineMask lineColor showRoot showLines
-                showLeftIndicators indicatorAction useDefaultIcons icons
-                openIndicator closeIndicator alignTextRight alignTextRightX
-                maxWidthOfText minLineHeight levelOfLastItem expandOnSelect
-                autoScrollHorizontal'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Views-Trees'
+	instanceVariableNames:'imageInset imageWidth lineMask lineColor showRoot showLines
+		showLeftIndicators indicatorAction useDefaultIcons icons
+		openIndicator closeIndicator alignTextRight alignTextRightX
+		maxWidthOfText minLineHeight levelOfLastItem expandOnSelect
+		autoScrollHorizontal'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Trees'
 !
 
 !HierarchicalListView class methodsFor:'documentation'!
@@ -1070,6 +1070,7 @@
     |line item x0 y0|
 
     enabled ifFalse:[^ self].
+    self closeEditor.        
 
     line := self yVisibleToLineNr:y.
     line notNil ifTrue:[
@@ -1095,7 +1096,7 @@
 
             (x > x0 and:[(x0 + imageWidth) > x]) ifTrue:[
                 self indicatorPressedAt:line.
-              ^ self
+                ^ self
             ].
         ].
     ].
@@ -1511,5 +1512,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.70 2002-11-04 16:12:52 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.71 2002-11-08 14:15:33 ca Exp $'
 ! !

--- a/SelectionInListModelView.st	Fri Nov 08 13:45:53 2002 +0100
+++ b/SelectionInListModelView.st	Fri Nov 08 15:15:43 2002 +0100
@@ -944,6 +944,7 @@
     dragAccessPoint := nil.
 
     self pointerEntersItem:nil.
+    self closeEditor.        
 
     enabled ifFalse:[^ self].
 
@@ -986,11 +987,11 @@
                     ]
                 ].
                 self startUpMenu:menu.
-              ^ self
+                ^ self
             ]
         ].
         super buttonPress:button x:x y:y.
-      ^ self
+        ^ self
     ].
 
     (clickLine := lineNr) isNil ifTrue:[ ^ self ].
@@ -1877,5 +1878,5 @@
 !SelectionInListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.65 2002-11-04 16:10:50 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.66 2002-11-08 14:15:43 ca Exp $'
 ! !