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

653 b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	Change subclass:#DoItChange
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2	instanceVariableNames:''
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	classVariableNames:''
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	poolDictionaries:''
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	category:'System-Changes'
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	!
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!DoItChange class methodsFor:'documentation'!
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	history
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"Created: / 16.2.1998 / 14:38:29 / cg"
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	! !
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	15	!DoItChange methodsFor:'comparing'!
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	16
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	17	sameAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	18	"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: 773 diff changeset	19
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	20	changeB isDoIt ifFalse:[^ false].
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	21	^ self sameSourceAs:changeB
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	22
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	23
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	24	! !
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	25
773 286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 653 diff changeset	26	!DoItChange methodsFor:'queries'!
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 653 diff changeset	27
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 653 diff changeset	28	isDoIt
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 653 diff changeset	29	^ true
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 653 diff changeset	30	! !
286439523352 added #isDoIt Claus Gittinger <cg@exept.de> parents: 653 diff changeset	31
653 b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	!DoItChange class methodsFor:'documentation'!
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33
b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	version
784 1e50cc7fd07d added compare methods #sameAs: and #isForSameAs: Claus Gittinger <cg@exept.de> parents: 773 diff changeset	35	^ '$Header: /cvs/stx/stx/libbasic3/DoItChange.st,v 1.3 1999-07-06 10:37:02 cg Exp $'
653 b873bb41ef10 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	! !

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