--- a/HierarchicalListView.st Tue Mar 13 07:32:32 2007 +0100
+++ b/HierarchicalListView.st Tue Mar 13 16:16:28 2007 +0100
@@ -1113,6 +1113,8 @@
|line item x0 y0|
+ modelChangedDuringButtonPress := nil.
+
enabled ifFalse:[^ self].
self closeEditor.
@@ -1177,18 +1179,6 @@
].
!
-buttonRelease:button x:x y:y
- "make selection visible after button release
- "
- super buttonRelease:button x:x y:y.
-
- (button == 1 or:[button == #select]) ifTrue:[
- self hasSelection ifTrue:[
- self makeSelectionVisible.
- ].
- ].
-!
-
keyPress:aKey x:x y:y
"a key was pressed - handle page-keys here
"
@@ -1662,5 +1652,5 @@
!HierarchicalListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.105 2007-03-12 15:23:59 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.106 2007-03-13 15:16:28 ca Exp $'
! !