MCRepositoryEntry.st
author Claus Gittinger <cg@exept.de>
Mon, 14 May 2018 02:21:18 +0200
changeset 1048 582b3a028cbc
parent 676 17a420435eb3
child 1095 87f223484bc3
permissions -rw-r--r--
#FEATURE by cg class: MCMethodDefinition changed: #postloadOver:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
296
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/monticello' }"
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
HierarchicalItem subclass:#MCRepositoryEntry
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'repository'
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
676
17a420435eb3 category change
Claus Gittinger <cg@exept.de>
parents: 349
diff changeset
     7
	category:'SCM-Monticello-St/X UI'
296
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!MCRepositoryEntry class methodsFor:'instance creation'!
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
repository:arg
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
    "Create & return a new instance for arg."
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
    ^ self new repository:arg
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
    "Modified: / 16-09-2010 / 18:40:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
! !
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!MCRepositoryEntry methodsFor:'accessing'!
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
label
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
    ^self repository displayString
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
    "Created: / 16-09-2010 / 18:50:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
packages
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
    "Returns a collection of package entries (MCPackageEntry)"
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
    ^repository allPackageNames collect:
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
        [:name|MCPackageEntry name: name repository: repository]
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
    "Created: / 16-09-2010 / 18:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
!
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
repository
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
    ^ repository
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
!
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
repository:something
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    repository := something.
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
! !
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
!MCRepositoryEntry methodsFor:'displaying'!
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
displayString
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
    ^repository displayString
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    "Created: / 16-09-2010 / 18:41:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
! !
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
!MCRepositoryEntry class methodsFor:'documentation'!
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
version
676
17a420435eb3 category change
Claus Gittinger <cg@exept.de>
parents: 349
diff changeset
    60
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryEntry.st,v 1.3 2012-09-11 21:28:22 cg Exp $'
296
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
!
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
version_CVS
676
17a420435eb3 category change
Claus Gittinger <cg@exept.de>
parents: 349
diff changeset
    64
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryEntry.st,v 1.3 2012-09-11 21:28:22 cg Exp $'
296
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
!
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
version_SVN
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
    ^ '§Id: MCRepositoryEntry.st 14 2010-09-17 14:16:41Z vranyj1 §'
c12b12ff180b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
! !