ClassPrimitiveVariablesChange.st
author Claus Gittinger <cg@exept.de>
Mon, 20 Aug 2018 10:11:25 +0200
changeset 4346 6604af2f1554
parent 3490 775773ee515d
child 3838 474d8ec95b33
permissions -rw-r--r--
#OTHER by cg class: FileBasedSourceCodeManager class removed: #version_FileRepository
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
"
957
54dade11e57f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
    12
"{ Package: 'stx:libbasic3' }"
54dade11e57f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
    13
783
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    14
ClassPrimitiveChange subclass:#ClassPrimitiveVariablesChange
235
3ebfdc6edab9 documentation
Claus Gittinger <cg@exept.de>
parents: 103
diff changeset
    15
	instanceVariableNames:''
3ebfdc6edab9 documentation
Claus Gittinger <cg@exept.de>
parents: 103
diff changeset
    16
	classVariableNames:''
3ebfdc6edab9 documentation
Claus Gittinger <cg@exept.de>
parents: 103
diff changeset
    17
	poolDictionaries:''
3ebfdc6edab9 documentation
Claus Gittinger <cg@exept.de>
parents: 103
diff changeset
    18
	category:'System-Changes'
101
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
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!ClassPrimitiveVariablesChange class methodsFor:'documentation'!
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
copyright
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
"
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
 COPYRIGHT (c) 1995 by Claus Gittinger
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	      All Rights Reserved
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
 This software is furnished under a license and may be used
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
 only in accordance with the terms of that license and with the
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 be provided or otherwise made available to, or used by, any
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 other person.  No title to or ownership of the software is
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 hereby transferred.
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
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
documentation
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
"
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
    instances represent a classes primitive variables-changes. 
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
    They are typically held in a ChangeSet.
235
3ebfdc6edab9 documentation
Claus Gittinger <cg@exept.de>
parents: 103
diff changeset
    41
3ebfdc6edab9 documentation
Claus Gittinger <cg@exept.de>
parents: 103
diff changeset
    42
    [author:]
3ebfdc6edab9 documentation
Claus Gittinger <cg@exept.de>
parents: 103
diff changeset
    43
        Claus Gittinger
101
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
! !
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
2358
91620835b09c added: #apply
Claus Gittinger <cg@exept.de>
parents: 962
diff changeset
    47
!ClassPrimitiveVariablesChange methodsFor:'applying'!
91620835b09c added: #apply
Claus Gittinger <cg@exept.de>
parents: 962
diff changeset
    48
2372
e313165eb6cf refactored common code
Claus Gittinger <cg@exept.de>
parents: 2358
diff changeset
    49
privateApply
e313165eb6cf refactored common code
Claus Gittinger <cg@exept.de>
parents: 2358
diff changeset
    50
    "apply the change without namespace query handling"
2358
91620835b09c added: #apply
Claus Gittinger <cg@exept.de>
parents: 962
diff changeset
    51
2372
e313165eb6cf refactored common code
Claus Gittinger <cg@exept.de>
parents: 2358
diff changeset
    52
    self changeClass primitiveVariables:(self source)
2358
91620835b09c added: #apply
Claus Gittinger <cg@exept.de>
parents: 962
diff changeset
    53
2372
e313165eb6cf refactored common code
Claus Gittinger <cg@exept.de>
parents: 2358
diff changeset
    54
    "Created: / 28-06-2011 / 22:57:28 / cg"
2358
91620835b09c added: #apply
Claus Gittinger <cg@exept.de>
parents: 962
diff changeset
    55
! !
91620835b09c added: #apply
Claus Gittinger <cg@exept.de>
parents: 962
diff changeset
    56
784
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs:
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    57
!ClassPrimitiveVariablesChange methodsFor:'comparing'!
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
isForSameAs: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 a change for the same
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs:
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    61
     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
    62
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs:
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    63
    changeB isPrimitiveVariablesChange ifFalse:[^ false].   
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs:
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    64
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs:
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    65
    ^ className = changeB className
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
! !
1e50cc7fd07d added compare methods #sameAs: and #isForSameAs:
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    69
962
3821ab69b939 category change
Claus Gittinger <cg@exept.de>
parents: 957
diff changeset
    70
!ClassPrimitiveVariablesChange methodsFor:'printing & storing'!
103
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    71
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    72
printOn:aStream
801
b84b61eaa2f6 comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    73
    "append a user printed representation of the receiver to aStream.
b84b61eaa2f6 comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    74
     The format is suitable for a human - not meant to be read back."
b84b61eaa2f6 comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    75
103
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    76
    aStream nextPutAll:className; nextPutAll:' primitiveVariables:'
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    77
! !
487c1447b3d8 printing fixed (req'd for changeSetBrowser)
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    78
3490
775773ee515d category change for isXXX testers;
Claus Gittinger <cg@exept.de>
parents: 2372
diff changeset
    79
!ClassPrimitiveVariablesChange methodsFor:'testing'!
783
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
isPrimitiveVariablesChange
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    82
    ^ true
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    83
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    84
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    85
! !
90ffa6f0a86b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 235
diff changeset
    86
101
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
!ClassPrimitiveVariablesChange class methodsFor:'documentation'!
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
version
3490
775773ee515d category change for isXXX testers;
Claus Gittinger <cg@exept.de>
parents: 2372
diff changeset
    90
    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveVariablesChange.st,v 1.12 2014-02-19 13:04:49 cg Exp $'
2358
91620835b09c added: #apply
Claus Gittinger <cg@exept.de>
parents: 962
diff changeset
    91
!
91620835b09c added: #apply
Claus Gittinger <cg@exept.de>
parents: 962
diff changeset
    92
91620835b09c added: #apply
Claus Gittinger <cg@exept.de>
parents: 962
diff changeset
    93
version_CVS
3490
775773ee515d category change for isXXX testers;
Claus Gittinger <cg@exept.de>
parents: 2372
diff changeset
    94
    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveVariablesChange.st,v 1.12 2014-02-19 13:04:49 cg Exp $'
101
9a1c22e807e0 more changeSet stuff
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
! !
3490
775773ee515d category change for isXXX testers;
Claus Gittinger <cg@exept.de>
parents: 2372
diff changeset
    96