Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : ATEDIT.ZIP
Filename : ATEDIT.CH

//.............................................................................
//
// Program Name: ATEDIT.CH Copyright: Asta Engineering, Inc.
// Date Created: 04/30/92 Language: Clipper 5.0
// Time Created: 12:16:39 Author: John C. Burkhard
//
//.............................................................................
// Revision: 1.01 Last Revised: 05/21/93 at 15:07:26
// Description: Stand-alone version
//
// This version is the stand-alone version which has had all references
// to the window library removed.
//.............................................................................


// @ ... EDIT command

#command @ , TO , EDIT ;
[WHEN ] ;
[COLOR ] ;
[] ;
=> ;
aadd( GetList, GetNew() ) ;
;aTail( GetList ):row := ;
;aTail( GetList ):col := ;
;aTail( GetList ):name := # ;
;aTail( GetList ):block := { |__val| iif( pcount()>0, ;
:=__val,)} ;
;aTail( GetList ):picture := "X" ;
;aTail( GetList ):reader := { |g| __editread( g, , ;
, , , <.scroll.> ) } ;
[;aTail( GetList ):preblock := <{when}>] ;
[;aTail( GetList ):ColorSpec := ] ;
;__editdisp( , , , , , ;
<.scroll.>, )


// Quick documentation:
//
// Syntax is as described above. The SCROLL keyword controls whether the
// window is a scrolling window (like a real editor) or a non-scrolling
// window. Non-scrolling windows are useful for fixed length fields, while
// scrolling windows are useful for memo-fields.
//
// Depending upon your application, when working with fixed length
// fields, it may be handy to pass the the field through memotran() to
// convert hard CR's and soft CR's into something a little more
// meaningful.