FileOperation.st
changeset 4411 1de753dffcc2
parent 4408 8c0c80b68ae7
child 4423 ebf6d1e13aaa
equal deleted inserted replaced
4410:b1972ecceb2a 4411:1de753dffcc2
   203 ! !
   203 ! !
   204 
   204 
   205 !FileOperation::Copy class methodsFor:'documentation'!
   205 !FileOperation::Copy class methodsFor:'documentation'!
   206 
   206 
   207 version
   207 version
   208     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.14 2002-12-21 14:51:41 cg Exp $'
   208     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
   209 ! !
   209 ! !
   210 
   210 
   211 !FileOperation::Copy methodsFor:'accessing'!
   211 !FileOperation::Copy methodsFor:'accessing'!
   212 
   212 
   213 colOfCopiedFiles
   213 colOfCopiedFiles
   407 ! !
   407 ! !
   408 
   408 
   409 !FileOperation::Create class methodsFor:'documentation'!
   409 !FileOperation::Create class methodsFor:'documentation'!
   410 
   410 
   411 version
   411 version
   412     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.14 2002-12-21 14:51:41 cg Exp $'
   412     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
   413 ! !
   413 ! !
   414 
   414 
   415 !FileOperation::Create methodsFor:'accessing'!
   415 !FileOperation::Create methodsFor:'accessing'!
   416 
   416 
   417 createdFile
   417 createdFile
   643 ! !
   643 ! !
   644 
   644 
   645 !FileOperation::Delete class methodsFor:'documentation'!
   645 !FileOperation::Delete class methodsFor:'documentation'!
   646 
   646 
   647 version
   647 version
   648     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.14 2002-12-21 14:51:41 cg Exp $'
   648     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
   649 ! !
   649 ! !
   650 
   650 
   651 !FileOperation::Delete methodsFor:'actions'!
   651 !FileOperation::Delete methodsFor:'actions'!
   652 
   652 
   653 deleteFile:aFileOrDirectory
   653 deleteFile:aFileOrDirectory
   660         file exists ifTrue:[
   660         file exists ifTrue:[
   661             isDirectory := file isDirectory.
   661             isDirectory := file isDirectory.
   662 
   662 
   663             Error handle:[:ex|
   663             Error handle:[:ex|
   664                 "was not able to remove it"
   664                 "was not able to remove it"
   665                 Smalltalk beep.
   665                 Dialog warn:(ex description, '\', ex signal notifierString) withCRs.
   666                 self errorString:((ex description, '\', ex signal notifierString) withCRs).
   666 "/                Smalltalk beep.
       
   667                 self errorString:((ex description, ' - ', ex signal notifierString) withCRs).
   667                 result := false.
   668                 result := false.
   668                 ^ self.
   669                 ^ self.
   669             ] do:[
   670             ] do:[
   670                 isDirectory ifTrue:[file recursiveRemove] ifFalse:[file remove].
   671                 isDirectory ifTrue:[file recursiveRemove] ifFalse:[file remove].
   671 
   672 
   803 ! !
   804 ! !
   804 
   805 
   805 !FileOperation::Move class methodsFor:'documentation'!
   806 !FileOperation::Move class methodsFor:'documentation'!
   806 
   807 
   807 version
   808 version
   808     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.14 2002-12-21 14:51:41 cg Exp $'
   809     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
   809 ! !
   810 ! !
   810 
   811 
   811 !FileOperation::Move methodsFor:'accessing'!
   812 !FileOperation::Move methodsFor:'accessing'!
   812 
   813 
   813 colOfMovedFiles
   814 colOfMovedFiles
   972 ! !
   973 ! !
   973 
   974 
   974 !FileOperation::Rename class methodsFor:'documentation'!
   975 !FileOperation::Rename class methodsFor:'documentation'!
   975 
   976 
   976 version
   977 version
   977     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.14 2002-12-21 14:51:41 cg Exp $'
   978     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
   978 ! !
   979 ! !
   979 
   980 
   980 !FileOperation::Rename methodsFor:'accessing'!
   981 !FileOperation::Rename methodsFor:'accessing'!
   981 
   982 
   982 renamedFiles
   983 renamedFiles
  1057 ! !
  1058 ! !
  1058 
  1059 
  1059 !FileOperation class methodsFor:'documentation'!
  1060 !FileOperation class methodsFor:'documentation'!
  1060 
  1061 
  1061 version
  1062 version
  1062     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.14 2002-12-21 14:51:41 cg Exp $'
  1063     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
  1063 ! !
  1064 ! !