equal
deleted
inserted
replaced
558 |
558 |
559 "/ add the history items ... |
559 "/ add the history items ... |
560 |
560 |
561 bookmarks := self directoryBookmarks. |
561 bookmarks := self directoryBookmarks. |
562 bookmarks size > 0 ifTrue:[ |
562 bookmarks size > 0 ifTrue:[ |
563 menu addItem:(MenuItem labeled:'-'). |
563 menu addSeparator. |
564 bookmarks do:[:dirName | |
564 bookmarks do:[:dirName | |
565 |pathName| |
565 |pathName| |
566 |
566 |
567 pathName := dirName asFilename pathName. |
567 pathName := dirName asFilename pathName. |
568 menu addItem:((MenuItem |
568 menu addItem:((MenuItem |
6994 after every entry. This shares the cpu among all fileBrowsers; |
6994 after every entry. This shares the cpu among all fileBrowsers; |
6995 Therefore, browsers which read short directories will finish first. |
6995 Therefore, browsers which read short directories will finish first. |
6996 ST/X users love this behavior ;-) |
6996 ST/X users love this behavior ;-) |
6997 " |
6997 " |
6998 |
6998 |
6999 |files matchPattern list passDone ignoreCase oldSelection newSelection times types| |
6999 |files matchPattern list passDone oldSelection newSelection times types| |
7000 |
7000 |
7001 self withReadCursorDo:[ |
7001 self withReadCursorDo:[ |
7002 self stopUpdateProcess. |
7002 self stopUpdateProcess. |
7003 |
7003 |
7004 timeOfLastCheck := currentDirectory modificationTime. |
7004 timeOfLastCheck := currentDirectory modificationTime. |
7020 matchPattern := filterField contents. |
7020 matchPattern := filterField contents. |
7021 (matchPattern notNil |
7021 (matchPattern notNil |
7022 and:[ matchPattern notEmpty |
7022 and:[ matchPattern notEmpty |
7023 and:[ matchPattern ~= '*']]) |
7023 and:[ matchPattern ~= '*']]) |
7024 ifTrue:[ |
7024 ifTrue:[ |
7025 ignoreCase := Filename isCaseSensitive not. |
|
7026 files := files select:[:aName | |
7025 files := files select:[:aName | |
7027 ((currentDirectory construct:aName) isDirectory) |
7026 ((currentDirectory construct:aName) isDirectory) |
7028 or:[matchPattern compoundMatch:aName ignoreCase:ignoreCase] |
7027 or:[matchPattern compoundMatch:aName caseSensitive:(Filename isCaseSensitive)] |
7029 ]. |
7028 ]. |
7030 ]. |
7029 ]. |
7031 |
7030 |
7032 files size == 0 ifTrue:[ |
7031 files size == 0 ifTrue:[ |
7033 Dialog warn:(resources stringWithCRs:'Directory ''%1'' is gone.' with:currentDirectory pathName allBold). |
7032 Dialog warn:(resources stringWithCRs:'Directory ''%1'' is gone.' with:currentDirectory pathName allBold). |
7510 ! ! |
7509 ! ! |
7511 |
7510 |
7512 !FileBrowser class methodsFor:'documentation'! |
7511 !FileBrowser class methodsFor:'documentation'! |
7513 |
7512 |
7514 version |
7513 version |
7515 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.650 2013-06-21 00:45:14 cg Exp $' |
7514 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.652 2013-08-31 19:28:57 cg Exp $' |
7516 ! |
7515 ! |
7517 |
7516 |
7518 version_CVS |
7517 version_CVS |
7519 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.650 2013-06-21 00:45:14 cg Exp $' |
7518 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.652 2013-08-31 19:28:57 cg Exp $' |
7520 ! |
7519 ! |
7521 |
7520 |
7522 version_HG |
7521 version_HG |
7523 |
7522 |
7524 ^ '$Changeset: <not expanded> $' |
7523 ^ '$Changeset: <not expanded> $' |