equal
deleted
inserted
replaced
300 |
300 |
301 getAllApplicationsByClass:aClass andType:aType |
301 getAllApplicationsByClass:aClass andType:aType |
302 |
302 |
303 ^ self listOfApplications select:[ : appl | |
303 ^ self listOfApplications select:[ : appl | |
304 ((appl class = aClass) |
304 ((appl class = aClass) |
305 " have to ask for type to avoid reuse of directory description editors " |
305 "and:[appl type = aType]") |
306 and:[appl type = aType]) |
|
307 ]. |
306 ]. |
308 ! |
307 ! |
309 |
308 |
310 getApplicationByType:aType |
309 getApplicationByType:aType |
311 |
310 |
662 changeAppl := sameAppls first. |
661 changeAppl := sameAppls first. |
663 ]. |
662 ]. |
664 aBlock notNil ifTrue:[ |
663 aBlock notNil ifTrue:[ |
665 aBlock value:changeAppl. |
664 aBlock value:changeAppl. |
666 ]. |
665 ]. |
|
666 changeAppl type:aType. |
667 self changeItem:anItem for:changeAppl. |
667 self changeItem:anItem for:changeAppl. |
668 selAppl := changeAppl. |
668 selAppl := changeAppl. |
669 ]. |
669 ]. |
670 ^ selAppl. |
670 ^ selAppl. |
671 ! ! |
671 ! ! |
4095 |
4095 |
4096 semaChangeItem isNil ifTrue:[ |
4096 semaChangeItem isNil ifTrue:[ |
4097 semaChangeItem := Semaphore forMutualExclusion. |
4097 semaChangeItem := Semaphore forMutualExclusion. |
4098 ]. |
4098 ]. |
4099 ^ semaChangeItem |
4099 ^ semaChangeItem |
|
4100 ! |
|
4101 |
|
4102 type:aType |
|
4103 |
|
4104 super type:aType. |
|
4105 self changeInformation. |
4100 ! ! |
4106 ! ! |
4101 |
4107 |
4102 !FileApplicationNoteBook::TextEditor methodsFor:'actions'! |
4108 !FileApplicationNoteBook::TextEditor methodsFor:'actions'! |
4103 |
4109 |
4104 accept |
4110 accept |
5218 ! ! |
5224 ! ! |
5219 |
5225 |
5220 !FileApplicationNoteBook class methodsFor:'documentation'! |
5226 !FileApplicationNoteBook class methodsFor:'documentation'! |
5221 |
5227 |
5222 version |
5228 version |
5223 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.141 2004-01-28 10:45:46 penk Exp $' |
5229 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.142 2004-01-28 13:11:24 penk Exp $' |
5224 ! ! |
5230 ! ! |