Tools__SmalltalkMergeTool.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Jun 2018 22:19:39 +0100
branchjv
changeset 18227 d25a407ba86d
parent 15566 184cea584be5
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:
13834
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
     1
"
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
     3
              All Rights Reserved
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
     4
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
     5
 This software is furnished under a license and may be used
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
     6
 only in accordance with the terms of that license and with the
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
     8
 be provided or otherwise made available to, or used by, any
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
     9
 other person.  No title to or ownership of the software is
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    10
 hereby transferred.
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    11
"
10019
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: Tools }"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
SmalltalkDiffTool subclass:#SmalltalkMergeTool
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:'resolvedHolder changeSetHolder'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Interface-Diff & Merge tool'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
SmalltalkDiffTool::DiffItem subclass:#DiffItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
	instanceVariableNames:'versionMerged state'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
	classVariableNames:''
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	poolDictionaries:''
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	privateIn:SmalltalkMergeTool
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
!SmalltalkMergeTool class methodsFor:'documentation'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
13834
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    32
copyright
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    33
"
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    34
 COPYRIGHT (c) 2006 by eXept Software AG
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    35
              All Rights Reserved
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    36
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    37
 This software is furnished under a license and may be used
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    38
 only in accordance with the terms of that license and with the
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    39
 inclusion of the above copyright notice.   This software may not
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    40
 be provided or otherwise made available to, or used by, any
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    41
 other person.  No title to or ownership of the software is
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    42
 hereby transferred.
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    43
"
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    44
!
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
    45
10019
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
documentation
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
    documentation to be added.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
    [author:]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
        Jan Vrany (janfrog@bruxa)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    [instance variables:]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    [class variables:]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
    [see also:]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
examples
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
  Starting the application:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
                                                                [exBegin]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
    MergeTool open
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
                                                                [exEnd]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
  more examples to be added:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
                                                                [exBegin]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
    ... add code fragment for 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
    ... executable example here ...
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
                                                                [exEnd]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
history
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
    "Created: / 06-12-2007 / 11:00:54 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
!SmalltalkMergeTool class methodsFor:'initialization'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
initialize
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
    "self initialize"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
    |menuItem|
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
    menuItem := (MenuItem label:'Merge tool') 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
                    nameKey:'MergeTool';
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
                    value:[SmalltalkMergeTool open];
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
                    isButton:false.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
    NewLauncher
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
        addMenuItem:menuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
        from:self
10113
7320bb4f033d changed: #initialize
Claus Gittinger <cg@exept.de>
parents: 10019
diff changeset
    98
        in:'menu.tools.programming'
10019
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
        position:#(before startSmaCCParserGenerator)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
        space:false.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
    "Created: / 11-12-2007 / 19:12:08 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
    "Modified: / 09-08-2009 / 14:15:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
10113
7320bb4f033d changed: #initialize
Claus Gittinger <cg@exept.de>
parents: 10019
diff changeset
   104
    "Modified (format): / 03-07-2011 / 22:30:30 / cg"
10019
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
!SmalltalkMergeTool class methodsFor:'interface specs'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
conflictsListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
    "This resource specification was automatically generated
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
     by the UIPainter of ST/X."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
    "Do not manually edit this!! If it is corrupted,
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
     the UIPainter may not be able to read the specification."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
     UIPainter new openOnClass:MergeTool andSelector:#conflictsListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
     MergeTool new openInterface:#conflictsListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
    <resource: #canvas>
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
    ^ 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
     #(FullSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
        name: conflictsListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
        window: 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
       (WindowSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
          label: 'VersionBothListSpec'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
          name: 'VersionBothListSpec'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
          min: (Point 10 10)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
          bounds: (Rectangle 0 0 306 406)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
        )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
        component: 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
       (SpecCollection
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
          collection: (
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
           (LabelSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
              label: 'Conflicts (present in both A and B)'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
              name: 'VersionBothLabel'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
              layout: (LayoutFrame 0 0 0 0 0 1 30 0)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
              translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
              labelChannel: conflictsLabelHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
            )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
           (SelectionInListModelViewSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
              name: 'VersionBothList'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
              layout: (LayoutFrame 0 0 30 0 0 1 0 1)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
              model: selectionHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
              menu: resolveMenu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
              hasHorizontalScrollBar: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
              hasVerticalScrollBar: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
              listModel: conflictsListHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
              multipleSelectOk: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
              useIndex: false
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
              highlightMode: line
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
            )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
           )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
         
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
        )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
      )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
    "Modified: / 11-12-2007 / 16:46:23 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
    "Created: / 19-04-2008 / 12:58:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
inAOnlyListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
    "This resource specification was automatically generated
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
     by the UIPainter of ST/X."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
    "Do not manually edit this!! If it is corrupted,
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
     the UIPainter may not be able to read the specification."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
     UIPainter new openOnClass:MergeTool andSelector:#inAOnlyListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
     MergeTool new openInterface:#inAOnlyListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   176
    <resource: #canvas>
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   177
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
    ^ 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   179
     #(FullSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   180
        name: inAOnlyListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
        window: 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
       (WindowSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
          label: 'VersionAOnlyListSpec'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
          name: 'VersionAOnlyListSpec'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   185
          min: (Point 10 10)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
          bounds: (Rectangle 0 0 306 406)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   187
        )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   188
        component: 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   189
       (SpecCollection
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   190
          collection: (
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   191
           (LabelSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   192
              label: 'In A only'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   193
              name: 'VersionAOnlyLabel'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   194
              layout: (LayoutFrame 0 0 0 0 0 1 30 0)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
              translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
              labelChannel: inAOnlyLabelHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
            )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   198
           (SelectionInListModelViewSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   199
              name: 'VersionAOnlyList'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
              layout: (LayoutFrame 0 0 30 0 0 1 0 1)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   201
              model: selectionHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   202
              menu: resolveMenu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   203
              hasHorizontalScrollBar: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   204
              hasVerticalScrollBar: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   205
              listModel: inAOnlyListHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   206
              multipleSelectOk: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   207
              useIndex: false
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
              highlightMode: line
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
              postBuildCallback: postBuildVersionAListWidget:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
            )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
           )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
         
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
        )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
      )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
    "Modified: / 11-12-2007 / 16:46:29 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
    "Created: / 19-04-2008 / 12:58:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   219
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   220
inBOnlyListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
    "This resource specification was automatically generated
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
     by the UIPainter of ST/X."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
    "Do not manually edit this!! If it is corrupted,
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
     the UIPainter may not be able to read the specification."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
     UIPainter new openOnClass:MergeTool andSelector:#inBOnlyListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
     MergeTool new openInterface:#inBOnlyListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
    <resource: #canvas>
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
    ^ 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
     #(FullSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
        name: inBOnlyListSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
        window: 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
       (WindowSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
          label: 'VersionBOnlyListSpec'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
          name: 'VersionBOnlyListSpec'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
          min: (Point 10 10)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
          bounds: (Rectangle 0 0 306 406)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
        )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
        component: 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
       (SpecCollection
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
          collection: (
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
           (LabelSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
              label: 'In B only'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
              name: 'VersionBOnlyLabel'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
              layout: (LayoutFrame 0 0 0 0 0 1 30 0)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
              translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
              labelChannel: inBOnlyLabelHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
            )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
           (SelectionInListModelViewSpec
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
              name: 'VersionBOnlyList'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
              layout: (LayoutFrame 0 0 30 0 0 1 0 1)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
              model: selectionHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
              menu: resolveMenu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
              hasHorizontalScrollBar: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
              hasVerticalScrollBar: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
              listModel: inBOnlyListHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
              multipleSelectOk: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
              postBuildCallback: postBuildVersionBListWidget:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
              useIndex: false
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
              highlightMode: line
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
            )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
           )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
         
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
        )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
      )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   272
    "Modified: / 11-12-2007 / 16:46:33 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
    "Created: / 19-04-2008 / 12:58:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
