equal
deleted
inserted
replaced
1994 prevCurrentFileName := currentFileInFileName. |
1994 prevCurrentFileName := currentFileInFileName. |
1995 currentFileInFileName := fileName. |
1995 currentFileInFileName := fileName. |
1996 |
1996 |
1997 (ObjectFileLoader notNil |
1997 (ObjectFileLoader notNil |
1998 and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[ |
1998 and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[ |
1999 Object abortSignal catch:[ |
1999 AbortOperationRequest catch:[ |
2000 |p| |
2000 |p| |
2001 |
2001 |
2002 "/ |
2002 "/ |
2003 "/ look if already loaded ... then unload first |
2003 "/ look if already loaded ... then unload first |
2004 "/ |
2004 "/ |
2061 ]. |
2061 ]. |
2062 currentFileInFileName := prevCurrentFileName |
2062 currentFileInFileName := prevCurrentFileName |
2063 ] |
2063 ] |
2064 |
2064 |
2065 "Modified: / 19.9.1997 / 23:42:22 / stefan" |
2065 "Modified: / 19.9.1997 / 23:42:22 / stefan" |
2066 "Modified: / 13.11.2001 / 10:13:10 / cg" |
2066 "Modified: / 16.11.2001 / 17:38:34 / cg" |
2067 ! |
2067 ! |
2068 |
2068 |
2069 fileFindAllDuplicates |
2069 fileFindAllDuplicates |
2070 "scan directory and all subdirs for duplicate files" |
2070 "scan directory and all subdirs for duplicate files" |
2071 |
2071 |
7432 ! ! |
7432 ! ! |
7433 |
7433 |
7434 !FileBrowser class methodsFor:'documentation'! |
7434 !FileBrowser class methodsFor:'documentation'! |
7435 |
7435 |
7436 version |
7436 version |
7437 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.440 2001-11-15 23:48:59 cg Exp $' |
7437 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.441 2001-11-16 17:21:08 cg Exp $' |
7438 ! ! |
7438 ! ! |