2005 |
2005 |
2006 | fileList stream| |
2006 | fileList stream| |
2007 fileList := self application:#DirectoryContentsBrowser do:#descriptions. |
2007 fileList := self application:#DirectoryContentsBrowser do:#descriptions. |
2008 stream := WriteStream on:''. |
2008 stream := WriteStream on:''. |
2009 fileList do:[: item | |
2009 fileList do:[: item | |
2010 stream nextPutAll:(item fileName asString). |
2010 stream nextPutLine:(item fileName asString). |
2011 stream cr. |
|
2012 ]. |
2011 ]. |
2013 self window setTextSelection:stream contents. |
2012 self window setTextSelection:stream contents. |
2014 stream close. |
2013 stream close. |
2015 ! |
2014 ! |
2016 |
2015 |
2019 | fileList stream| |
2018 | fileList stream| |
2020 fileList := self application:#DirectoryContentsBrowser do:#selectedFiles. |
2019 fileList := self application:#DirectoryContentsBrowser do:#selectedFiles. |
2021 fileList isEmpty ifTrue:[^ self]. |
2020 fileList isEmpty ifTrue:[^ self]. |
2022 stream := WriteStream on:''. |
2021 stream := WriteStream on:''. |
2023 fileList do:[: file | |
2022 fileList do:[: file | |
2024 stream nextPutAll:(file asString). |
2023 stream nextPutLine:(file asString). |
2025 stream cr. |
|
2026 ]. |
2024 ]. |
2027 self window setTextSelection:stream contents. |
2025 self window setTextSelection:stream contents. |
2028 stream close. |
2026 stream close. |
2029 ! |
2027 ! |
2030 |
2028 |
2448 ] notPresentDo:[:holder| |
2446 ] notPresentDo:[:holder| |
2449 | filenames newFilenames| |
2447 | filenames newFilenames| |
2450 filenames := holder value. |
2448 filenames := holder value. |
2451 newFilenames := Set new. |
2449 newFilenames := Set new. |
2452 filenames do:[ : filename | | fn | |
2450 filenames do:[ : filename | | fn | |
2453 fn := filename. |
2451 fn := filename. |
2454 [fn exists not] whileTrue:[ |
2452 [fn exists not] whileTrue:[ |
2455 fn := fn directory. |
2453 fn := fn directory. |
2456 ]. |
2454 ]. |
2457 newFilenames add:fn. |
2455 newFilenames add:fn. |
2458 ]. |
2456 ]. |
4140 ]. |
4138 ]. |
4141 ]. |
4139 ]. |
4142 |
4140 |
4143 stream := WriteStream on:''. |
4141 stream := WriteStream on:''. |
4144 info do:[:el| |
4142 info do:[:el| |
4145 stream nextPutAll:el. |
4143 stream nextPutLine:el. |
4146 stream cr. |
|
4147 ]. |
4144 ]. |
4148 textBox := TextBox new. |
4145 textBox := TextBox new. |
4149 textBox initialText:(stream contents). |
4146 textBox initialText:(stream contents). |
4150 textBox title:'File dublicates in directory: ', dir asString. |
4147 textBox title:'File dublicates in directory: ', dir asString. |
4151 textBox readOnly:true. |
4148 textBox readOnly:true. |
4266 info add:'No duplicate files found.' |
4263 info add:'No duplicate files found.' |
4267 ]. |
4264 ]. |
4268 ]. |
4265 ]. |
4269 stream := WriteStream on:''. |
4266 stream := WriteStream on:''. |
4270 info do:[:el| |
4267 info do:[:el| |
4271 stream nextPutAll:el. |
4268 stream nextPutLine:el. |
4272 stream cr. |
|
4273 ]. |
4269 ]. |
4274 titleStream := WriteStream on:''. |
4270 titleStream := WriteStream on:''. |
4275 titleStream nextPutAll:'File dublicates in director'. |
4271 titleStream nextPutAll:'File dublicates in director'. |
4276 directories size == 1 ifTrue:[ |
4272 directories size == 1 ifTrue:[ |
4277 titleStream nextPutAll:'y: ', directories first asString. |
4273 titleStream nextPutAll:'y: ', directories first asString. |
4278 ] ifFalse:[ |
4274 ] ifFalse:[ |
4279 titleStream nextPutAll:'ies: '. |
4275 titleStream nextPutLine:'ies: '. |
4280 titleStream cr. |
|
4281 directories do:[:dir| |
4276 directories do:[:dir| |
4282 size > 1 ifTrue:[ |
4277 size > 1 ifTrue:[ |
4283 titleStream nextPutAll:'..'. |
4278 titleStream nextPutAll:'..'. |
4284 titleStream nextPutAll:((dir asString) copyFrom:(size + 1)). |
4279 titleStream nextPutLine:((dir asString) copyFrom:(size + 1)). |
4285 ] ifFalse:[ |
4280 ] ifFalse:[ |
4286 titleStream nextPutAll:(dir asString). |
4281 titleStream nextPutLine:(dir asString). |
4287 ]. |
4282 ]. |
4288 titleStream cr. |
|
4289 ] |
4283 ] |
4290 ]. |
4284 ]. |
4291 |
4285 |
4292 textBox := TextBox new. |
4286 textBox := TextBox new. |
4293 textBox initialText:(stream contents). |
4287 textBox initialText:(stream contents). |