Tools__ChangeSetBrowser2.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 30 Mar 2012 14:35:31 +0100
branchjv
changeset 12213 63694f12baba
parent 12211 67fdfbb74096
child 12214 4b7eedbab2a7
permissions -rw-r--r--
Improvements in ChangeSetBrowser2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
10065
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
     2
 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
     3
              All Rights Reserved
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
10065
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
     5
Permission is hereby granted, free of charge, to any person
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
     6
obtaining a copy of this software and associated documentation
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
     7
files (the 'Software'), to deal in the Software without
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
     8
restriction, including without limitation the rights to use,
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
     9
copy, modify, merge, publish, distribute, sublicense, and/or sell
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    10
copies of the Software, and to permit persons to whom the
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    11
Software is furnished to do so, subject to the following
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    12
conditions:
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    13
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    14
The above copyright notice and this permission notice shall be
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    15
included in all copies or substantial portions of the Software.
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    16
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    17
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    18
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    19
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    20
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    21
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    22
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    23
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    24
OTHER DEALINGS IN THE SOFTWARE.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
"{ Package: 'stx:libtool' }"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
"{ NameSpace: Tools }"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
ToolApplicationModel subclass:#ChangeSetBrowser2
11198
dc203c7f8560 added: #open
vrany
parents: 11196
diff changeset
    31
	instanceVariableNames:'changesetHolder titleHolder allowOpenHolder changesetFile
dc203c7f8560 added: #open
vrany
parents: 11196
diff changeset
    32
		navigatorChangesetHolder navigatorSpecHolder list1 list1Holder
dc203c7f8560 added: #open
vrany
parents: 11196
diff changeset
    33
		selection1Holder list2 list2Holder selection2Holder classHolder
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    34
		languageHolder codeAspectHolder showRemovedAspect showSameAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    35
		sourceView changeSourceHolder imageSourceHolder targetPackage
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
    36
		targetNamespace allowRemoveHolder allowAcceptHolder infoPanel
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
    37
		updateChangeFileHolder showFilterHolder'
11198
dc203c7f8560 added: #open
vrany
parents: 11196
diff changeset
    38
	classVariableNames:'ShowRemoved LastSelectionConditionString'
dc203c7f8560 added: #open
vrany
parents: 11196
diff changeset
    39
	poolDictionaries:''
dc203c7f8560 added: #open
vrany
parents: 11196
diff changeset
    40
	category:'Interface-Browsers-ChangeSet'
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    43
ApplicationModel subclass:#ChangeEditor
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    44
	instanceVariableNames:'changeHolder readonlyHolder showdiffHolder sourceChangeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    45
		sourceImageHolder'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    46
	classVariableNames:''
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    47
	poolDictionaries:''
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    48
	privateIn:ChangeSetBrowser2
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    49
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    50
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
!ChangeSetBrowser2 class methodsFor:'documentation'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
copyright
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
"
10065
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    55
 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    56
              All Rights Reserved
10065
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    57
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    58
Permission is hereby granted, free of charge, to any person
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    59
obtaining a copy of this software and associated documentation
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    60
files (the 'Software'), to deal in the Software without
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    61
restriction, including without limitation the rights to use,
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    62
copy, modify, merge, publish, distribute, sublicense, and/or sell
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    63
copies of the Software, and to permit persons to whom the
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    64
Software is furnished to do so, subject to the following
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    65
conditions:
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
10065
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    67
The above copyright notice and this permission notice shall be
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    68
included in all copies or substantial portions of the Software.
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    69
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    70
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    71
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    72
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    73
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    74
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    75
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    76
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
73d5a63bb6ec copyright
Claus Gittinger <cg@exept.de>
parents: 10028
diff changeset
    77
OTHER DEALINGS IN THE SOFTWARE.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
!ChangeSetBrowser2 class methodsFor:'instance creation'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
on: aChangeSet
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
    ^self on: aChangeSet label: aChangeSet name
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
    "Modified: / 26-10-2010 / 22:51:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
on: aChangeSet label: aString
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
    ^self on: aChangeSet label: aString setupWith: [:browser]
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
    "Created: / 26-10-2010 / 22:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
on: aChangeSet label: label setupWith: aBlock
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
    | browser |
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
    browser := self new.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
    browser
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   103
        changeset: aChangeSet;
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   104
        title: label.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
    aBlock value: browser.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
    ^browser
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
    "Created: / 26-10-2010 / 22:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
!ChangeSetBrowser2 class methodsFor:'accessing'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
showRemoved
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
    ^ShowRemoved == true
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
showRemoved: aBoolean
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
    ShowRemoved := aBoolean
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
!ChangeSetBrowser2 class methodsFor:'help specs'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   125
flyByHelpSpec
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
    "This resource specification was automatically generated
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
     by the UIHelpTool of ST/X."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
    "Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
     the UIHelpTool may not be able to read the specification."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
    "
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
   133
     UIHelpTool openOnClass:Tools::ChangeSetBrowser
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
    "
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
    <resource: #help>
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   138
    ^ super flyByHelpSpec addPairsFrom:#(
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
#fileLoad
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   141
'Select a file and show its contained changeset'
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
#fileSave
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   144
'Save the changeset in a file'
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
12211
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   146
#applyAll
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   147
'Apply all changes.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   148
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   149
#applyForClassToEnd
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   150
'Apply changes which affect this class to the end.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   151
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   152
#applyFromLastSnapshot
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   153
'Apply changes from the last snapshot to the end.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   154
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   155
#applyLine
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   156
'Apply the selected change.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   157
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   158
#applyToEnd
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   159
'Apply all changes from the selected one to the end.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   160
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   161
#deleteAll
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   162
'Deletes all changes.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   163
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   164
#deleteCompress
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   165
'Deletes all obsolete changes.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   166
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   167
#deleteCompressForClass
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   168
'Deletes obsolete changes for this class, leaving the last one.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   169
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   170
#deleteForClassToEnd
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   171
'Deletes changes for this class from the selection to the end.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   172
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   173
#deleteLine
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   174
'Deletes the selected change.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   175
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   176
#deleteToEnd
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   177
'Deletes changes from the selected one to the end.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   178
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   179
#fileLoad
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   180
'Opens a dialog for selecting and loading another changes file.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   181
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   182
#fileReload
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   183
'Reloads the changes file (undo your modifications).'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   184
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   185
#fileSave
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   186
'Saves the list of changes into the current changes file.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   187
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   188
#filterField
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   189
'Matching patterns filtering the changes (separate patterns by blanks).'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   190
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   191
#settingsAutoUpdate
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   192
'Toggle automatic update.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   193
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   194
#settingsColumns
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   195
'Configure which columns are shown in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   196
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   197
#settingsColumnsCategory
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   198
'Toggle display of the changes category in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   199
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   200
#settingsColumnsDeltaInfo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   201
'Toggle display of the delta-info in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   202
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   203
#settingsColumnsPosition
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   204
'Togle display of the changes file-position in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   205
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   206
#settingsColumnsTimeStamp
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   207
'Toggle display of the changes time stamp in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   208
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   209
#settingsColumnsType
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   210
'Toggle display of the change-type in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   211
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   212
#settingsPrivateAsSeparate
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   213
'Toggle if changes for private private are included when applying, deleting, or compressing for a class.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   214
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   215
#testCompareWithCurrentVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   216
'Opens a info dialog showing the difference between the changes code and the method current code.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   217
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   218
#testFindPreviousSnapshot
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   219
'Searches backward for the previous snapshot entry.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   220
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   221
#testFindNextSnapshot
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   222
'Searches forward for the next snapshot entry.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   223
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
)
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   225
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   226
    "Created: / 27-12-2011 / 10:37:47 / cg"
12211
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   227
    "Modified: / 29-03-2012 / 12:13:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   228
!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   229
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   230
helpSpec
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   231
    "This resource specification was automatically generated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   232
     by the UIHelpTool of ST/X."
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   233
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   234
    "Do not manually edit this!! If it is corrupted,
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   235
     the UIHelpTool may not be able to read the specification."
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   236
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   237
    "
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   238
     UIHelpTool openOnClass:NewChangesBrowser    
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   239
    "
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   240
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   241
    <resource: #help>
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   242
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   243
    ^ super helpSpec addPairsFrom:#(
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   244
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   245
#applyAll
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   246
'Apply all changes.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   247
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   248
#applyForClassToEnd
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   249
'Apply changes to the end which affect this class.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   250
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   251
#applyFromLastSnapshot
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   252
'Apply changes from the last snapshot to the end.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   253
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   254
#applyLine
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   255
'Apply the selected change.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   256
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   257
#applyToEnd
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   258
'Apply all changes from the selected one to the end.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   259
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   260
#deleteAll
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   261
'Deletes all changes.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   262
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   263
#deleteCompress
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   264
'Deletes all obsolete changes.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   265
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   266
#deleteCompressForClass
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   267
'Deletes obsolete changes for this class, leaving the last one.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   268
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   269
#deleteForClassToEnd
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   270
'Deletes changes for this class from the selection to the end.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   271
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   272
#deleteLine
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   273
'Deletes the selected change.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   274
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   275
#deleteToEnd
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   276
'Deletes changes from the selected one to the end.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   277
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   278
#fileLoad
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   279
'Opens a dialog for selecting and loading another changes file.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   280
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   281
#fileReload
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   282
'Reloads the changes file (undo your modifications).'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   283
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   284
#fileSave
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   285
'Saves the list of changes into the current changes file.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   286
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   287
#filterField
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   288
'Matching patterns filtering the changes (separate patterns by blanks).'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   289
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   290
#settingsAutoUpdate
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   291
'Toggle automatic update.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   292
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   293
#settingsColumns
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   294
'Configure which columns are shown in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   295
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   296
#settingsColumnsCategory
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   297
'Toggle display of the changes category in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   298
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   299
#settingsColumnsClassName
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   300
'Toggle display of the className in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   301
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   302
#settingsColumnsDeltaInfo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   303
'Toggle display of the delta-info in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   304
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   305
#settingsColumnsPosition
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   306
'Togle display of the changes file-position in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   307
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   308
#settingsColumnsTimeStamp
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   309
'Toggle display of the changes time stamp in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   310
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   311
#settingsColumnsType
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   312
'Toggle display of the change-type in the list.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   313
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   314
#settingsPrivateAsSeparate
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   315
'Toggle if changes for private private are included when applying, deleting, or compressing for a class.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   316
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   317
#testCompareWithCurrentVersion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   318
'Opens a info dialog showing the difference between the changes code and the method current code.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   319
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   320
#testFindLastSnapshot
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   321
'Searches backward for the previous snapshot entry.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   322
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   323
#testFindNextSnapshot
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   324
'Searches forward for the next snapshot entry.'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   325
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
   326
)
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
12207
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   329
!ChangeSetBrowser2 class methodsFor:'image specs'!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   330
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   331
applyFromLastSnapshotIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   332
    ^ self applyFromLastSnapshotIcon2
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   333
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   334
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   335
applyFromLastSnapshotIcon1
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   336
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   337
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   338
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   339
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   340
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   341
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   342
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   343
     self applyFromLastSnapshotIcon inspect
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   344
     ImageEditor openOnClass:self andSelector:#applyFromLastSnapshotIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   345
     Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   346
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   347
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   348
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   349
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   350
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   351
        constantNamed:#'NewChangesBrowser class applyFromLastSnapshotIcon'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   352
        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   353
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"H"H@@@@@@@@@H"H"H @@@@@@@@@@@@@B@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   354
@@;.;.; H@@@@@@@C.;.;.@@@@@@@@@@@@@@8@@N@@@@C?????C @@@N@@@O????<@@@8@@@@@@@@@C0@@@@8@@O????<O@@C @@@@?????0@@@@C @@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   355
@O@@@N@@@@DQDQDP<@C @@@@@_??DQ@@@@@@@@@A????D@@@@@@@@@DQDQDP@@@@C @@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?0@B@P@B@P@O?P@O?P@O?0@??@@??@@??LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   356
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   357
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   358
applyFromLastSnapshotIcon2
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   359
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   360
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   361
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   362
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   363
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   364
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   365
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   366
     self applyFromLastSnapshotIcon1 inspect
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   367
     ImageEditor openOnClass:self andSelector:#applyFromLastSnapshotIcon1
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   368
     Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   369
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   370
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   371
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   372
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   373
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   374
        constantNamed:#'NewChangesBrowser class applyFromLastSnapshotIcon1'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   375
        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   376
@@@BH@@@@@@QDQ<@@BH @@@@@AH"H@@@H"@@@@@@D"H H H"@@@@@@@RH"@"H"@@@@@@@AH"H@H"H@@@@@@@<@@@@BH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   377
@@;.;.; @@@@@@@@C.;.;.@@@@@@@@@@@@@@8@@N@@@@C?????C @@@N@@@O????<@@@8@@@@@@@@@C0@@@@8@@O????<O@@C @@@@?????0@@@@C @@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   378
@O@@@N@@@@DQDQDP<@C @@@@@_??DQ@@@@@@@@@A????D@@@@@@@@@DQDQDP@@@@C @@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A@C<C@C<C@C<&@C<<@C<\@C<H@@@@?<@@?<@@?<LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   379
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   380
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   381
applyIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   382
    ^ self applyIcon2
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   383
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   384
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   385
applyIcon1
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   386
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   387
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   388
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   389
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   390
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   391
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   392
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   393
     self applyIcon inspect
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   394
     ImageEditor openOnClass:self andSelector:#applyIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   395
     Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   396
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   397
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   398
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   399
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   400
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   401
        constantNamed:#'NewChangesBrowser class applyIcon'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   402
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   403
UUUUUUUPUUUUUU?PUUUUUU?[UUUUUW=PP@@@@C<QQUUU=_4PQUUU?_4VQ**U_?TPQUUUW?TPQUUUW=TXQ***U=TPQ**UUUTPQ*****TPQ***%UTPQ****)TP
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   404
QUUUUUTPQUUUUUTUP@@@@@@PUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   405
@@@@@@@8@@@8@@A0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   406
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   407
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   408
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   409
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   410
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   411
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   412
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   413
applyIcon2
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   414
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   415
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   416
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   417
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   418
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   419
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   420
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   421
     self applyIcon2 inspect
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   422
     ImageEditor openOnClass:self andSelector:#applyIcon2
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   423
     Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   424
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   425
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   426
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   427
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   428
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   429
        constantNamed:#'NewChangesBrowser class applyIcon2'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   430
        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   431
