AbstractRevisionItem.st
author ps
Fri, 14 Jan 2000 11:49:28 +0100
changeset 1294 100042c9183e
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1294
100042c9183e initial checkin
ps
parents:
diff changeset
     1
AbstractVersionDiffBrowserItem subclass:#AbstractRevisionItem
100042c9183e initial checkin
ps
parents:
diff changeset
     2
	instanceVariableNames:'revision'
100042c9183e initial checkin
ps
parents:
diff changeset
     3
	classVariableNames:''
100042c9183e initial checkin
ps
parents:
diff changeset
     4
	poolDictionaries:''
100042c9183e initial checkin
ps
parents:
diff changeset
     5
	category:'Interface-Browsers'
100042c9183e initial checkin
ps
parents:
diff changeset
     6
!
100042c9183e initial checkin
ps
parents:
diff changeset
     7
100042c9183e initial checkin
ps
parents:
diff changeset
     8
100042c9183e initial checkin
ps
parents:
diff changeset
     9
!AbstractRevisionItem class methodsFor:'instance creation'!
100042c9183e initial checkin
ps
parents:
diff changeset
    10
100042c9183e initial checkin
ps
parents:
diff changeset
    11
newForRevision:aRevision
100042c9183e initial checkin
ps
parents:
diff changeset
    12
100042c9183e initial checkin
ps
parents:
diff changeset
    13
    |theRevision|
100042c9183e initial checkin
ps
parents:
diff changeset
    14
100042c9183e initial checkin
ps
parents:
diff changeset
    15
    theRevision := self new.
100042c9183e initial checkin
ps
parents:
diff changeset
    16
    theRevision revision:aRevision.
100042c9183e initial checkin
ps
parents:
diff changeset
    17
    ^theRevision
100042c9183e initial checkin
ps
parents:
diff changeset
    18
! !
100042c9183e initial checkin
ps
parents:
diff changeset
    19
100042c9183e initial checkin
ps
parents:
diff changeset
    20
!AbstractRevisionItem methodsFor:'accessing'!
100042c9183e initial checkin
ps
parents:
diff changeset
    21
100042c9183e initial checkin
ps
parents:
diff changeset
    22
myClass
100042c9183e initial checkin
ps
parents:
diff changeset
    23
100042c9183e initial checkin
ps
parents:
diff changeset
    24
    ^self parent myClass
100042c9183e initial checkin
ps
parents:
diff changeset
    25
!
100042c9183e initial checkin
ps
parents:
diff changeset
    26
100042c9183e initial checkin
ps
parents:
diff changeset
    27
revision
100042c9183e initial checkin
ps
parents:
diff changeset
    28
    "return the value of the instance variable 'revision' (automatically generated)"
100042c9183e initial checkin
ps
parents:
diff changeset
    29
100042c9183e initial checkin
ps
parents:
diff changeset
    30
    ^ revision!
100042c9183e initial checkin
ps
parents:
diff changeset
    31
100042c9183e initial checkin
ps
parents:
diff changeset
    32
revision:something
100042c9183e initial checkin
ps
parents:
diff changeset
    33
    "set the value of the instance variable 'revision' (automatically generated)"
100042c9183e initial checkin
ps
parents:
diff changeset
    34
100042c9183e initial checkin
ps
parents:
diff changeset
    35
    revision := something.!
100042c9183e initial checkin
ps
parents:
diff changeset
    36
100042c9183e initial checkin
ps
parents:
diff changeset
    37
revisionString
100042c9183e initial checkin
ps
parents:
diff changeset
    38
    "return the value of the instance variable 'revision' (automatically generated)"
100042c9183e initial checkin
ps
parents:
diff changeset
    39
100042c9183e initial checkin
ps
parents:
diff changeset
    40
    self subclassResponsibility
100042c9183e initial checkin
ps
parents:
diff changeset
    41
100042c9183e initial checkin
ps
parents:
diff changeset
    42
! !
100042c9183e initial checkin
ps
parents:
diff changeset
    43
100042c9183e initial checkin
ps
parents:
diff changeset
    44
!AbstractRevisionItem methodsFor:'protocol'!
100042c9183e initial checkin
ps
parents:
diff changeset
    45
100042c9183e initial checkin
ps
parents:
diff changeset
    46
icon
100042c9183e initial checkin
ps
parents:
diff changeset
    47
"
100042c9183e initial checkin
ps
parents:
diff changeset
    48
define concrete icons for revision items in subclasses
100042c9183e initial checkin
ps
parents:
diff changeset
    49
