#UI_ENHANCEMENT by cg
class: DSVColumnView
changed: #buttonPress:x:y:
react on first click
--- a/DSVColumnView.st Fri Aug 24 03:35:16 2018 +0000
+++ b/DSVColumnView.st Fri Aug 24 15:43:20 2018 +0200
@@ -2676,7 +2676,9 @@
rowNr := self yVisibleToRowNr:y.
colNr := self xVisibleToColNr:x.
- (button == 2) ifTrue:[ |openMenu|
+ (button == 2) ifTrue:[
+ |openMenu|
+
openMenu := false.
UserPreferences current selectOnRightClick ifFalse:[
@@ -2689,7 +2691,9 @@
openMenu := true.
].
].
- openMenu ifTrue:[ |menu|
+ openMenu ifTrue:[
+ |menu|
+
menu := self findMenuForSelection.
menu notNil ifTrue:[
self startUpMenu:menu.
@@ -2763,8 +2767,13 @@
"/ kludge
p := device translatePoint:x@y fromView:self toView:editView.
editView simulateButtonPress:button at:p.
- (editView subViews first isKindOf:EditTextView) ifTrue:[
- editView simulateButtonRelease:button at:p.
+ editView subViews size > 0 ifTrue:[
+ |childView|
+ "/ childView := editView subViews first.
+ "/ p := device translatePoint:x@y fromView:self toView:childView.
+ true "(childView isKindOf:EditTextView)" ifTrue:[
+ editView simulateButtonRelease:button at:p.
+ ].
].
^ self.
]