Set.st
changeset 12734 28f61a17cd30
parent 12342 10c0bdcf6c37
child 12963 8ff7dc77ce1d
equal deleted inserted replaced
12733:48cc66ac5d52 12734:28f61a17cd30
   242     "
   242     "
   243 ! !
   243 ! !
   244 
   244 
   245 !Set methodsFor:'accessing'!
   245 !Set methodsFor:'accessing'!
   246 
   246 
       
   247 addFirst:anObject
       
   248     "add the argument, anObject to the receiver.
       
   249      If the receiver is ordered, the new element will be added at the beginning.
       
   250      An error is raised here - it does not make sense for unordered collections"
       
   251 
       
   252     ^ self shouldNotImplement
       
   253 !
       
   254 
   247 at:index
   255 at:index
   248     "report an error: at: is not allowed for Sets"
   256     "report an error: at: is not allowed for Sets"
   249 
   257 
   250     ^ self errorNotKeyed
   258     ^ self errorNotKeyed
   251 !
   259 !
   286     ].
   294     ].
   287     ^ keyArray basicAt:index
   295     ^ keyArray basicAt:index
   288 
   296 
   289     "Created: 20.3.1997 / 20:34:07 / cg"
   297     "Created: 20.3.1997 / 20:34:07 / cg"
   290     "Modified: 20.3.1997 / 20:35:49 / cg"
   298     "Modified: 20.3.1997 / 20:35:49 / cg"
       
   299 !
       
   300 
       
   301 removeLast
       
   302     "remove the last element from the receiver.
       
   303      Return the removed element.
       
   304      An error is raised here - it does not make sense for unordered collections"
       
   305 
       
   306     ^ self shouldNotImplement
       
   307 !
       
   308 
       
   309 reverseDo:aBlock
       
   310     "evaluate the argument, aBlock for each element in reverse order.
       
   311      An error is raised here - it does not make sense for unordered collections"
       
   312 
       
   313     ^ self shouldNotImplement
   291 ! !
   314 ! !
   292 
   315 
   293 !Set methodsFor:'adding & removing'!
   316 !Set methodsFor:'adding & removing'!
   294 
   317 
   295 add:anObject
   318 add:anObject
  1131 ! !
  1154 ! !
  1132 
  1155 
  1133 !Set class methodsFor:'documentation'!
  1156 !Set class methodsFor:'documentation'!
  1134 
  1157 
  1135 version
  1158 version
  1136     ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.104 2009-10-26 13:15:45 cg Exp $'
  1159     ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.105 2010-02-26 10:53:48 cg Exp $'
  1137 !
  1160 !
  1138 
  1161 
  1139 version_CVS
  1162 version_CVS
  1140     ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.104 2009-10-26 13:15:45 cg Exp $'
  1163     ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.105 2010-02-26 10:53:48 cg Exp $'
  1141 ! !
  1164 ! !
  1142 
  1165 
  1143 Set initialize!
  1166 Set initialize!