equal
deleted
inserted
replaced
5559 "scan directory for similar image files" |
5559 "scan directory for similar image files" |
5560 |
5560 |
5561 |result stream textBox directories imageFiles histogramsV histogramsH |
5561 |result stream textBox directories imageFiles histogramsV histogramsH |
5562 similarV similarH similar alreadyPrinted| |
5562 similarV similarH similar alreadyPrinted| |
5563 |
5563 |
|
5564 self withWaitCursorDo:[ |
5564 self withActivityIndicationDo:[ |
5565 self withActivityIndicationDo:[ |
5565 result := Dictionary new. |
5566 result := Dictionary new. |
5566 |
5567 |
5567 directories := self currentSelectedDirectories. |
5568 directories := self currentSelectedDirectories. |
5568 directories isEmpty ifTrue:[^ self]. |
5569 directories isEmpty ifTrue:[^ self]. |
5649 alreadyPrinted add:fn2. |
5650 alreadyPrinted add:fn2. |
5650 ]. |
5651 ]. |
5651 stream cr. |
5652 stream cr. |
5652 ]. |
5653 ]. |
5653 ]. |
5654 ]. |
|
5655 ]. |
5654 ]. |
5656 ]. |
5655 |
5657 |
5656 textBox := TextBox new. |
5658 textBox := TextBox new. |
5657 textBox initialText:(stream contents). |
5659 textBox initialText:(stream contents). |
5658 textBox title:'File similarities:'. |
5660 textBox title:'File similarities:'. |
7691 ! ! |
7693 ! ! |
7692 |
7694 |
7693 !AbstractFileBrowser class methodsFor:'documentation'! |
7695 !AbstractFileBrowser class methodsFor:'documentation'! |
7694 |
7696 |
7695 version |
7697 version |
7696 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.395 2008-12-22 17:26:48 cg Exp $' |
7698 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.396 2009-01-29 15:06:16 cg Exp $' |
7697 ! ! |
7699 ! ! |