Module: _ntxerr      Library: Clipper 5.3


This module contains the following functions and procedures:

static function LOCKERRHAN( Arg1, Arg2 )
init procedure INITHANDL

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]-
//  LOCKERRHAN( Arg1, Arg2 )
//
static function LOCKERRHAN( Arg1, Arg2 )

   if ( Arg1:gencode() == 41 )
      return .T.
   endif
   return eval(Arg2, Arg1)

//---------------------------------------------------[top]-
//  INITHANDL
//
init procedure INITHANDL

   local Local1 := errorblock({ |_1| lockerrhan(_1, Local1) })
   return

//---EOF


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