home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / RefSet.4gh < prev    next >
Encoding:
Text File  |  1996-07-02  |  708 b   |  27 lines
  1. -----------------------------------------------------------------------------
  2. --
  3. --      (c)     Westmount Technology    1994
  4. --
  5. --    File:        @(#)RefSet.4gh    1.1
  6. --    Author:
  7. --    Description:    A 'simple' set of object references
  8. --
  9. -----------------------------------------------------------------------------
  10.  
  11. INCLUDE "ORefSet.4gh"
  12.  
  13. CLASS RefSet
  14.     PRIVATE VARIABLE s ORefSet
  15.     PRIVATE VARIABLE curr INTEGER
  16.  
  17.     FUNCTION RefSet()
  18.  
  19.     FUNCTION add(ref ixObject) RETURNING BOOLEAN
  20.     FUNCTION remove(ref ixObject) RETURNING VOID
  21.     FUNCTION isPresent(ref ixObject) RETURNING BOOLEAN
  22.     FUNCTION size() RETURNING INTEGER
  23.  
  24.     FUNCTION first() RETURNING ixObject
  25.     FUNCTION next() RETURNING ixObject
  26. END CLASS
  27.