DQDQDQDQDQDQP3PQDQDQDQDQDQECMADQDQDQDQDQECMADQDQDQEDPQDTL4DP@@@@@DL4@DL4@Q@QDQDQP3MAP3PADADQDQDTL3P3PPDPD"H"HQECL3MA@Q@Q
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   432
DQDQDQP3MADADADQDQDQDTL4DPDPD"H"H"HQEDDQ@Q@RH"H!!DQDQDQDADAH"H"H"H"H"DPDPD"H"H"H!!DQDQ@Q@RH"H"H"H"HQDADADQDQDQDQDQDPDPDQDQ
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   433
DQDQDQDQ@Q@@@@@@@@@@@@@ADQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDb') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0 85 85 85]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   434
@@@<@@@<@@A8@C!!8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   435
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   436
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   437
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   438
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   439
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   440
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   441
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   442
applyToEndIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   443
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   444
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   445
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   446
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   447
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   448
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   449
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   450
     self applyToEndIcon inspect
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   451
     ImageEditor openOnClass:self andSelector:#applyToEndIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   452
     Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   453
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   454
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   455
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   456
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   457
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   458
        constantNamed:#'NewChangesBrowser class applyToEndIcon'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   459
        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   460
@@@DP@@@@@@@@@@@@DQ@@@@@@@@@@@@@QD@@@"H"H"@@Q@QD@@@BH"H"H@ADQD@@@@@@@@@ @@QDP@@BH"H"HB@@@DP@@@H"H"H @@@@@@@@@@@@@B@@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   461
@@L3L3L0H@@@@@@@@3L3L3@@@@@@@@@@@@@@L@@B@@@@@3L3L3@0@@@B@@@CL3L3L@@@H@@@@@@@@@@0@@@@H@@ADQDQDC@@@ @@@@DQDQDP@@@@@ @@@@@@
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   462
@A@@@B@@@@DQDQDPD@@ @@@@@SL3DQ@@@@@@@@@AL3L3D@@@@@@@@@DQDQDP@@@@@ @@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A@@@CC?0CC?0&C?0<O?0\O?0HO?0@??@@??@@??LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   463
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   464
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   465
compressIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   466
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   467
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   468
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   469
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   470
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   471
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   472
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   473
     ImageEditor openOnClass:self andSelector:#compressIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   474
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   475
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   476
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   477
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   478
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   479
	constantNamed:#'NewChangesBrowser compressIcon'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   480
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@????<@@@:***(@@@8@@@8@@@8@@@8@@@@@@@8@@@@@@@8A@@@@@@8@@:**0@8HC**+@@8@@@@@@@8H@@@@@@8@@@@@@@8@@@@@@@8@@@@@@@8@@C????8@@C****(@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 124 124 124 170 170 170 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@??0A??8A??8A??8A8A8G>A8@@A8G?98O?18_?!!8??A8@@A8G>A8@0A8C??8C??8C??8C??0@0@@D2@@G>@@D2@@') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   481
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   482
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   483
deleteIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   484
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   485
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   486
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   487
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   488
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   489
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   490
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   491
     ImageEditor openOnClass:self andSelector:#deleteIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   492
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   493
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   494
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   495
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   496
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   497
	constantNamed:#'NewChangesBrowser deleteIcon'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   498
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUU@@OA??UU@@@AUUUU@@@AUUUU@B@A???U@H@A??5U@@@A???0@@@AUUUB@B@@@@@@@@@@@@@A@BK@@@@A_:@@@@@AO2G@@@@AL2@@@@@AL2C@@@@AL2@@@@@AL2@@@@@AL2H@@@@AL2@@@@@A\:@@@@@H_8 @@@@@@@H') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?<@_?<@_?<P_?<P_?<X_?<X_?<H_? H_?O<_?XL@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@G0') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   499
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   500
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   501
deleteToEndIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   502
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   503
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   504
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   505
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   506
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   507
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   508
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   509
     ImageEditor openOnClass:self andSelector:#deleteToEndIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   510
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   511
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   512
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   513
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   514
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   515
	constantNamed:#'NewChangesBrowser deleteToEndIcon'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   516
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@B** @@O@B** @@@@@@@ @@@@??< @B@@??<@@H@@@@L@@@@EUUL@@@@G?U@B@B@G?=@@@@@EUU@A@BK@@@@A_:@@@@@AO2G@@@@AL2@@@@@AL2C@@@@AL2@@@@@AL2@@@@@AL2H@@@@AL2@@@@@A\:@@@@@H_8 @@@@@@@H') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C?0@C?0@C?0PO?0PO?0XO?0X??@H??@H??O<?<XL?<_<?<_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@G0') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   517
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   518
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   519
findLastSnapshotIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   520
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   521
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   522
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   523
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   524
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   525
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   526
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   527
     ImageEditor openOnClass:self andSelector:#findLastSnapshotIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   528
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   529
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   530
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   531
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   532
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   533
	constantNamed:#'NewChangesBrowser findLastSnapshotIcon'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   534
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@EUUUW@A@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@A@F***(@M@F***(@H@F***(@@@F***(@@@F***(@I@L@@@@@@@@@@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??B@@@B@C@B@G B@O0@@_8@@G @@G @@G @') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   535
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   536
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   537
findNextSnapshotIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   538
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   539
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   540
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   541
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   542
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   543
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   544
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   545
     ImageEditor openOnClass:self andSelector:#findNextSnapshotIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   546
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   547
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   548
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   549
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   550
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   551
	constantNamed:#'NewChangesBrowser findNextSnapshotIcon'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   552
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@B@@@@@@@@@@@@@@@E@@@@@@@@@EUUUW@N@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@V***(@H@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@L@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G @@G @@G @@_8@@O0@@G @@C@@@@@@C??@C??@C??@C??@C??@C??BC??BC??BC??BC??@C??@C??@C??@C??@') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   553
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   554
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   555
findPreviousForClassIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   556
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   557
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   558
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   559
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   560
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   561
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   562
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   563
     self findPreviousForClassIcon inspect
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   564
     ImageEditor openOnClass:self andSelector:#findPreviousForClassIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   565
     Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   566
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   567
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   568
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   569
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   570
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   571
        constantNamed:#'NewChangesBrowser class findPreviousForClassIcon'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   572
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   573
@EUUUW@A@G???<@@@G???<@@@G???<@@@G???<@@@G???<@@@G???<@@@G???<@A@G???<@M@G???<@H@G???<@@@G???<@@@G???<@I@L@@@@@@@@@@@@@A
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   574
@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??B@@@B@C@B@G B@O0@@_8@@G @@G @@G @') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   575
!
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   576
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   577
findPreviousSnapshotIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   578
    "This resource specification was automatically generated
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   579
     by the ImageEditor of ST/X."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   580
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   581
    "Do not manually edit this!! If it is corrupted,
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   582
     the ImageEditor may not be able to read the specification."
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   583
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   584
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   585
     self findPreviousSnapshotIcon inspect
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   586
     ImageEditor openOnClass:self andSelector:#findPreviousSnapshotIcon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   587
     Icon flushCachedIcons
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   588
    "
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   589
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   590
    <resource: #image>
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   591
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   592
    ^Icon
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   593
        constantNamed:#'NewChangesBrowser class findPreviousSnapshotIcon'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   594
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   595
@EUUUW@A@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@A@F***(@M@F***(@H@F***(@@@F***(@@@F***(@I@L@@@@@@@@@@@@@A
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   596
@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??B@@@B@C@B@G B@O0@@_8@@G @@G @@G @') ; yourself); yourself]
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   597
! !
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
   598
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
!ChangeSetBrowser2 class methodsFor:'interface opening'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
confirmChanges: aChangeSet
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
    ^self confirmChanges: aChangeSet label: 'Apply following changes?'
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
    "Modified: / 08-11-2010 / 18:01:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
confirmChanges:aChangeSet label: aString
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
    "Hmm, DialogBox class layout options are quite limited :-(("
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
   610
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
    |browser browserView dialog|
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
   613
    browser := self on: aChangeSet.
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   614
    browser allowAccept: false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   615
    browser allowRemove: true.
12144
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   616
    browser beHierarchical.
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
   617
    browserView := ApplicationSubView new
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   618
                client:browser
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   619
                spec:#windowSpecForEmbedding.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
    dialog := (Dialog new)
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   621
                addComponent:browserView withHeight: 300;
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   622
                addAbortAndOkButtons;
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   623
                yourself.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
    dialog label: aString.
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
   625
    dialog buttonPanel
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   626
        layout:(LayoutFrame fractions:(0.0 @ 1.0 corner:1.0 @ 1.0)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   627
                offsets:(0 @ -30 corner:0 @ 0)).
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
    browserView layout:(LayoutFrame fractions:(0.0 @ 0.0 corner:1.0 @ 1.0)
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   629
                offsets:(0 @ 0 corner:0 @ -30)).
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
   630
    dialog
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   631
        okAction:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   632
            [^browser list1Holder value condenseChangesForRemoved];
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   633
        abortAction:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   634
            [^#()].
10345
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
   635
    dialog openWithExtent: 800@700.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
    ^#()
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
    "
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   639
         Tools::ChangeSetBrowser2
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   640
            confirmChanges:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   641
                (ChangeSet current copyFrom: ((ChangeSet current size - 10) max: 1) to: ChangeSet current size)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   642
            label: 'Last 10 changes...'
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
    "
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
    "Created: / 08-11-2010 / 17:59:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   646
    "Modified: / 07-09-2011 / 20:19:44 / cg"
12144
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
   647
    "Modified: / 04-02-2012 / 19:36:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   648
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   649
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   650
open
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   651
    "Open browser and load current changefile"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   652
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
   653
    | browser |
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
   654
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
   655
    browser := self new.
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
   656
    browser open.
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
   657
    browser builder window sensor 
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
   658
        pushUserEvent: #doOpenCurrent for: browser.
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   659
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   660
    "Created: / 25-01-2012 / 17:16:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11198
dc203c7f8560 added: #open
vrany
parents: 11196
diff changeset
   661
!
dc203c7f8560 added: #open
vrany
parents: 11196
diff changeset
   662
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
openOn: aChangeSet
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   664
    ^(self on: aChangeSet) 
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   665
        open;
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   666
        yourself.
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   667
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   668
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   669
        self openOn: ChangeSet current
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   670
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   671
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   672
    "Modified: / 30-01-2012 / 15:59:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
openOn: aChangeSet label: aString
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
    ^self openOn: aChangeSet label: aString setupWith: [:browser]
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
    "Created: / 26-10-2010 / 22:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
openOn: aChangeSet label: aString setupWith: aBlock
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
    ^(self on: aChangeSet label: aString setupWith: aBlock) open
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   685
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   686
    "Created: / 26-10-2010 / 23:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   687
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   688
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   689
!ChangeSetBrowser2 class methodsFor:'interface specs'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   690
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   691
hierarchicalNavigatorSpec
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   692
    "This resource specification was automatically generated
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   693
     by the UIPainter of ST/X."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   694
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   695
    "Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   696
     the UIPainter may not be able to read the specification."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   697
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   698
    "
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
   699
     UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#hierarchicalNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
   700
     Tools::ChangeSetBrowser2 new openInterface:#hierarchicalNavigatorSpec
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   701
    "
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   702
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   703
    <resource: #canvas>
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   704
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   705
    ^ 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   706
     #(FullSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   707
        name: hierarchicalNavigatorSpec
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   708
        window: 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   709
       (WindowSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   710
          label: 'Hierarchical Navigator'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   711
          name: 'Hierarchical Navigator'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   712
          min: (Point 10 10)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   713
          bounds: (Rectangle 0 0 300 300)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   714
        )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   715
        component: 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
       (SpecCollection
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   717
          collection: (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   718
           (SubCanvasSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   719
              name: 'ChangeList'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   720
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   721
              hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   722
              hasVerticalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   723
              majorKey: #'Tools::HierarchicalChangeList'
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   724
              subAspectHolders: 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   725
             (Array
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   726
                
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   727
               (SubChannelInfoSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   728
                  subAspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   729
                  aspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   730
                ) 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   731
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   732
                  subAspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   733
                  aspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   734
                )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   735
                
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   736
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   737
                  subAspect: inGeneratorHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   738
                  aspect: list1Holder
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   739
                ) 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   740
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   741
                  subAspect: menuHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   742
                  aspect: list1MenuHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   743
                )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   744
                
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   745
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   746
                  subAspect: selectionHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   747
                  aspect: selection1Holder
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   748
                ) 
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   749
               (SubChannelInfoSpec
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   750
                  subAspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   751
                  aspect: showFilterHolder
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   752
                )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   753
                
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   754
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   755
                  subAspect: showRemovedHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   756
                  aspect: showRemovedAspect
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   757
                ) 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   758
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   759
                  subAspect: showSameHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   760
                  aspect: showSameAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   761
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   762
              )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   763
              createNewApplication: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   764
              createNewBuilder: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   765
              postBuildCallback: list1View:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   766
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   767
           )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   768
         
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   769
        )
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   770
      )
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   771
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   772
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   773
oneColumnNavigatorSpec
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
    "This resource specification was automatically generated
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   775
     by the UIPainter of ST/X."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
    "Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
     the UIPainter may not be able to read the specification."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   780
    "
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
   781
     UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#oneColumnNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
   782
     Tools::ChangeSetBrowser2 new openInterface:#oneColumnNavigatorSpec
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
    "
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   784
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
    <resource: #canvas>
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   786
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   787
    ^ 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   788
     #(FullSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   789
        name: oneColumnNavigatorSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   790
        window: 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
       (WindowSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   792
          label: 'One Column Navigator'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   793
          name: 'One Column Navigator'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   794
          min: (Point 10 10)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   795
          bounds: (Rectangle 0 0 300 300)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   796
        )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   797
        component: 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
       (SpecCollection
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   799
          collection: (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   800
           (SubCanvasSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   801
              name: 'ChangeList'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   802
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   803
              hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   804
              hasVerticalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   805
              majorKey: #'Tools::ChangeList'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   806
              subAspectHolders: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   807
             (Array
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   808
                
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   809
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   810
                  subAspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   811
                  aspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   812
                ) 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   813
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   814
                  subAspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   815
                  aspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   816
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   817
                
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   818
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   819
                  subAspect: inGeneratorHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   820
                  aspect: list1Holder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   821
                ) 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   822
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   823
                  subAspect: menuHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   824
                  aspect: list1MenuHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   825
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   826
                
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   827
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   828
                  subAspect: selectionHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   829
                  aspect: selection1Holder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   830
                ) 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   831
               (SubChannelInfoSpec
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   832
                  subAspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   833
                  aspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   834
                )
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   835
                
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   836
               (SubChannelInfoSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   837
                  subAspect: showRemovedHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   838
                  aspect: showRemovedAspect
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   839
                ) 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   840
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   841
                  subAspect: showSameHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   842
                  aspect: showSameAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   843
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   844
              )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   845
              createNewApplication: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   846
              createNewBuilder: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   847
              postBuildCallback: list1View:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   848
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   849
           )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   850
         
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   851
        )
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   852
      )
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
twoColumnNavigatorSpec
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   856
    "This resource specification was automatically generated
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   857
     by the UIPainter of ST/X."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   858
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
    "Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
     the UIPainter may not be able to read the specification."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
    "
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
   863
     UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#twoColumnNavigatorSpec
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
   864
     Tools::ChangeSetBrowser2 new openInterface:#twoColumnNavigatorSpec
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
    "
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
    <resource: #canvas>
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   869
    ^ 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
     #(FullSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   871
        name: twoColumnNavigatorSpec
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   872
        window: 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
       (WindowSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   874
          label: 'Two Column Navigator'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   875
          name: 'Two Column Navigator'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   876
          min: (Point 10 10)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   877
          bounds: (Rectangle 0 0 300 300)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   878
        )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   879
        component: 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
       (SpecCollection
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   881
          collection: (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   882
           (VariableHorizontalPanelSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   883
              name: 'Columns'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   884
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   885
              component: 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   886
             (SpecCollection
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   887
                collection: (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   888
                 (SubCanvasSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   889
                    name: 'FirstColumn'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   890
                    hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   891
                    hasVerticalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   892
                    majorKey: #'Tools::ChangeList'
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   893
                    subAspectHolders: 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   894
                   (Array
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   895
                      
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   896
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   897
                        subAspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   898
                        aspect: allowAcceptHolder
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   899
                      ) 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   900
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   901
                        subAspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   902
                        aspect: allowRemoveHolder
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   903
                      )
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   904
                      
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   905
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   906
                        subAspect: inGeneratorHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   907
                        aspect: list1Holder
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   908
                      ) 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   909
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   910
                        subAspect: menuHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   911
                        aspect: list1MenuHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   912
                      )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   913
                      
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   914
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   915
                        subAspect: outGeneratorHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   916
                        aspect: list2Holder
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   917
                      ) 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   918
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   919
                        subAspect: selectionHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   920
                        aspect: selection1Holder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   921
                      )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   922
                      
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   923
                     (SubChannelInfoSpec
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   924
                        subAspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   925
                        aspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   926
                      ) 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   927
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   928
                        subAspect: showRemovedHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   929
                        aspect: showRemovedAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   930
                      )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   931
                      
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   932
                     (SubChannelInfoSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   933
                        subAspect: showSameHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   934
                        aspect: showSameAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   935
                      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   936
                    )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   937
                    createNewApplication: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   938
                    createNewBuilder: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   939
                    postBuildCallback: list1View:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   940
                  )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   941
                 (SubCanvasSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   942
                    name: 'SecondColumn'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   943
                    hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   944
                    hasVerticalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   945
                    majorKey: #'Tools::ChangeList'
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   946
                    subAspectHolders: 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   947
                   (Array
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   948
                      
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   949
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   950
                        subAspect: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   951
                        aspect: allowAcceptHolder
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   952
                      ) 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   953
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   954
                        subAspect: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   955
                        aspect: allowRemoveHolder
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   956
                      )
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   957
                      
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   958
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   959
                        subAspect: inGeneratorHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   960
                        aspect: list2Holder
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   961
                      ) 
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   962
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   963
                        subAspect: menuHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   964
                        aspect: list2MenuHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   965
                      )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   966
                      
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   967
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   968
                        subAspect: selectionHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   969
                        aspect: selection2Holder
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   970
                      ) 
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   971
                     (SubChannelInfoSpec
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   972
                        subAspect: showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   973
                        aspect: showFilterHolder
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   974
                      )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   975
                      
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   976
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   977
                        subAspect: showRemovedHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   978
                        aspect: showRemovedAspect
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   979
                      ) 
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   980
                     (SubChannelInfoSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   981
                        subAspect: showSameHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   982
                        aspect: showSameAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   983
                      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   984
                    )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   985
                    createNewApplication: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   986
                    createNewBuilder: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   987
                    postBuildCallback: list2View:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   988
                  )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   989
                 )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   990
               
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   991
              )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   992
              handles: (Any 0.5 1.0)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   993
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   994
           )
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
   995
         
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   996
        )
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   997
      )
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   999
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
windowSpec
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1001
    "This resource specification was automatically generated
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1002
     by the UIPainter of ST/X."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1003
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1004
    "Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1005
     the UIPainter may not be able to read the specification."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1006
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1007
    "
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1008
     UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#windowSpec
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1009
     Tools::ChangeSetBrowser2 new openInterface:#windowSpec
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1010
     Tools::ChangeSetBrowser2 open
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1011
    "
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1012
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1013
    <resource: #canvas>
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1014
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1015
    ^ 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
     #(FullSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1017
        name: windowSpec
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1018
        window: 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1019
       (WindowSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1020
          label: 'ChangeSet browser'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1021
          name: 'ChangeSet browser'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1022
          labelChannel: titleHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1023
          min: (Point 10 10)
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1024
          bounds: (Rectangle 0 0 800 600)
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1025
          menu: mainMenu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1026
        )
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1027
        component: 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
       (SpecCollection
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1029
          collection: (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1030
           (MenuPanelSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1031
              name: 'ToolBar'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1032
              layout: (LayoutFrame 0 0 0 0 0 1 30 0)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1033
              menu: toolbarMenu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1034
              textDefault: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1035
            )
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1036
           (SubCanvasSpec
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  1037
              name: 'InfoPanel'
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1038
              layout: (LayoutFrame 0 0 30 0 0 1 70 0)
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1039
              level: 0
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1040
              initiallyInvisible: true
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1041
              hasHorizontalScrollBar: false
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1042
              hasVerticalScrollBar: false
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1043
              clientKey: infoPanel
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1044
              createNewBuilder: false
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1045
            )
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1046
           (UISubSpecification
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1047
              name: 'Contents'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1048
              layout: (LayoutFrame 0 0 30 0 0 1 0 1)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1049
              minorKey: windowSpecWithoutToolbar
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1050
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1051
           )
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  1052
         
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1053
        )
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
      )
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
windowSpecForEmbedding
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1059
    ^self windowSpecWithoutToolbar
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
windowSpecWithoutToolbar
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
    "This resource specification was automatically generated
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1064
     by the UIPainter of ST/X."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
    "Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
     the UIPainter may not be able to read the specification."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
    "
