--- a/EditField.st Sun Mar 26 22:16:09 1995 +0200
+++ b/EditField.st Fri Mar 31 05:04:16 1995 +0200
@@ -25,7 +25,7 @@
COPYRIGHT (c) 1990 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.15 1995-03-25 22:19:58 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.16 1995-03-31 03:01:35 claus Exp $
'!
!EditField class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.15 1995-03-25 22:19:58 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.16 1995-03-31 03:01:35 claus Exp $
"
!
@@ -340,14 +340,6 @@
|leave xCol newOffset oldWidth newWidth|
enabled ifFalse:[
- (keyboardHandler notNil
- and:[keyboardHandler canHandle:key]) ifTrue:[
- (keyboardHandler == self) ifTrue:[
- self error:'invalid keyhandler'.
- ^ self
- ].
- keyboardHandler keyPress:key x:x y:y
- ].
^ self
].
@@ -372,8 +364,16 @@
leave ifTrue:[
self accept.
- (superView canHandle:key) ifTrue:[
- superView keyPress:key x:x y:y.
+ x >= 0 ifTrue:[
+ "
+ let superview know about the leave ...
+ This is a temporary kludge for the tableWidget -
+ it is no clean coding style. Should make the tableWidget
+ a proper model and handle it via the changed mechanism ....
+ "
+ (superView canHandle:key) ifTrue:[
+ superView keyPress:key x:x y:y.
+ ].
].
^ self
].