home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / packs / idol / labelgen.iol < prev    next >
Text File  |  2000-07-29  |  221b  |  10 lines
  1. class labelgen : Sequence(prefix,postfix)
  2.   method activate()
  3.     return self.prefix||self$Sequence.activate()||self.postfix
  4.   end
  5. initially
  6.   /(self.prefix) := ""
  7.   /(self.postfix) := ""
  8.   /(self.bounds)  := [50000]
  9. end
  10.