batch plot

this is the error while click on the button

(2,779)   Method .PLOT1() not found
In line 1 of Command/Form Callback Command
!THIS.plot1()

below is my macro can anybody tell me what is wrong in that or correct it.
thanks




button   .REG          'REGISTRY:'          CALL |!THIS.REGI()| para .Toggle  At Xmax .reg + 1   width 30 height 1
list     .List1       ''                                 at xmin.REG   ymax.REG +.2   MULTIPLE      width  40  height 10
button   .PL         'PLOT'          CALL |!THIS.plot1()|    at xmin.List1 +1 ymax+.2


----------------------------------------------------------------------
DEFINE METHOD .REGI()


!REGI = REGI


HANDLE(2,111)
!!alert.error('You must be on or below a REGI')
ENDHANDLE


VAR !DRWGCOLL COLL ALL SHEE FOR $!REGI.name
VAR !List1Array EVAL NAME OF SHEE FOR ALL FROM !DRWGCOLL


!THIS.TOGGLE.VAL = '$!REGI.NAME'
!THIS.LIST1.dtext = !List1array


endmethod
----------------------------------------------------------------------
DEFINE METHOD .plot1()




!SelectionList = !This.List1.Val
!SelectionCount = !SelectionList.Size()


Do !x from 1 to !SelectionCount
   !Drawing = !This.List1.Dtext[$!SelectionList[$!x]]
   VAR !FirstPart  (|C:\TEMP\PLOTS\|)
   VAR !SecondPart (|.S1.plt|)


   !DrawingName = !Drawing.Before('/S1').AFTER('/').REPLACE('/','-')
   !NewText = !FirstPart + !DrawingName
 
   $!Drawing
   Var !ViewColl coll all view for CE
   !ViewCount = !ViewColl.Size()
   
   Do !a From 1 to !ViewCount
       $!ViewColl[$!a]
       !lframe = lframe
       if(!lframe eq TRUE) THEN
       lframe off
       HANDLE ANY
       ENDHANDLE
       endif
   enddo


$P $!Drawing ------ Sent To Printer!!
PLOT $!Drawing /$!NewText CUTM OFF over
syscom |%CADC_PLOT_DIR%\7S-PRT1.bat  $!NewText|
syscom |del $!NewText|


enddo






endmethod

this is the error while click on the button

(2,779)   Method .PLOT1() not found
In line 1 of Command/Form Callback Command
!THIS.plot1()

below is my macro can anybody tell me what is wrong in that or correct it.
thanks




button   .REG          'REGISTRY:'          CALL |!THIS.REGI()| para .Toggle  At Xmax .reg + 1   width 30 height 1
list     .List1       ''                                 at xmin.REG   ymax.REG +.2   MULTIPLE      width  40  height 10
button   .PL         'PLOT'          CALL |!THIS.plot1()|    at xmin.List1 +1 ymax+.2


----------------------------------------------------------------------
DEFINE METHOD .REGI()


!REGI = REGI


HANDLE(2,111)
!!alert.error('You must be on or below a REGI')
ENDHANDLE


VAR !DRWGCOLL COLL ALL SHEE FOR $!REGI.name
VAR !List1Array EVAL NAME OF SHEE FOR ALL FROM !DRWGCOLL


!THIS.TOGGLE.VAL = '$!REGI.NAME'
!THIS.LIST1.dtext = !List1array


endmethod
----------------------------------------------------------------------
DEFINE METHOD .plot1()




!SelectionList = !This.List1.Val
!SelectionCount = !SelectionList.Size()


Do !x from 1 to !SelectionCount
   !Drawing = !This.List1.Dtext[$!SelectionList[$!x]]
   VAR !FirstPart  (|C:\TEMP\PLOTS\|)
   VAR !SecondPart (|.S1.plt|)


   !DrawingName = !Drawing.Before('/S1').AFTER('/').REPLACE('/','-')
   !NewText = !FirstPart + !DrawingName
 
   $!Drawing
   Var !ViewColl coll all view for CE
   !ViewCount = !ViewColl.Size()
   
   Do !a From 1 to !ViewCount
       $!ViewColl[$!a]
       !lframe = lframe
       if(!lframe eq TRUE) THEN
       lframe off
       HANDLE ANY
       ENDHANDLE
       endif
   enddo


$P $!Drawing ------ Sent To Printer!!
PLOT $!Drawing /$!NewText CUTM OFF over
syscom |%CADC_PLOT_DIR%\7S-PRT1.bat  $!NewText|
syscom |del $!NewText|


enddo






endmethod