home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / gtclippe.ch < prev    next >
Text File  |  1993-02-12  |  2KB  |  91 lines
  1. /*
  2.     File......: GtClippe.ch
  3.     Author....: Martin Bryant
  4.     BBS.......: The Dark Knight Returns
  5.     Net/Node..: 050/069
  6.     User Name.: Martin Bryant
  7.     Date......: 03/02/93
  8.     Revision..: 1.0
  9.  
  10.     This is an original work by Martin Bryant and is placed
  11.     in the public domain.
  12.  
  13.     Modification history:
  14.     ---------------------
  15.  
  16.     Rev 1.0 03/02/93
  17.     PD Revision.
  18.  
  19.     Documentation
  20.     -------------
  21.  
  22.     Function Name
  23.  
  24.         N/A
  25.  
  26.     Description
  27.  
  28.         Standard GT_ Header file
  29.  
  30.     Syntax
  31.  
  32.         #include "GtClipper.ch"
  33.  
  34.     Aruments
  35.  
  36.         N/A
  37.  
  38.     Returns
  39.  
  40.         N/A
  41.  
  42.     Examples
  43.  
  44.         #include "GtClipper.ch"
  45.  
  46. */
  47.  
  48. #include "Inkey.ch"
  49. #include "SetCurs.ch"
  50.  
  51. //  End of line Def
  52. #define CRLF        (CHR(13)+CHR(10))
  53.  
  54. //  New page for printers
  55. #define FORMFEED    CHR(12)
  56.  
  57. //  Box lines
  58. #define BOX_DD      '╔═╗║╝═╚║ ╣╠'
  59. #define BOX_DS      '╒═╕│╛═╘│ ╡╞'
  60. #define BOX_SD      '╓─╖║╜─╙║ ╢╟'
  61. #define BOX_SS      '┌─┐│┘─└│ ┤├'
  62.  
  63. //  Default command
  64. #translate DEFAULT <x> TO <y>   =>  ;
  65.     IF (<x> == NIL) ; <x> := <y> ; ENDIF
  66.  
  67. //  Index key as a block
  68. #translate GT_IndexBlock(<n>)   =>  ;
  69.     &('{ || ' + ;
  70.         If(Empty(Indexkey(<n>)),'NIL',Indexkey(<n>)) + ;
  71.         ' }')
  72.  
  73. //  Turn the cursor on
  74. #translate GT_ShowCursor()      => ;
  75.     SetCursor(If(ReadInsert(),SC_INSERT,SC_NORMAL))
  76.  
  77. //  Turn the cursor off
  78. #translate GT_NoCursor()        => ;
  79.     SetCursor(SC_NONE)
  80.  
  81. #translate GT_Read(<a>)         => ;
  82.     AEVAL({ { | |  SETCURSOR(IF(READINSERT(), ;
  83.     SC_INSERT,SC_NORMAL)) }, ;
  84.     { | | READMODAL(<a>) }, ;
  85.     { | | SETCURSOR(SC_NONE) } }, ;
  86.     { | bData, nElem | EVAL(bData) })
  87.  
  88.  
  89.  
  90.  
  91.