home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a067 / 1.img / GRUMP501.EXE / GGETCOL.PRG < prev    next >
Encoding:
Text File  |  1991-05-09  |  422 b   |  19 lines
  1. /*
  2.     Function: GGetCol()
  3.     Purpose:  Return and/or change display column for a specified GET
  4.     Author:   Greg Lief
  5.     Dialect:  Clipper 5.x
  6.     Copyright (c) 1991 Greg Lief
  7. */
  8. function ggetcol(target, newvalue)
  9. local oget, ret_val := -1
  10. if ( oget := gfindget(target) ) != NIL
  11.    ret_val := oget:col
  12.    if newvalue != NIL
  13.       oget:col := newvalue
  14.    endif
  15. endif
  16. return ret_val
  17.  
  18. * eof GGETCOL.PRG
  19.