See changelog 2002-04-27 23:50 UTC-0300

harbour/ChangeLog

@@ -7,6 +7,11 @@
    For example:
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+    ! Add support for Set Key defined Keys.
+      From xHarbour by Luiz Culik
+    ! Fix minor bug related with this.
+  * source/rtl/teditor.prg
+    ! Add support for Set Key defined Keys on Edit() and BrowseText() method
       From xHarbour by Luiz Culik
     ! Fix minor bug related with this
   * source/rtl/tget.prg

harbour/source/rtl/teditor.prg

@@ -818,7 +818,7 @@ return Self
 // handles only movement keys and discards all the others
 STATIC procedure BrowseText(oSelf, nPassedKey)
 
-   LOCAL nKey
+   LOCAL nKey,bKeyBlock
 
    while ! oSelf:lExitEdit
 
@@ -832,6 +832,11 @@ STATIC procedure BrowseText(oSelf, nPassedKey)
          nKey = nPassedKey
       endif
 
+      IF !( ( bKeyBlock := setkey( nKey ) ) == NIL )
+         eval( bKeyBlock )
+         return 
+      endif
+
       if nKey == K_ESC
          oSelf:lExitEdit := .T.
 
@@ -854,6 +859,7 @@ METHOD Edit(nPassedKey) CLASS HBEditor
    LOCAL nKey
    LOCAL lOldInsert
    LOCAL lDelAppend
+   LOCAL bKeyBlock
    LOCAL lSingleKeyProcess := .F.         // .T. if I have to process passed key and then exit
 
    if ! ::lEditAllow
@@ -874,6 +880,10 @@ METHOD Edit(nPassedKey) CLASS HBEditor
             lSingleKeyProcess := .T.
             nKey := nPassedKey
          endif
+         IF !( ( bKeyBlock := setkey( nKey ) ) == NIL )
+            eval( bKeyBlock )
+            return Self
+         endif
 
          do case
             case nKey >= K_SPACE .AND. nKey < 256