Collection.st
changeset 6932 1e1d296d4747
parent 6869 97508a763193
child 6966 032c3b210bc7
equal deleted inserted replaced
6931:da671aa63926 6932:1e1d296d4747
  2439     "return true, if the receiver is not empty"
  2439     "return true, if the receiver is not empty"
  2440 
  2440 
  2441     ^ self isEmpty not
  2441     ^ self isEmpty not
  2442 !
  2442 !
  2443 
  2443 
       
  2444 notEmptyOrNil
       
  2445     "Squeak compatibility:
       
  2446      return true if I am neither nil nor an empty collection."
       
  2447 
       
  2448     ^ self notEmpty
       
  2449 !
       
  2450 
  2444 occurrencesOf:anElement
  2451 occurrencesOf:anElement
  2445     "return the number of occurrences of the argument, anElement in
  2452     "return the number of occurrences of the argument, anElement in
  2446      the receiver. Uses #= (i.e. equality) compare."
  2453      the receiver. Uses #= (i.e. equality) compare."
  2447 
  2454 
  2448     |count "{ Class: SmallInteger }" |
  2455     |count "{ Class: SmallInteger }" |
  2467 ! !
  2474 ! !
  2468 
  2475 
  2469 !Collection class methodsFor:'documentation'!
  2476 !Collection class methodsFor:'documentation'!
  2470 
  2477 
  2471 version
  2478 version
  2472     ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.131 2002-11-20 09:26:28 cg Exp $'
  2479     ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.132 2002-12-10 14:36:47 penk Exp $'
  2473 ! !
  2480 ! !
  2474 
  2481 
  2475 Collection initialize!
  2482 Collection initialize!