Assign an action block to a key


      SET KEY   <anKey> to p<bAction>] [when  <bCondition> ]  )


<anKey> is either a numeric key value, or an array of such values

<bAction> is an optional code-block to be assigned

<bCondition> is an optional condition code-block


The Set Key Command function is translated to the SetKey() function witch returns the current code-block assigned to a key when called with only the key value. If the action block (and optionally the condition block) are passed, the current block is returned, and the new code block and condition block are stored. A group of keys may be assigned the same code block/condition block by using an array of key values in place on the first parameter.


      LOCAL bOldF10 := SetKey( K_F10,  {|| Yahoo() } )
      ... // some other processing
      SET KEY K_F10 TO bOldF10
      ... // some other processing
      bBlock := SetKey( K_SPACE )
      IF bBlock != NIL ...

         // make F10 exit current get,  but only if in a get - ignores other
         // wait-states such as menus,  achoices,  etc...
         SetKey( K_F10,  {|| GetActive():State := GE_WRITE },  ;
            {|| GetActive() != NIL } )


SET KEY is mostly CA-Cl*pper compliant. The only difference is the addition of the condition code-block parameter, allowing set-keys to be conditionally turned off or on. This condition-block cannot be returned once set – see SetKeyGet()




2 responses to “SET KEY

  1. Pingback: Harbour Commands | Viva Clipper !

  2. Pingback: Harbour RG Summary | Viva Clipper !

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )


Connecting to %s