hg/stx-libbasic3: ClassPrimitiveVariablesChange.st@1e50cc7fd07d (annotated)

101 9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 1995 by Claus Gittinger
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	3	All Rights Reserved
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	4
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	12
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	13	ClassPrimitiveChange subclass:#ClassPrimitiveVariablesChange
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 103 diff changeset	14	instanceVariableNames:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 103 diff changeset	15	classVariableNames:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 103 diff changeset	16	poolDictionaries:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 103 diff changeset	17	category:'System-Changes'
101 9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	18	!
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	19
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	20	!ClassPrimitiveVariablesChange class methodsFor:'documentation'!
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	21
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	22	copyright
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	23	"
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	24	COPYRIGHT (c) 1995 by Claus Gittinger
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	25	All Rights Reserved
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	26
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	27	This software is furnished under a license and may be used
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	28	only in accordance with the terms of that license and with the
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	29	inclusion of the above copyright notice. This software may not
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	30	be provided or otherwise made available to, or used by, any
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	31	other person. No title to or ownership of the software is
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	32	hereby transferred.
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	33	"
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	34	!
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	35
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	36	documentation
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	37	"
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	38	instances represent a classes primitive variables-changes.
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	39	They are typically held in a ChangeSet.
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 103 diff changeset	40
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 103 diff changeset	41	[author:]
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 103 diff changeset	42	Claus Gittinger
101 9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	43	"
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	44	! !
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	45
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	46	!ClassPrimitiveVariablesChange methodsFor:'comparing'!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	47
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	48	isForSameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	49	"return true, if the given change represents a change for the same
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	50	thingy as the receiver (i.e. same method, same definition etc.)."
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	51
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	52	changeB isPrimitiveVariablesChange ifFalse:[^ false].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	53
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	54	^ className = changeB className
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	55
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	56
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	57	!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	58
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	59	sameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	60	"return true, if the given change represents the same change as the receiver."
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	61
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	62	changeB isPrimitiveVariablesChange ifFalse:[^ false].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	63
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	64	className ~= changeB className ifTrue:[^ false].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	65	^ self sameSourceAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	66
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	67	! !
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	68
103 487c1447b3d8 printing fixed (req'd for changeSetBrowser) Claus Gittinger <cg@exept.de> parents: 101 diff changeset	69	!ClassPrimitiveVariablesChange methodsFor:'printing'!
487c1447b3d8 printing fixed (req'd for changeSetBrowser) Claus Gittinger <cg@exept.de> parents: 101 diff changeset	70
487c1447b3d8 printing fixed (req'd for changeSetBrowser) Claus Gittinger <cg@exept.de> parents: 101 diff changeset	71	printOn:aStream
487c1447b3d8 printing fixed (req'd for changeSetBrowser) Claus Gittinger <cg@exept.de> parents: 101 diff changeset	72	aStream nextPutAll:className; nextPutAll:' primitiveVariables:'
487c1447b3d8 printing fixed (req'd for changeSetBrowser) Claus Gittinger <cg@exept.de> parents: 101 diff changeset	73	! !
487c1447b3d8 printing fixed (req'd for changeSetBrowser) Claus Gittinger <cg@exept.de> parents: 101 diff changeset	74
783 90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	75	!ClassPrimitiveVariablesChange methodsFor:'queries'!
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	76
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	77	isPrimitiveVariablesChange
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	78	^ true
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	79
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	80
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	81	! !
90ffa6f0a86b checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	82
101 9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	83	!ClassPrimitiveVariablesChange class methodsFor:'documentation'!
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	84
9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	85	version
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 783 diff changeset	86	^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveVariablesChange.st,v 1.5 1999-07-06 10:36:53 cg Exp $'
101 9a1c22e807e0 more changeSet stuff Claus Gittinger <cg@exept.de> parents: diff changeset	87	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 06 Jul 1999 12:37:02 +0200
changeset 784	1e50cc7fd07d
parent 783	90ffa6f0a86b
child 798	999fff0aa0d0
permissions	-rw-r--r--