100042c9183e initial checkin
ps
parents:
diff changeset
    50
<return: self>
100042c9183e initial checkin
ps
parents:
diff changeset
    51
"
100042c9183e initial checkin
ps
parents:
diff changeset
    52
    self subclassResponsibility
100042c9183e initial checkin
ps
parents:
diff changeset
    53
!
100042c9183e initial checkin
ps
parents:
diff changeset
    54
100042c9183e initial checkin
ps
parents:
diff changeset
    55
label
100042c9183e initial checkin
ps
parents:
diff changeset
    56
"
100042c9183e initial checkin
ps
parents:
diff changeset
    57
label is the revision string
100042c9183e initial checkin
ps
parents:
diff changeset
    58
100042c9183e initial checkin
ps
parents:
diff changeset
    59
<return: String>
100042c9183e initial checkin
ps
parents:
diff changeset
    60
"
100042c9183e initial checkin
ps
parents:
diff changeset
    61
100042c9183e initial checkin
ps
parents:
diff changeset
    62
    ^self revisionString
100042c9183e initial checkin
ps
parents:
diff changeset
    63
100042c9183e initial checkin
ps
parents:
diff changeset
    64
100042c9183e initial checkin
ps
parents:
diff changeset
    65
! !
100042c9183e initial checkin
ps
parents:
diff changeset
    66
100042c9183e initial checkin
ps
parents:
diff changeset
    67
!AbstractRevisionItem methodsFor:'testing'!
100042c9183e initial checkin
ps
parents:
diff changeset
    68
100042c9183e initial checkin
ps
parents:
diff changeset
    69
hasSourceStream
100042c9183e initial checkin
ps
parents:
diff changeset
    70
"
100042c9183e initial checkin
ps
parents:
diff changeset
    71
has the receiver a source stream? Used for testing tree items.
100042c9183e initial checkin
ps
parents:
diff changeset
    72
100042c9183e initial checkin
ps
parents:
diff changeset
    73
<return: Boolean>
100042c9183e initial checkin
ps
parents:
diff changeset
    74
"
100042c9183e initial checkin
ps
parents:
diff changeset
    75
    ^false
100042c9183e initial checkin
ps
parents:
diff changeset
    76
100042c9183e initial checkin
ps
parents:
diff changeset
    77
!
100042c9183e initial checkin
ps
parents:
diff changeset
    78
100042c9183e initial checkin
ps
parents:
diff changeset
    79
isLoadedRevision
100042c9183e initial checkin
ps
parents:
diff changeset
    80
"
100042c9183e initial checkin
ps
parents:
diff changeset
    81
do the receiver represents the actual revision of a class.
100042c9183e initial checkin
ps
parents:
diff changeset
    82
100042c9183e initial checkin
ps
parents:
diff changeset
    83
<return: Boolean>
100042c9183e initial checkin
ps
parents:
diff changeset
    84
"
100042c9183e initial checkin
ps
parents:
diff changeset
    85
    ^false
100042c9183e initial checkin
ps
parents:
diff changeset
    86
100042c9183e initial checkin
ps
parents:
diff changeset
    87
100042c9183e initial checkin
ps
parents:
diff changeset
    88
100042c9183e initial checkin
ps
parents:
diff changeset
    89
!
100042c9183e initial checkin
ps
parents:
diff changeset
    90
100042c9183e initial checkin
ps
parents:
diff changeset
    91
isRevisionItem
100042c9183e initial checkin
ps
parents:
diff changeset
    92
"
100042c9183e initial checkin
ps
parents:
diff changeset
    93
the receiver is a revision item. Used for testing tree items.
100042c9183e initial checkin
ps
parents:
diff changeset
    94
100042c9183e initial checkin
ps
parents:
diff changeset
    95
<return: Boolean>
100042c9183e initial checkin
ps
parents:
diff changeset
    96
"
100042c9183e initial checkin
ps
parents:
diff changeset
    97
    ^true
100042c9183e initial checkin
ps
parents:
diff changeset
    98
100042c9183e initial checkin
ps
parents:
diff changeset
    99
! !
100042c9183e initial checkin
ps
parents:
diff changeset
   100
100042c9183e initial checkin
ps
parents:
diff changeset
   101
!AbstractRevisionItem class methodsFor:'documentation'!
100042c9183e initial checkin
ps
parents:
diff changeset
   102
100042c9183e initial checkin
ps
parents:
diff changeset
   103
version
100042c9183e initial checkin
ps
parents:
diff changeset
   104
    ^ '$Header$'
100042c9183e initial checkin
ps
parents:
diff changeset
   105
! !