extractmultimethods Method
Object: frmbehindsc
Expand/Collapse source code of procedure extractmultimethods Source Code
LPARAMETERS tnFileHandle, tcMethods

LOCAL lcMethods, ;
      lcThisMethod, ;
      lnNextMethod

lcMethods = tcMethods

DO WHILE !EMPTY(lcMethods)
  lnNextMethod = AT(",", lcMethods)
  IF lnNextMethod = 0  
    lnNextMethod = LEN(lcMethods)
    lcMethods = lcMethods + "  "
  ENDIF
  lcThisMethod = ALLT(LEFT(lcMethods, lnNextMethod - 1))

  *-- Cut the current method
  lcMethods = SUBSTR(lcMethods, lnNextMethod + 1)
  thisform.ExtractMethod(tnFileHandle, lcThisMethod)
ENDDO