equal
deleted
inserted
replaced
103 |checkObject checkObjectString| |
103 |checkObject checkObjectString| |
104 |
104 |
105 aObject isFileObject ifFalse:[^ self]. |
105 aObject isFileObject ifFalse:[^ self]. |
106 |
106 |
107 checkObject := aObject theObject. |
107 checkObject := aObject theObject. |
108 checkObject isFilename not ifTrue:[^ self]. |
108 checkObject isFilename ifFalse:[^ self]. |
109 ((aContext dropSource argument == #archivApplication) not) ifTrue:[ |
109 (aContext dropSource argument == #archivApplication) ifFalse:[ |
110 checkObject isSpecialFile ifTrue:[^ self]. |
110 checkObject isSpecialFile ifTrue:[^ self]. |
111 checkObject isReadable ifFalse:[^ self]. |
111 checkObject isReadable ifFalse:[^ self]. |
112 ]. |
112 ]. |
113 ]. |
113 ]. |
114 inDropMode := true. |
114 inDropMode := true. |
206 ! ! |
206 ! ! |
207 |
207 |
208 !AbstractDirectoryBrowser class methodsFor:'documentation'! |
208 !AbstractDirectoryBrowser class methodsFor:'documentation'! |
209 |
209 |
210 version |
210 version |
211 ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.14 2004-08-04 18:00:18 cg Exp $' |
211 ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.15 2005-04-14 09:13:31 cg Exp $' |
212 ! ! |
212 ! ! |