--- a/EnterFieldGroup.st	Wed Jul 31 17:18:35 1996 +0200
+++ b/EnterFieldGroup.st	Thu Aug 01 18:18:35 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Interface-Support'
 !
 
-!EnterFieldGroup class methodsFor:'documentation'!
+!EnterFieldGroup  class methodsFor:'documentation'!
 
 copyright
 "
@@ -509,13 +509,6 @@
     aView buttonPress:button x:x y:y
 !
 
-buttonShiftPress:button x:x y:y view:aView
-    "clicking on a field activates it and forwards the click to it"
-
-    self makeActive:aView.
-    aView buttonShiftPress:button x:x y:y
-!
-
 handlesButtonPress:button inView:aView
     "query from event processor: am I interested in button-events ?
      yes I am (to activate the clicked-on field)."
@@ -523,13 +516,6 @@
    ^ true
 !
 
-handlesButtonShiftPress:button inView:aView
-    "query from event processor: am I interested in button-events ?
-     yes I am (to activate the clicked-on field)."
-
-    ^ true
-!
-
 handlesKeyPress:key inView:aView
     "query from event processor: am I interested in key-events ?
      yes I am (to forward it to the active field)."
@@ -739,8 +725,8 @@
     "Created: 21.5.1996 / 21:20:57 / cg"
 ! !
 
-!EnterFieldGroup class methodsFor:'documentation'!
+!EnterFieldGroup  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.27 1996-05-31 19:39:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.28 1996-08-01 16:18:35 cg Exp $'
 ! !