10333
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  1070
     UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#windowSpecWithoutToolbar
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  1071
     Tools::ChangeSetBrowser2 new openInterface:#windowSpecWithoutToolbar
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
    "
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
    <resource: #canvas>
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  1076
    ^
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
     #(FullSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1078
        name: windowSpecWithoutToolbar
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1079
        window:
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
       (WindowSpec
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1081
          label: 'ChangeSet browser'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1082
          name: 'ChangeSet browser'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1083
          min: (Point 10 10)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1084
          bounds: (Rectangle 0 0 653 488)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1085
          menu: mainMenu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1086
        )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1087
        component:
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
       (SpecCollection
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1089
          collection: (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1090
           (VariableVerticalPanelSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1091
              name: 'VerticalPanel'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1092
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1093
              component:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1094
             (SpecCollection
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1095
                collection: (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1096
                 (SubCanvasSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1097
                    name: 'NavigatorPanel'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1098
                    hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1099
                    hasVerticalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1100
                    specHolder: navigatorSpecHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1101
                    createNewBuilder: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1102
                  )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1103
                 (SubCanvasSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1104
                    name: 'TextDiffTool'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1105
                    hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1106
                    hasVerticalScrollBar: false
12179
47f98e7d6de1 Improvments towards merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12154
diff changeset
  1107
                    majorKey: #'Tools::TextDiff2Tool'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1108
                    minorKey: windowSpecForEmbedding
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1109
                    subAspectHolders:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1110
                   (Array
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1111
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1112
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1113
                        subAspect: classHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1114
                        aspect: classHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1115
                      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1116
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1117
                        subAspect: languageHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1118
                        aspect: languageHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1119
                      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1120
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1121
                        subAspect: codeAspectHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1122
                        aspect: codeAspectHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1123
                      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1124
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1125
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1126
                        subAspect: labelAHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1127
                        aspect: labelAHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1128
                      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1129
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1130
                        subAspect: labelBHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1131
                        aspect: labelBHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1132
                      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1133
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1134
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1135
                        subAspect: textAHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1136
                        aspect: changeSourceHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1137
                      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1138
                     (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1139
                        subAspect: textBHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1140
                        aspect: imageSourceHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1141
                      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1142
                    )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1143
                    createNewApplication: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1144
                    createNewBuilder: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1145
                  )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1146
                 )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1147
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1148
              )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1149
              handles: (Any 0.5 1.0)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1150
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1151
           )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1152
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1153
        )
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
      )
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1155
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1156
    "Modified: / 03-12-2011 / 10:36:40 / cg"
12179
47f98e7d6de1 Improvments towards merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12154
diff changeset
  1157
    "Modified: / 16-03-2012 / 13:09:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
!ChangeSetBrowser2 class methodsFor:'menu specs'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
changeMenu
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
    "This resource specification was automatically generated
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1164
     by the MenuEditor of ST/X."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1165
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
    "Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
     the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1169
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
    "
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1171
     MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1172
     (Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu)) startUp
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
    "
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
    <resource: #menu>
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1177
    ^ 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1178
     #(Menu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1179
        (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1180
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1181
            enabled: hasChangeSelectedAndNotRemoved:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1182
            label: 'Apply'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1183
            itemValue: changeMenuApplySelection:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1184
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1185
            isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1186
            shortcutKey: Accept
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1187
            auxValue: 100
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1188
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1189
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1190
            label: 'Apply all'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1191
            itemValue: changeMenuApply:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1192
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1193
            isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1194
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1195
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1196
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1197
            isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1198
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1199
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1200
            label: 'Delete'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1201
            itemValue: changeMenuDeleteSelection:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1202
            nameKey: Delete
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1203
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1204
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1205
            shortcutKey: Delete
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1206
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1207
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1208
            label: 'Undelete'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1209
            itemValue: changeMenuUndeleteSelection:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1210
            nameKey: Undelete
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1211
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1212
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1213
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1214
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1215
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1216
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1217
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1218
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1219
            label: 'Select...'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1220
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1221
            submenu: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1222
           (Menu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1223
              (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1224
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1225
                  label: 'Select same'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1226
                  itemValue: changeMenuSelectSame:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1227
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1228
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1229
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1230
                  label: 'Select additions (new classes/methods)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1231
                  itemValue: changeMenuSelectAdditions:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1232
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1233
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1234
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1235
                  label: 'Select removals'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1236
                  itemValue: changeMenuSelectRemovals:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1237
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1238
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1239
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1240
                  label: 'Select differences'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1241
                  itemValue: changeMenuSelectDifferences:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1242
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1243
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1244
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1245
                  label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1246
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1247
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1248
                  label: 'Select all'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1249
                  itemValue: changeMenuSelectAll:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1250
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1251
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1252
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1253
                  label: 'Select none'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1254
                  itemValue: changeMenuSelectNone:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1255
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1256
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1257
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1258
                  label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1259
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1260
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1261
                  label: 'Select using block'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1262
                  itemValue: changeMenuSelectUsingBlock:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1263
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1264
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1265
               )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1266
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1267
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1268
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1269
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1270
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1271
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1272
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1273
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1274
            label: 'Show Deleted'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1275
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1276
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1277
            indication: showRemovedAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1278
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1279
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1280
            label: 'Show Same'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1281
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1282
            indication: showSameAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1283
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1284
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1285
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1286
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1287
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1288
            label: 'Inspect change'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1289
            itemValue: changeMenuInspect:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1290
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1291
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1292
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1293
            enabled: hasSingleChangeSelectedAndCanBrowse:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1294
            label: 'Browse Method(s)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1295
            itemValue: changeMenuBrowse:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1296
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1297
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1298
         )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1299
        nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1300
        nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1301
      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1302
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1303
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1304
changeMenu1
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1305
    "This resource specification was automatically generated
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1306
     by the MenuEditor of ST/X."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1307
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1308
    "Do not manually edit this!! If it is corrupted,
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1309
     the MenuEditor may not be able to read the specification."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1310
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1311
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1312
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1313
     MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu1
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1314
     (Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu1)) startUp
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1315
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1316
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1317
    <resource: #menu>
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1318
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1319
    ^ 
