ClassPrimitiveDefinitionsChange.st
author Claus Gittinger <cg@exept.de>
Mon, 12 Jul 1999 14:06:43 +0200
changeset 798 999fff0aa0d0
parent 784 1e50cc7fd07d
child 801 b84b61eaa2f6
permissions -rw-r--r--
checkin from browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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:#ClassPrimitiveDefinitionsChange
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
!ClassPrimitiveDefinitionsChange 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 definition-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
!ClassPrimitiveDefinitionsChange 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 isPrimitiveDefinitionsChange 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
103
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    59
!ClassPrimitiveDefinitionsChange methodsFor:'printing'!
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    60
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    61
printOn:aStream
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    62
    aStream nextPutAll:className; nextPutAll:' primitiveDefinitions:'
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    63
! !
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    64
783
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    65
!ClassPrimitiveDefinitionsChange methodsFor:'queries'!
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    66
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    67
isPrimitiveDefinitionsChange
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    68
    ^ true
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    69
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    70
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    71
! !
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    72
101
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
!ClassPrimitiveDefinitionsChange class methodsFor:'documentation'!
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
version
798
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 784
diff changeset
    76
    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveDefinitionsChange.st,v 1.6 1999-07-12 12:06:29 cg Exp $'
101
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
! !