equal
deleted
inserted
replaced
5872 self makeExecutionResultProcessFor:executionBlock withName:'Command> hg status'. |
5872 self makeExecutionResultProcessFor:executionBlock withName:'Command> hg status'. |
5873 |
5873 |
5874 "Created: / 15-01-2012 / 19:43:08 / cg" |
5874 "Created: / 15-01-2012 / 19:43:08 / cg" |
5875 ! ! |
5875 ! ! |
5876 |
5876 |
5877 |
|
5878 !AbstractFileBrowser methodsFor:'menu actions-tools'! |
5877 !AbstractFileBrowser methodsFor:'menu actions-tools'! |
5879 |
5878 |
5880 allFilesInSelectedDirectoriesForWhich:aBlock |
5879 allFilesInSelectedDirectoriesForWhich:aBlock |
5881 |directories allFiles| |
5880 |directories allFiles| |
5882 |
5881 |
6506 ^ self. |
6505 ^ self. |
6507 ]. |
6506 ]. |
6508 ]. |
6507 ]. |
6509 |
6508 |
6510 stream := WriteStream on:''. |
6509 stream := WriteStream on:''. |
6511 info do:[:el| |
6510 stream nextPutAllLines:info. |
6512 stream nextPutLine:el. |
|
6513 ]. |
|
6514 |
6511 |
6515 textBox := TextBox new. |
6512 textBox := TextBox new. |
6516 textBox initialText:(stream contents). |
6513 textBox initialText:(stream contents). |
6517 stream close. |
6514 stream close. |
6518 textBox title:'File duplicates in directory: ', dir asString. |
6515 textBox title:'File duplicates in directory: ', dir asString. |
6525 ]. |
6522 ]. |
6526 textBox extent:((maxLength * 5)@(info size * 20)); sizeFixed:false. |
6523 textBox extent:((maxLength * 5)@(info size * 20)); sizeFixed:false. |
6527 textBox maxExtent:Screen current extent. |
6524 textBox maxExtent:Screen current extent. |
6528 textBox openModeless. |
6525 textBox openModeless. |
6529 |
6526 |
6530 "Modified: / 25-07-2006 / 09:07:22 / cg" |
6527 "Modified: / 27-07-2012 / 09:29:00 / cg" |
6531 ! |
6528 ! |
6532 |
6529 |
6533 fileFindDuplicateFile |
6530 fileFindDuplicateFile |
6534 "scan directory for duplicates of the selected files" |
6531 "scan directory for duplicates of the selected files" |
6535 |
6532 |
6720 Dialog information:'No duplicate files found.'. |
6717 Dialog information:'No duplicate files found.'. |
6721 ^ self. |
6718 ^ self. |
6722 ]. |
6719 ]. |
6723 ]. |
6720 ]. |
6724 stream := WriteStream on:''. |
6721 stream := WriteStream on:''. |
6725 info do:[:el| |
6722 stream nextPutAllLines:info. |
6726 stream nextPutLine:el. |
6723 |
6727 ]. |
|
6728 titleStream := WriteStream on:''. |
6724 titleStream := WriteStream on:''. |
6729 titleStream nextPutAll:'File duplicates in director'. |
6725 titleStream nextPutAll:'File duplicates in director'. |
6730 directories size == 1 ifTrue:[ |
6726 directories size == 1 ifTrue:[ |
6731 titleStream nextPutAll:'y: ', directories first asString. |
6727 titleStream nextPutAll:'y: ', directories first asString. |
6732 ] ifFalse:[ |
6728 ] ifFalse:[ |
6758 ]. |
6754 ]. |
6759 textBox extent:((maxLength * 5)@((info size max:40)* 10)). |
6755 textBox extent:((maxLength * 5)@((info size max:40)* 10)). |
6760 textBox maxExtent:Screen current extent. |
6756 textBox maxExtent:Screen current extent. |
6761 textBox openModeless. "/ showAtPointer. |
6757 textBox openModeless. "/ showAtPointer. |
6762 |
6758 |
6763 "Modified: / 25-07-2006 / 09:07:25 / cg" |
6759 "Modified: / 27-07-2012 / 09:29:14 / cg" |
6764 ! |
6760 ! |
6765 |
6761 |
6766 fileFindFile |
6762 fileFindFile |
6767 |filename| |
6763 |filename| |
6768 |
6764 |
8183 javaSupportLoaded |
8179 javaSupportLoaded |
8184 |
8180 |
8185 ^ false |
8181 ^ false |
8186 ! ! |
8182 ! ! |
8187 |
8183 |
8188 |
|
8189 !AbstractFileBrowser methodsFor:'presentation'! |
8184 !AbstractFileBrowser methodsFor:'presentation'! |
8190 |
8185 |
8191 getModeString:modeBits |
8186 getModeString:modeBits |
8192 "convert file-mode bits into a more user-friendly string. |
8187 "convert file-mode bits into a more user-friendly string. |
8193 This is wrong here - should be moved into OperatingSystem." |
8188 This is wrong here - should be moved into OperatingSystem." |
9098 ! ! |
9093 ! ! |
9099 |
9094 |
9100 !AbstractFileBrowser class methodsFor:'documentation'! |
9095 !AbstractFileBrowser class methodsFor:'documentation'! |
9101 |
9096 |
9102 version |
9097 version |
9103 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.496 2012-07-21 17:01:39 cg Exp $' |
9098 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.497 2012-07-27 09:06:47 cg Exp $' |
9104 ! |
9099 ! |
9105 |
9100 |
9106 version_CVS |
9101 version_CVS |
9107 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.496 2012-07-21 17:01:39 cg Exp $' |
9102 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.497 2012-07-27 09:06:47 cg Exp $' |
9108 ! ! |
9103 ! ! |