Module: _setfunc      Library: Clipper 5.3


This module contains the following functions and procedures:



Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally 
performed based on the contents of STD.CH and other .CH files
 
#include "common.ch"
#include "inkey.ch"

//---------------------------------------------------[top]-
//  __SETFUNCT( Arg1, Arg2 )
//
procedure __SETFUNCT( Arg1, Arg2 )

   if ( Arg1 == 1 )
      Arg1 := 28
   else
      Arg1 := -( Arg1 - 1 )
   endif
   if ( ValType(Arg2) != "C" .OR. ISNIL( Arg2 ) )
      SetKey(Arg1, Nil)
   else
      SetKey(Arg1, { || __Keyboard(Arg2) })
   endif

//---EOF


Use your Browser's BACK button to return to Function Listings