ClassRemoveChange.st
author Claus Gittinger <cg@exept.de>
Mon, 20 Aug 2018 10:11:25 +0200
changeset 4346 6604af2f1554
parent 3494 ef72195ba30b
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:
798
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     1
"
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     2
 COPYRIGHT (c) 1998 by eXept Software AG
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     3
              All Rights Reserved
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     4
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     5
 This software is furnished under a license and may be used
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     6
 only in accordance with the terms of that license and with the
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     8
 be provided or otherwise made available to, or used by, any
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     9
 other person.  No title to or ownership of the software is
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    10
 hereby transferred.
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    11
"
1162
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    12
"{ Package: 'stx:libbasic3' }"
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    13
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
ClassChange subclass:#ClassRemoveChange
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
	instanceVariableNames:''
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	classVariableNames:''
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	poolDictionaries:''
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	category:'System-Changes'
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
1234
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    21
Query subclass:#ClassBeingRemovedQuery
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    22
	instanceVariableNames:''
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    23
	classVariableNames:''
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    24
	poolDictionaries:''
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    25
	privateIn:ClassRemoveChange
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    26
!
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    27
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!ClassRemoveChange class methodsFor:'documentation'!
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
798
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    30
copyright
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    31
"
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    32
 COPYRIGHT (c) 1998 by eXept Software AG
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    33
              All Rights Reserved
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
798
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    35
 This software is furnished under a license and may be used
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    36
 only in accordance with the terms of that license and with the
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    37
 inclusion of the above copyright notice.   This software may not
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    38
 be provided or otherwise made available to, or used by, any
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    39
 other person.  No title to or ownership of the software is
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    40
 hereby transferred.
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    41
"
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    42
1162
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    43
!
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    44
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    45
documentation
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    46
"
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    47
    instances represent a class-has-been-removed change. 
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    48
    They are typically held in a ChangeSet.
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    49
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    50
    [author:]
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    51
        Claus Gittinger
4af27057a3ce comment
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    52
"
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
! !
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
!ClassRemoveChange methodsFor:'printing'!
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
printOn:aStream
3182
05be03161b33 class: ClassRemoveChange
Claus Gittinger <cg@exept.de>
parents: 3137
diff changeset
    58
    aStream nextPutAll:'Smalltalk removeClass: ';
1901
ad3871ce3a45 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
    59
            nextPutAll:className asString
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
1901
ad3871ce3a45 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
    61
    "Created: / 16-02-1998 / 14:19:48 / cg"
ad3871ce3a45 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1234
diff changeset
    62
    "Modified: / 13-11-2006 / 10:40:17 / cg"
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
! !
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
1234
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    65
!ClassRemoveChange methodsFor:'queries'!
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    66
3137
5dfa08a5a029 class: ClassRemoveChange
Claus Gittinger <cg@exept.de>
parents: 1901
diff changeset
    67
delta
5dfa08a5a029 class: ClassRemoveChange
Claus Gittinger <cg@exept.de>
parents: 1901
diff changeset
    68
    | class |
5dfa08a5a029 class: ClassRemoveChange
Claus Gittinger <cg@exept.de>
parents: 1901
diff changeset
    69
5dfa08a5a029 class: ClassRemoveChange
Claus Gittinger <cg@exept.de>
parents: 1901
diff changeset
    70
    class := self changeClass.
5dfa08a5a029 class: ClassRemoveChange
Claus Gittinger <cg@exept.de>
parents: 1901
diff changeset
    71
    class notNil ifTrue:[^#-].
5dfa08a5a029 class: ClassRemoveChange
Claus Gittinger <cg@exept.de>
parents: 1901
diff changeset
    72
    ^ #=
3494
ef72195ba30b category change for isXXX testers;
Claus Gittinger <cg@exept.de>
parents: 3182
diff changeset
    73
! !
ef72195ba30b category change for isXXX testers;
Claus Gittinger <cg@exept.de>
parents: 3182
diff changeset
    74
ef72195ba30b category change for isXXX testers;
Claus Gittinger <cg@exept.de>
parents: 3182
diff changeset
    75
!ClassRemoveChange methodsFor:'testing'!
3137
5dfa08a5a029 class: ClassRemoveChange
Claus Gittinger <cg@exept.de>
parents: 1901
diff changeset
    76
1234
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    77
isClassRemoveChange
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    78
    ^ true
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    79
! !
2edbb63a70b7 james' package changes
james
parents: 1162
diff changeset
    80
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
!ClassRemoveChange class methodsFor:'documentation'!
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
version
3494
ef72195ba30b category change for isXXX testers;
Claus Gittinger <cg@exept.de>
parents: 3182
diff changeset
    84
    ^ '$Header: /cvs/stx/stx/libbasic3/ClassRemoveChange.st,v 1.8 2014-02-19 13:05:21 cg Exp $'
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
! !
3137
5dfa08a5a029 class: ClassRemoveChange
Claus Gittinger <cg@exept.de>
parents: 1901
diff changeset
    86