author | Claus Gittinger <cg@exept.de> |
Sun, 08 Sep 2019 16:03:05 +0200 | |
changeset 6694 | 9422f9cb3c30 |
parent 6693 | 255471ec01a1 |
child 6695 | e56559ffcb84 |
EditField.st | file | annotate | diff | comparison | revisions |
--- a/EditField.st Sun Sep 08 15:59:12 2019 +0200 +++ b/EditField.st Sun Sep 08 16:03:05 2019 +0200 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 1990 by Claus Gittinger All Rights Reserved @@ -1741,7 +1739,7 @@ ]. keyAction notNil ifTrue:[ - numArgs := keyAction numArgs. + numArgs := keyAction argumentCount. numArgs == 2 ifTrue:[ ^ keyAction value:self value:key