home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / classdict.sru < prev    next >
Encoding:
Text File  |  1997-04-03  |  2.0 KB  |  80 lines
  1. $PBExportHeader$classdict.sru
  2. $PBExportComments$A classdict containing dictelements
  3. forward
  4. global type classdict from nonvisualobject
  5. end type
  6. end forward
  7.  
  8. global type classdict from nonvisualobject
  9. end type
  10. global classdict classdict
  11.  
  12. type variables
  13. integer current = 0
  14. dictelement firstElement
  15. end variables
  16.  
  17. forward prototypes
  18. public function boolean contains (any key)
  19. public subroutine set (any key, powerobject obj)
  20. public function powerobject get (any key)
  21. public subroutine remove (any key)
  22. public function any firstKey()
  23. public function any nextKey()
  24. public function powerobject firstObject()
  25. public function powerobject nextObject()
  26. end prototypes
  27.  
  28. public function boolean contains (any key);// is key present in dictionary
  29. return firstElement.contains(key)
  30. end function
  31.  
  32. public subroutine set (any key, powerobject obj);// set obj in dictionary using key
  33. firstElement.set(key, obj)
  34. end subroutine
  35.  
  36. public function powerobject get (any key);//
  37. return firstElement.get(key)
  38. end function
  39.  
  40. public subroutine remove (any key);// remove object from dictionary using key
  41. firstElement.remove(key)
  42. end subroutine
  43.  
  44. public function any firstKey();// return first key in dictionary
  45. current = 0
  46. return firstElement.keybyindex(0)
  47. end function
  48.  
  49. public function any nextKey();// return next key in dictionary
  50. current ++
  51. return firstElement.keybyindex(current)
  52. end function
  53.  
  54. public function powerobject firstObject();// return first object in dictionary
  55. current = 0
  56. return firstElement.objectbyindex(0)
  57. end function
  58.  
  59. public function powerobject nextObject();// return next object in dictionary
  60. current ++
  61. return firstElement.objectbyindex(current)
  62. end function
  63.  
  64. on classdict.create
  65. TriggerEvent( this, "constructor" )
  66. end on
  67.  
  68. on classdict.destroy
  69. TriggerEvent( this, "destructor" )
  70. end on
  71.  
  72. event constructor;// always add an empty/dummy first element
  73. firstElement = create dictelement
  74. end event
  75.  
  76. event destructor;// destroy firstElement
  77. destroy firstElement
  78. end event
  79.  
  80.