home *** CD-ROM | disk | FTP | other *** search
- -----------------------------------------------------------------------------
- --
- -- (c) Westmount Technology 1994
- --
- -- File: @(#)ORefSet.4gh 1.1
- -- Author:
- -- Description: An ordered set of object references
- --
- -----------------------------------------------------------------------------
-
- INCLUDE SYSTEM "ixvector.4gh"
-
- CLASS ORefSet DERIVED FROM ixVector
- PRIVATE VARIABLE curr INTEGER
-
- FUNCTION ORefSet(increment INTEGER: 10)
-
- FUNCTION append(ref ixObject) RETURNING INTEGER
- FUNCTION remove(ref ixObject) RETURNING VOID
-
- FUNCTION size() RETURNING INTEGER
-
- FUNCTION first() RETURNING ixObject
- FUNCTION next() RETURNING ixObject
- END CLASS
-