equal
deleted
inserted
replaced
97 |
97 |
98 "/ self directory isNil ifTrue:[^ self]. |
98 "/ self directory isNil ifTrue:[^ self]. |
99 dropObjects := aContext dropObjects. |
99 dropObjects := aContext dropObjects. |
100 |
100 |
101 dropObjects do:[:anObject| |
101 dropObjects do:[:anObject| |
102 |checkObject checkObjectString| |
102 |checkObject| |
103 |
103 |
104 anObject isFileObject ifFalse:[^ self]. |
104 anObject isFileObject ifFalse:[^ self]. |
105 |
105 |
106 checkObject := anObject theObject. |
106 checkObject := anObject theObject. |
107 checkObject isFilename ifFalse:[^ self]. |
107 checkObject isFilename ifFalse:[^ self]. |
226 ! ! |
226 ! ! |
227 |
227 |
228 !AbstractDirectoryBrowser class methodsFor:'documentation'! |
228 !AbstractDirectoryBrowser class methodsFor:'documentation'! |
229 |
229 |
230 version |
230 version |
231 ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.26 2013-06-07 09:58:29 cg Exp $' |
231 ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.27 2014-12-17 15:32:42 cg Exp $' |
232 ! |
232 ! |
233 |
233 |
234 version_CVS |
234 version_CVS |
235 ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.26 2013-06-07 09:58:29 cg Exp $' |
235 ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.27 2014-12-17 15:32:42 cg Exp $' |
236 ! ! |
236 ! ! |
237 |
237 |