DiffCodeView.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Jun 2018 22:19:39 +0100
branchjv
changeset 18227 d25a407ba86d
parent 12680 4e2f5b0d4cb2
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:
8094
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2008 by eXept Software AG
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
              All Rights Reserved
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
DiffTextView subclass:#DiffCodeView
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
	instanceVariableNames:''
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	classVariableNames:''
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	poolDictionaries:''
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	category:'Views-Text'
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!DiffCodeView class methodsFor:'documentation'!
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
copyright
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
"
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
 COPYRIGHT (c) 2008 by eXept Software AG
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
              All Rights Reserved
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
 This software is furnished under a license and may be used
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
 only in accordance with the terms of that license and with the
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 be provided or otherwise made available to, or used by, any
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 other person.  No title to or ownership of the software is
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 hereby transferred.
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
"
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
!
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
documentation
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
"
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
    a view which presents two CodeViews for diffing.
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
    Like a regular diffTextView, but the codeViews show a code-aware popUpMenu.
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
    [see also:]
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
        TwoColumnTextView DiffTextView
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    [author:]
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
        Claus Gittinger
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
"
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
! !
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
12680
4e2f5b0d4cb2 Merged 7dffb3cbf7c4 and f2c1f0fd05fb (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12431 12664
diff changeset
    50
8094
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
!DiffCodeView class methodsFor:'defaults'!
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
textViewClass
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    "return the type of the synced subViews.
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
     Redefined to use a CodeView"
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
    ^ CodeView
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
! !
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
12680
4e2f5b0d4cb2 Merged 7dffb3cbf7c4 and f2c1f0fd05fb (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12431 12664
diff changeset
    60
12664
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    61
!DiffCodeView methodsFor:'initialization'!
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    62
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    63
initialize
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    64
    super initialize.
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    65
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    66
    textViews doWithIndex:[:v :i |
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    67
        v readOnly:true.
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    68
        "/ v acceptAction:[:text | self acceptInView:i ]
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    69
    ].
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    70
!
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    71
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    72
leftAcceptAction:aOneArgBlock
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    73
    (textViews at:1) acceptAction:aOneArgBlock
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    74
!
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    75
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    76
rightAcceptAction:aOneArgBlock
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    77
    (textViews at:2) acceptAction:aOneArgBlock
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    78
! !
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    79
12680
4e2f5b0d4cb2 Merged 7dffb3cbf7c4 and f2c1f0fd05fb (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12431 12664
diff changeset
    80
8094
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
!DiffCodeView class methodsFor:'documentation'!
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
version
12664
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    84
    ^ '$Header: /cvs/stx/stx/libtool/DiffCodeView.st,v 1.2 2013-04-14 18:10:35 cg Exp $'
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
    85
!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
    86
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    87
version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    88
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    89
    ^ '$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
    90
!
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
    91
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
    92
version_SVN
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
    93
    ^ '$Id: DiffCodeView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
8094
52d72e2970f5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
! !
12664
4369fcf7e557 class: DiffCodeView
Claus Gittinger <cg@exept.de>
parents: 8094
diff changeset
    95