3 "

     1 "

     4  COPYRIGHT (c) 1990 by Claus Gittinger

     2  COPYRIGHT (c) 1990 by Claus Gittinger

     5 	      All Rights Reserved

     3 	      All Rights Reserved

     6 

     4 

     7  This software is furnished under a license and may be used

     5  This software is furnished under a license and may be used

  1739     doAccept == true ifTrue:[

  1737     doAccept == true ifTrue:[

  1740         self accept.

  1738         self accept.

  1741     ].

  1739     ].

  1742 

  1740 

  1743     keyAction notNil ifTrue:[

  1741     keyAction notNil ifTrue:[

  1745 

  1743 

  1746         numArgs == 2 ifTrue:[

  1744         numArgs == 2 ifTrue:[

  1747             ^ keyAction value:self value:key

  1745             ^ keyAction value:self value:key

  1748         ].

  1746         ].

  1749         numArgs == 0 ifTrue:[

  1747         numArgs == 0 ifTrue:[