80 | | eval file attributes {$dst_element} [file attributes $src_element] |
| 80 | eval file attributes {$dst_element} -group [file attributes $src_element -group ] |
| 81 | eval file attributes {$dst_element} -owner [file attributes $src_element -owner ] |
| 82 | eval file attributes {$dst_element} -permissions [file attributes $src_element -permissions ] |
| 83 | eval file attributes {$dst_element} -readonly [file attributes $src_element -readonly ] |
| 84 | if {![file isdirectory $src_element]} { |
| 85 | eval file attributes {$dst_element} -creator [file attributes $src_element -creator ] |
| 86 | eval file attributes {$dst_element} -type [file attributes $src_element -type ] |
| 87 | eval file attributes {$dst_element} -rsrclength [file attributes $src_element -rsrclength ] |
| 88 | |
| 89 | # man page don't like this one. Don't know why |
| 90 | #eval file attributes {$dst_element} -hidden [file attributes $src_element -hidden ] |
| 91 | } |