Click above to get retro games delivered to your door ever month!

SET KEY

Assign an action block to a key
---------------------------------------------------------------------------------

 Syntax

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

 Arguments

        <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    

 Description

      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.

 Examples

      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 } )
  

 Tests

      None definable
  

Status

      Ready

 Compliance

      SET KEY is mostly CA-Clipper 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()