!SmalltalkMergeTool class methodsFor:'menu specs'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
mainMenu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
    "This resource specification was automatically generated
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
     by the MenuEditor of ST/X."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
    "Do not manually edit this!! If it is corrupted,
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
     the MenuEditor may not be able to read the specification."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
     MenuEditor new openOnClass:Tools::MergeTool andSelector:#mainMenu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   287
     (Menu new fromLiteralArrayEncoding:(Tools::MergeTool mainMenu)) startUp
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
    <resource: #menu>
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
    ^ 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
     #(Menu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
        (
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
         (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
            label: 'File'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   297
            translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
            submenu: 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
           (Menu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
              (
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
               (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
                  label: 'Open file'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
                  itemValue: fileMenuMergeFileIntoImage
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
                  translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
                )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
               (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
                  label: '-'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
                )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
               (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
                  label: 'Apply resolved'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
                  itemValue: fileMenuApplyResolved
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
                  translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
                )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
               (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
                  label: '-'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
                )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
               (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
                  label: 'Exit'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   319
                  itemValue: closeRequest
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
                  translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
                )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   322
               )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
              nil
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
              nil
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
            )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
          )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
         (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
            label: 'Resolve'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
            translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
            submenuChannel: resolveMenu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
          )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
         (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
            label: 'Help'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
            translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
            startGroup: right
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
            submenu: 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   337
           (Menu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
              (
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
               (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   340
                  label: 'About this Application...'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
                  itemValue: openAboutThisApplication
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
                  translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   343
                )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   344
               )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   345
              nil
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
              nil
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
            )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   348
          )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   349
         )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
        nil
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
        nil
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
      )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
    "Modified: / 08-11-2008 / 11:09:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
resolveMenu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
    "This resource specification was automatically generated
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
     by the MenuEditor of ST/X."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   361
    "Do not manually edit this!! If it is corrupted,
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   362
     the MenuEditor may not be able to read the specification."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
     MenuEditor new openOnClass:Tools::MergeTool andSelector:#resolveMenu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
     (Menu new fromLiteralArrayEncoding:(Tools::MergeTool resolveMenu)) startUp
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
    <resource: #menu>
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
    ^ 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
     #(Menu
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   373
        (
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
         (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
            enabled: selectionIsNonEmptyAndAllHasVersionA
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   376
            label: 'Resolve using version A <-'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
            itemValue: resolveMenuResolveUsingA
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
            translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
          )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
         (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
            enabled: selectionIsNonEmptyAndAllHasVersionB
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
            label: 'Resolve using version B ->'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
            itemValue: resolveMenuResolveUsingB
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
            translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
          )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
         (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
            enabled: selectionIsNonEmpty
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
            label: 'Delete'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
            itemValue: resolveMenuDelete
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
            translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
          )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
         (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
            enabled: selectionIsNonEmpty
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
            label: 'Unresolve'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
            itemValue: resolveMenuUnresolve
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
            translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
          )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
         (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
            label: '-'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
          )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
         (MenuItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
            enabled: false
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
            label: 'Show changeset'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   404
            translateLabel: true
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
            indication: showMergingChangeSetHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
          )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
         )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
        nil
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
        nil
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
      )
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
    "Modified: / 08-11-2008 / 11:06:43 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   414
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   415
!SmalltalkMergeTool class methodsFor:'plugIn spec'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   416
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   417
aspectSelectors
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   418
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   419
    ^super aspectSelectors,
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   420
    #(
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
        #resolvedHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
        #changeSetHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   424
      ).
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
    "Created: / 02-04-2009 / 22:04:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   427
    "Modified: / 09-04-2009 / 09:21:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   428
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   429
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   430
!SmalltalkMergeTool methodsFor:'accessing'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   431
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
diffItemClass
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
    ^SmalltalkMergeTool::DiffItem
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
    "Created: / 21-05-2008 / 14:39:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
    "Modified: / 09-08-2009 / 14:57:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
