TimestampChange.st
author Claus Gittinger <cg@exept.de>
Mon, 09 Jan 2006 10:54:28 +0100
changeset 1440 e6769e36b529
child 2168 49078787e7cd
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1440
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libbasic3' }"
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
OtherChange subclass:#TimestampChange
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'System-Changes'
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!TimestampChange methodsFor:'printing & storing'!
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
printOn:aStream
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
    aStream nextPutAll:'Timestamp: '.
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
    source notNil ifTrue:[
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
        aStream nextPutAll:source.
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
    ].
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
! !
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
!TimestampChange class methodsFor:'documentation'!
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
version
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
    ^ '$Header: /cvs/stx/stx/libbasic3/TimestampChange.st,v 1.1 2006-01-09 09:54:28 cg Exp $'
e6769e36b529 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
! !