10666
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1320
     #(Menu
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1321
        (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1322
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1323
            enabled: hasChangeSelectedAndNotRemoved:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1324
            label: 'Apply'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1325
            itemValue: changeMenuApplySelection:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1326
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1327
            isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1328
            shortcutKey: Accept
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1329
            auxValue: 100
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1330
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1331
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1332
            label: 'Apply All'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1333
            itemValue: changeMenuApply:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1334
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1335
            isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1336
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1337
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1338
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1339
            isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1340
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1341
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1342
            label: 'Delete'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1343
            itemValue: changeMenuDeleteSelection:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1344
            nameKey: Delete
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1345
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1346
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1347
            shortcutKey: Delete
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1348
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1349
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1350
            label: 'Undelete'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1351
            itemValue: changeMenuUndeleteSelection:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1352
            nameKey: Undelete
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1353
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1354
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1355
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1356
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1357
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1358
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1359
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1360
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1361
            label: 'Select...'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1362
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1363
            submenu: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1364
           (Menu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1365
              (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1366
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1367
                  label: 'Select Same'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1368
                  itemValue: changeMenuSelectSame:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1369
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1370
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1371
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1372
                  label: 'Select Additions (new Classes/Methods)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1373
                  itemValue: changeMenuSelectAdditions:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1374
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1375
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1376
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1377
                  label: 'Select Removals'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1378
                  itemValue: changeMenuSelectRemovals:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1379
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1380
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1381
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1382
                  label: 'Select Differences'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1383
                  itemValue: changeMenuSelectDifferences:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1384
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1385
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1386
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1387
                  label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1388
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1389
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1390
                  label: 'Select All'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1391
                  itemValue: changeMenuSelectAll:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1392
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1393
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1394
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1395
                  label: 'Select None'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1396
                  itemValue: changeMenuSelectNone:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1397
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1398
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1399
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1400
                  label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1401
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1402
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1403
                  label: 'Select using Block'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1404
                  itemValue: changeMenuSelectUsingBlock:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1405
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1406
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1407
               )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1408
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1409
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1410
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1411
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1412
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1413
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1414
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1415
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1416
            label: 'Show Deleted'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1417
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1418
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1419
            indication: showRemovedAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1420
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1421
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1422
            label: 'Show Same'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1423
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1424
            indication: showSameAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1425
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1426
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1427
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1428
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1429
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1430
            label: 'Inspect Change'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1431
            itemValue: changeMenuInspect:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1432
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1433
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1434
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1435
            enabled: hasSingleChangeSelectedAndCanBrowse:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1436
            label: 'Browse Method(s)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1437
            itemValue: changeMenuBrowse:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1438
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1439
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1440
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1441
            enabled: hasSingleChangeSelectedAndCanBrowse:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1442
            label: 'Browse Class(s)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1443
            itemValue: changeMenuBrowseClass:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1444
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1445
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1446
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1447
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1448
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1449
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1450
            enabled: hasSingleChangeSelectedAndCanBrowse:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1451
            label: 'Compare Class Against...'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1452
            itemValue: changeMenuCompareClass:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1453
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1454
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1455
         )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1456
        nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1457
        nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1458
      )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1459
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1460
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1461
changeMenu2
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1462
    "This resource specification was automatically generated
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1463
     by the MenuEditor of ST/X."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1464
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1465
    "Do not manually edit this!! If it is corrupted,
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1466
     the MenuEditor may not be able to read the specification."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1467
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1468
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1469
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1470
     MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu2
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1471
     (Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu2)) startUp
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1472
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1473
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1474
    <resource: #menu>
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1475
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1476
    ^ 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1477
     #(Menu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1478
        (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1479
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1480
            enabled: hasChangeSelectedAndNotRemoved:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1481
            label: 'Apply'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1482
            itemValue: changeMenuApplySelection:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1483
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1484
            isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1485
            shortcutKey: Accept
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1486
            auxValue: 100
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1487
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1488
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1489
            label: 'Apply to End'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1490
            itemValue: changeMenuApplyToEnd:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1491
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1492
            isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1493
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1494
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1495
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1496
            isVisible: allowAcceptHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1497
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1498
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1499
            label: 'Delete'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1500
            itemValue: changeMenuDeleteSelection:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1501
            nameKey: Delete
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1502
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1503
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1504
            shortcutKey: Delete
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1505
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1506
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1507
            label: 'Undelete'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1508
            itemValue: changeMenuUndeleteSelection:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1509
            nameKey: Undelete
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1510
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1511
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1512
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1513
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1514
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1515
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1516
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1517
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1518
            label: 'Select...'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1519
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1520
            submenu: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1521
           (Menu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1522
              (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1523
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1524
                  label: 'Select Same'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1525
                  itemValue: changeMenuSelectSame:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1526
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1527
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1528
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1529
                  label: 'Select Additions (new Classes/Methods)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1530
                  itemValue: changeMenuSelectAdditions:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1531
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1532
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1533
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1534
                  label: 'Select Removals'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1535
                  itemValue: changeMenuSelectRemovals:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1536
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1537
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1538
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1539
                  label: 'Select Differences'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1540
                  itemValue: changeMenuSelectDifferences:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1541
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1542
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1543
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1544
                  label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1545
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1546
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1547
                  label: 'Select All'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1548
                  itemValue: changeMenuSelectAll:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1549
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1550
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1551
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1552
                  label: 'Select None'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1553
                  itemValue: changeMenuSelectNone:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1554
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1555
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1556
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1557
                  label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1558
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1559
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1560
                  label: 'Select using Block'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1561
                  itemValue: changeMenuSelectUsingBlock:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1562
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1563
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1564
               )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1565
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1566
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1567
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1568
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1569
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1570
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1571
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1572
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1573
            label: 'Show Deleted'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1574
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1575
            isVisible: allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1576
            indication: showRemovedAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1577
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1578
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1579
            label: 'Show Same'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1580
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1581
            indication: showSameAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1582
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1583
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1584
            label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1585
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1586
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1587
            label: 'Inspect Change'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1588
            itemValue: changeMenuInspect:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1589
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1590
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1591
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1592
            enabled: hasSingleChangeSelectedAndCanBrowse:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1593
            label: 'Browse Method(s)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1594
            itemValue: changeMenuBrowse:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1595
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1596
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1597
         )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1598
        nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1599
        nil
10666
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1600
      )
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1601
!
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  1602
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1603
mainMenu
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1604
    "This resource specification was automatically generated
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1605
     by the MenuEditor of ST/X."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1606
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1607
    "Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1608
     the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1609
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1610
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1611
    "
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1612
     MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#mainMenu
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1613
     (Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 mainMenu)) startUp
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1614
    "
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1615
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1616
    <resource: #menu>
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1617
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1618
    ^ 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1619
     #(Menu
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1620
        (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1621
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1622
            label: 'File'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1623
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1624
            submenu: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1625
           (Menu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1626
              (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1627
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1628
                  label: 'Open...'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1629
                  itemValue: doOpen
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1630
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1631
                  isVisible: allowOpenHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1632
                  shortcutKey: Ctrlo
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1633
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1634
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1635
                  label: 'Open Current'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1636
                  itemValue: doOpenCurrent
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1637
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1638
                  isVisible: allowOpenHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1639
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1640
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1641
                  label: 'Save'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1642
                  itemValue: doSave
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1643
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1644
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1645
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1646
                  label: 'Save As...'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1647
                  itemValue: doSaveAs
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1648
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1649
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1650
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1651
                  label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1652
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1653
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1654
                  label: 'Exit'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1655
                  itemValue: closeRequest
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1656
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1657
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1658
               )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1659
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1660
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1661
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1662
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1663
         (MenuItem
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1664
            label: 'Changes'
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1665
            translateLabel: true
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1666
            isVisible: isTwoColumnHolderNot
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1667
            submenuChannel: list1MenuHolder
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1668
          )
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1669
         (MenuItem
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1670
            label: 'Left'
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1671
            translateLabel: true
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1672
            isVisible: isTwoColumnHolder
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1673
            submenuChannel: list1MenuHolder
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1674
          )
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1675
         (MenuItem
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1676
            label: 'Right'
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1677
            translateLabel: true
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1678
            isVisible: isTwoColumnHolder
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1679
            submenuChannel: list2MenuHolder
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1680
          )
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  1681
         (MenuItem
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1682
            label: 'View'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1683
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1684
            submenu: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1685
           (Menu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1686
              (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1687
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1688
                  label: 'List'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1689
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1690
                  choice: navigatorSpecHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1691
                  choiceValue: oneColumnNavigatorSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1692
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1693
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1694
                  label: 'Hierarchical List'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1695
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1696
                  choice: navigatorSpecHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1697
                  choiceValue: hierarchicalNavigatorSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1698
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1699
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1700
                  label: 'Browser Like'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1701
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1702
                  choice: navigatorSpecHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1703
                  choiceValue: twoColumnNavigatorSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1704
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1705
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1706
                  label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1707
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1708
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1709
                  label: 'Show Deleted'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1710
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1711
                  indication: showRemovedAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1712
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1713
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1714
                  label: 'Show Same'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1715
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1716
                  indication: showSameAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1717
                )
12211
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  1718
               (MenuItem
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  1719
                  label: '-'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  1720
                )
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  1721
               (MenuItem
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  1722
                  label: 'Show Filter'
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  1723
                  translateLabel: true
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  1724
                  indication: showFilterHolder
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  1725
                )
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1726
               )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1727
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1728
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1729
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1730
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1731
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1732
            label: 'Loading'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1733
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1734
            submenu: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1735
           (Menu
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1736
              (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1737
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1738
                  label: 'Set Target Package...'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1739
                  itemValue: setTargetPackage
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1740
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1741
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1742
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1743
                  label: 'Set Target Namespace...'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1744
                  itemValue: setTargetNamespace
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1745
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1746
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1747
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1748
                  label: '-'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1749
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1750
               (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1751
                  label: 'Update Changefile'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1752
                  translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1753
                  indication: updateChangeFileHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1754
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1755
               )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1756
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1757
              nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1758
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1759
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1760
         )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1761
        nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1762
        nil
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1763
      )
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1764
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1765
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1766
toolbarMenu
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1767
    "This resource specification was automatically generated
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1768
     by the MenuEditor of ST/X."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1769
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1770
    "Do not manually edit this!! If it is corrupted,
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1771
     the MenuEditor may not be able to read the specification."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1772
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1773
    "
12207
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1774
     MenuEditor new openOnClass:NewChangesBrowser andSelector:#toolbarMenu
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1775
     (Menu new fromLiteralArrayEncoding:(NewChangesBrowser toolbarMenu)) startUp
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1776
    "
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1777
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1778
    <resource: #menu>
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1779
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1780
    ^ 
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1781
     #(Menu
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1782
        (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1783
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1784
            activeHelpKey: fileLoad
12207
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1785
            enabled: valueOfNotReading
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1786
            label: 'Load'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1787
            itemValue: doLoad
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1788
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1789
            isButton: true
12207
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1790
            labelImage: (ResourceRetriever XPToolbarIconLibrary loadFromFileIcon)
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1791
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1792
         (MenuItem
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1793
            activeHelpKey: fileSave
12207
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1794
            enabled: valueOfNotSaving
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1795
            label: 'Save'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1796
            itemValue: doSave
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1797
            translateLabel: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1798
            isButton: true
12207
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1799
            labelImage: (ResourceRetriever XPToolbarIconLibrary saveToFileIcon)
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1800
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1801
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1802
            label: '-'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1803
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1804
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1805
            activeHelpKey: applyLine
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1806
            enabled: valueOfHavingChangeSelection
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1807
            label: 'Apply'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1808
            itemValue: doApply
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1809
            translateLabel: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1810
            isButton: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1811
            labelImage: (ResourceRetriever nil applyIcon)
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1812
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1813
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1814
            activeHelpKey: applyToEnd
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1815
            enabled: valueOfHavingSelection
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1816
            label: 'Apply To End'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1817
            itemValue: doApplyToEnd
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1818
            translateLabel: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1819
            isButton: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1820
            labelImage: (ResourceRetriever nil applyToEndIcon)
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1821
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1822
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1823
            activeHelpKey: applyFromLastSnapshot
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1824
            enabled: valueOfNotReading
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1825
            label: 'Apply From Last Snapshot'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1826
            itemValue: doApplyFromLastSnapshot
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1827
            translateLabel: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1828
            isButton: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1829
            labelImage: (ResourceRetriever nil applyFromLastSnapshotIcon)
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1830
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1831
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1832
            label: '-'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1833
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1834
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1835
            activeHelpKey: deleteLine
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1836
            enabled: valueOfHavingSelection
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1837
            label: 'Delete'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1838
            itemValue: doDelete
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1839
            translateLabel: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1840
            isButton: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1841
            labelImage: (ResourceRetriever nil deleteIcon)
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1842
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1843
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1844
            activeHelpKey: deleteToEnd
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1845
            enabled: valueOfHavingSelection
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1846
            label: 'Delete To End'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1847
            itemValue: doDeleteToEnd
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1848
            translateLabel: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1849
            isButton: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1850
            labelImage: (ResourceRetriever nil deleteToEndIcon)
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1851
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1852
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1853
            activeHelpKey: deleteCompress
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1854
            enabled: valueOfNotReading
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1855
            label: 'Compress'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1856
            itemValue: doCompress
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1857
            translateLabel: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1858
            isButton: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1859
            labelImage: (ResourceRetriever nil compressIcon)
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1860
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1861
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1862
            label: '-'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1863
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1864
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1865
            activeHelpKey: testFindPreviousSnapshot
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1866
            enabled: valueOfHavingSelection
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1867
            label: 'Find Previous Snapshot'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1868
            itemValue: doFindSnapshot:
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1869
            translateLabel: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1870
            isButton: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1871
            labelImage: (ResourceRetriever nil findPreviousSnapshotIcon)
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1872
            argument: 'previous'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1873
          )
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1874
         (MenuItem
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1875
            activeHelpKey: testFindNextSnapshot
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1876
            enabled: valueOfHavingSelection
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1877
            label: 'Find Next Snapshot'
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1878
            itemValue: doFindSnapshot:
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1879
            translateLabel: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1880
            isButton: true
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1881
            labelImage: (ResourceRetriever nil findNextSnapshotIcon)
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1882
            argument: 'next'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1883
          )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1884
         )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1885
        nil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1886
        nil
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1887
      )
12207
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1888
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  1889
    "Modified: / 26-03-2012 / 12:56:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1890
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1891
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1892
!ChangeSetBrowser2 class methodsFor:'plugIn spec'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1893
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1894
aspectSelectors
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1895
    "This resource specification was automatically generated
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1896
     by the UIPainter of ST/X."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1897
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1898
    "Do not manually edit this. If it is corrupted,
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1899
     the UIPainter may not be able to read the specification."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1900
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1901
    "Return a description of exported aspects;
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1902
     these can be connected to aspects of an embedding application
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1903
     (if this app is embedded in a subCanvas)."
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1904
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1905
    ^ #(
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1906
        #changesetHolder
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1907
      ).
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1908
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1909
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1910
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1911
!ChangeSetBrowser2 methodsFor:'accessing'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1912
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1913
allowAccept: aBoolean
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1914
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1915
    ^self allowAcceptHolder value: aBoolean
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1916
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1917
    "Created: / 24-01-2012 / 19:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1918
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1919
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1920
allowOpen: aBoolean
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1921
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1922
    self allowOpenHolder value: aBoolean
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1923
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1924
    "Created: / 26-10-2010 / 23:18:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1925
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1926
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1927
allowRemove: aBoolean
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1928
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1929
    ^self allowRemoveHolder value: aBoolean
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1930
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1931
    "Created: / 24-01-2012 / 20:00:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1932
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1933
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1934
beHierarchical
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1935
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1936
    ^self navigatorSpecHolder value: #hierarchicalNavigatorSpec
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1937
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1938
    "Modified: / 14-10-2010 / 15:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1939
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1940
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1941
beOneColumn
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1942
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1943
    ^self navigatorSpecHolder value: #oneColumnNavigatorSpec
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1944
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1945
    "Modified: / 14-10-2010 / 15:52:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1946
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1947
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1948
beTwoColumn
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1949
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1950
    ^self navigatorSpecHolder value: #twoColumnNavigatorSpec
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1951
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1952
    "Modified: / 14-10-2010 / 15:51:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1953
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1954
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1955
changeset
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1956
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1957
    ^self changesetHolder value
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1958
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1959
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1960
changeset: aChangeSet
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1961
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1962
    self changesetHolder value: aChangeSet
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1963
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1964
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1965
list1View: aSubApplicationView
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1966
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1967
    list1 := aSubApplicationView application
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1968
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1969
    "Created: / 04-08-2011 / 17:56:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1970
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1971
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1972
list2View: aSubApplicationView
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1973
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1974
    list2 := aSubApplicationView application
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1975
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1976
    "Created: / 04-08-2011 / 17:57:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1977
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  1978
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1979
readOnly: aBoolean
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1980
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1981
    "Created: / 20-07-2010 / 09:48:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1982
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1983
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  1984
showFilter: aBoolean
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  1985
    self showFilterHolder value: aBoolean
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  1986
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  1987
    "Created: / 11-02-2012 / 22:47:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  1988
!
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  1989
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1990
targetNamespace:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1991
    targetNamespace := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1992
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1993
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1994
targetPackage:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1995
    targetPackage := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1996
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  1997
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1998
theSingleSelectedChange
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1999
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2000
    | change sel |
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2001
    change := nil.
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2002
    sel := selection2Holder value.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2003
    sel isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2004
        sel := selection1Holder value.
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2005
    ].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2006
    sel do:
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2007
        [:each|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2008
        change ifNotNil:[nil].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2009
        change ifNil:[change := each]].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2010
    ^change
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2011
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2012
    "Modified: / 04-08-2011 / 18:55:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2013
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2014
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2015
title: aString
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2016
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2017
    self titleHolder value: aString
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2018
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2019
    "Created: / 26-10-2010 / 23:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2020
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2021
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2022
!ChangeSetBrowser2 methodsFor:'accessing - defaults'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2023
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2024
defaultTitle
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2025
    ^ 'No changeset'
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2026
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2027
    "Modified: / 08-04-2011 / 10:10:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2028
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2029
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2030
!ChangeSetBrowser2 methodsFor:'accessing - menus'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2031
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2032
list1MenuHolder
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2033
    ^ [
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2034
        |menu|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2035
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2036
        menu := builder menuFor:#changeMenu1.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2037
        menu allItemsDo:[:item | item argument:list1 ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2038
        menu
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2039
    ]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2040
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2041
    "Created: / 04-08-2011 / 18:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2042
    "Modified (format): / 05-09-2011 / 16:07:20 / cg"
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2043
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2044
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2045
list2MenuHolder
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2046
    ^ [
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2047
        |menu|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2048
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2049
        menu := builder menuFor:#changeMenu2.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2050
        menu allItemsDo:[:item | item argument:list2 ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2051
        menu
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2052
    ]
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2053
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2054
    "Created: / 04-08-2011 / 18:13:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2055
    "Modified (format): / 05-09-2011 / 16:07:34 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2056
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2057
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2058
!ChangeSetBrowser2 methodsFor:'actions'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2059
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2060
accept: source
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2061
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2062
    | entry chg |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2063
    (entry := self theSingleSelectedChange) isNil ifTrue:[^self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2064
    chg := entry change.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2065
    chg isMethodCodeChange ifTrue:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2066
        [chg source: source asString]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2067
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2068
    "Modified: / 29-11-2010 / 22:40:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2069
    "Modified: / 18-11-2011 / 14:56:53 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2070
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2071
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2072
postBuildSourceView: aView
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2073
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  2074
    sourceView := aView.
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  2075
10345
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2076
    "Modified: / 19-07-2011 / 19:08:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2077
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2078
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2079
!ChangeSetBrowser2 methodsFor:'aspects'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2080
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2081
allowAcceptHolder
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2082
    "return/create the 'selectionHolder' value holder (automatically generated)"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2083
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2084
    allowAcceptHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2085
        allowAcceptHolder := ValueHolder with: true.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2086
    ].
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2087
    ^ allowAcceptHolder
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2088
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2089
    "Modified: / 24-10-2009 / 19:56:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2090
    "Created: / 24-01-2012 / 19:50:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2091
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2092
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2093
allowOpenHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2094
    "return/create the 'allowOpenHolder' value holder (automatically generated)"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2095
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2096
    allowOpenHolder isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2097
        allowOpenHolder := ValueHolder with: true.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2098
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2099
    ^ allowOpenHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2100
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2101
    "Modified: / 17-03-2011 / 22:32:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2102
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2103
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2104
allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2105
    "return/create the 'allowRemoveHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2106
    
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2107
    allowRemoveHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2108
        allowRemoveHolder := ValueHolder with:false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2109
        allowRemoveHolder addDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2110
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2111
    ^ allowRemoveHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2112
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2113
    "Modified: / 24-01-2012 / 19:59:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2114
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2115
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2116
allowRemoveHolder:something 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2117
    "set the 'showRemovedHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2118
    
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2119
    |oldValue newValue|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2120
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2121
    allowRemoveHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2122
        oldValue := allowRemoveHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2123
        allowRemoveHolder removeDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2124
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2125
    allowRemoveHolder := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2126
    allowRemoveHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2127
        allowRemoveHolder addDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2128
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2129
    newValue := allowRemoveHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2130
    oldValue ~~ newValue ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2131
        self 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2132
            update:#value
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2133
            with:newValue
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2134
            from:allowRemoveHolder.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2135
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2136
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2137
    "Modified (format): / 24-01-2012 / 19:48:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2138
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2139
10333
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2140
changeSourceHolder
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2141
    <resource: #uiAspect>
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2142
    changeSourceHolder isNil ifTrue: [
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2143
        changeSourceHolder := nil asValue.
10333
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2144
    ].
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2145
    ^ changeSourceHolder.
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2146
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2147
    "Modified: / 19-07-2011 / 11:54:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2148
!
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2149
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2150
changesetHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2151
    "return/create the 'changesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2152
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2153
    changesetHolder isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2154
        changesetHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2155
        changesetHolder addDependent:self.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2156
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2157
    ^ changesetHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2158
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2159
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2160
changesetHolder:something
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2161
    "set the 'changesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2162
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2163
    |oldValue newValue|
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2164
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2165
    changesetHolder notNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2166
        oldValue := changesetHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2167
        changesetHolder removeDependent:self.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2168
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2169
    changesetHolder := something.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2170
    changesetHolder notNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2171
        changesetHolder addDependent:self.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2172
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2173
    newValue := changesetHolder value.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2174
    oldValue ~~ newValue ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2175
        self update:#value with:newValue from:changesetHolder.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2176
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2177
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2178
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2179
classHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2180
    "return/create the 'classHolder' value holder (automatically generated)"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2181
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2182
    classHolder isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2183
        classHolder := ValueHolder with:nil.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2184
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2185
    ^ classHolder
10345
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2186
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2187
    "Modified: / 19-07-2011 / 19:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2188
!
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2189
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2190
codeAspectHolder
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2191
    "return/create the 'codeAspectHolder' value holder (automatically generated)"
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2192
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2193
    codeAspectHolder isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2194
        codeAspectHolder := ValueHolder new.
10345
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2195
    ].
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2196
    ^ codeAspectHolder
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2197
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2198
10333
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2199
imageSourceHolder
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2200
    <resource: #uiAspect>
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2201
    imageSourceHolder isNil ifTrue: [
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2202
        imageSourceHolder := nil asValue.
10333
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2203
    ].
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2204
    ^ imageSourceHolder.
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2205
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2206
    "Created: / 19-07-2011 / 11:54:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2207
!
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2208
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2209
infoPanel
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2210
    infoPanel isNil ifTrue:[
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2211
        infoPanel := InlineMessageDialog new
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2212
    ].
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2213
    ^ infoPanel
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2214
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2215
    "Created: / 09-02-2012 / 19:23:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2216
!
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2217
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2218
isTwoColumnHolder
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2219
    | holder |
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2220
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2221
    holder :=  builder bindings at: #isTwoColumnHolder ifAbsentPut:[
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2222
        BlockValue
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2223
            with:[:v| v value == #twoColumnNavigatorSpec]
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2224
            argument: self navigatorSpecHolder.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2225
    ].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2226
    ^holder
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2227
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2228
    "Created: / 30-03-2012 / 12:07:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2229
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2230
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2231
isTwoColumnHolderNot
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2232
    | holder |
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2233
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2234
    holder :=  builder bindings at: #isTwoColumnHolderNot ifAbsentPut:[
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2235
        BlockValue
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2236
            with:[:v| v value ~~ #twoColumnNavigatorSpec]
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2237
            argument: self navigatorSpecHolder.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2238
    ].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2239
    ^holder
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2240
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2241
    "Created: / 30-03-2012 / 12:08:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2242
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2243
10333
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2244
labelAHolder
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2245
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2246
    ^'Change' asValue
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2247
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2248
    "Created: / 19-07-2011 / 11:46:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2249
!
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2250
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2251
labelBHolder
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2252
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2253
    ^'Image' asValue
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2254
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2255
    "Created: / 19-07-2011 / 11:46:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2256
!
29776a78e424 Improvements in diffing tools
vrany
parents: 10309
diff changeset
  2257
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2258
languageHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2259
    languageHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2260
        languageHolder := ValueHolder with:nil.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2261
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2262
    ^ languageHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2263
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2264
    "Modified: / 19-07-2011 / 19:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2265
    "Created: / 03-12-2011 / 10:37:39 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2266
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2267
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2268
list1Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2269
    "return/create the 'list1Holder' value holder (automatically generated)"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2270
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2271
    list1Holder isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2272
        list1Holder := ValueHolder new.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2273
    ].
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2274
    ^ list1Holder
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2275
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2276
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2277
list1Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2278
    "set the 'list1Holder' value holder (automatically generated)"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2279
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2280
    list1Holder := something.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2281
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2282
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2283
list2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2284
    "return/create the 'list2Holder' value holder (automatically generated)"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2285
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2286
    list2Holder isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2287
        list2Holder := ValueHolder new.
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2288
    ].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2289
    ^ list2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2290