!SmalltalkMergeTool methodsFor:'aspects'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
changeSetHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
    "return/create the 'changeSetHolder' value holder (automatically generated)"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
    changeSetHolder isNil ifTrue:[
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
        changeSetHolder := ValueHolder new.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
    ].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
    ^ changeSetHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
changeSetHolder:aValueHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
    "set the 'changeSetHolder' value holder (automatically generated)"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
    changeSetHolder := aValueHolder.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
resolvedHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
    resolvedHolder ifNil:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
        [resolvedHolder := false asValue].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
    ^resolvedHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
    "Created: / 02-04-2009 / 21:53:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
selectionHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
    selectionHolder ifNil:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
        [selectionHolder := List new asValue.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
        selectionHolder 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
            onChangeSend:#selectionChanged to: self].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
    ^selectionHolder
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
    "Created: / 21-05-2008 / 19:30:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
!SmalltalkMergeTool methodsFor:'change & update'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
resolutionChanged
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
    super resolutionChanged.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
    self resolvedHolder value: self resolved.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
    self changeSetHolder value: self changeSet.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
    "Created: / 22-10-2008 / 10:50:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
    "Modified: / 02-04-2009 / 22:04:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   489
!SmalltalkMergeTool methodsFor:'menu actions'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   490
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   491
fileMenuApplyResolved
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
    (Dialog confirm:'Really apply resolved?') ifFalse:[
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   493
        ^ self
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
    ].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   495
    self inAOnlyListHolder 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   496
        value:(self inAOnlyListHolder value reject:[:e | e isResolved ]).
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   497
    self conflictsListHolder 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   498
        value:(self conflictsListHolder value reject:[:e | e isResolved ]).
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   499
    self inBOnlyListHolder 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
        value:(self inBOnlyListHolder value reject:[:e | e isResolved ]).
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
    self fileMenuApplyResolved:self changeSetToApply
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   502
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
    "Modified: / 12-12-2007 / 08:37:21 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
    "Created: / 08-11-2008 / 11:08:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
fileMenuApplyResolved:aChangeSet 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   508
    (Class updateChangeFileQuerySignal , Class updateChangeListQuerySignal) 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
        answer:false
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
        do:[ aChangeSet apply ]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
    "Modified: / 12-12-2007 / 08:36:04 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   513
    "Created: / 08-11-2008 / 11:08:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
fileMenuMergeFileIntoImage
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   517
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
    |filename|
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   519
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   520
    filename := Dialog requestFileName:'Enter fileout or change file' pattern:'*.st;*.cha'.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   521
    filename isNilOrEmptyCollection ifTrue:[^self].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
    filename := filename asFilename.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
    filename isRegularFile ifFalse:[^Dialog warn:'Selected file is not a regular file'].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
    filename isReadable ifFalse:[^Dialog warn:'Selected file is not readable'].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
    [
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
        self 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
            diffSet: (ChangeSet fromFile: filename) diffSetsAgainstImage            labelA: filename components last
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
            labelB: 'image'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
    ] on: Error do:[:ex|
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   531
        Dialog warn: 'Error when reading changeset: ', ex description.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
        ex pass
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
    ]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   535
    "Created: / 11-12-2007 / 16:59:04 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
    "Modified: / 12-12-2007 / 15:12:01 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
resolveMenuDelete
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
    self selection do:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
        [:mergeItem|mergeItem delete].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
    self resolutionChanged
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
    "Modified: / 11-12-2007 / 16:54:51 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
resolveMenuResolveUsingA
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
    self selection do:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
        [:mergeItem|mergeItem resolveUsingA].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
    self resolutionChanged
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
    "Modified: / 11-12-2007 / 16:54:56 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
resolveMenuResolveUsingB
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
    self selection do:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
        [:mergeItem|mergeItem resolveUsingB].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
    self resolutionChanged
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
    "Modified: / 11-12-2007 / 16:55:01 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
resolveMenuUnresolve
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
    self selection do:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
        [:mergeItem|mergeItem unresolve].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
    self resolutionChanged
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
    "Modified: / 11-12-2007 / 16:55:05 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
!SmalltalkMergeTool methodsFor:'private'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
changeSet
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
    ^ChangeSet withAll:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
        ((self inAOnlyListHolder value , self conflictsListHolder value, self inBOnlyListHolder value)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
            select:[:e|e isResolved] thenCollect:[:e|e versionMerged])
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
    "Created: / 02-04-2009 / 22:03:25 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
resolved
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
    ^ (self inAOnlyListHolder value allSatisfy:[:e | e isResolved ]) 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
        and:[
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
            (self conflictsListHolder value allSatisfy:[:e | e isResolved ]) 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
                and:[ (self inBOnlyListHolder value allSatisfy:[:e | e isResolved ]) ]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
        ]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
    "Created: / 21-10-2008 / 09:51:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
!SmalltalkMergeTool::DiffItem class methodsFor:'documentation'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
version
13834
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
   599
    ^'$Header: /cvs/stx/stx/libtool/Tools__SmalltalkMergeTool.st,v 1.3 2014-02-05 18:58:07 cg Exp $'
10019
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
!SmalltalkMergeTool::DiffItem class methodsFor:'image specs'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
resolvedAsRemoveIcon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
    "This resource specification was automatically generated
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
     by the ImageEditor of ST/X."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
    "Do not manually edit this!! If it is corrupted,
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
     the ImageEditor may not be able to read the specification."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   610
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
     self resolvedAsRemoveIcon inspect
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
     ImageEditor openOnClass:self andSelector:#resolvedAsRemoveIcon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
     Icon flushCachedIcons
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
    <resource: #image>
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
    ^Icon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
        constantNamed:'Tools::MergeTool::DiffItem class resolvedAsRemoveIcon'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@T@AP@EPAT@@UAT@@AUT@@@ET@@@AU@@@AUT@@ATEP@AT@U@@T@AP@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 0 0 170 170 170 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
?????<@C6A/\N<931>OC0<OC1>ON\=0;6A/@@?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   623
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
    "Created: / 08-11-2008 / 10:58:51 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
resolvedAsVersionAIcon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
    <resource: #image>
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   631
    "This resource specification was automatically generated
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
     by the ImageEditor of ST/X."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   633
    "Do not manually edit this!! If it is corrupted,
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
     the ImageEditor may not be able to read the specification."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
     self resolvedUsingVersionAIcon inspect
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
     ImageEditor openOnClass:self andSelector:#resolvedUsingVersionAIcon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
     Icon flushCachedIcons"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
    
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
    ^ Icon 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   641
        constantNamed:'Tools::MergeTool::DiffItem class resolvedUsingVersionAIcon'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
        ifAbsentPut:[
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
            (Depth2Image new)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
                width:16;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
                height:16;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
                photometric:(#palette);
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   647
                bitsPerSample:(#[ 2 ]);
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
                samplesPerPixel:((1));
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
                bits:(ByteArray 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
                            fromPackedString:'@@@@@@@@@@@EUUUPAUPUT@UTEU@ET@UPAU@ET@UAPU@EPTEPAPUPT@T@@E@D@@@PAAUTD@UUUU@@@@@@@@@@@@@a');
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
                colorMapFromArray:#[ 0 0 0 191 255 191 30 255 30 255 255 255 ];
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
                mask:((Depth1Image new)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
                            width:16;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
                            height:16;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
                            photometric:(#blackIs0);
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
                            bitsPerSample:(#[ 1 ]);
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
                            samplesPerPixel:((1));
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
                            bits:(ByteArray 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
                                        fromPackedString:'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
??????????????????????????????????????????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
                            yourself);
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
                yourself
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
        ]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
    "Created: / 08-11-2008 / 10:59:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
resolvedAsVersionBIcon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
    <resource: #image>
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
    "This resource specification was automatically generated
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
     by the ImageEditor of ST/X."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
    "Do not manually edit this!! If it is corrupted,
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
     the ImageEditor may not be able to read the specification."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
     self resolvedUsingVersionBIcon inspect
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
     ImageEditor openOnClass:self andSelector:#resolvedUsingVersionBIcon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
     Icon flushCachedIcons"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
    
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
    ^ Icon 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
        constantNamed:'Tools::MergeTool::DiffItem class resolvedUsingVersionBIcon'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
        ifAbsentPut:[
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
            (Depth2Image new)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   685
                width:16;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   686
                height:16;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   687
                photometric:(#palette);
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   688
                bitsPerSample:(#[ 2 ]);
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   689
                samplesPerPixel:((1));
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   690
                bits:(ByteArray 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   691
                            fromPackedString:'@@@@@@@@@@@EUUUPAT@ET@UAPU@EPTEPATEAT@U@AU@EP@UPATEAT@UAPU@EPTEPAT@ET@UUUU@@@@@@@@@@@@@a');
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   692
                colorMapFromArray:#[ 0 0 0 255 191 191 30 255 30 255 255 255 ];
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   693
                mask:((Depth1Image new)
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   694
                            width:16;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   695
                            height:16;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   696
                            photometric:(#blackIs0);
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   697
                            bitsPerSample:(#[ 1 ]);
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   698
                            samplesPerPixel:((1));
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   699
                            bits:(ByteArray 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   700
                                        fromPackedString:'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   701
??????????????????????????????????????????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   702
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   703
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   704
                            yourself);
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   705
                yourself
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   706
        ]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   707
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   708
    "Created: / 08-11-2008 / 10:59:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   709
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   710
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   711
unresolvedIcon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   712
    "This resource specification was automatically generated
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   713
     by the ImageEditor of ST/X."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
    "Do not manually edit this!! If it is corrupted,
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
     the ImageEditor may not be able to read the specification."
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   717
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   718
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   719
     self unresolvedIcon inspect
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   720
     ImageEditor openOnClass:self andSelector:#unresolvedIcon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   721
     Icon flushCachedIcons
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   722
    "
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   723
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   724
    <resource: #image>
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   725
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   726
    ^Icon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   727
        constantNamed:'Tools::MergeTool::DiffItem class unresolvedIcon'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   728
        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 84 84 84 170 170 170 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   729
?????<@C0@O@@<@C0@O@@<@C0@O@@<@C0@O@@?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   730
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   731
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   732
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   733
    "Created: / 08-11-2008 / 10:41:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   734
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   736
!SmalltalkMergeTool::DiffItem class methodsFor:'instance creation'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   737
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   738
versionA: changeA
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   739
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   740
    ^self new 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
        versionA: changeA;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
        versionMerged: changeA;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
        state: #merged
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
    "Created: / 21-05-2008 / 14:14:31 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   747
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   748
versionB: changeB
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
    ^self new 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   751
        versionB: changeB;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   752
        versionMerged: changeB;
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
        state: #merged
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   754
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   755
    "Created: / 21-05-2008 / 14:14:47 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   756
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   758
!SmalltalkMergeTool::DiffItem methodsFor:'accessing'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   759
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   760
icon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   761
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   762
    state = #unresolved ifTrue:[^self class unresolvedIcon].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   763
    state = #deleted ifTrue:[^self class resolvedAsRemoveIcon].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   764
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   765
    versionMerged = versionA ifTrue:[^self class resolvedAsVersionAIcon].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   766
    versionMerged = versionB ifTrue:[^self class resolvedAsVersionBIcon].
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   767
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   768
    ^self class unresolvedIcon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   769
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   770
    "Created: / 08-11-2008 / 10:59:37 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   771
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   772
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   773
state
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
    ^ state ? #unresolved
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   775
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
    "Modified: / 06-12-2007 / 20:55:20 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
    "Created: / 21-05-2008 / 11:52:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   780
state:aSymbol
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   782
    self 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
        assert:(#(unresolved deleted merged) includes: aSymbol).        
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   784
    state := aSymbol.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   786
    "Created: / 21-05-2008 / 11:52:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   787
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   788
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   789
version
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
    ^ versionMerged ? versionA ? versionB
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
    "Created: / 21-05-2008 / 11:52:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
versionMerged
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
    ^ versionMerged
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
    "Created: / 21-05-2008 / 11:52:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   799
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
versionMerged:aChange
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
    versionMerged := aChange.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
    "Created: / 21-05-2008 / 11:52:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
    "Modified: / 21-05-2008 / 13:42:09 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
versionMergedSource
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
    ^ versionMerged
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
        ifNil:[nil]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
        ifNotNil:[versionMerged source]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
    "Created: / 21-05-2008 / 11:52:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
!SmalltalkMergeTool::DiffItem methodsFor:'displaying'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
displayIconOn:aGC x:x y:y 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
    self icon
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
            displayOn:aGC
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
            x:x
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
            y:y - 14
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
    "Created: / 21-05-2008 / 11:54:47 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
    "Modified: / 08-11-2008 / 11:03:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
displayOn: aGC x:x y:y
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
    self displayIconOn: aGC x:x y:y.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
    self displayChangeOn: aGC x:x + 18 y:y.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
    "Created: / 21-05-2008 / 11:55:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
!SmalltalkMergeTool::DiffItem methodsFor:'resolution'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
apply
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
    ^self versionMerged apply
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
    "Modified: / 11-12-2007 / 18:58:37 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
    "Created: / 21-05-2008 / 11:53:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
delete
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
    self state: #deleted.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   850
    self isMethodChange ifTrue:
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   851
        [versionMerged := MethodRemoveChange 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   852
                            class: self version changeClass
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
                            selector: self version changeSelector]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
    "Modified: / 11-12-2007 / 18:41:49 / janfrog"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   856
    "Created: / 21-05-2008 / 11:53:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   857
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   858
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
resolveUsingA
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
    self state: #merged.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
    versionMerged := versionA
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
    "Created: / 21-05-2008 / 11:53:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
resolveUsingB
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
    self state: #merged.
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
    versionMerged := versionB
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
    "Created: / 21-05-2008 / 11:53:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
unresolve
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
    self state: #unresolved
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
    "Created: / 21-05-2008 / 11:53:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
!SmalltalkMergeTool::DiffItem methodsFor:'testing'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   884
isMergedVersionDifferent
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
    ^versionMerged notNil 
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
        and:[versionMerged ~= versionA
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
            and:[versionMerged ~= versionB]]
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
    "Created: / 21-05-2008 / 11:53:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   892
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   893
isResolved
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   894
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
    ^self state ~= #unresolved
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   897
    "Created: / 21-05-2008 / 11:53:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   898
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   899
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   900
!SmalltalkMergeTool class methodsFor:'documentation'!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   901
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
version_CVS
13834
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
   903
    ^ '$Header: /cvs/stx/stx/libtool/Tools__SmalltalkMergeTool.st,v 1.3 2014-02-05 18:58:07 cg Exp $'
10019
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
!
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   906
version_SVN
13834
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
   907
    ^ '$Id: Tools__SmalltalkMergeTool.st,v 1.3 2014-02-05 18:58:07 cg Exp $'
10019
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
! !
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   909
13834
25c7fe104a94 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 10113
diff changeset
   910
10019
77d6241ffc40 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   911
SmalltalkMergeTool initialize!