ClassOtherChange.st
author Claus Gittinger <cg@exept.de>
Tue, 21 Mar 2000 13:48:54 +0100
changeset 913 0000f1667243
child 1298 3fc29a9e5554
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
913
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
ClassChange subclass:#ClassOtherChange
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
	instanceVariableNames:'type objectType'
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
	classVariableNames:''
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	poolDictionaries:''
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	category:'System-Changes'
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
!
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
!ClassOtherChange methodsFor:'accessing'!
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
objectType
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
    "return the value of the instance variable 'objectType' (automatically generated)"
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
    ^ objectType!
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
objectType:something
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
    "set the value of the instance variable 'objectType' (automatically generated)"
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
    objectType := something.!
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
type
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
    "return the value of the instance variable 'type' (automatically generated)"
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
    ^ type!
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
type:something
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
    "set the value of the instance variable 'type' (automatically generated)"
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
    type := something.! !
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
!ClassOtherChange class methodsFor:'documentation'!
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
version
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOtherChange.st,v 1.1 2000-03-21 12:48:54 cg Exp $'
0000f1667243 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
! !