--- a/AutoDeletedFilename.st Wed Nov 20 15:12:13 2013 +0000
+++ b/AutoDeletedFilename.st Mon Nov 25 10:37:44 2013 +0000
@@ -109,7 +109,7 @@
"when copying, return a real filename
(to avoid mutiple removals)"
- ^ Filename named:nameString
+ ^ self species named:nameString
"
'blaFaselQall.mist' asFilename asAutoDeletedFilename copy
@@ -135,6 +135,14 @@
].
! !
+!AutoDeletedFilename methodsFor:'queries'!
+
+species
+ "filenames derived from me should not be autodeleted themself"
+
+ ^ Filename concreteClass.
+! !
+
!AutoDeletedFilename methodsFor:'removing'!
recursiveRemove
@@ -160,6 +168,6 @@
!AutoDeletedFilename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/AutoDeletedFilename.st,v 1.10 2013-07-05 12:32:08 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/AutoDeletedFilename.st,v 1.11 2013-11-13 10:39:12 stefan Exp $'
! !