equal
deleted
inserted
replaced
6102 ! |
6102 ! |
6103 |
6103 |
6104 doRemove:filesToRemove |
6104 doRemove:filesToRemove |
6105 "remove the selected file(s) - no questions asked" |
6105 "remove the selected file(s) - no questions asked" |
6106 |
6106 |
6107 |msg needUpdate toRemove updateRunning yesToAll mTime x| |
6107 |msg needUpdate toRemove updateRunning yesToAll mTime| |
6108 |
6108 |
6109 self withWaitCursorDo:[ |
6109 self withWaitCursorDo:[ |
6110 updateRunning := listUpdateProcess notNil. |
6110 updateRunning := listUpdateProcess notNil. |
6111 self stopUpdateProcess. |
6111 self stopUpdateProcess. |
6112 toRemove := OrderedCollection new. |
6112 toRemove := OrderedCollection new. |
6113 |
6113 |
6114 "/ |
6114 "/ |
6115 "/ did the directory change in the meanwhile ? |
6115 "/ did the directory change in the meanwhile ? |
6116 "/ |
6116 "/ |
6117 mTime := currentDirectory modificationTime. |
6117 mTime := currentDirectory modificationTime. |
6118 "/ x := timeOfLastCheck. |
|
6119 needUpdate := mTime notNil and:[mTime > timeOfLastCheck]. |
6118 needUpdate := mTime notNil and:[mTime > timeOfLastCheck]. |
6120 "/ needUpdate := mTime notNil and:[mTime > x]. |
|
6121 |
6119 |
6122 yesToAll := false. |
6120 yesToAll := false. |
6123 lockUpdate := true. |
6121 lockUpdate := true. |
6124 [ |
6122 [ |
6125 filesToRemove keysAndValuesDo:[:idx :fileName | |
6123 filesToRemove keysAndValuesDo:[:idx :fileName | |
6198 ] |
6196 ] |
6199 ] |
6197 ] |
6200 ] |
6198 ] |
6201 |
6199 |
6202 "Modified: / 20.11.1997 / 17:39:14 / stefan" |
6200 "Modified: / 20.11.1997 / 17:39:14 / stefan" |
6203 "Modified: / 15.11.2001 / 23:59:03 / cg" |
6201 "Modified: / 16.11.2001 / 00:43:40 / cg" |
6204 ! |
6202 ! |
6205 |
6203 |
6206 doRename:oldName to:newName |
6204 doRename:oldName to:newName |
6207 "rename a file (or directory)" |
6205 "rename a file (or directory)" |
6208 |
6206 |
7434 ! ! |
7432 ! ! |
7435 |
7433 |
7436 !FileBrowser class methodsFor:'documentation'! |
7434 !FileBrowser class methodsFor:'documentation'! |
7437 |
7435 |
7438 version |
7436 version |
7439 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.438 2001-11-15 23:02:28 cg Exp $' |
7437 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.439 2001-11-15 23:47:24 cg Exp $' |
7440 ! ! |
7438 ! ! |