home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a067 / 1.img / GRUMP501.EXE / GGETNAME.PRG < prev    next >
Encoding:
Text File  |  1991-05-09  |  353 b   |  16 lines
  1. /*
  2.     Function: GGetName()
  3.     Purpose:  Return variable name associated with a particular GET
  4.     Author:   Greg Lief
  5.     Dialect:  Clipper 5.x
  6.     Copyright (c) 1991 Greg Lief
  7. */
  8. function ggetname(target)
  9. local oget, ret_val := ''
  10. if ( oget := gfindget(target) ) != NIL
  11.    ret_val := oget:name
  12. endif
  13. return ret_val
  14.  
  15. * eof GGETNAME.PRG
  16.