home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / BIPL.ZIP / IDOL.ZIP / LINVKTST.IOL < prev    next >
Encoding:
Text File  |  1991-12-30  |  438 b   |  26 lines
  1. #
  2. # List invocation for methods.  Icon uses binary ! but Idol
  3. # uses $! for "foreach", so list invocation is specified via $$.
  4. #
  5.  
  6. class abang()
  7.   method a(args[])
  8.     write("a:")
  9.     every write (image(!args))
  10.   end
  11. end
  12.  
  13. class bbang : abang()
  14.   method b(args[])
  15.     write("b:")
  16.     every write (image(!args))
  17.     return self $$ a(["yo"]|||args)
  18.   end
  19. end
  20.  
  21. procedure main()
  22.   x := bbang()
  23.   x$b("yin","yang")
  24.  
  25. end
  26.