FileInChange.st
author Claus Gittinger <cg@exept.de>
Wed, 19 Feb 2014 14:05:35 +0100
changeset 3500 da0cb5abcb57
parent 3113 64c1907725b5
child 3838 474d8ec95b33
child 4071 444038524c29
permissions -rw-r--r--
category change for isXXX testers; added isOrContainsClassDefinitionChange
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3113
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
     1
"
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
     2
 COPYRIGHT (c) 2011 by eXept Software AG
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
     3
              All Rights Reserved
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
     4
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
     5
 This software is furnished under a license and may be used
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
     6
 only in accordance with the terms of that license and with the
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
     8
 be provided or otherwise made available to, or used by, any
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
     9
 other person.  No title to or ownership of the software is
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    10
 hereby transferred.
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    11
"
2379
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    12
"{ Package: 'stx:libbasic3' }"
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    13
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    14
Change subclass:#FileInChange
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    15
	instanceVariableNames:'file'
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    16
	classVariableNames:''
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    17
	poolDictionaries:''
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    18
	category:'System-Changes'
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    19
!
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    20
2996
537d27790455 comments
Claus Gittinger <cg@exept.de>
parents: 2379
diff changeset
    21
!FileInChange class methodsFor:'documentation'!
537d27790455 comments
Claus Gittinger <cg@exept.de>
parents: 2379
diff changeset
    22
3113
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    23
copyright
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    24
"
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    25
 COPYRIGHT (c) 2011 by eXept Software AG
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    26
              All Rights Reserved
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    27
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    28
 This software is furnished under a license and may be used
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    29
 only in accordance with the terms of that license and with the
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    31
 be provided or otherwise made available to, or used by, any
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    32
 other person.  No title to or ownership of the software is
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    33
 hereby transferred.
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    34
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    35
"
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    36
!
64c1907725b5 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2996
diff changeset
    37
2996
537d27790455 comments
Claus Gittinger <cg@exept.de>
parents: 2379
diff changeset
    38
documentation
537d27790455 comments
Claus Gittinger <cg@exept.de>
parents: 2379
diff changeset
    39
"
537d27790455 comments
Claus Gittinger <cg@exept.de>
parents: 2379
diff changeset
    40
    I represent a fileIn marker change (in a changeFile)
537d27790455 comments
Claus Gittinger <cg@exept.de>
parents: 2379
diff changeset
    41
"
537d27790455 comments
Claus Gittinger <cg@exept.de>
parents: 2379
diff changeset
    42
! !
2379
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    43
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    44
!FileInChange class methodsFor:'instance creation'!
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    45
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    46
file: aStringOrFilename
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    47
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    48
    ^self new file: aStringOrFilename
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    49
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    50
    "Created: / 27-08-2009 / 10:36:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    51
! !
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    52
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    53
!FileInChange methodsFor:'accessing'!
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    54
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    55
file
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    56
    ^ file
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    57
!
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    58
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    59
file:aStringOrfFilename
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    60
    file := aStringOrfFilename.
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    61
! !
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    62
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    63
!FileInChange methodsFor:'printing & storing'!
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    64
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    65
printOn:aStream
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    66
    "append a printed representation if the receiver to the argument, aStream"
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    67
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    68
    aStream 
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    69
        nextPutAll:'FileIn: ';
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    70
        nextPutAll: file asString storeString
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    71
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    72
    "Modified: / 27-08-2009 / 10:35:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    73
! !
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    74
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    75
!FileInChange class methodsFor:'documentation'!
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    76
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    77
version_CVS
3500
da0cb5abcb57 category change for isXXX testers;
Claus Gittinger <cg@exept.de>
parents: 3113
diff changeset
    78
    ^ '$Header: /cvs/stx/stx/libbasic3/FileInChange.st,v 1.4 2014-02-19 13:05:35 cg Exp $'
2379
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    79
!
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    80
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    81
version_SVN
3500
da0cb5abcb57 category change for isXXX testers;
Claus Gittinger <cg@exept.de>
parents: 3113
diff changeset
    82
    ^ '$ Id: FileInChange.st 1813 2009-10-26 21:58:45Z vranyj1  $'
2379
62ca6c73613a initial checkin
vrany
parents:
diff changeset
    83
! !
2996
537d27790455 comments
Claus Gittinger <cg@exept.de>
parents: 2379
diff changeset
    84