equal
deleted
inserted
replaced
610 ]. |
610 ]. |
611 ^ nil |
611 ^ nil |
612 ! |
612 ! |
613 |
613 |
614 setSameFileIndexFor:anAppl |
614 setSameFileIndexFor:anAppl |
615 |
|
616 |sameFiles index item| |
615 |sameFiles index item| |
617 |
616 |
618 self class openAnotherApplicationOnSameItem ifFalse:[ |
617 self class openAnotherApplicationOnSameItem ifFalse:[ |
619 anAppl sameFileIndex:nil. |
618 anAppl sameFileIndex:nil. |
620 ^ self. |
619 ^ self. |
621 ]. |
620 ]. |
|
621 |
622 item := anAppl item. |
622 item := anAppl item. |
623 item notNil ifTrue:[ |
623 item notNil ifTrue:[ |
624 | hasSameFiles | |
|
625 sameFiles := self getSameApplicationsFor:anAppl. |
624 sameFiles := self getSameApplicationsFor:anAppl. |
626 hasSameFiles := sameFiles notEmpty. |
625 (sameFiles notEmpty) ifTrue:[ |
627 hasSameFiles ifTrue:[ |
|
628 (sameFiles size == 1 and:[sameFiles first sameFileIndex isNil]) ifTrue:[ |
626 (sameFiles size == 1 and:[sameFiles first sameFileIndex isNil]) ifTrue:[ |
629 anAppl sameFileIndex:1. |
627 anAppl sameFileIndex:1. |
630 ^ self |
|
631 ] ifFalse:[ |
628 ] ifFalse:[ |
632 index := (sameFiles collect:[:el | (el sameFileIndex ? 1)]) max. |
629 index := (sameFiles collect:[:el | (el sameFileIndex ? 1)]) max. |
633 anAppl sameFileIndex:index + 1. |
630 anAppl sameFileIndex:index + 1. |
634 ^ self |
631 ]. |
635 ] |
632 ^ self |
636 ]. |
633 ]. |
637 anAppl sameFileIndex:nil. |
634 anAppl sameFileIndex:nil. |
638 ]. |
635 ]. |
|
636 |
|
637 "Modified (format): / 24-07-2011 / 08:22:03 / cg" |
639 ! |
638 ! |
640 |
639 |
641 startApplication:anApplication |
640 startApplication:anApplication |
642 | window| |
641 | window| |
643 |
642 |
6421 ! ! |
6420 ! ! |
6422 |
6421 |
6423 !FileApplicationNoteBook class methodsFor:'documentation'! |
6422 !FileApplicationNoteBook class methodsFor:'documentation'! |
6424 |
6423 |
6425 version_CVS |
6424 version_CVS |
6426 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.253 2011-06-29 17:36:24 cg Exp $' |
6425 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.254 2011-07-24 06:22:36 cg Exp $' |
6427 ! ! |
6426 ! ! |