equal
deleted
inserted
replaced
123 ! |
123 ! |
124 |
124 |
125 finalize |
125 finalize |
126 |linkInfo| |
126 |linkInfo| |
127 |
127 |
128 linkInfo := self linkInfo. |
128 "/ do this in a forked process to avoid blocking |
129 linkInfo notNil ifTrue:[ |
129 "/ in case of an autodeleted remote file of a broken connection |
130 linkInfo isDirectory ifTrue:[ |
130 [ |
131 super recursiveRemove |
131 "/ with timeout to avoid waiting forever |
132 ] ifFalse:[ |
132 [ |
133 super removeFile. |
133 linkInfo := self linkInfo. |
134 ]. |
134 linkInfo notNil ifTrue:[ |
135 ]. |
135 linkInfo isDirectory ifTrue:[ |
|
136 super recursiveRemove |
|
137 ] ifFalse:[ |
|
138 super removeFile. |
|
139 ]. |
|
140 ]. |
|
141 ] valueWithTimeout:1 minutes. |
|
142 ] fork. |
136 ! ! |
143 ! ! |
137 |
144 |
138 !AutoDeletedFilename methodsFor:'queries'! |
145 !AutoDeletedFilename methodsFor:'queries'! |
139 |
146 |
140 species |
147 species |
166 ! ! |
173 ! ! |
167 |
174 |
168 !AutoDeletedFilename class methodsFor:'documentation'! |
175 !AutoDeletedFilename class methodsFor:'documentation'! |
169 |
176 |
170 version |
177 version |
171 ^ '$Header: /cvs/stx/stx/libbasic/AutoDeletedFilename.st,v 1.11 2013-11-13 10:39:12 stefan Exp $' |
178 ^ '$Header: /cvs/stx/stx/libbasic/AutoDeletedFilename.st,v 1.12 2014-06-07 15:08:38 cg Exp $' |
172 ! ! |
179 ! ! |
173 |
180 |