DiffCodeView.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 19 Jul 2017 09:42:32 +0200
branchjv
changeset 17619 edb119820fcb
parent 12680 4e2f5b0d4cb2
permissions -rw-r--r--
Issue #154: Set window style using `#beToolWindow` to indicate that the minirunner window is kind of support tool rather than some X11 specific code (which does not work on Windows of course) See https://swing.fit.cvut.cz/projects/stx-jv/ticket/154
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