+PreselectAllWhenOpeningEditor
authorClaus Gittinger <cg@exept.de>
Tue, 02 Nov 2010 21:58:58 +0100
changeset 3960 20b0047e59c6
parent 3959 5b7ff23ff724
child 3961 6cd0b3929aa2
+PreselectAllWhenOpeningEditor
DSVColumnView.st
--- a/DSVColumnView.st	Tue Nov 02 20:12:20 2010 +0100
+++ b/DSVColumnView.st	Tue Nov 02 21:58:58 2010 +0100
@@ -40,7 +40,8 @@
 		CheckToggleLevel CheckToggleExtent RadioButtonForm
 		RadioButtonLevel RadioButtonExtent ComboButtonForm
 		ComboButtonLevel ComboButtonExtent StopRedrawSignal
-		DragMotionDistance RadioButtonActiveImage RadioButtonPassiveImage'
+		DragMotionDistance RadioButtonActiveImage RadioButtonPassiveImage
+		PreselectAllWhenOpeningEditor'
 	poolDictionaries:''
 	category:'Views-DataSet'
 !
@@ -4184,9 +4185,12 @@
     ].
     editView realize.
     editor canTab:true.
+self halt.
     winGroup focusView:editor.
 
     self processAllExposeEvents.
+
+    "Modified: / 02-11-2010 / 21:34:59 / cg"
 !
 
 processAllExposeEvents
@@ -4286,12 +4290,13 @@
     ].
     view := self detectViewAt:aPoint ignoreInvisible:true.
 
-    (view ~~ self and:[view notNil]) ifTrue:[ |p|
-        p := device translatePoint:aPoint fromView:self toView:view.
+    PreselectAllWhenOpeningEditor == true ifTrue:[
         "/ simulate clicking into the editor
-        self sensor 
-                pushEvent:(WindowEvent   buttonPress:1 x:p x y:p y view:view);
-                pushEvent:(WindowEvent buttonRelease:1 x:p x y:p y view:view).
+        (view ~~ self and:[view notNil]) ifTrue:[ |p|
+            p := device translatePoint:aPoint fromView:self toView:view.
+            self sensor 
+                    pushEvent:(WindowEvent   buttonPress:1 x:p x y:p y view:view);
+                    pushEvent:(WindowEvent buttonRelease:1 x:p x y:p y view:view).
 
 "/        "/ a very special hack for radioButtons:
 "/        "/ if the button is now on, all other cells must be turned off !!
@@ -4302,7 +4307,10 @@
 "/                ].
 "/            ].
 "/        ].
-    ].
+        ].
+    ].
+
+    "Modified: / 02-11-2010 / 21:58:42 / cg"
 !
 
 selectRowFrom:start to:stop 
@@ -4624,9 +4632,9 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.260 2010-08-08 12:41:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.261 2010-11-02 20:58:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.260 2010-08-08 12:41:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.261 2010-11-02 20:58:58 cg Exp $'
 ! !