home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / XCLAS20D.ZIP / PILA.PRG < prev   
Encoding:
Text File  |  1993-03-11  |  818 b   |  38 lines
  1. #include "xclass.ch"
  2.  
  3.  
  4. CLASS TPila
  5. VAR Pila
  6. MESSAGE Push    METHOD TPLPush( x )
  7. MESSAGE Pop     METHOD TPLPop()
  8. MESSAGE Look    BLOCK  {| Self | atail( ::Pila ) }    //Ver el último elemento
  9. MESSAGE Count   BLOCK  {| Self | len( ::Pila ) }
  10. CONSTRUCTOR New()
  11. END CLASS TPila
  12.  
  13. STATIC METHOD New()  //Método común a TPILA y PilaPanta
  14.    ::Pila := {}
  15. RETURN Self
  16.  
  17. METHOD TPLPush( xVal )
  18.    aadd( ::Pila, xVal )
  19. RETURN
  20.  
  21. METHOD TPLPop()
  22.    LOCAL x
  23.    x := atail( ::Pila )
  24.    asize( ::Pila, len( ::Pila ) - 1 )
  25. RETURN x
  26.  
  27.  
  28. CLASS PilaPanta FROM TPila
  29. CONSTRUCTOR New()
  30. MESSAGE Push     METHOD PSCPush( nTop )
  31. END CLASS
  32.  
  33. METHOD PSCPush( nTop, nLeft, nBottom, nRight )
  34.    aadd( ::Pila, { nTop, nLeft, nBottom, nRight, ;
  35.                  savescreen( nTop, nLeft, nBottom, nRight ) } )
  36. RETURN
  37.  
  38.