Assign an action block to a key


      SetKey( <anKey> [,  <bAction> [,  <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


Current assigned action-block


The SetKey() function 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
      SetKey( K_F10,  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 } )


SetKey() 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()


Library is core




3 responses to “SetKey()

  1. Pingback: Harbour All Functions – S | Viva Clipper !

  2. Pingback: Harbour Set Functions | Viva Clipper !

  3. 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 )

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s