!
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2291
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2292
list2Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2293
    "set the 'list2Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2294
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2295
    list2Holder := something.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2296
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2297
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2298
navigatorChangesetHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2299
    "return/create the 'navigatorChangesetHolder' value holder (automatically generated)"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2300
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2301
    navigatorChangesetHolder isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2302
        navigatorChangesetHolder := ValueHolder new.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2303
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2304
    ^ navigatorChangesetHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2305
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2306
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2307
navigatorSpecHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2308
    <resource: #uiAspect>
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2309
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2310
    navigatorSpecHolder isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2311
        navigatorSpecHolder := ValueHolder with:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2312
                                                    "/#hierarchicalNavigatorSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2313
                                                    "/#twoColumnNavigatorSpec
12144
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2314
                                                    #oneColumnNavigatorSpec.
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2315
        navigatorSpecHolder addDependent: self.
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2316
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2317
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2318
    ^ navigatorSpecHolder.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2319
12144
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2320
    "Modified: / 04-02-2012 / 21:25:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2321
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2322
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2323
selection1Holder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2324
    "return/create the 'selection1Holder' value holder (automatically generated)"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2325
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2326
    selection1Holder isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2327
        selection1Holder := ValueHolder new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2328
        selection1Holder addDependent:self.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2329
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2330
    ^ selection1Holder
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2331
!
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2332
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2333
selection1Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2334
    "set the 'selection1Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2335
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2336
    |oldValue newValue|
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2337
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2338
    selection1Holder notNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2339
        oldValue := selection1Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2340
        selection1Holder removeDependent:self.
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2341
    ].
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2342
    selection1Holder := something.
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2343
    selection1Holder notNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2344
        selection1Holder addDependent:self.
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2345
    ].
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2346
    newValue := selection1Holder value.
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2347
    oldValue ~~ newValue ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2348
        self update:#value with:newValue from:selection1Holder.
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2349
    ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2350
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2351
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2352
selection2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2353
    "return/create the 'selection2Holder' value holder (automatically generated)"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2354
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2355
    selection2Holder isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2356
        selection2Holder := ValueHolder new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2357
        selection2Holder addDependent:self.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2358
    ].
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2359
    ^ selection2Holder
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2360
!
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2361
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2362
selection2Holder:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2363
    "set the 'selection2Holder' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2364
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2365
    |oldValue newValue|
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2366
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2367
    selection2Holder notNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2368
        oldValue := selection2Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2369
        selection2Holder removeDependent:self.
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2370
    ].
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2371
    selection2Holder := something.
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2372
    selection2Holder notNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2373
        selection2Holder addDependent:self.
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2374
    ].
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2375
    newValue := selection2Holder value.
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2376
    oldValue ~~ newValue ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2377
        self update:#value with:newValue from:selection2Holder.
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  2378
    ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2379
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2380
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2381
showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2382
    "return/create the 'showFilterHolder' value holder (automatically generated)"
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2383
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2384
    showFilterHolder isNil ifTrue:[
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2385
        showFilterHolder := false asValue.
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2386
    ].
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2387
    ^ showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2388
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2389
    "Modified: / 11-02-2012 / 22:46:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2390
