home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-386-Vol-2of3.iso
/
c
/
cliptree.zip
/
INCLUDE1.H
< prev
next >
Wrap
C/C++ Source or Header
|
1993-02-07
|
2KB
|
48 lines
/*┌──────────────────────────────────────────────────────────────────────┐
▌│ │
▌│ Program Name: INCLUDE1.H Copyright: Gallagher Computing Corp. │
▌│ Date Created: 02/06/93 Language: Clipper 5.0 │
▌│ Time Created: 17:26:53 Author: Kevin S Gallagher │
▌│ c:/brief/clipper.src │
▌└──────────────────────────────────────────────────────────────────────┘
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ */
#include "achoice.ch"
#include "box.ch"
#include "inkey.ch"
#include "directry.ch"
#include "Fileman.ch"
#define DIR_NAM 1
#define DIR_PATH 2
#define T_BRANCH CHR(195) + CHR(196)
#define L_BRANCH CHR(192) + CHR(196)
#define I_BRANCH CHR(179) + CHR(32)
#define NO_BRANCH CHR(32) + CHR(32)
#define MR MAXROW()
#define MC MAXCOL()
#define MIDRow() ( MR+1 ) / 2
#define MIDCol() ( MC+1 ) / 2
#define OkBLOCK { { | e | LEN( e[5] ) == 1 .AND. "D" $ e[5] .OR. ;
LEN( e[5] ) == 2 .AND. "HD" $ e[5] }, ;
{ | e | "." $ SUBSTR(e[1],1,1) } ;
}
#define MsgColor "w+/bg,b/w"
#define Panel( lHelp ) EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
DISPBOX( 0, 0, MR, MC, '▓▓▓▓▓▓▓▓▓', 'w+/b' ),;
DEVPOS( MAXROW(), 0 ),;
IF( lHelp, DEVOUT( PADL( 'F1 - Help', 80 ),"W+/RB"),;
QQOUT() ), SETCOLOR( cDefCol ) } )
#xtranslate LSTRINT( <f> ) => LTRIM(STR(INT( <f> ) ) )
#xcommand DEFAULT <param> TO <value> [, <param2> TO <value2> ] => ;
IF <param> == NIL ; <param> := <value> ; END ;
[; IF <param2> == NIL ; <param2> := <value2> ; END ]