ClassOtherChange.st
author Claus Gittinger <cg@exept.de>
Mon, 20 Oct 2008 17:11:18 +0200
changeset 2023 1b80f335f828
parent 1986 db1ba4f9e43e
child 2163 aadd9a6bf366
permissions -rw-r--r--
changed #source
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1986
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
     1
"
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
     2
 COPYRIGHT (c) 2003 by eXept Software AG
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
     3
              All Rights Reserved
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
     4
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
     5
 This software is furnished under a license and may be used
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
     6
 only in accordance with the terms of that license and with the
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
     8
 be provided or otherwise made available to, or used by, any
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
     9
 other person.  No title to or ownership of the software is
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    10
 hereby transferred.
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    11
"
1298
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    12
"{ Package: 'stx:libbasic3' }"
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    13
913
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
ClassChange subclass:#ClassOtherChange
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
	instanceVariableNames:'type objectType'
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	classVariableNames:''
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	poolDictionaries:''
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	category:'System-Changes'
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
1986
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    21
!ClassOtherChange class methodsFor:'documentation'!
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    22
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    23
copyright
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    24
"
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    25
 COPYRIGHT (c) 2003 by eXept Software AG
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    26
              All Rights Reserved
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    27
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    28
 This software is furnished under a license and may be used
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    29
 only in accordance with the terms of that license and with the
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    31
 be provided or otherwise made available to, or used by, any
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    32
 other person.  No title to or ownership of the software is
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    33
 hereby transferred.
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    34
"
db1ba4f9e43e copyright
Claus Gittinger <cg@exept.de>
parents: 1305
diff changeset
    35
! !
913
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
!ClassOtherChange methodsFor:'accessing'!
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
objectType
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
    "return the value of the instance variable 'objectType' (automatically generated)"
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
1298
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    42
    ^ objectType
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    43
!
913
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
objectType:something
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
    "set the value of the instance variable 'objectType' (automatically generated)"
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
1298
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    48
    objectType := something.
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    49
!
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    50
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    51
source
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    52
    type == #initialize ifTrue:[
1305
3aa4dc506e56 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1298
diff changeset
    53
        ^ self className , ' initialize'.
1298
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    54
    ].
2023
1b80f335f828 changed #source
Claus Gittinger <cg@exept.de>
parents: 1986
diff changeset
    55
    self halt:'as yet unhandled doIt expression in change file'.
1298
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    56
!
913
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
type
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
    "return the value of the instance variable 'type' (automatically generated)"
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
1298
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    61
    ^ type
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    62
!
913
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
type:something
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
    "set the value of the instance variable 'type' (automatically generated)"
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
1298
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    67
    type := something.
3fc29a9e5554 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
    68
! !
913
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
!ClassOtherChange class methodsFor:'documentation'!
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
version
2023
1b80f335f828 changed #source
Claus Gittinger <cg@exept.de>
parents: 1986
diff changeset
    73
    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOtherChange.st,v 1.5 2008-10-20 15:11:18 cg Exp $'
913
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
! !