Tools__SmalltalkMergeTool.st
author Claus Gittinger <cg@exept.de>
Wed, 05 Jun 2019 14:16:59 +0200
changeset 18805 f6df57c6dbfb
parent 13834 25c7fe104a94
child 15566 184cea584be5
permissions -rw-r--r--
#BUGFIX by cg class: AbstractFileBrowser changed: #currentFileNameHolder endless loop if file not present.
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!