home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / oop / opclip / odemo1.prg < prev    next >
Text File  |  1991-11-07  |  657b  |  30 lines
  1. /*
  2. ╔══════════════════════════════════════════════════════════════════════╗
  3. ║                                o:Clip                                ║
  4. ║             An Object Oriented Extension to Clipper 5.01             ║
  5. ║                 (c) 1991 Peter M. Freese, CyberSoft                  ║
  6. ╚══════════════════════════════════════════════════════════════════════╝
  7.  
  8. Version 1.01 - November 8, 1991
  9. */
  10. #include "oclip.ch"
  11.  
  12. LOCAL o1 := Sample1():New("World")
  13. o1:Hello()
  14.  
  15. RETURN
  16.  
  17. CLASS Sample1
  18.   VAR Who
  19.   METHOD New,Hello
  20. ENDCLASS
  21.  
  22. FUNCTION New(cWho)
  23.   ::Who := cWho
  24. RETURN Self
  25.  
  26. FUNCTION Hello
  27.   ? "Hello",::Who
  28. RETURN Self
  29.  
  30.