ExpandableRevisionItem.st
author Claus Gittinger <cg@exept.de>
Mon, 14 Feb 2011 18:16:30 +0100
changeset 9774 5bde45b1c359
parent 2626 4ee750caddab
child 12123 4bde08cebd48
child 17281 171a655831a6
permissions -rw-r--r--
automatically generated by browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2626
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
     1
"
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
     2
 COPYRIGHT (c) 2000 by eXept Software AG
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
     3
              All Rights Reserved
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
     4
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
     5
 This software is furnished under a license and may be used
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
     6
 only in accordance with the terms of that license and with the
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
     8
 be provided or otherwise made available to, or used by, any
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
     9
 other person.  No title to or ownership of the software is
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    10
 hereby transferred.
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    11
"
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    12
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    13
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    14
2537
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    15
AbstractRevisionItem subclass:#ExpandableRevisionItem
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    16
	instanceVariableNames:''
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    17
	classVariableNames:''
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    18
	poolDictionaries:''
2547
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    19
	category:'Interface-Browsers-Support'
2537
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    20
!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    21
2547
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    22
!ExpandableRevisionItem class methodsFor:'documentation'!
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    23
2626
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    24
copyright
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    25
"
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    26
 COPYRIGHT (c) 2000 by eXept Software AG
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    27
              All Rights Reserved
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    28
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    29
 This software is furnished under a license and may be used
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    30
 only in accordance with the terms of that license and with the
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    32
 be provided or otherwise made available to, or used by, any
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    33
 other person.  No title to or ownership of the software is
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    34
 hereby transferred.
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    35
"
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    36
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    37
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    38
!
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
    39
2547
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    40
documentation
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    41
"
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    42
    documentation to be added.
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    43
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    44
    [author:]
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    45
        Pierre Schwarz (ps@exept.de)
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    46
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    47
    [see also:]
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    48
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    49
    [instance variables:]
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    50
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    51
    [class variables:]
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    52
"
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    53
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2545
diff changeset
    54
! !
2537
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    55
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    56
!ExpandableRevisionItem methodsFor:'accessing'!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    57
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    58
icon
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    59
2545
a99be3f7193e *** empty log message ***
ps
parents: 2537
diff changeset
    60
    ^nil
2537
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    61
!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    62
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    63
revisionString
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    64
    "return the value of the instance variable 'revision' (automatically generated)"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    65
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    66
    ^ 'more revisions ...'
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    67
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    68
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    69
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    70
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    71
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    72
! !
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    73
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    74
!ExpandableRevisionItem methodsFor:'actions'!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    75
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    76
recursiveToggleExpand
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    77
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    78
    self parent addAllRevisionsBefore:self
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    79
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    80
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    81
!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    82
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    83
toggleExpand
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    84
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    85
    self parent addNewRevisionsBefore:self
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    86
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    87
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    88
! !
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    89
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    90
!ExpandableRevisionItem methodsFor:'testing'!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    91
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    92
isExpandableRevisionItem
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    93
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    94
the receiver is a expandable revision item. Used for testing tree items.
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    95
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    96
<return: Boolean>
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    97
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    98
    ^true
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    99
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   100
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   101
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   102
! !
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   103
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   104
!ExpandableRevisionItem class methodsFor:'documentation'!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   105
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   106
version
2626
Claus Gittinger <cg@exept.de>
parents: 2612
diff changeset
   107
    ^ '$Header: /cvs/stx/stx/libtool/ExpandableRevisionItem.st,v 1.5 2000-02-18 14:08:35 cg Exp $'
2537
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   108
! !