hg/stx-libtool: ClassItemRootForRevision.st@4dd07aefaf20 (annotated)

2613 4dd07aefaf20 initial checkin ps parents: diff changeset	1	ClassItemRoot subclass:#ClassItemRootForRevision
4dd07aefaf20 initial checkin ps parents: diff changeset	2	instanceVariableNames:''
4dd07aefaf20 initial checkin ps parents: diff changeset	3	classVariableNames:''
4dd07aefaf20 initial checkin ps parents: diff changeset	4	poolDictionaries:''
4dd07aefaf20 initial checkin ps parents: diff changeset	5	category:'Interface-Browsers-Support'
4dd07aefaf20 initial checkin ps parents: diff changeset	6	!
4dd07aefaf20 initial checkin ps parents: diff changeset	7
4dd07aefaf20 initial checkin ps parents: diff changeset	8
4dd07aefaf20 initial checkin ps parents: diff changeset	9	!ClassItemRootForRevision class methodsFor:'accessing'!
4dd07aefaf20 initial checkin ps parents: diff changeset	10
4dd07aefaf20 initial checkin ps parents: diff changeset	11	classItemClass
4dd07aefaf20 initial checkin ps parents: diff changeset	12
4dd07aefaf20 initial checkin ps parents: diff changeset	13	^ClassNameItem
4dd07aefaf20 initial checkin ps parents: diff changeset	14
4dd07aefaf20 initial checkin ps parents: diff changeset	15
4dd07aefaf20 initial checkin ps parents: diff changeset	16
4dd07aefaf20 initial checkin ps parents: diff changeset	17	! !
4dd07aefaf20 initial checkin ps parents: diff changeset	18
4dd07aefaf20 initial checkin ps parents: diff changeset	19	!ClassItemRootForRevision methodsFor:'protocol'!
4dd07aefaf20 initial checkin ps parents: diff changeset	20
4dd07aefaf20 initial checkin ps parents: diff changeset	21	computeChildrensFor:aClassRevisionColl
4dd07aefaf20 initial checkin ps parents: diff changeset	22	"
4dd07aefaf20 initial checkin ps parents: diff changeset	23
4dd07aefaf20 initial checkin ps parents: diff changeset	24	<return: OrderedCollection\|nil>
4dd07aefaf20 initial checkin ps parents: diff changeset	25	"
4dd07aefaf20 initial checkin ps parents: diff changeset	26	\|theClassItemColl\|
4dd07aefaf20 initial checkin ps parents: diff changeset	27	self halt.
4dd07aefaf20 initial checkin ps parents: diff changeset	28	aClassRevisionColl ifNil:[^#()].
4dd07aefaf20 initial checkin ps parents: diff changeset	29	theClassItemColl := aClassRevisionColl collect:[:eachClassRevision \|
4dd07aefaf20 initial checkin ps parents: diff changeset	30	\|theClassItem theClass\|
4dd07aefaf20 initial checkin ps parents: diff changeset	31	theClassItem := self classItemClass new.
4dd07aefaf20 initial checkin ps parents: diff changeset	32	theClassItem revisionInfo:eachClassRevision.
4dd07aefaf20 initial checkin ps parents: diff changeset	33	theClassItem].
4dd07aefaf20 initial checkin ps parents: diff changeset	34	^theClassItemColl
4dd07aefaf20 initial checkin ps parents: diff changeset	35
4dd07aefaf20 initial checkin ps parents: diff changeset	36
4dd07aefaf20 initial checkin ps parents: diff changeset	37	!
4dd07aefaf20 initial checkin ps parents: diff changeset	38
4dd07aefaf20 initial checkin ps parents: diff changeset	39	doubleClickOn:anItem
4dd07aefaf20 initial checkin ps parents: diff changeset	40
4dd07aefaf20 initial checkin ps parents: diff changeset	41
4dd07aefaf20 initial checkin ps parents: diff changeset	42
4dd07aefaf20 initial checkin ps parents: diff changeset	43	! !
4dd07aefaf20 initial checkin ps parents: diff changeset	44
4dd07aefaf20 initial checkin ps parents: diff changeset	45	!ClassItemRootForRevision class methodsFor:'documentation'!
4dd07aefaf20 initial checkin ps parents: diff changeset	46
4dd07aefaf20 initial checkin ps parents: diff changeset	47	version
4dd07aefaf20 initial checkin ps parents: diff changeset	48	^ '$Header: /cvs/stx/stx/libtool/ClassItemRootForRevision.st,v 1.1 2000-02-15 16:49:32 ps Exp $'
4dd07aefaf20 initial checkin ps parents: diff changeset	49	! !

author	ps
	Tue, 15 Feb 2000 17:49:32 +0100
changeset 2613	4dd07aefaf20
child 2625	d70f0361a027
permissions	-rw-r--r--