!
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2391
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2392
showFilterHolder:something
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2393
    "set the 'showFilterHolder' value holder (automatically generated)"
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2394
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2395
    showFilterHolder := something.
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2396
!
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2397
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2398
showRemovedAspect
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2399
    "return/create the 'showDeletedAspect' value holder (automatically generated)"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2400
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2401
    showRemovedAspect isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2402
        showRemovedAspect := (AspectAdaptor forAspect:#showRemoved)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2403
                                subject: self class.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2404
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2405
    ^ showRemovedAspect
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2406
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2407
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2408
showRemovedAspect:aValueHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2409
    showRemovedAspect := aValueHolder.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2410
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2411
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2412
showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2413
    "return/create the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2414
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2415
    showSameAspect isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2416
        showSameAspect := ValueHolder with: true.
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2417
    ].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2418
    ^ showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2419
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2420
    "Modified: / 04-08-2011 / 18:42:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2421
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2422
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2423
showSameAspect:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2424
    "set the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2425
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2426
    showSameAspect := something.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2427
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2428
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2429
titleHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2430
    "return/create the 'titleHolder' value holder (automatically generated)"
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2431
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2432
    titleHolder isNil
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2433
        ifTrue:[ titleHolder := ValueHolder with:self defaultTitle. ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2434
    ^ titleHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2435
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2436
    "Modified: / 26-10-2010 / 22:54:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2437
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2438
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2439
updateChangeFileHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2440
    updateChangeFileHolder isNil ifTrue:[
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2441
        updateChangeFileHolder := false asValue.
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2442
    ].
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2443
    ^ updateChangeFileHolder
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2444
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2445
    "Created: / 07-09-2011 / 15:54:03 / cg"
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2446
    "Created: / 11-02-2012 / 22:40:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12207
17656fc80e6c Improvements in method rewriter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12205
diff changeset
  2447
! !
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2448
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2449
!ChangeSetBrowser2 methodsFor:'change & update'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2450
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2451
changesetChanged
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2452
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2453
    self titleHolder value: (self changeset name ? (self defaultTitle)).
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2454
    self list1Holder value: self getNavigatorChangeSet
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2455
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2456
    "Modified: / 04-08-2011 / 18:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2457
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2458
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2459
selectionChanged
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2460
    | change |
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2461
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2462
    change := self theSingleSelectedChange.
10345
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2463
    (change notNil and:[change change isCompositeChange not]) ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2464
        self classHolder value: change changeClass.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2465
        changeSourceHolder setValue: change changeSource; changed: #value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2466
        imageSourceHolder setValue: change imageSource; changed: #value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2467
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2468
        codeAspectHolder value:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2469
            (change change isMethodCodeChange
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2470
                ifTrue:[#method]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2471
                ifFalse:[#expression]).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2472
        self showSource: true
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  2473
    ] ifFalse:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2474
        self showSource: false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2475
        self classHolder value: nil.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2476
        changeSourceHolder setValue: nil; changed: #value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2477
        imageSourceHolder setValue: nil; changed: #value.
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  2478
    ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2479
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2480
    "Created: / 24-10-2009 / 19:49:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2481
    "Modified (format): / 03-12-2011 / 10:38:45 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2482
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2483
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2484
update: aspect with: param from: sender
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2485
12144
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2486
    sender == changesetHolder ifTrue: [ 
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2487
        self changesetChanged .
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2488
        ^self
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2489
    ].
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2490
    sender == navigatorSpecHolder ifTrue: [ 
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2491
        self changesetChanged .
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2492
        ^self
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2493
    ].
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2494
    sender == selection1Holder ifTrue: [ 
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2495
        self selectionChanged.
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2496
        ^self
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2497
    ].
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2498
    sender == selection2Holder ifTrue: [ 
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2499
        self selectionChanged.
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2500
        ^self
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2501
    ].
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2502
    super update: aspect with: param from: sender
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2503
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2504
    "Created: / 24-10-2009 / 19:29:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2505
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2506
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2507
!ChangeSetBrowser2 methodsFor:'menu actions'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2508
12211
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  2509
doApply
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  2510
    "Applies currently selected change"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  2511
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2512
    self changeMenuApplySelection: self list.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2513
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2514
    "Modified: / 30-03-2012 / 12:18:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2515
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2516
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2517
doApplyFromLastSnapshot
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2518
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2519
    self doFindSnapshot: #last.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2520
    self doApplyToEnd.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2521
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2522
    "Modified: / 30-03-2012 / 12:19:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2523
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2524
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2525
doApplyToEnd
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2526
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2527
    self changeMenuApplyToEnd: self list.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2528
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2529
    "Modified: / 30-03-2012 / 12:35:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2530
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2531
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2532
doCompress
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2533
    self breakPoint: #jv.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2534
    Dialog warn: 'Sorry, not yet implemented'
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2535
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2536
    "Modified: / 30-03-2012 / 12:20:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2537
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2538
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2539
doDelete
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2540
   self changeMenuDeleteSelection: self list.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2541
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2542
    "Modified: / 30-03-2012 / 12:21:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2543
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2544
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2545
doDeleteToEnd
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2546
    "automatically generated by UIEditor ..."
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2547
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2548
    "*** the code below performs no action"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2549
    "*** (except for some feedback on the Transcript)"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2550
    "*** Please change as required and accept in the browser."
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2551
    "*** (and replace this comment by something more useful ;-)"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2552
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2553
    "action to be added ..."
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2554
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2555
    Transcript showCR:self class name, ': action for #doDeleteToEnd ...'.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2556
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2557
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2558
doFindSnapshot:anArgument
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2559
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2560
    self breakPoint: #jv.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2561
    Dialog warn: 'Sorry, not yet implemented'
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2562
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2563
    "Modified: / 30-03-2012 / 12:20:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12211
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  2564
!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  2565
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2566
doOpen
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2567
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2568
    | file |
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2569
    file := Dialog requestFileName:'Select Changeset to Load' pattern:'*.chg;*.st'.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2570
    file isNil ifTrue:[^self].
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2571
    self doOpenFile: file
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2572
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2573
    "Modified: / 27-12-2011 / 10:39:36 / cg"
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2574
    "Modified: / 30-03-2012 / 11:44:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2575
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2576
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2577
doOpen: aChangeSet
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2578
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2579
    self changesetHolder value: aChangeSet
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2580
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2581
    "Created: / 05-12-2009 / 13:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2582
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2583
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2584
doOpenCurrent
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2585
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2586
    self doOpenFile: ObjectMemory nameForChanges.
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2587
    self showFilter: true.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2588
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2589
    "Created: / 05-12-2009 / 13:44:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2590
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2591
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2592
doOpenFile: aStringOrFilename
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2593
    | cs |
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2594
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2595
    self showProgress: 'Reading ' , aStringOrFilename asFilename baseName while:[
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2596
        cs := ChangeSet fromFile: aStringOrFilename.
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2597
        self doOpen: cs.
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2598
    ].
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2599
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2600
    "Created: / 09-02-2012 / 19:11:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2601
!
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2602
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2603
doSave
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2604
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2605
    changesetFile
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2606
        ifNil:[self doSaveAs]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2607
        ifNotNil:[self doSaveAs: changesetFile]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2608
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2609
    "Modified: / 24-10-2009 / 22:55:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2610
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2611
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2612
doSaveAs
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2613
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2614
    | file |
12201
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2615
    Dialog aboutToOpenBoxNotificationSignal handle:[:ex|
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2616
"/        OOPS, not supported!!!!!!!!
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2617
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2618
"/        | box |
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2619
"/        box := ex parameter.
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2620
"/        box verticalPanel 
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2621
"/                add:(CheckBox label:'x'
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2622
"/                              model:true asValue).
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2623
        ex pass.
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2624
    ] do:[
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2625
        file := Dialog requestFileName:'Select File for Save' default: (changesetFile ? 'somechanges.chg') pattern:('*.chg').
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2626
    ].
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2627
    file isNil ifTrue:[^self].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2628
    self doSaveAs: file.
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2629
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2630
    "Modified: / 27-12-2011 / 10:39:52 / cg"
12201
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2631
    "Modified: / 20-03-2012 / 13:52:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2632
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2633
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2634
doSaveAs: newFile
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2635
12201
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2636
"/    [
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2637
        self changeset saveToFile: newFile format: #classSource.
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2638
"/    ] on: Error do:
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2639
"/        [:ex|Dialog warn: 'Erorr saving changes: ' , ex description]
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2640
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2641
    "Modified: / 20-03-2012 / 13:52:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2642
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2643
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2644
setTargetNamespace
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2645
    "specify an st/x namespace to be used as default"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2646
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2647
    | nsName |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2648
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2649
    nsName := Dialog 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2650
                requestNameSpace:'Namepace to load code into:' 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2651
                initialAnswer:targetNamespace.    
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2652
    nsName isEmptyOrNil ifTrue:[^self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2653
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2654
    targetNamespace := nsName.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2655
    "/ self targetNamespaceNameHolder value:('Target-Namespace: ',targetNamespace).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2656
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2657
    list1 list do:[:each |
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2658
        each change nameSpaceOverride:nsName
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2659
    ].
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2660
    list2 list do:[:each |
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2661
        each change nameSpaceOverride:nsName
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2662
    ].
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2663
    self changeset do:[:chg | chg nameSpaceOverride:nsName].
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2664
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2665
    "Created: / 07-09-2011 / 12:49:42 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2666
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2667
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2668
setTargetPackage
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2669
    "specify an st/x package identifier to be used as default"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2670
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2671
    | package |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2672
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2673
    package := Dialog 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2674
                requestProject:'Default Smalltalk/X package to load code into:' 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2675
                initialAnswer:targetPackage
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2676
                suggestions:#().    
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2677
    package isNil ifTrue:[^self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2678
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2679
    targetPackage := "lastPackage := "package.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2680
    "/ self targetPackageHolder value:('Target-Package: ',targetPackage).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2681
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2682
    "Created: / 07-09-2011 / 12:47:15 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2683
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2684
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2685
!ChangeSetBrowser2 methodsFor:'menu actions - changes'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2686
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2687
changeMenuApply: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2688
    | changesToApply |
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2689
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2690
    changesToApply := OrderedCollection new.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2691
    self changesDo:[:chg|chg removed ifFalse:[changesToApply add: chg]].
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2692
    self changeMenuApplyChanges: changesToApply.
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2693
    list2 notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2694
        "/ to get the =-icons
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2695
        list2 updateList
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2696
    ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2697
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2698
    "Created: / 04-08-2011 / 17:26:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2699
    "Modified: / 28-12-2011 / 15:49:00 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2700
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2701
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2702
changeMenuApplySelection: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2703
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2704
    changeList selection do:[:change|
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2705
        | changeIdx |
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2706
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2707
        self changeMenuApplyChange:change change.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2708
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2709
        "Advance to next change"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2710
        changeIdx := changeList list identityIndexOf: change.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2711
        changeIdx < changeList list size ifTrue:[
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2712
            changeList selection: { changeList list at: changeIdx + 1 }
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2713
        ].
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2714
    ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2715
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2716
    "Created: / 04-08-2011 / 17:27:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2717
    "Modified (format): / 28-12-2011 / 15:48:53 / cg"
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2718
    "Modified (comment): / 30-03-2012 / 13:18:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2719
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2720
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2721
changeMenuApplyToEnd: changeList
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2722
    | start stop list |
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2723
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2724
    list := changeList list.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2725
    start := changeList selectionIndices max.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2726
    stop  := list size.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2727
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2728
    start to: stop do:[:idx|
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2729
        | chg |
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2730
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2731
        chg := list at: idx.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2732
        changeList selection: { chg }.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2733
        self changeMenuApplyChange:chg change.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2734
    ].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2735
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2736
    list2 notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2737
        "/ to get the =-icons
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2738
        list2 updateList
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2739
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2740
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2741
    "Created: / 04-08-2011 / 17:27:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2742
    "Created: / 27-12-2011 / 10:53:00 / cg"
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2743
    "Modified: / 30-03-2012 / 12:34:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2744
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2745
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2746
changeMenuBrowse: changeList
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2747
    |changes methods classes|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2748
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2749
    changeList == list1 ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2750
        changes := selection1Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2751
    ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2752
        changes := selection2Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2753
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2754
    changes := changes collect:[:c | c change].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2755
    "/ changes := changeList listHolder value collect:[:c | c change].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2756
    (changes conform:[:c | c isClassDefinitionChange]) ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2757
        classes := (changes collect:[:c | c changeClass]).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2758
        UserPreferences current systemBrowserClass 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2759
            browseClasses:classes title:'selected monticello classes'.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2760
    ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2761
        methods := OrderedCollection new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2762
        changes do:[:each |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2763
            each isCompositeChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2764
                each changes do:[:each2 | each2 isMethodChange ifTrue:[ methods add:each2 changeMethod ]]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2765
            ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2766
                each isMethodChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2767
                    methods add:(each changeMethod).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2768
                ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2769
            ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2770
        ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2771
        (methods includes:nil) ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2772
            Dialog warn:('%1 methods are not present in the image' bindWith:(methods occurrencesOf:nil)).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2773
            methods := methods reject:[:m | m isNil].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2774
            methods isEmpty ifTrue:[^ self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2775
        ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2776
        UserPreferences current systemBrowserClass 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2777
            browseMethods:methods title:'selected monticello methods' sort:false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2778
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2779
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2780
    "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2781
    "Modified: / 05-09-2011 / 16:17:48 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2782
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2783
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2784
changeMenuBrowseClass: changeList
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2785
    |changes classes addThemChanges cls|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2786
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2787
    changeList == list1 ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2788
        changes := selection1Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2789
    ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2790
        changes := selection2Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2791
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2792
    changes := changes collect:[:eachListEntry | eachListEntry change].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2793
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2794
    classes := Set new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2795
    addThemChanges := 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2796
        [:c |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2797
            c isClassDefinitionChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2798
                classes add:c changeClass theNonMetaclass
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2799
            ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2800
                c isMethodChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2801
                    cls := c changeMethod isNil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2802
                                ifTrue:[ c changeClass ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2803
                                ifFalse:[ c changeMethod mclass theNonMetaclass ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2804
                    classes add:cls
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2805
                ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2806
                    c isCompositeChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2807
                        c changes do:addThemChanges
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2808
                    ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2809
                ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2810
            ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2811
        ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2812
    changes do:addThemChanges.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2813
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2814
    UserPreferences current systemBrowserClass 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2815
        browseClasses:classes title:'selected monticello classes'.
10666
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  2816
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  2817
    "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2818
    "Created: / 05-09-2011 / 16:08:35 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2819
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2820
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2821
changeMenuCompareClass: changeList
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2822
    |changes classNames classNameToClassMapping lastNameSpace 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2823
     addClassName addThemChanges existingClasses
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2824
     allChanges changeSet1 changeSet2 diffSet|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2825
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2826
    changeList == list1 ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2827
        changes := selection1Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2828
    ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2829
        changes := selection2Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2830
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2831
    changes := changes collect:[:eachListEntry | eachListEntry change].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2832
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2833
    classNameToClassMapping := Dictionary new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2834
    classNames := Set new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2835
    allChanges := ChangeSet new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2836
    existingClasses := Set new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2837
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2838
    addClassName := 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2839
        [:nmArg |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2840
            |nm ns existingClass goodAnswer|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2841
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2842
            nm := nmArg.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2843
            existingClass := Smalltalk classNamed:nm.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2844
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2845
            existingClass notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2846
                goodAnswer := nm
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2847
            ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2848
                ns := NameSpace allNameSpaces 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2849
                                    detect:[:ns | (ns classNamed:nm) notNil ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2850
                                    ifNone:nil.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2851
                ns notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2852
                    goodAnswer := (ns classNamed:nm) name.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2853
                ] ifFalse:[                
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2854
                    goodAnswer := nm.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2855
                    (lastNameSpace notNil 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2856
                        and:[ lastNameSpace isNamespace 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2857
                        and:[(lastNameSpace classNamed:nm) notNil ]]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2858
                    ) ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2859
                        goodAnswer := (lastNameSpace classNamed:nm) name.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2860
                    ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2861
                        (lastNameSpace notNil 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2862
                            and:[ lastNameSpace isBehavior 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2863
                            and:[(lastNameSpace privateClassesAt:nm asSymbol) notNil ]]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2864
                        ) ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2865
                            goodAnswer := (lastNameSpace privateClassesAt:nm asSymbol) name.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2866
                        ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2867
                    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2868
                ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2869
            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2870
            nm := Dialog 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2871
                    request:('Class to compare for "%1"?' bindWith:nmArg)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2872
                    initialAnswer:goodAnswer.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2873
            nm isNil ifTrue:[^ self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2874
            nm notEmpty ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2875
                existingClass := Smalltalk at:nm asSymbol.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2876
            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2877
            existingClass notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2878
                classNameToClassMapping at:nmArg put:existingClass.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2879
                existingClasses add:existingClass.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2880
            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2881
            classNames add:nmArg
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2882
        ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2883
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2884
    addThemChanges := [:changes |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2885
        "/ collect classes and mappings
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2886
        changes do:[:c |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2887
            c isClassDefinitionChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2888
                addClassName value:(c className).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2889
                allChanges add:c.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2890
            ]].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2891
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2892
        changes do:[:c |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2893
            c isMethodChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2894
                (classNames includes:(c className)) ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2895
                    addClassName value:(c className).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2896
                ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2897
                allChanges add:c.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2898
            ]].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2899
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2900
        changes do:[:c |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2901
            c isCompositeChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2902
                addThemChanges value:(c changes)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2903
            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2904
        ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2905
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2906
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2907
    changes do:addThemChanges.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2908
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2909
    "/ now, build a diffset and present it...
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2910
    changeSet1 := allChanges.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2911
    changeSet2 := ChangeSet new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2912
    existingClasses do:[:cls |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2913
        changeSet2 addAll:(ChangeSet forExistingClass:cls).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2914
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2915
    diffSet := changeSet1 diffSetsAgainst:changeSet2.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2916
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2917
    (UserPreferences versionDiffViewerClass)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2918
        openOnDiffSet:diffSet 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2919
        labelA:'Monticello'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2920
        labelB:'Current (In Image)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2921
        title:'Diffs'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2922
        ignoreExtensions:false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2923
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2924
    "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2925
    "Created: / 01-12-2011 / 18:36:44 / cg"
10943
39d815d28b9d added: #changeMenuCompareClass:
Claus Gittinger <cg@exept.de>
parents: 10914
diff changeset
  2926
!
39d815d28b9d added: #changeMenuCompareClass:
Claus Gittinger <cg@exept.de>
parents: 10914
diff changeset
  2927
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2928
changeMenuDeleteSelection: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2929
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2930
    changeList selection do:[:change|self changeMenuDeleteChange:change change].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2931
    list2 notNil ifTrue:[
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2932
        "/ to get the =-icons
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2933
        list2 updateList
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2934
    ].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2935
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2936
    "Created: / 04-08-2011 / 17:28:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2937
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2938
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2939
changeMenuDeleteToEnd: changeList
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2940
    |lastIdx|
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2941
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2942
    lastIdx := changeList selectionIndices max.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2943
    changeList list from:lastIdx do:[:change | self changeMenuDeleteChange:change change].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2944
    list2 notNil ifTrue:[
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2945
        "/ to get the =-icons
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2946
        list2 updateList
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2947
    ].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2948
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2949
    "Created: / 27-12-2011 / 10:53:00 / cg"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2950
    "Created: / 30-03-2012 / 12:22:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2951
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2952
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2953
changeMenuInspect: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2954
12201
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2955
    changeList selection size == 1 ifTrue:[
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2956
        changeList selection anyOne change inspect
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2957
    ] ifFalse:[
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2958
        (changeList selection collect:[:each|each change]) inspect
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2959
    ]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2960
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2961
    "Created: / 04-08-2011 / 17:28:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2962
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2963
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2964
changeMenuInspectChangeset: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2965
    self changesetHolder value inspect.
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2966
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2967
    "Created: / 04-08-2011 / 17:28:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2968
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2969
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2970
changeMenuSelectAdditions: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2971
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2972
    self changeMenuSelectIn: changeList suchThat:[:change|change delta = #+]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2973
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2974
    "Created: / 04-08-2011 / 17:29:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2975
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2976
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2977
changeMenuSelectAll: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2978
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2979
    self changeMenuSelectIn: changeList suchThat:[:change|true]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2980
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2981
    "Created: / 04-08-2011 / 17:29:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2982
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2983
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2984
changeMenuSelectDifferences: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2985
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2986
    self changeMenuSelectIn: changeList suchThat:[:change|change delta = #~]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2987
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2988
    "Created: / 04-08-2011 / 17:29:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2989
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2990
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2991
changeMenuSelectNone: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2992
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2993
    self changeMenuSelectIn: changeList suchThat:[:change|false]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2994
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2995
    "Created: / 04-08-2011 / 17:30:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2996
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2997
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2998
changeMenuSelectRemovals: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2999
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3000
    self changeMenuSelectIn: changeList suchThat:[:change|change delta = #-]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3001
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3002
    "Modified: / 29-10-2010 / 13:18:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3003
    "Created: / 04-08-2011 / 17:35:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3004
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3005
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3006
changeMenuSelectSame: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3007
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3008
    self changeMenuSelectIn: changeList suchThat:[:change|change delta = #=]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3009
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3010
    "Modified: / 29-10-2010 / 13:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3011
    "Created: / 04-08-2011 / 17:35:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3012
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3013
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3014
changeMenuSelectUsingBlock: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3015
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3016
    |conditionBlockString conditionBlock dialog textHolder template|
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3017
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3018
    template :=
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3019
'[:change|
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3020
     "/ Define condition for selection below:
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3021
     "/ change is an instance of Change
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3022
     "/ change will be selected if and only if block returns true
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3023
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3024
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3025
     true"/always select the change
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3026
]
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3027
'.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3029
    LastSelectionConditionString isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3030
        LastSelectionConditionString := template.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3031
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3032
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3033
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3034
    textHolder := ValueHolder new.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3035
    dialog := Dialog
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3036
                 forRequestText:(resources string:'Enter condition for selection')
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3037
                 lines:20
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3038
                 columns:70
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3039
                 initialAnswer:LastSelectionConditionString
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3040
                 model:textHolder.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3041
    dialog addButton:(Button label:'Template' action:[textHolder value:template. textHolder changed:#value.]).
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3042
    dialog open.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3043
    dialog accepted ifFalse:[^ self].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3044
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3045
    conditionBlockString := textHolder value.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3046
    LastSelectionConditionString := conditionBlockString.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3047
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3048
    conditionBlock := Parser evaluate:conditionBlockString.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3049
    conditionBlock isBlock ifFalse:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3050
        self error:'Bad selection block (syntax error?)'.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3051
        ^ self
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3052
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3053
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3054
    self changeMenuSelectIn: changeList suchThat: conditionBlock
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3055
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3056
    "Modified: / 29-10-2010 / 13:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3057
    "Created: / 04-08-2011 / 17:42:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3058
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3059
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3060
changeMenuUndeleteSelection: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3061
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3062
    self selectionDo:[:chg|chg removed: false]
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3063
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3064
    "Modified: / 29-10-2010 / 13:53:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3065
    "Created: / 04-08-2011 / 17:42:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3066
! !
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3067
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3068
!ChangeSetBrowser2 methodsFor:'menu actions - changes - helpers'!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3069
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3070
changeMenuApplyChange: aChange
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3071
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3072
"/    aChange isClassDefinitionChange ifTrue:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3073
"/        [(Smalltalk at: aChange superClassName asSymbol)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3074
"/            ifNil:[^self error: 'Nil superclass']].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3075
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3076
    aChange removed ifTrue:[ ^ self ].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3077
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3078
    self withWaitCursorDo:[      
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3079
        (MCStXNamespaceQuery , Class nameSpaceQuerySignal)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3080
            answer:(NameSpace name:(targetNamespace ? 'Smalltalk'))   
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3081
            do: [
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3082
                (MCStXPackageQuery , Class packageQuerySignal)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3083
                    answer: self targetPackage   
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3084
                    do: [
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3085
                        MCInteractiveLoadingQuery answer: true do:[
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  3086
                            updateChangeFileHolder value ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3087
                                aChange apply
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3088
                            ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3089
                                Class withoutUpdatingChangesDo:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3090
                                    aChange apply
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3091
                                ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3092
                            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3093
                        ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3094
                    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3095
            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3096
    ].
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3097
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3098
    "Modified: / 07-09-2011 / 22:24:57 / cg"
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3099
    "Modified: / 30-03-2012 / 13:20:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3100
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3101
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3102
changeMenuApplyChanges: changesToApply
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3103
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3104
    | changesThatFailToApply |
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3105
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3106
    changesThatFailToApply := ChangeSet new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3107
    ProgressIndicator
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3108
        displayProgress:'Applying changes...'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3109
        at:(Screen default center)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3110
        from:200 to:400
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3111
        during:[:val |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3112
            1 to: changesToApply size do:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3113
                [:i|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3114
                val value:((100 / changesToApply size) * i) rounded.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3115
                [self changeMenuApplyChange: (changesToApply at: i)]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3116
                    on: Error do:[changesThatFailToApply add: (changesToApply at: i)]]]
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3117
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3118
    "Created: / 04-08-2011 / 17:26:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3119
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3120
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3121
changeMenuDeleteChange: change
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3122
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3123
    change removed: true
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3124
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3125
    "Created: / 30-03-2012 / 12:22:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3126
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3127
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3128
changeMenuSelectIn: changeList suchThat:conditionBlock
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3129
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3130
    | sel |
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3131
    sel := OrderedCollection new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3132
    changeList listHolder value do: [:chg|(conditionBlock value: chg) ifTrue:[sel add: chg]].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3133
    changeList selectionHolder value: sel.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3134
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3135
    "Created: / 04-08-2011 / 17:29:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3136
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3137
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3138
!ChangeSetBrowser2 methodsFor:'private'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3139
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3140
changesDo:aBlock
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3141
    self changeset do:aBlock.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3142
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3143
    "Created: / 30-08-2011 / 14:30:58 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3144
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3145
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3146
getNavigatorChangeSet
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3147
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3148
    | changeset |
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3149
    changeset := changesetHolder value deepCopy.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3150
    (changeset isKindOf: ChangeSet) ifFalse:
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3151
        [changeset := ChangeSet withAll: changeset].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3152
12144
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3153
    ^ (self navigatorSpecHolder value ~~ #oneColumnNavigatorSpec) ifTrue:[
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3154
        changeset groupByClass
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3155
    ] ifFalse:[
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3156
        changeset flatten
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3157
    ]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3158
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3159
    "Created: / 24-10-2009 / 19:31:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12144
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3160
    "Modified: / 04-02-2012 / 21:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3161
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3162
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3163
list
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3164
    "Returns list to operate on"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3165
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3166
    ^self isTwoColumn ifTrue:[list2] ifFalse:[list1]
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3167
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3168
    "Created: / 30-03-2012 / 12:02:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3169
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3170
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3171
redrawChangeListViews
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3172
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3173
    list1 notNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3174
        list1 builder window allSubViewsDo: [:v|v redraw]
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3175
    ].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3176
    list2 notNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3177
        list2 builder window allSubViewsDo: [:v|v redraw]
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3178
    ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3179
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3180
    "Created: / 16-03-2011 / 22:41:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3181
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3182
10453
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3183
selectionDo: aBlock
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3184
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3185
    | applyBlock |
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3186
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3187
    applyBlock := [:e|aBlock value: e change].
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3188
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3189
"/    selectionHolder value isEmptyOrNil ifTrue:[
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3190
"/        (self navigatorChangesetHolder value ? #()) do: aBlock
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3191
"/    ] ifFalse:[
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3192
        selection2Holder value isEmptyOrNil not
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3193
            ifTrue:[selection2Holder value do: applyBlock]
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3194
            ifFalse:[selection1Holder value do: applyBlock].
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3195
"/    ].
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3196
    self redrawChangeListViews
10453
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3197
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3198
    "Created: / 29-10-2010 / 13:47:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3199
    "Modified: / 08-04-2011 / 10:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3200
    "Modified: / 20-03-2012 / 17:16:40 / cg"
10453
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3201
!
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3202
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3203
showProgress: label while: block
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3204
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3205
    self infoPanel progress: label while: block
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3206
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3207
    "Created: / 10-02-2012 / 10:35:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3208
!
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3209
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3210
showSource: aBoolean
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3211
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3212
    | panel |
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3213
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3214
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3215
    "Not yet implemented"
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3216
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3217
    ^self.
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3218
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3219
    sourceView ifNil:[^self].
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3220
    panel := builder componentAt: #VerticalPanel.
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3221
    aBoolean ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3222
        (panel subViews includes: sourceView) ifTrue:[^self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3223
        panel addSubView: sourceView.
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3224
    ] ifFalse:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3225
        (panel subViews includes: sourceView) ifFalse:[^self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3226
        panel removeSubView: sourceView.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3227
        sourceView setId: nil.
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3228
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3229
    ]
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3230
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3231
    "Created: / 11-07-2011 / 16:06:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3232
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3233
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3234
targetPackage
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3235
    ^ targetPackage ? PackageId noProjectID
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3236
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3237
    "Created: / 07-09-2011 / 20:12:04 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3238
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3239
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3240
!ChangeSetBrowser2 methodsFor:'queries'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3241
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3242
canApplyChanges
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3243
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3244
    ^true
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3245
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3246
    "Created: / 29-10-2010 / 13:07:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3247
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3248
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3249
canDrop: somethign
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3250
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3251
    self breakPoint:#jv.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3252
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3253
    "Created: / 20-03-2011 / 21:34:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3254
    "Modified: / 07-09-2011 / 20:21:15 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3255
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3256
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3257
hasChangeSelectedAndNotRemoved: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3258
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3259
    | sel |
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3260
    sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3261
    sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3262
    ^(sel anySatisfy:[:each|each removed]) not
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3263
10380
f2a255ec6fc9 not ifTrue -> ifFalse (trying the rewrite tool ;-)
Claus Gittinger <cg@exept.de>
parents: 10370
diff changeset
  3264
    "Modified: / 24-07-2011 / 06:52:28 / cg"
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3265
    "Created: / 04-08-2011 / 18:23:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3266
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3267
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3268
hasSingleChangeSelectedAndCanBrowse: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3269
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3270
    | sel |
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3271
    sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3272
    sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3273
    ^true
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3274
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3275
    "Created: / 04-08-2011 / 18:25:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3276
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3277
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3278
!ChangeSetBrowser2 methodsFor:'testing'!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3279
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3280
isHierarchical
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3281
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3282
    ^self navigatorSpecHolder == #hierarchicalNavigatorSpec
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3283
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3284
    "Modified: / 14-10-2010 / 15:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3285
    "Created: / 30-03-2012 / 11:59:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3286
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3287
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3288
isOneColumn
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3289
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3290
    ^self navigatorSpecHolder value == #oneColumnNavigatorSpec
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3291
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3292
    "Modified: / 14-10-2010 / 15:52:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3293
    "Created: / 30-03-2012 / 11:59:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3294
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3295
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3296
isTwoColumn
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3297
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3298
    ^self navigatorSpecHolder == #twoColumnNavigatorSpec
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3299
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3300
    "Modified: / 14-10-2010 / 15:51:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3301
    "Created: / 30-03-2012 / 11:59:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3302
! !
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3303
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3304
!ChangeSetBrowser2::ChangeEditor class methodsFor:'documentation'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3305
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3306
documentation
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3307
"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3308
    A simple, embeddable window to show a single change.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3309
    If readonlyHolder's value is false, then user is
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3310
    allowed to edit the change (i.e., modify the source code)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3311
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3312
    [author:]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3313
        Jan Vrany <jan.vrany@fit.cvut.cz>
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3314
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3315
    [instance variables:]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3316
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3317
    [class variables:]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3318
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3319
    [see also:]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3320
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3321
"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3322
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3323
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3324
examples
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3325
"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3326
  Starting the application:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3327
                                                                [exBegin]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3328
    Tools::ChangeEditor open
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3329
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3330
                                                                [exEnd]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3331
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3332
  more examples to be added:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3333
                                                                [exBegin]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3334
    ... add code fragment for 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3335
    ... executable example here ...
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3336
                                                                [exEnd]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3337
"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3338
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3339
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3340
!ChangeSetBrowser2::ChangeEditor class methodsFor:'interface specs'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3341
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3342
windowSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3343
    "This resource specification was automatically generated
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3344
     by the UIPainter of ST/X."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3345
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3346
    "Do not manually edit this!! If it is corrupted,
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3347
     the UIPainter may not be able to read the specification."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3348
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3349
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3350
     UIPainter new openOnClass:Tools::ChangeSetBrowser2::ChangeEditor andSelector:#windowSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3351
     Tools::ChangeSetBrowser2::ChangeEditor new openInterface:#windowSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3352
     Tools::ChangeSetBrowser2::ChangeEditor open
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3353
    "
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3354
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3355
    <resource: #canvas>
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3356
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3357
    ^ 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3358
     #(FullSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3359
        name: windowSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3360
        window: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3361
       (WindowSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3362
          label: 'Change Editor'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3363
          name: 'Change Editor'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3364
          min: (Point 10 10)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3365
          bounds: (Rectangle 0 0 579 341)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3366
        )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3367
        component: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3368
       (SpecCollection
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3369
          collection: (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3370
           (SubCanvasSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3371
              name: 'TextDiffTool'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3372
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3373
              hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3374
              hasVerticalScrollBar: false
12179
47f98e7d6de1 Improvments towards merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12154
diff changeset
  3375
              majorKey: #'Tools::TextDiff2Tool'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3376
              minorKey: windowSpecForEmbedding
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3377
              subAspectHolders: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3378
             (Array
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3379
                
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3380
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3381
                  subAspect: classHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3382
                  aspect: classAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3383
                ) 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3384
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3385
                  subAspect: codeAspectHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3386
                  aspect: codeAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3387
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3388
                
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3389
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3390
                  subAspect: labelAHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3391
                  aspect: labelAHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3392
                ) 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3393
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3394
                  subAspect: labelBHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3395
                  aspect: labelBHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3396
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3397
                
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3398
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3399
                  subAspect: showDiffHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3400
                  aspect: showdiffHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3401
                ) 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3402
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3403
                  subAspect: textAHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3404
                  aspect: sourceChangeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3405
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3406
                
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3407
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3408
                  subAspect: textBHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3409
                  aspect: sourceImageHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3410
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3411
              )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3412
              createNewApplication: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3413
              createNewBuilder: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3414
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3415
           )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3416
         
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3417
        )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3418
      )
12179
47f98e7d6de1 Improvments towards merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12154
diff changeset
  3419
47f98e7d6de1 Improvments towards merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12154
diff changeset
  3420
    "Modified: / 16-03-2012 / 13:08:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3421
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3422
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3423
!ChangeSetBrowser2::ChangeEditor methodsFor:'accessing'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3424
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3425
sourceChangeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3426
    ^ sourceChangeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3427
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3428
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3429
sourceChangeHolder:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3430
    sourceChangeHolder := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3431
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3432
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3433
sourceImageHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3434
    ^ sourceImageHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3435
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3436
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3437
sourceImageHolder:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3438
    sourceImageHolder := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3439
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3440
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3441
!ChangeSetBrowser2::ChangeEditor methodsFor:'aspects'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3442
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3443
changeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3444
    "return/create the 'changeHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3445
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3446
    changeHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3447
        changeHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3448
        changeHolder addDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3449
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3450
    ^ changeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3451
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3452
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3453
changeHolder:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3454
    "set the 'changeHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3455
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3456
    |oldValue newValue|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3457
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3458
    changeHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3459
        oldValue := changeHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3460
        changeHolder removeDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3461
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3462
    changeHolder := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3463
    changeHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3464
        changeHolder addDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3465
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3466
    newValue := changeHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3467
    oldValue ~~ newValue ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3468
        self update:#value with:newValue from:changeHolder.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3469
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3470
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3471
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3472
classAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3473
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3474
    ^(AspectAdaptor forAspect: #changeClass) 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3475
        subjectChannel: self changeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3476
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3477
    "Created: / 29-11-2011 / 11:21:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3478
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3479
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3480
codeAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3481
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3482
    ^BlockValue
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3483
        with: [:change|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3484
            change isMethodCodeChange
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3485
                ifTrue:[#method]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3486
                ifFalse:[#expression]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3487
        ] argument: self changeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3488
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3489
    "Created: / 29-11-2011 / 11:21:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3490
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3491
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3492
labelAText
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3493
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3494
    ^'Change'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3495
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3496
    "Created: / 27-11-2011 / 14:59:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3497
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3498
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3499
labelBText
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3500
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3501
    ^'Current (in image)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3502
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3503
    "Created: / 27-11-2011 / 14:59:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3504
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3505
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3506
readonlyHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3507
    "return/create the 'readonlyHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3508
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3509
    readonlyHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3510
        readonlyHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3511
        readonlyHolder addDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3512
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3513
    ^ readonlyHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3514
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3515
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3516
readonlyHolder:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3517
    "set the 'readonlyHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3518
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3519
    |oldValue newValue|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3520
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3521
    readonlyHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3522
        oldValue := readonlyHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3523
        readonlyHolder removeDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3524
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3525
    readonlyHolder := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3526
    readonlyHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3527
        readonlyHolder addDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3528
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3529
    newValue := readonlyHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3530
    oldValue ~~ newValue ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3531
        self update:#value with:newValue from:readonlyHolder.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3532
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3533
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3534
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3535
showdiffHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3536
    "return/create the 'showdiffHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3537
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3538
    showdiffHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3539
        showdiffHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3540
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3541
    ^ showdiffHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3542
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3543
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3544
showdiffHolder:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3545
    "set the 'showdiffHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3546
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3547
    showdiffHolder := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3548
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3549
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3550
!ChangeSetBrowser2::ChangeEditor methodsFor:'change & update'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3551
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3552
changeChanged
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3553
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3554
    "changeHolder has changed, update sources etc..."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3555
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3556
    | change |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3557
    change := changeHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3558
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3559
    sourceChangeHolder value: change changeSource.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3560
    sourceImageHolder value: change imageSource.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3561
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3562
    "Created: / 29-11-2011 / 11:15:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3563
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3564
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3565
update:something with:aParameter from:changedObject
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3566
    "Invoked when an object that I depend upon sends a change notification."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3567
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3568
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3569
    changedObject == changeHolder ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3570
         self changeChanged.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3571
         ^ self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3572
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3573
    super update:something with:aParameter from:changedObject
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3574
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3575
    "Modified: / 29-11-2011 / 11:15:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3576
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3577
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3578
!ChangeSetBrowser2 class methodsFor:'documentation'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3579
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  3580
version
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3581
    ^ '$Id: Tools__ChangeSetBrowser2.st 7960 2012-03-30 13:35:31Z vranyj1 $'
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  3582
!
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  3583
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3584
version_CVS
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3585
    ^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.32 2012/03/20 18:18:17 cg Exp §'
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3586
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3587
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3588
version_SVN
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3589
    ^ '$Id: Tools__ChangeSetBrowser2.st 7960 2012-03-30 13:35:31Z vranyj1 $'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3590
! !