ClassItemRootForRevision.st
author Jan Vrany <jan.vrany@labware.com>
Wed, 05 Oct 2022 11:57:26 +0100
branchjv
changeset 19637 28f5bfaa093d
parent 15950 23be8cf85415
permissions -rw-r--r--
`NewSystemBrowser`: avoid updating package info when changed class is not selected This speeds up loading of packages when browser is open as it does not (needlessly) update package info which may involve scm round-trip.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2626
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
     1
"
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
     2
 COPYRIGHT (c) 2000 by eXept Software AG
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
     3
              All Rights Reserved
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
     4
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
     5
 This software is furnished under a license and may be used
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
     6
 only in accordance with the terms of that license and with the
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
     8
 be provided or otherwise made available to, or used by, any
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
     9
 other person.  No title to or ownership of the software is
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    10
 hereby transferred.
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    11
"
12650
e0f607754b9a Merged 18d06283743d and ff31bac2fd1b (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
    12
"{ Package: 'stx:libtool' }"
2626
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    13
15950
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12650
diff changeset
    14
"{ NameSpace: Smalltalk }"
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12650
diff changeset
    15
2613
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    16
ClassItemRoot subclass:#ClassItemRootForRevision
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    17
	instanceVariableNames:''
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    18
	classVariableNames:''
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    19
	poolDictionaries:''
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    20
	category:'Interface-Browsers-Support'
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    21
!
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    22
2625
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    23
!ClassItemRootForRevision class methodsFor:'documentation'!
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    24
2626
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    25
copyright
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    26
"
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    27
 COPYRIGHT (c) 2000 by eXept Software AG
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    28
              All Rights Reserved
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    29
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    30
 This software is furnished under a license and may be used
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    31
 only in accordance with the terms of that license and with the
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    33
 be provided or otherwise made available to, or used by, any
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    34
 other person.  No title to or ownership of the software is
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    35
 hereby transferred.
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    36
"
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    37
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    38
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    39
!
Claus Gittinger <cg@exept.de>
parents: 2625
diff changeset
    40
2625
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    41
documentation
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    42
"
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    43
    This is not yet finished (work in progress) - do not use.
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    44
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    45
    [author:]
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    46
        Pierre Schwarz (ps@exept.de)
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    47
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    48
    [see also:]
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    49
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    50
    [instance variables:]
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    51
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    52
    [class variables:]
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    53
"
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    54
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    55
! !
2613
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    56
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    57
!ClassItemRootForRevision class methodsFor:'accessing'!
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    58
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    59
classItemClass
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    60
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    61
    ^ClassNameItem
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    62
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    63
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    64
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    65
! !
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    66
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    67
!ClassItemRootForRevision methodsFor:'protocol'!
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    68
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    69
computeChildrensFor:aClassRevisionColl
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    70
"
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    71
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    72
<return: OrderedCollection|nil>
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    73
"
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    74
    |theClassItemColl|
2625
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    75
2613
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    76
    aClassRevisionColl ifNil:[^#()].
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    77
    theClassItemColl := aClassRevisionColl collect:[:eachClassRevision |
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    78
        |theClassItem theClass|
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    79
        theClassItem := self classItemClass new.
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    80
        theClassItem revisionInfo:eachClassRevision.
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    81
        theClassItem].
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    82
    ^theClassItemColl
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    83
2625
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2613
diff changeset
    84
    "Modified: / 18.2.2000 / 15:04:31 / cg"
2613
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    85
!
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    86
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    87
doubleClickOn:anItem
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    88
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    89
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    90
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    91
! !
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    92
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    93
!ClassItemRootForRevision class methodsFor:'documentation'!
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    94
4dd07aefaf20 initial checkin
ps
parents:
diff changeset
    95
version
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    96
    ^ '$Header: /cvs/stx/stx/libtool/ClassItemRootForRevision.st,v 1.3 2000/02/18 14:09:10 cg Exp $'
12650
e0f607754b9a Merged 18d06283743d and ff31bac2fd1b (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
    97
!
e0f607754b9a Merged 18d06283743d and ff31bac2fd1b (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
    98
e0f607754b9a Merged 18d06283743d and ff31bac2fd1b (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
    99
version_HG
e0f607754b9a Merged 18d06283743d and ff31bac2fd1b (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   100
e0f607754b9a Merged 18d06283743d and ff31bac2fd1b (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   101
    ^ '$Changeset: <not expanded> $'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   102
! !
12650
e0f607754b9a Merged 18d06283743d and ff31bac2fd1b (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   103