'From Squeak3.2gamma of 15 January 2002 [latest update: #4743] on 25 February 2002 at 6:35:27 pm'! !DlPortableFilePath methodsFor: 'actions' stamp: 'MU 2/25/2002 18:35'! forceRemove "Squeak misteriously does not provide directory-removing... So this implementation is incomplete" "You should also aware that the execution is somethimes dangerous.. (if I am in root dir..)" | dir lastIndex comps | dir := self currentDir. (self isInDrivePlatform and: [dir pathName = '']) ifTrue: [dir := FileDirectory on: self drive]. comps := self pathComponents. lastIndex := self isDirectoryPath ifTrue: [comps size] ifFalse: [comps size - 1]. 1 to: lastIndex do: [:idx | dir := dir directoryNamed: (comps at: idx)]. [self isDirectoryPath ifTrue: [self privRemoveAllFilesIn: dir] ifFalse: [dir deleteFileNamed: comps last ifAbsent: []]] on: InvalidDirectoryError do: [:ex | ex]! !