FileOperation.st
changeset 7052 a4d223f8235c
parent 7051 4d1e19c7a648
child 7084 0d178f33c920
equal deleted inserted replaced
7051:4d1e19c7a648 7052:a4d223f8235c
   908                                         confirmWithCancel:(resources 
   908                                         confirmWithCancel:(resources 
   909                                                             stringWithCRs:'Directory ''%1'' is not empty\remove anyway ?' 
   909                                                             stringWithCRs:'Directory ''%1'' is not empty\remove anyway ?' 
   910                                                             with:filename pathName allBold) 
   910                                                             with:filename pathName allBold) 
   911                                         labels:( resources array:lbls )
   911                                         labels:( resources array:lbls )
   912                                         values:vals 
   912                                         values:vals 
   913                                         default:3.
   913                                         default:(vals indexOf:true).
   914                             doDelete == nil ifTrue:[
   914                             doDelete == nil ifTrue:[
   915                                 ^ self
   915                                 ^ self
   916                             ].
   916                             ].
   917                             doDelete == #removeAll ifTrue:[
   917                             doDelete == #removeAll ifTrue:[
   918                                 dontAskForNonEmptyDirectory := true.
   918                                 dontAskForNonEmptyDirectory := true.
   926                 ]
   926                 ]
   927             ].
   927             ].
   928         ].
   928         ].
   929     ].
   929     ].
   930 
   930 
   931     "Modified: / 29-08-2006 / 11:30:12 / cg"
   931     "Modified: / 29-08-2006 / 12:56:37 / cg"
   932 ! !
   932 ! !
   933 
   933 
   934 !FileOperation::Erase methodsFor:'actions'!
   934 !FileOperation::Erase methodsFor:'actions'!
   935 
   935 
   936 eraseFilesContentsBeforeRemoving
   936 eraseFilesContentsBeforeRemoving
  1337 ! !
  1337 ! !
  1338 
  1338 
  1339 !FileOperation class methodsFor:'documentation'!
  1339 !FileOperation class methodsFor:'documentation'!
  1340 
  1340 
  1341 version
  1341 version
  1342     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.72 2006-08-29 10:38:25 cg Exp $'
  1342     ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.73 2006-08-29 10:58:50 cg Exp $'
  1343 ! !
  1343 ! !