DirectoryContentsBrowser.st
changeset 11592 d4637b4237ea
parent 11460 0669e11fb7fb
child 12061 8250241997b8
equal deleted inserted replaced
11591:e29642ba38b9 11592:d4637b4237ea
  2490 
  2490 
  2491     showHidden := self showHiddenFiles value.
  2491     showHidden := self showHiddenFiles value.
  2492     showDir := self viewDirsInContentsBrowser value.
  2492     showDir := self viewDirsInContentsBrowser value.
  2493     showFiles := self viewFilesInContentsBrowser value.
  2493     showFiles := self viewFilesInContentsBrowser value.
  2494     
  2494     
  2495     filterBlock := self matchBlock.
  2495     filterBlock := self matchBlock ? [:v1 :v2 | true ].
  2496     newItemList := anItemsList 
  2496     newItemList := anItemsList 
  2497                         select:[:eachItem |
  2497                         select:[:eachItem |
  2498                             |isDir showIt|
  2498                             |isDir showIt|
  2499 
  2499 
  2500                             isDir := eachItem isDirectory.
  2500                             isDir := eachItem isDirectory.
  2513                         ].
  2513                         ].
  2514 
  2514 
  2515     self noOfShownFiles:noOfShownFiles noOfFiles:noOfFiles.
  2515     self noOfShownFiles:noOfShownFiles noOfFiles:noOfFiles.
  2516     ^ newItemList
  2516     ^ newItemList
  2517 
  2517 
  2518     "Modified: / 20-03-2012 / 12:09:10 / cg"
  2518     "Modified: / 12-07-2012 / 11:56:59 / cg"
  2519 !
  2519 !
  2520 
  2520 
  2521 filterChanged
  2521 filterChanged
  2522     |newFilteredItems|
  2522     |newFilteredItems|
  2523 
  2523 
  3410 ! !
  3410 ! !
  3411 
  3411 
  3412 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3412 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3413 
  3413 
  3414 version
  3414 version
  3415     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.247 2012-03-23 13:51:09 cg Exp $'
  3415     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.248 2012-07-12 10:17:19 cg Exp $'
  3416 !
  3416 !
  3417 
  3417 
  3418 version_CVS
  3418 version_CVS
  3419     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.247 2012-03-23 13:51:09 cg Exp $'
  3419     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.248 2012-07-12 10:17:19 cg Exp $'
  3420 ! !
  3420 ! !