home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / ATEDIT / ATEDIT.CH next >
Text File  |  1993-06-02  |  3KB  |  50 lines
  1. //.............................................................................
  2. //
  3. //   Program Name: ATEDIT.CH         Copyright: Asta Engineering, Inc.                                   
  4. //   Date Created: 04/30/92           Language: Clipper 5.0                                         
  5. //   Time Created: 12:16:39             Author: John C. Burkhard                          
  6. //
  7. //.............................................................................
  8. // Revision: 1.01 Last Revised: 05/21/93 at 15:07:26
  9. // Description: Stand-alone version
  10. //
  11. // This version is the stand-alone version which has had all references
  12. // to the window library removed.
  13. //.............................................................................
  14.  
  15.  
  16. // @ ... EDIT command
  17.  
  18. #command @ <top>, <left> TO <bottom>, <right> EDIT <var>             ;
  19.    [WHEN <when>]                                                     ;
  20.    [COLOR <color>]                                                   ;
  21.    [<scroll: SCROLL>]                                                ;
  22.    =>                                                                ;
  23.       aadd( GetList, GetNew() )                                      ;
  24.       ;aTail( GetList ):row := <top>                                 ;
  25.       ;aTail( GetList ):col := <left>                                ;
  26.       ;aTail( GetList ):name := #<var>                               ;
  27.       ;aTail( GetList ):block := { |__val| iif( pcount()>0,          ;
  28.                                                 <var>:=__val,<var>)} ;
  29.       ;aTail( GetList ):picture := "X"                               ;
  30.       ;aTail( GetList ):reader := { |g| __editread( g, <top>,        ;
  31.                            <left>, <bottom>, <right>, <.scroll.> ) } ;
  32.       [;aTail( GetList ):preblock := <{when}>]                       ;
  33.       [;aTail( GetList ):ColorSpec := <color>]                       ;
  34.       ;__editdisp( <var>, <top>, <left>, <bottom>, <right>,          ;
  35.                    <.scroll.>, <color> )
  36.  
  37.  
  38. // Quick documentation:
  39. //
  40. // Syntax is as described above.  The SCROLL keyword controls whether the
  41. // window is a scrolling window (like a real editor) or a non-scrolling
  42. // window.  Non-scrolling windows are useful for fixed length fields, while
  43. // scrolling windows are useful for memo-fields.
  44. //
  45. // Depending upon your application, when working with fixed length
  46. // fields, it may be handy to pass the the field through memotran() to
  47. // convert hard CR's and soft CR's into something a little more
  48. // meaningful.
  49.  
  50.