OtherChange.st
author Claus Gittinger <cg@exept.de>
Tue, 21 Mar 2000 13:43:37 +0100
changeset 910 ccd7843444d2
child 1294 3928a6b058cf
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
910
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
Change subclass:#OtherChange
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
	instanceVariableNames:'type file position'
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
	classVariableNames:''
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	poolDictionaries:''
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	category:'System-Changes'
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
!OtherChange methodsFor:'accessing'!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
file
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
    "return the value of the instance variable 'file' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
    ^ file!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
file:something
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
    "set the value of the instance variable 'file' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
    file := something.!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
file:aFilename position:anInteger
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
    "set the value of the instance variable 'file' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
    file := aFilename.
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
    position := anInteger
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
position
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
    "return the value of the instance variable 'position' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
    ^ position!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
position:something
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
    "set the value of the instance variable 'position' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
    position := something.!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
type
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
    "return the value of the instance variable 'type' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
    ^ type!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
type:something
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
    "set the value of the instance variable 'type' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
    type := something.! !
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
!OtherChange class methodsFor:'documentation'!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
version
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    ^ '$Header: /cvs/stx/stx/libbasic3/OtherChange.st,v 1.1 2000-03-21 12:43:37 cg Exp $'
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
! !