home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-osu / operl.shar / sample5 < prev    next >
Encoding:
Text File  |  1991-02-25  |  293 b   |  15 lines
  1. #!/usr/bin/perl
  2. require 'point.pl';
  3.  
  4. $msgtrace = 1; # message trace on
  5.  
  6. # create a point @ (10, 20) ... see 'init' method
  7. $p1 = &newobject('point', 10, 20);
  8. &send($p1, 'show_self');
  9.  
  10. &send($p1, 'move', 100, 100);
  11. &send($p1, 'show_self');
  12.  
  13. &send($p1, 'rmove', 20, 20);
  14. &send($p1, 'show_self');
  15.