Set.st
changeset 17201 4a3117db94ce
parent 16810 f6b1aa12bd5f
child 17202 c35f2b3fb28d
equal deleted inserted replaced
17200:3f919ff62213 17201:4a3117db94ce
   801 
   801 
   802     "Modified: 1.3.1996 / 21:41:13 / cg"
   802     "Modified: 1.3.1996 / 21:41:13 / cg"
   803 ! !
   803 ! !
   804 
   804 
   805 
   805 
   806 
       
   807 !Set methodsFor:'obsolete set operations'!
   806 !Set methodsFor:'obsolete set operations'!
   808 
   807 
   809 + aCollection
   808 + aCollection
   810     "Kept for backward compatibility. 
   809     "Kept for backward compatibility. 
   811      Use #union: instead, to isolate arithmethic and set operations"
   810      Use #union: instead, to isolate arithmethic and set operations"
   812 
   811 
   813     <resource: #obsolete>
   812     <resource: #obsolete>
   814 
   813     Transcript showCR:'hello3'.
   815     ^ self union:aCollection.
   814     ^ self union:aCollection.
   816 !
   815 !
   817 
   816 
   818 - aCollection
   817 - aCollection
   819     "Kept for backward compatibility. 
   818     "Kept for backward compatibility. 
  1229     "return the number of set elements"
  1228     "return the number of set elements"
  1230 
  1229 
  1231     ^ tally
  1230     ^ tally
  1232 ! !
  1231 ! !
  1233 
  1232 
  1234 
       
  1235 !Set methodsFor:'searching'!
  1233 !Set methodsFor:'searching'!
  1236 
  1234 
  1237 findFirst:aBlock ifNone:exceptionValue
  1235 findFirst:aBlock ifNone:exceptionValue
  1238     "find the index of the first element, for which evaluation of the argument, aBlock returns true; 
  1236     "find the index of the first element, for which evaluation of the argument, aBlock returns true; 
  1239      return its index or the value from exceptionValue if none detected.
  1237      return its index or the value from exceptionValue if none detected.
  1322 ! !
  1320 ! !
  1323 
  1321 
  1324 !Set class methodsFor:'documentation'!
  1322 !Set class methodsFor:'documentation'!
  1325 
  1323 
  1326 version
  1324 version
  1327     ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.126 2014-08-01 12:52:34 stefan Exp $'
  1325     ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.127 2014-12-09 09:52:01 sr Exp $'
  1328 !
  1326 !
  1329 
  1327 
  1330 version_CVS
  1328 version_CVS
  1331     ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.126 2014-08-01 12:52:34 stefan Exp $'
  1329     ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.127 2014-12-09 09:52:01 sr Exp $'
  1332 ! !
  1330 ! !
  1333 
  1331 
  1334 
  1332 
  1335 Set initialize!
  1333 Set initialize!