OrderedCollection.st
changeset 629 2ceefe9b5a19
parent 606 7a9ab63a6757
child 679 d3165edbb098
equal deleted inserted replaced
628:7aa563e4c64a 629:2ceefe9b5a19
    42 
    42 
    43     contentsArray   <Array>         the actual contents
    43     contentsArray   <Array>         the actual contents
    44     firstIndex      <SmallInteger>  index of first valid element
    44     firstIndex      <SmallInteger>  index of first valid element
    45     lastIndex       <SmallInteger>  index of last valid element
    45     lastIndex       <SmallInteger>  index of last valid element
    46 "
    46 "
    47 !
       
    48 
       
    49 version
       
    50     ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.37 1995-11-23 01:19:14 cg Exp $'
       
    51 ! !
    47 ! !
    52 
    48 
    53 !OrderedCollection class methodsFor:'instance creation'!
    49 !OrderedCollection class methodsFor:'instance creation'!
    54 
    50 
    55 new
    51 new
  1084     index := contentsArray indexOf:anObject startingAt:(startIndex + firstIndex - 1).
  1080     index := contentsArray indexOf:anObject startingAt:(startIndex + firstIndex - 1).
  1085     ((index < firstIndex) or:[index > lastIndex]) ifTrue:[^ 0].
  1081     ((index < firstIndex) or:[index > lastIndex]) ifTrue:[^ 0].
  1086     ^ index - firstIndex + 1
  1082     ^ index - firstIndex + 1
  1087 ! !
  1083 ! !
  1088 
  1084 
       
  1085 !OrderedCollection class methodsFor:'documentation'!
       
  1086 
       
  1087 version
       
  1088     ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.38 1995-11-23 17:06:25 cg Exp $'
       
  1089 ! !