OtherChange.st
author Claus Gittinger <cg@exept.de>
Wed, 18 Jun 2003 17:34:02 +0200
changeset 1294 3928a6b058cf
parent 910 ccd7843444d2
child 1416 21b4a48293cc
permissions -rw-r--r--
printing
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1294
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
     1
"{ Package: 'stx:libbasic3' }"
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
     2
910
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
Change subclass:#OtherChange
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'type file position'
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'System-Changes'
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!OtherChange methodsFor:'accessing'!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
file
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
    "return the value of the instance variable 'file' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
1294
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    16
    ^ file
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    17
!
910
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
    "set the value of the instance variable 'file' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
1294
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    22
    file := something.
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    23
!
910
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
file:aFilename position:anInteger
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
    "set the value of the instance variable 'file' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
    file := aFilename.
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
    position := anInteger
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
position
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
    "return the value of the instance variable 'position' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
1294
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    35
    ^ position
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    36
!
910
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
position:something
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
    "set the value of the instance variable 'position' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
1294
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    41
    position := something.
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    42
!
910
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
type
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    "return the value of the instance variable 'type' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
1294
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    47
    ^ type
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    48
!
910
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
type:something
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    "set the value of the instance variable 'type' (automatically generated)"
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
1294
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    53
    type := something.
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    54
! !
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    55
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    56
!OtherChange methodsFor:'printing & storing'!
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    57
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    58
printOn:aStream
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    59
    aStream nextPutAll:'OtherChange ('.
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    60
    aStream nextPutAll:source.
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    61
    aStream nextPutAll:')'.
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    62
! !
910
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
!OtherChange class methodsFor:'documentation'!
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
version
1294
3928a6b058cf printing
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
    67
    ^ '$Header: /cvs/stx/stx/libbasic3/OtherChange.st,v 1.2 2003-06-18 15:34:02 cg Exp $'
910
ccd7843444d2 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
! !