--- a/.hgtags Wed Apr 08 12:24:50 2015 +0200
+++ b/.hgtags Fri Apr 10 07:05:29 2015 +0200
@@ -1,6 +1,8 @@
010ac94518b347db8dcc0f986d7e0f31cb6369b7 expeccoNET_1_5_0rc1
010ac94518b347db8dcc0f986d7e0f31cb6369b7 expecco_1_8_2rc1
024c8dc9525e9c6a210ac7cffdda65660112102b expecco_2_7_0
+024c8dc9525e9c6a210ac7cffdda65660112102b expecco_2_7_0_49
+024c8dc9525e9c6a210ac7cffdda65660112102b expecco_2_7_5
0345171682c483a27083e267891c5c409672b786 expecco_1_0_3
0b1ad2518a5cd2c8273fb463e370af9d6abfbd97 expecco_2_1_0
0b715d777c488bf60cadb45e1336e6191b713369 rel2_10_8_6_last2
@@ -11,9 +13,12 @@
1adbdbbef6efc3f1cae90e02bbd4d3a2216bba11 rel2_10_8_6_last_before_vmData_change
220adc5a966fbea5cf7240f98f8c929276239c58 balla
22c6feab63fab10f8ce74e8d16028194c9b9a648 expecco_2_6_0
+22c6feab63fab10f8ce74e8d16028194c9b9a648 expecco_2_6_0_49_windows_final
+22c6feab63fab10f8ce74e8d16028194c9b9a648 expecco_2_6_1
22e0a2969ab2326928f4ce90dec4827a4d0dd2bf expecco_1_7_0rc5
2707b35f964ca3bb3a769a369e7f2211ba059270 stable_expecco_sel
2a4222b491ab4d84b2f47eb0ad076c98efe53ea2 expecco_2_2_5
+2e0d40de0740b61e8a0b84f664fbd1626bed477d expecco_2_6_2
36540512da66279fe8fb5bdf209d65d251a9ada8 expecco_1_9_1_iX
399d8af7610109b64e2232db0ce43cde3dd1fc58 expecco_2_5_0
3c7e853977b7e8a73370be10877ca1c93482cbcb expecco_1_3_4
@@ -33,6 +38,7 @@
8314abc6ed8f5dfeb3e68dbe88b8e5761c3be95f expecco_1_8_0rc1
86b5d78f396e640514438498a168d5259ea7dd79 rel4_1_7
86b5d78f396e640514438498a168d5259ea7dd79 release
+89c530367f306b4c491462ce9c4edb9da5c138ec expeccoALM_1_9_0_1
8b31177ded1bd9e0de5e2cec5271a827e08f8778 rel5_1_4
91902ae3978238320aa4642b129b0bd1ac3983fe expecco_1_7_0rc1
94c64ad24577fdc86cbc80e55c5ca7ff502c094b expecco_2_4_0
@@ -46,6 +52,7 @@
b0c82c2ef38460f27321baa6a4f98979451211af rel5_1_3
b0c82c2ef38460f27321baa6a4f98979451211af stx_513
b3131c58f335a218314180b5aa4b01cacd7016af rel3_6_4
+b32a2bef34dc88c25b53b2553c39f957072869ec expecco_2_6_0_45_windows_final
b407d6ab29da8f079cbe8f9cd2430630786f720f expecco_1_7_1rc1
b407d6ab29da8f079cbe8f9cd2430630786f720f expecco_1_7_1rc2
b407d6ab29da8f079cbe8f9cd2430630786f720f expecco_1_7_1rc3
--- a/AbstractFileBrowser.st Wed Apr 08 12:24:50 2015 +0200
+++ b/AbstractFileBrowser.st Fri Apr 10 07:05:29 2015 +0200
@@ -1873,6 +1873,10 @@
itemValue: copySelectionToRepairingCorruptedFiles
)
(MenuItem
+ label: 'Copy Corrupted File From -> To...'
+ itemValue: copyFromToRepairingCorruptedFiles
+ )
+ (MenuItem
label: '-'
)
(MenuItem
@@ -4740,6 +4744,34 @@
"Modified: / 25-07-2006 / 09:07:04 / cg"
!
+copyFromToRepairingCorruptedFiles
+ "ask for source and destination and copy the entered file.
+ Especially useful for raw devices to copy corrupted disks/files
+ "
+
+ |source destination|
+
+ source := Dialog
+ requestDirectoryName:(resources string:'Copy from:')
+ default:(LastMoveDestination ? self currentDirectory)
+ ok:(resources string:'Continue')
+ abort:nil.
+
+ source isEmptyOrNil ifTrue:[^ self].
+ source := source asFilename.
+
+ destination := Dialog
+ requestDirectoryName:(resources string:'Copy "%1" to:' with:source)
+ default:(LastMoveDestination ? self currentDirectory)
+ ok:(resources string:'Copy')
+ abort:nil.
+
+ destination isEmptyOrNil ifTrue:[^ self].
+ destination := destination asFilename.
+
+ self copyFile:source to:destination repairCorruptedFiles:true.
+!
+
copyOrMoveDialog:aCollectionOfFiles for:aDestinationDirectory
|size msg answer file|
@@ -9624,10 +9656,10 @@
!AbstractFileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.588 2015-03-20 16:08:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.589 2015-04-09 12:24:19 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.588 2015-03-20 16:08:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.589 2015-04-09 12:24:19 cg Exp $'
! !