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

setenv()


Syntax:     setenv([<expL>])

Purpose:    Set operating environment

Arguments:  <expL> determines the state of setcanel()

             This parameter is optional.  If ommitted, setcancel()
             is set to false. (.f.)

Returns:    NIL

Library:    TC_SYS.LIB

----------------------------------- Example ----------------------------------

   setenv(.t.)

// actual code
#include "set.ch"

func setEnv(lParam)
    local lCancel := if(((lParam == NIL) .or. (lParam == .f.)),.f.,.t.)
    set(_SET_EXCLUSIVE,.f.)
    set(_SET_DELETED,.t.)
    set(_SET_SCOREBOARD,.f.)
    set(_SET_WRAP,.t.)
    set(_SET_ESCAPE,.f.)
    set(_SET_CONFIRM,.f.)
    set(_SET_CANCEL,lParam)
    set(_SET_MESSAGE,22)
    set(_SET_MCENTER,.t.)
    setcursor(0)
    b_sysdttm()     // set workstation date and time equal to server
    b_fastkey()     // accelerate keyboard
    b_border(0)     // clear screen border left by any other program
retu(NIL)