Filename.st
changeset 12975 8303274002a8
parent 12974 031ee43e9a1e
child 13057 4f7fa62156ac
equal deleted inserted replaced
12974:031ee43e9a1e 12975:8303274002a8
  2832 !
  2832 !
  2833 
  2833 
  2834 recursiveCopyTo:destination
  2834 recursiveCopyTo:destination
  2835     "if I represent a regular file, copy it.
  2835     "if I represent a regular file, copy it.
  2836      Otherwise, copy the directory and recursively
  2836      Otherwise, copy the directory and recursively
  2837      and recursively all of its subfiles/subdirectories.
  2837      all of its subfiles/subdirectories.
  2838      Raises an exception if not successful."
  2838      Raises an exception if not successful."
  2839 
  2839 
  2840     |ok d|
  2840     |ok d|
  2841 
  2841 
  2842     self isDirectory ifFalse:[
  2842     self isDirectory ifFalse:[
  2858 
  2858 
  2859     ok ifFalse:[
  2859     ok ifFalse:[
  2860         self recursiveCopyWithoutOSCommandTo:destination
  2860         self recursiveCopyWithoutOSCommandTo:destination
  2861     ].
  2861     ].
  2862 
  2862 
  2863     "Created: / 5.5.1999 / 13:35:01 / cg"
  2863     "Created: / 05-05-1999 / 13:35:01 / cg"
  2864     "Modified: / 31.5.1999 / 13:11:34 / cg"
  2864     "Modified: / 31-05-1999 / 13:11:34 / cg"
       
  2865     "Modified: / 29-07-2010 / 12:41:06 / sr"
  2865 !
  2866 !
  2866 
  2867 
  2867 recursiveCopyWithoutOSCommandTo:destination
  2868 recursiveCopyWithoutOSCommandTo:destination
  2868     "if I represent a regular file, copy it.
  2869     "if I represent a regular file, copy it.
  2869      Otherwise, copy the directory and all of its subfiles/subdirectories.
  2870      Otherwise, copy the directory and all of its subfiles/subdirectories.
  5802 ! !
  5803 ! !
  5803 
  5804 
  5804 !Filename class methodsFor:'documentation'!
  5805 !Filename class methodsFor:'documentation'!
  5805 
  5806 
  5806 version
  5807 version
  5807     ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.357 2010-07-29 10:20:08 sr Exp $'
  5808     ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.358 2010-07-29 10:39:38 sr Exp $'
  5808 !
  5809 !
  5809 
  5810 
  5810 version_CVS
  5811 version_CVS
  5811     ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.357 2010-07-29 10:20:08 sr Exp $'
  5812     ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.358 2010-07-29 10:39:38 sr Exp $'
  5812 ! !
  5813 ! !
  5813 
  5814 
  5814 Filename initialize!
  5815 Filename initialize!