AbstractVersionDiffBrowserItem.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Jun 2018 22:19:39 +0100
branchjv
changeset 18227 d25a407ba86d
parent 15950 23be8cf85415
permissions -rw-r--r--
Mini testrunner: show "green" if there's at least one pass and rest is pass or skip This is more meaningfull result then showing "gray" if there's at least one skip.
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
"
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
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: 12431
diff changeset
    14
"{ NameSpace: Smalltalk }"
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12431
diff changeset
    15
2537
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    16
HierarchicalItem subclass:#AbstractVersionDiffBrowserItem
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    17
	instanceVariableNames:''
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    18
	classVariableNames:''
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    19
	poolDictionaries:''
2547
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    20
	category:'Interface-Browsers-Support'
2537
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    21
!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    22
2547
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    23
!AbstractVersionDiffBrowserItem class methodsFor:'documentation'!
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
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
2547
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    41
documentation
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    42
"
2625
d70f0361a027 doc; halts removed
Claus Gittinger <cg@exept.de>
parents: 2611
diff changeset
    43
    This is not yet finished (work in progress) - do not use.
2547
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    44
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    45
    [author:]
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    46
        Pierre Schwarz (ps@exept.de)
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    47
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    48
    [see also:]
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    49
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    50
    [instance variables:]
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    51
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    52
    [class variables:]
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    53
"
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    54
49e7cb306cd5 category change
Claus Gittinger <cg@exept.de>
parents: 2537
diff changeset
    55
! !
2537
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    56
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    57
!AbstractVersionDiffBrowserItem methodsFor:'protocol'!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    58
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    59
children
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    60
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    61
default childrens of the receiver are none. 
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    62
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    63
<return: Array>
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    64
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    65
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    66
    children isNil ifTrue:[
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    67
        children := #()
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    68
    ].
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    69
    ^ children
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
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    75
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    76
!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    77
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    78
icon
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    79
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    80
use the default icon for the receiver. 
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    81
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    82
<return: nil>
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    83
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    84
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    85
   ^ nil
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
label
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    91
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    92
no label for the receiver. 
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    93
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    94
<return: nil>
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    95
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    96
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    97
    ^ nil
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    98
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
    99
!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   100
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   101
middleButtonMenu
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   102
"returns the middleButtonMenu or nil if no menu is defined
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   103
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   104
<return: nil>
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   105
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   106
    ^ nil
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   107
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   108
! !
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   109
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   110
!AbstractVersionDiffBrowserItem methodsFor:'testing'!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   111
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   112
isClassItem
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   113
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   114
Used for testing tree items. Define correct behaviour in subclasses
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   115
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   116
<return: Boolean>
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   117
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   118
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   119
    ^false
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   120
!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   121
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   122
isExpandableRevisionItem
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   123
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   124
the receiver is a expandable revision item. Used for testing tree items.
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   125
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   126
<return: Boolean>
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   127
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   128
    ^false
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   129
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   130
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   131
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   132
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   133
!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   134
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   135
isRevisionItem
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   136
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   137
Used for testing tree items. Define correct behaviour in subclasses
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   138
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   139
<return: Boolean>
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   140
"
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   141
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   142
    ^false
2611
143fe4202159 checkin from browser
ps
parents: 2547
diff changeset
   143
!
143fe4202159 checkin from browser
ps
parents: 2547
diff changeset
   144
143fe4202159 checkin from browser
ps
parents: 2547
diff changeset
   145
isSourceRevisionItem
143fe4202159 checkin from browser
ps
parents: 2547
diff changeset
   146
"
143fe4202159 checkin from browser
ps
parents: 2547
diff changeset
   147
Used for testing tree items. Define correct behaviour in subclasses
143fe4202159 checkin from browser
ps
parents: 2547
diff changeset
   148
143fe4202159 checkin from browser
ps
parents: 2547
diff changeset
   149
<return: Boolean>
143fe4202159 checkin from browser
ps
parents: 2547
diff changeset
   150
"
143fe4202159 checkin from browser
ps
parents: 2547
diff changeset
   151
143fe4202159 checkin from browser
ps
parents: 2547
diff changeset
   152
    ^false
2537
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   153
! !
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   154
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   155
!AbstractVersionDiffBrowserItem class methodsFor:'documentation'!
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   156
13c0cdca9c7a initial checkin
ps
parents:
diff changeset
   157
version
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   158
    ^ '$Id: AbstractVersionDiffBrowserItem.st 7854 2012-01-30 17:49:41Z vranyj1 $'
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   159
!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   160
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   161
version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   162
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   163
    ^ '$Changeset: <not expanded> $'
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   164
!
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   165
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   166
version_SVN
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   167
    ^ '$Id: AbstractVersionDiffBrowserItem.st 7854 2012-01-30 17:49:41Z vranyj1 $'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   168
! !
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   169