DirectoryContentsBrowser.st
changeset 8658 bf595f0cb6f5
parent 8533 a7c6058dc523
child 8715 b3cab0b56b9a
equal deleted inserted replaced
8657:4a54180313b5 8658:bf595f0cb6f5
  2088     row := firstRow.
  2088     row := firstRow.
  2089     [true] whileTrue:[
  2089     [true] whileTrue:[
  2090         ((row <= browserItemList size) and:[ (browser isRowVisible:row) ]) ifFalse:[
  2090         ((row <= browserItemList size) and:[ (browser isRowVisible:row) ]) ifFalse:[
  2091             ^ nil.
  2091             ^ nil.
  2092         ].
  2092         ].
  2093         item := browserItemList at:row.
  2093         item := browserItemList at:row ifAbsent:[^ nil "possible race condition - item removed from browserItemList"].
  2094         (aConditionBlock value:item) ifTrue:[
  2094         (aConditionBlock value:item) ifTrue:[
  2095             ^ item.
  2095             ^ item.
  2096         ].
  2096         ].
  2097         row := row + 1.
  2097         row := row + 1.
  2098     ]
  2098     ]
  3300 ! !
  3300 ! !
  3301 
  3301 
  3302 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3302 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3303 
  3303 
  3304 version
  3304 version
  3305     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.220 2009-02-06 12:01:38 cg Exp $'
  3305     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.221 2009-06-23 20:46:18 stefan Exp $'
  3306 ! !
  3306 ! !