ClassClassVariableChange.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sat, 31 Mar 2012 01:14:49 +0100
branchjv
changeset 3042 48e76977cdc3
parent 3012 4f40b8304d54
child 3121 19723298dd2c
child 3125 08d6603c4fe9
permissions -rw-r--r--
Added info-record processing support into changeset reader
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1985
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
     1
"
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
     2
 COPYRIGHT (c) 2003 by eXept Software AG
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
     3
              All Rights Reserved
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
     4
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
     5
 This software is furnished under a license and may be used
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
     6
 only in accordance with the terms of that license and with the
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
     8
 be provided or otherwise made available to, or used by, any
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
     9
 other person.  No title to or ownership of the software is
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    10
 hereby transferred.
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    11
"
1317
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libbasic3' }"
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
ClassChange subclass:#ClassClassVariableChange
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
	instanceVariableNames:'variableName nameSpaceName otherParameters'
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	classVariableNames:''
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	poolDictionaries:''
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	category:'System-Changes'
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
1985
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    21
!ClassClassVariableChange class methodsFor:'documentation'!
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    22
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    23
copyright
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    24
"
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    25
 COPYRIGHT (c) 2003 by eXept Software AG
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    26
              All Rights Reserved
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    27
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    28
 This software is furnished under a license and may be used
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    29
 only in accordance with the terms of that license and with the
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    31
 be provided or otherwise made available to, or used by, any
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    32
 other person.  No title to or ownership of the software is
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    33
 hereby transferred.
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    34
"
2165
27441b4a3431 comment/format in:6 methods
Claus Gittinger <cg@exept.de>
parents: 1985
diff changeset
    35
!
27441b4a3431 comment/format in:6 methods
Claus Gittinger <cg@exept.de>
parents: 1985
diff changeset
    36
27441b4a3431 comment/format in:6 methods
Claus Gittinger <cg@exept.de>
parents: 1985
diff changeset
    37
documentation
27441b4a3431 comment/format in:6 methods
Claus Gittinger <cg@exept.de>
parents: 1985
diff changeset
    38
"
27441b4a3431 comment/format in:6 methods
Claus Gittinger <cg@exept.de>
parents: 1985
diff changeset
    39
    A changed classVariable
27441b4a3431 comment/format in:6 methods
Claus Gittinger <cg@exept.de>
parents: 1985
diff changeset
    40
"
1985
da96a146b89e copyright
Claus Gittinger <cg@exept.de>
parents: 1317
diff changeset
    41
! !
1317
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
!ClassClassVariableChange methodsFor:'accessing'!
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
name:varNameArg nameSpaceName:nsNameArg type:varTypeArg otherParameters:otherParametersArg
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
    variableName := varNameArg.
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
    className := nsNameArg.
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
    otherParameters := otherParametersArg.
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
!
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
source
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
    "synthesize the changes source"
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    ^ String
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
        streamContents:
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
            [:s |
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
                self printOn:s.
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
            ]
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
! !
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
!ClassClassVariableChange methodsFor:'printing & storing'!
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
printOn:aStream
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
    aStream nextPutAll:self className; nextPutAll:' addClassVarName: ' , variableName storeString
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
! !
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
2615
1770fc57edd8 visitor support (for monticello);
Claus Gittinger <cg@exept.de>
parents: 2165
diff changeset
    67
!ClassClassVariableChange methodsFor:'visiting'!
1770fc57edd8 visitor support (for monticello);
Claus Gittinger <cg@exept.de>
parents: 2165
diff changeset
    68
1770fc57edd8 visitor support (for monticello);
Claus Gittinger <cg@exept.de>
parents: 2165
diff changeset
    69
acceptChangeVisitor:aVisitor
1770fc57edd8 visitor support (for monticello);
Claus Gittinger <cg@exept.de>
parents: 2165
diff changeset
    70
    ^ aVisitor visitClassVariableChange:self.
1770fc57edd8 visitor support (for monticello);
Claus Gittinger <cg@exept.de>
parents: 2165
diff changeset
    71
1770fc57edd8 visitor support (for monticello);
Claus Gittinger <cg@exept.de>
parents: 2165
diff changeset
    72
    "Created: / 25-11-2011 / 17:12:53 / cg"
1770fc57edd8 visitor support (for monticello);
Claus Gittinger <cg@exept.de>
parents: 2165
diff changeset
    73
! !
1770fc57edd8 visitor support (for monticello);
Claus Gittinger <cg@exept.de>
parents: 2165
diff changeset
    74
1317
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
!ClassClassVariableChange class methodsFor:'documentation'!
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
ce08ad1930e4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
version
3042
48e76977cdc3 Added info-record processing support into changeset reader
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3012
diff changeset
    78
    ^ '$Id: ClassClassVariableChange.st 1909 2012-03-31 00:14:49Z vranyj1 $'
3012
4f40b8304d54 Added InvalidChange
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3011
diff changeset
    79
!
4f40b8304d54 Added InvalidChange
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3011
diff changeset
    80
4f40b8304d54 Added InvalidChange
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3011
diff changeset
    81
version_SVN
3042
48e76977cdc3 Added info-record processing support into changeset reader
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3012
diff changeset
    82
    ^ '$Id: ClassClassVariableChange.st 1909 2012-03-31 00:14:49Z vranyj1 $'
3012
4f40b8304d54 Added InvalidChange
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3011
diff changeset
    83
! !