home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OL.LZH / IDOL.LZH / LINVKTST.IOL < prev    next >
Text File  |  1991-07-18  |  438b  |  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.