#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Fri, 24 Aug 2018 15:43:20 +0200
changeset 5895 7eb99c8f6368
parent 5894 d54c743aaff1
child 5896 7ffd5257eaa0
#UI_ENHANCEMENT by cg class: DSVColumnView changed: #buttonPress:x:y: react on first click
DSVColumnView.st
--- 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.
             ]