getmethod Method
Object: frmbehindsc
Expand/Collapse source code of procedure getmethod Source Code
*-- Extract method name
LPARAMETER tcString
LOCAL lcMethod
lcMethod = ALLT(SUBSTR(tcString, AT(",", tcString, 2) + 1))

IF LEFT(lcMethod, 1) = "("
  *-- More than 1 method is specified
  lcMethod = SUBSTR(lcMethod, 2, LEN(lcMethod) - 2)
ENDIF

RETURN lcMethod