Tools__ChangeSetBrowser2.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 03 Apr 2012 13:32:03 +0100
branchjv
changeset 12216 5698c277f043
parent 12214 4b7eedbab2a7
child 12247 1bd3e7f3c9c9
permissions -rw-r--r--
- Improvements in FileBrowserV2/V3 - ChangeSetBrowser2 now displays timestamp
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
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
    37
		updateChangeFileHolder showFilterHolder showColumnSpecHolder'
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
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2381
showColumnSpecHolder
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2382
    "return/create the 'showColumnSpecHolder' value holder (automatically generated)"
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2383
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2384
    showColumnSpecHolder isNil ifTrue:[
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2385
        showColumnSpecHolder := List new.
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2386
        showColumnSpecHolder addDependent:self.
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2387
    ].
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2388
    ^ showColumnSpecHolder
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2389
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2390
    "Modified: / 03-04-2012 / 11:49:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2391
!
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2392
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2393
showColumnSpecHolder:something
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2394
    "set the 'showColumnSpecHolder' value holder (automatically generated)"
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2395
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2396
    |oldValue newValue|
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2397
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2398
    showColumnSpecHolder notNil ifTrue:[
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2399
        oldValue := showColumnSpecHolder value.
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2400
        showColumnSpecHolder removeDependent:self.
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2401
    ].
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2402
    showColumnSpecHolder := something.
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2403
    showColumnSpecHolder notNil ifTrue:[
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2404
        showColumnSpecHolder addDependent:self.
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2405
    ].
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2406
    newValue := showColumnSpecHolder value.
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2407
    oldValue ~~ newValue ifTrue:[
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2408
        self update:#value with:newValue from:showColumnSpecHolder.
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2409
    ].
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2410
!
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2411
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2412
showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2413
    "return/create the 'showFilterHolder' value holder (automatically generated)"
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2414
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2415
    showFilterHolder isNil ifTrue:[
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2416
        showFilterHolder := false asValue.
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2417
    ].
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2418
    ^ showFilterHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2419
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2420
    "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
  2421
!
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2422
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2423
showFilterHolder:something
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2424
    "set the 'showFilterHolder' value holder (automatically generated)"
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2425
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2426
    showFilterHolder := something.
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2427
!
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2428
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2429
showRemovedAspect
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2430
    "return/create the 'showDeletedAspect' value holder (automatically generated)"
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2431
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2432
    showRemovedAspect isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2433
        showRemovedAspect := (AspectAdaptor forAspect:#showRemoved)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2434
                                subject: self class.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2435
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2436
    ^ showRemovedAspect
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2437
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2438
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2439
showRemovedAspect:aValueHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2440
    showRemovedAspect := aValueHolder.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2441
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2442
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2443
showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2444
    "return/create the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2445
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2446
    showSameAspect isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2447
        showSameAspect := ValueHolder with: true.
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2448
    ].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2449
    ^ showSameAspect
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2450
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2451
    "Modified: / 04-08-2011 / 18:42:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2452
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2453
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2454
showSameAspect:something
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2455
    "set the 'showSameAspect' value holder (automatically generated)"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2456
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2457
    showSameAspect := something.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2458
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2459
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2460
titleHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2461
    "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
  2462
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2463
    titleHolder isNil
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2464
        ifTrue:[ titleHolder := ValueHolder with:self defaultTitle. ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2465
    ^ titleHolder
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2466
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2467
    "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
  2468
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2469
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2470
updateChangeFileHolder
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2471
    updateChangeFileHolder isNil ifTrue:[
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2472
        updateChangeFileHolder := false asValue.
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2473
    ].
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2474
    ^ updateChangeFileHolder
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2475
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2476
    "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
  2477
    "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
  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
!ChangeSetBrowser2 methodsFor:'change & update'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2481
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2482
changesetChanged
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2483
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2484
    self titleHolder value: (self changeset name ? (self defaultTitle)).
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2485
    self list1Holder value: self getNavigatorChangeSet
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2486
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2487
    "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
  2488
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2489
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2490
selectionChanged
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2491
    | change |
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2492
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2493
    change := self theSingleSelectedChange.
10345
110c6de006a3 More improvements fixes in diff tools
vrany
parents: 10333
diff changeset
  2494
    (change notNil and:[change change isCompositeChange not]) ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2495
        self classHolder value: change changeClass.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2496
        changeSourceHolder setValue: change changeSource; changed: #value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2497
        imageSourceHolder setValue: change imageSource; changed: #value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2498
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2499
        codeAspectHolder value:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2500
            (change change isMethodCodeChange
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2501
                ifTrue:[#method]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2502
                ifFalse:[#expression]).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2503
        self showSource: true
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  2504
    ] ifFalse:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2505
        self showSource: false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2506
        self classHolder value: nil.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2507
        changeSourceHolder setValue: nil; changed: #value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2508
        imageSourceHolder setValue: nil; changed: #value.
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  2509
    ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2510
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2511
    "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
  2512
    "Modified (format): / 03-12-2011 / 10:38:45 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2513
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2514
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2515
update: aspect with: param from: sender
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2516
12144
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2517
    sender == changesetHolder ifTrue: [ 
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2518
        self changesetChanged .
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2519
        ^self
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2520
    ].
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2521
    sender == navigatorSpecHolder ifTrue: [ 
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2522
        self changesetChanged .
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2523
        ^self
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2524
    ].
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2525
    sender == selection1Holder ifTrue: [ 
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2526
        self selectionChanged.
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2527
        ^self
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2528
    ].
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2529
    sender == selection2Holder ifTrue: [ 
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2530
        self selectionChanged.
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2531
        ^self
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2532
    ].
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  2533
    super update: aspect with: param from: sender
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2534
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2535
    "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
  2536
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2537
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2538
!ChangeSetBrowser2 methodsFor:'menu actions'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2539
12211
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  2540
doApply
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  2541
    "Applies currently selected change"
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  2542
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2543
    self changeMenuApplySelection: self list.
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
    "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
  2546
!
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
doApplyFromLastSnapshot
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2549
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2550
    self doFindSnapshot: #last.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2551
    self doApplyToEnd.
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
    "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
  2554
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2555
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2556
doApplyToEnd
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
    self changeMenuApplyToEnd: self list.
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
    "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
  2561
!
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
doCompress
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2564
    self breakPoint: #jv.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2565
    Dialog warn: 'Sorry, not yet implemented'
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2566
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2567
    "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
  2568
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2569
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2570
doDelete
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2571
   self changeMenuDeleteSelection: self list.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2572
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2573
    "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
  2574
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2575
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2576
doDeleteToEnd
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2577
    "automatically generated by UIEditor ..."
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2578
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2579
    "*** the code below performs no action"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2580
    "*** (except for some feedback on the Transcript)"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2581
    "*** Please change as required and accept in the browser."
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2582
    "*** (and replace this comment by something more useful ;-)"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2583
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2584
    "action to be added ..."
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2585
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2586
    Transcript showCR:self class name, ': action for #doDeleteToEnd ...'.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2587
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2588
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2589
doFindSnapshot:anArgument
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2590
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2591
    self breakPoint: #jv.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2592
    Dialog warn: 'Sorry, not yet implemented'
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2593
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2594
    "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
  2595
!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12207
diff changeset
  2596
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2597
doOpen
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2598
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2599
    | file |
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2600
    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
  2601
    file isNil ifTrue:[^self].
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2602
    self doOpenFile: file
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2603
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2604
    "Modified: / 27-12-2011 / 10:39:36 / cg"
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2605
    "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
  2606
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2607
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2608
doOpen: aChangeSet
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2609
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2610
    self changesetHolder value: aChangeSet
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2611
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2612
    "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
  2613
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2614
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2615
doOpenCurrent
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2616
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2617
    self doOpenFile: ObjectMemory nameForChanges.
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  2618
    self showFilter: true.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2619
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2620
    "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
  2621
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2622
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2623
doOpenFile: aStringOrFilename
12214
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2624
    | cs fn |
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2625
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2626
    self showProgress: 'Reading ' , (fn := aStringOrFilename asFilename) baseName while:[
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2627
        cs := ChangeSet fromFile: aStringOrFilename.
12214
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2628
        (fn suffix = 'chg') ifTrue:[
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2629
            self list scrollToBottom: true.
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2630
            (self showColumnSpecHolder includes:#timestamp) ifFalse:[
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2631
                self showColumnSpecHolder add: #timestamp
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2632
            ].
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2633
        ] ifFalse:[
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  2634
            self showColumnSpecHolder remove: #timestamp ifAbsent:[].
12214
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2635
        ].
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2636
        self doOpen: cs.
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2637
    ].
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2638
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2639
    "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
  2640
!
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  2641
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2642
doSave
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2643
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2644
    changesetFile
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2645
        ifNil:[self doSaveAs]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2646
        ifNotNil:[self doSaveAs: changesetFile]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2647
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2648
    "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
  2649
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2650
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2651
doSaveAs
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2652
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2653
    | file |
12201
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2654
    Dialog aboutToOpenBoxNotificationSignal handle:[:ex|
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2655
"/        OOPS, not supported!!!!!!!!
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2656
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2657
"/        | box |
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2658
"/        box := ex parameter.
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2659
"/        box verticalPanel 
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2660
"/                add:(CheckBox label:'x'
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2661
"/                              model:true asValue).
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2662
        ex pass.
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2663
    ] do:[
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2664
        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
  2665
    ].
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2666
    file isNil ifTrue:[^self].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2667
    self doSaveAs: file.
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2668
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2669
    "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
  2670
    "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
  2671
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2672
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2673
doSaveAs: newFile
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2674
12201
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2675
"/    [
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2676
        self changeset saveToFile: newFile format: #classSource.
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2677
"/    ] on: Error do:
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2678
"/        [:ex|Dialog warn: 'Erorr saving changes: ' , ex description]
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2679
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  2680
    "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
  2681
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2682
12214
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2683
doScrollToBottom
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2684
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2685
    | changeList |
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2686
    changeList := self list.
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2687
    changeList selection: { changeList list last }
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2688
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2689
    "Created: / 30-03-2012 / 16:56:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2690
!
4b7eedbab2a7 - ChangeSetBrowser2: scroll to bottom after opening a changeset
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12213
diff changeset
  2691
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2692
setTargetNamespace
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2693
    "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
  2694
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2695
    | nsName |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2696
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2697
    nsName := Dialog 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2698
                requestNameSpace:'Namepace to load code into:' 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2699
                initialAnswer:targetNamespace.    
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2700
    nsName isEmptyOrNil ifTrue:[^self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2701
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2702
    targetNamespace := nsName.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2703
    "/ self targetNamespaceNameHolder value:('Target-Namespace: ',targetNamespace).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2704
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2705
    list1 list do:[:each |
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2706
        each change nameSpaceOverride:nsName
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2707
    ].
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2708
    list2 list do:[:each |
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2709
        each change nameSpaceOverride:nsName
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2710
    ].
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2711
    self changeset do:[:chg | chg nameSpaceOverride:nsName].
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  2712
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2713
    "Created: / 07-09-2011 / 12:49:42 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2714
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2715
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2716
setTargetPackage
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2717
    "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
  2718
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2719
    | package |
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
    package := Dialog 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2722
                requestProject:'Default Smalltalk/X package to load code into:' 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2723
                initialAnswer:targetPackage
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2724
                suggestions:#().    
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2725
    package isNil ifTrue:[^self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2726
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2727
    targetPackage := "lastPackage := "package.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2728
    "/ self targetPackageHolder value:('Target-Package: ',targetPackage).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2729
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2730
    "Created: / 07-09-2011 / 12:47:15 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2731
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2732
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2733
!ChangeSetBrowser2 methodsFor:'menu actions - changes'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2734
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2735
changeMenuApply: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2736
    | changesToApply |
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2737
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  2738
    changesToApply := OrderedCollection new.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2739
    self changesDo:[:chg|chg removed ifFalse:[changesToApply add: chg]].
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2740
    self changeMenuApplyChanges: changesToApply.
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2741
    list2 notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2742
        "/ to get the =-icons
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2743
        list2 updateList
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2744
    ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2745
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2746
    "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
  2747
    "Modified: / 28-12-2011 / 15:49:00 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2748
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2749
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2750
changeMenuApplySelection: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2751
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2752
    changeList selection do:[:change|
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2753
        | changeIdx |
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2754
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2755
        self changeMenuApplyChange:change change.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2756
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2757
        "Advance to next change"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2758
        changeIdx := changeList list identityIndexOf: change.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2759
        changeIdx < changeList list size ifTrue:[
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2760
            changeList selection: { changeList list at: changeIdx + 1 }
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2761
        ].
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2762
    ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2763
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2764
    "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
  2765
    "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
  2766
    "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
  2767
!
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
changeMenuApplyToEnd: changeList
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2770
    | start stop list |
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2771
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2772
    list := changeList list.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2773
    start := changeList selectionIndices max.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2774
    stop  := list size.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2775
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2776
    start to: stop do:[:idx|
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2777
        | chg |
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2778
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2779
        chg := list at: idx.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2780
        changeList selection: { chg }.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2781
        self changeMenuApplyChange:chg change.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2782
    ].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2783
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2784
    list2 notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2785
        "/ to get the =-icons
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2786
        list2 updateList
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2787
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2788
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2789
    "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
  2790
    "Created: / 27-12-2011 / 10:53:00 / cg"
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2791
    "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
  2792
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2793
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2794
changeMenuBrowse: changeList
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2795
    |changes methods classes|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2796
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2797
    changeList == list1 ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2798
        changes := selection1Holder value.
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
        changes := selection2Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2801
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2802
    changes := changes collect:[:c | c change].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2803
    "/ changes := changeList listHolder value collect:[:c | c change].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2804
    (changes conform:[:c | c isClassDefinitionChange]) ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2805
        classes := (changes collect:[:c | c changeClass]).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2806
        UserPreferences current systemBrowserClass 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2807
            browseClasses:classes title:'selected monticello classes'.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2808
    ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2809
        methods := OrderedCollection new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2810
        changes do:[:each |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2811
            each isCompositeChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2812
                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
  2813
            ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2814
                each isMethodChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2815
                    methods add:(each changeMethod).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2816
                ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2817
            ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2818
        ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2819
        (methods includes:nil) ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2820
            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
  2821
            methods := methods reject:[:m | m isNil].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2822
            methods isEmpty ifTrue:[^ self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2823
        ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2824
        UserPreferences current systemBrowserClass 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2825
            browseMethods:methods title:'selected monticello methods' sort:false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2826
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2827
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2828
    "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
  2829
    "Modified: / 05-09-2011 / 16:17:48 / cg"
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
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2832
changeMenuBrowseClass: changeList
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2833
    |changes classes addThemChanges cls|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2834
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2835
    changeList == list1 ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2836
        changes := selection1Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2837
    ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2838
        changes := selection2Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2839
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2840
    changes := changes collect:[:eachListEntry | eachListEntry change].
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
    classes := Set new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2843
    addThemChanges := 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2844
        [:c |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2845
            c isClassDefinitionChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2846
                classes add:c changeClass theNonMetaclass
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
                c isMethodChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2849
                    cls := c changeMethod isNil
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2850
                                ifTrue:[ c changeClass ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2851
                                ifFalse:[ c changeMethod mclass theNonMetaclass ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2852
                    classes add:cls
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
                    c isCompositeChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2855
                        c changes do:addThemChanges
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2856
                    ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2857
                ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2858
            ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2859
        ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2860
    changes do:addThemChanges.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2861
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2862
    UserPreferences current systemBrowserClass 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2863
        browseClasses:classes title:'selected monticello classes'.
10666
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  2864
Claus Gittinger <cg@exept.de>
parents: 10665
diff changeset
  2865
    "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
  2866
    "Created: / 05-09-2011 / 16:08:35 / cg"
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
changeMenuCompareClass: changeList
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2870
    |changes classNames classNameToClassMapping lastNameSpace 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2871
     addClassName addThemChanges existingClasses
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2872
     allChanges changeSet1 changeSet2 diffSet|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2873
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2874
    changeList == list1 ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2875
        changes := selection1Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2876
    ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2877
        changes := selection2Holder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2878
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2879
    changes := changes collect:[:eachListEntry | eachListEntry change].
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
    classNameToClassMapping := Dictionary new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2882
    classNames := Set new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2883
    allChanges := ChangeSet new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2884
    existingClasses := Set new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2885
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2886
    addClassName := 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2887
        [:nmArg |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2888
            |nm ns existingClass goodAnswer|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2889
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2890
            nm := nmArg.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2891
            existingClass := Smalltalk classNamed:nm.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2892
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2893
            existingClass notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2894
                goodAnswer := nm
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2895
            ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2896
                ns := NameSpace allNameSpaces 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2897
                                    detect:[:ns | (ns classNamed:nm) notNil ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2898
                                    ifNone:nil.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2899
                ns notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2900
                    goodAnswer := (ns classNamed:nm) name.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2901
                ] ifFalse:[                
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2902
                    goodAnswer := nm.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2903
                    (lastNameSpace notNil 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2904
                        and:[ lastNameSpace isNamespace 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2905
                        and:[(lastNameSpace classNamed:nm) notNil ]]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2906
                    ) ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2907
                        goodAnswer := (lastNameSpace classNamed:nm) name.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2908
                    ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2909
                        (lastNameSpace notNil 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2910
                            and:[ lastNameSpace isBehavior 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2911
                            and:[(lastNameSpace privateClassesAt:nm asSymbol) notNil ]]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2912
                        ) ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2913
                            goodAnswer := (lastNameSpace privateClassesAt:nm asSymbol) name.
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
                    ].
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
            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2918
            nm := Dialog 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2919
                    request:('Class to compare for "%1"?' bindWith:nmArg)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2920
                    initialAnswer:goodAnswer.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2921
            nm isNil ifTrue:[^ self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2922
            nm notEmpty ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2923
                existingClass := Smalltalk at:nm asSymbol.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2924
            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2925
            existingClass notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2926
                classNameToClassMapping at:nmArg put:existingClass.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2927
                existingClasses add:existingClass.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2928
            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2929
            classNames add:nmArg
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2930
        ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2931
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2932
    addThemChanges := [:changes |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2933
        "/ collect classes and mappings
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2934
        changes do:[:c |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2935
            c isClassDefinitionChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2936
                addClassName value:(c className).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2937
                allChanges add:c.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2938
            ]].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2939
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2940
        changes do:[:c |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2941
            c isMethodChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2942
                (classNames includes:(c className)) ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2943
                    addClassName value:(c className).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2944
                ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2945
                allChanges add:c.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2946
            ]].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2947
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2948
        changes do:[:c |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2949
            c isCompositeChange ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2950
                addThemChanges value:(c changes)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2951
            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2952
        ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2953
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2954
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2955
    changes do:addThemChanges.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2956
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2957
    "/ now, build a diffset and present it...
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2958
    changeSet1 := allChanges.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2959
    changeSet2 := ChangeSet new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2960
    existingClasses do:[:cls |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2961
        changeSet2 addAll:(ChangeSet forExistingClass:cls).
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2962
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2963
    diffSet := changeSet1 diffSetsAgainst:changeSet2.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2964
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2965
    (UserPreferences versionDiffViewerClass)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2966
        openOnDiffSet:diffSet 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2967
        labelA:'Monticello'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2968
        labelB:'Current (In Image)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2969
        title:'Diffs'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2970
        ignoreExtensions:false.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2971
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  2972
    "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
  2973
    "Created: / 01-12-2011 / 18:36:44 / cg"
10943
39d815d28b9d added: #changeMenuCompareClass:
Claus Gittinger <cg@exept.de>
parents: 10914
diff changeset
  2974
!
39d815d28b9d added: #changeMenuCompareClass:
Claus Gittinger <cg@exept.de>
parents: 10914
diff changeset
  2975
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2976
changeMenuDeleteSelection: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2977
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2978
    changeList selection do:[:change|self changeMenuDeleteChange:change change].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2979
    list2 notNil ifTrue:[
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2980
        "/ to get the =-icons
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2981
        list2 updateList
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2982
    ].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2983
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  2984
    "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
  2985
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2986
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2987
changeMenuDeleteToEnd: changeList
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2988
    |lastIdx|
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2989
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2990
    lastIdx := changeList selectionIndices max.
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2991
    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
  2992
    list2 notNil ifTrue:[
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2993
        "/ to get the =-icons
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2994
        list2 updateList
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2995
    ].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2996
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2997
    "Created: / 27-12-2011 / 10:53:00 / cg"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  2998
    "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
  2999
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3000
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3001
changeMenuInspect: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3002
12201
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  3003
    changeList selection size == 1 ifTrue:[
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  3004
        changeList selection anyOne change inspect
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  3005
    ] ifFalse:[
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  3006
        (changeList selection collect:[:each|each change]) inspect
283826cb8bcc Improvements in merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12179
diff changeset
  3007
    ]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3008
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3009
    "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
  3010
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3011
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3012
changeMenuInspectChangeset: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3013
    self changesetHolder value inspect.
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3014
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3015
    "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
  3016
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3017
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3018
changeMenuSelectAdditions: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3019
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3020
    self changeMenuSelectIn: changeList suchThat:[:change|change delta = #+]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3021
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3022
    "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
  3023
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3024
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3025
changeMenuSelectAll: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3026
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3027
    self changeMenuSelectIn: changeList suchThat:[:change|true]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3028
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3029
    "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
  3030
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3031
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3032
changeMenuSelectDifferences: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3033
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3034
    self changeMenuSelectIn: changeList suchThat:[:change|change delta = #~]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3035
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3036
    "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
  3037
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3038
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3039
changeMenuSelectNone: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3040
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3041
    self changeMenuSelectIn: changeList suchThat:[:change|false]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3042
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3043
    "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
  3044
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3045
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3046
changeMenuSelectRemovals: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3047
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3048
    self changeMenuSelectIn: changeList suchThat:[:change|change delta = #-]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3049
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3050
    "Modified: / 29-10-2010 / 13:18:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3051
    "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
  3052
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3053
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3054
changeMenuSelectSame: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3055
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3056
    self changeMenuSelectIn: changeList suchThat:[:change|change delta = #=]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3057
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3058
    "Modified: / 29-10-2010 / 13:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3059
    "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
  3060
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3061
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3062
changeMenuSelectUsingBlock: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3063
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3064
    |conditionBlockString conditionBlock dialog textHolder template|
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3065
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3066
    template :=
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3067
'[:change|
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3068
     "/ Define condition for selection below:
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3069
     "/ change is an instance of Change
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3070
     "/ change will be selected if and only if block returns true
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3071
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3072
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3073
     true"/always select the change
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3074
]
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3075
'.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3076
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3077
    LastSelectionConditionString isNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3078
        LastSelectionConditionString := template.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3079
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3080
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3081
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3082
    textHolder := ValueHolder new.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3083
    dialog := Dialog
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3084
                 forRequestText:(resources string:'Enter condition for selection')
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3085
                 lines:20
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3086
                 columns:70
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3087
                 initialAnswer:LastSelectionConditionString
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3088
                 model:textHolder.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3089
    dialog addButton:(Button label:'Template' action:[textHolder value:template. textHolder changed:#value.]).
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3090
    dialog open.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3091
    dialog accepted ifFalse:[^ self].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3092
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3093
    conditionBlockString := textHolder value.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3094
    LastSelectionConditionString := conditionBlockString.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3095
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3096
    conditionBlock := Parser evaluate:conditionBlockString.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3097
    conditionBlock isBlock ifFalse:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3098
        self error:'Bad selection block (syntax error?)'.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3099
        ^ self
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3100
    ].
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3101
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3102
    self changeMenuSelectIn: changeList suchThat: conditionBlock
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3103
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3104
    "Modified: / 29-10-2010 / 13:05:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3105
    "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
  3106
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3107
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3108
changeMenuUndeleteSelection: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3109
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3110
    self selectionDo:[:chg|chg removed: false]
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3111
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3112
    "Modified: / 29-10-2010 / 13:53:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3113
    "Created: / 04-08-2011 / 17:42:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3114
! !
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3115
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3116
!ChangeSetBrowser2 methodsFor:'menu actions - changes - helpers'!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3117
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3118
changeMenuApplyChange: aChange
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3119
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3120
"/    aChange isClassDefinitionChange ifTrue:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3121
"/        [(Smalltalk at: aChange superClassName asSymbol)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3122
"/            ifNil:[^self error: 'Nil superclass']].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3123
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3124
    aChange removed ifTrue:[ ^ self ].
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3125
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3126
    self withWaitCursorDo:[      
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3127
        (MCStXNamespaceQuery , Class nameSpaceQuerySignal)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3128
            answer:(NameSpace name:(targetNamespace ? 'Smalltalk'))   
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3129
            do: [
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3130
                (MCStXPackageQuery , Class packageQuerySignal)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3131
                    answer: self targetPackage   
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3132
                    do: [
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3133
                        MCInteractiveLoadingQuery answer: true do:[
12154
f27f8ee5ef3a More improvements in InlineMessageDialog
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12151
diff changeset
  3134
                            updateChangeFileHolder value ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3135
                                aChange apply
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3136
                            ] ifFalse:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3137
                                Class withoutUpdatingChangesDo:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3138
                                    aChange apply
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3139
                                ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3140
                            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3141
                        ]
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
            ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3144
    ].
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3145
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3146
    "Modified: / 07-09-2011 / 22:24:57 / cg"
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3147
    "Modified: / 30-03-2012 / 13:20:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3148
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3149
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3150
changeMenuApplyChanges: changesToApply
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3151
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3152
    | changesThatFailToApply |
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3153
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3154
    changesThatFailToApply := ChangeSet new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3155
    ProgressIndicator
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3156
        displayProgress:'Applying changes...'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3157
        at:(Screen default center)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3158
        from:200 to:400
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3159
        during:[:val |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3160
            1 to: changesToApply size do:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3161
                [:i|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3162
                val value:((100 / changesToApply size) * i) rounded.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3163
                [self changeMenuApplyChange: (changesToApply at: i)]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3164
                    on: Error do:[changesThatFailToApply add: (changesToApply at: i)]]]
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3165
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3166
    "Created: / 04-08-2011 / 17:26:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3167
!
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3168
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3169
changeMenuDeleteChange: change
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3170
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3171
    change removed: true
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3172
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3173
    "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
  3174
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3175
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3176
changeMenuSelectIn: changeList suchThat:conditionBlock
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3177
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3178
    | sel |
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3179
    sel := OrderedCollection new.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3180
    changeList listHolder value do: [:chg|(conditionBlock value: chg) ifTrue:[sel add: chg]].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3181
    changeList selectionHolder value: sel.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3182
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3183
    "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
  3184
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3185
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3186
!ChangeSetBrowser2 methodsFor:'private'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3187
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3188
changesDo:aBlock
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3189
    self changeset do:aBlock.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3190
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3191
    "Created: / 30-08-2011 / 14:30:58 / cg"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3192
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3193
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3194
getNavigatorChangeSet
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3195
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3196
    | changeset |
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3197
    changeset := changesetHolder value deepCopy.
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3198
    (changeset isKindOf: ChangeSet) ifFalse:
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3199
        [changeset := ChangeSet withAll: changeset].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3200
12144
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3201
    ^ (self navigatorSpecHolder value ~~ #oneColumnNavigatorSpec) ifTrue:[
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3202
        changeset groupByClass
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3203
    ] ifFalse:[
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3204
        changeset flatten
18c25ec50d96 - AbstractFileBrowser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  3205
    ]
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3206
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3207
    "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
  3208
    "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
  3209
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3210
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3211
list
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3212
    "Returns list to operate on"
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3214
    ^self isTwoColumn ifTrue:[list2] ifFalse:[list1]
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3215
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3216
    "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
  3217
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3218
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3219
redrawChangeListViews
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3220
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3221
    list1 notNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3222
        list1 builder window allSubViewsDo: [:v|v redraw]
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3223
    ].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3224
    list2 notNil ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3225
        list2 builder window allSubViewsDo: [:v|v redraw]
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3226
    ].
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3227
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3228
    "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
  3229
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3230
10453
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3231
selectionDo: aBlock
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3232
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3233
    | applyBlock |
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3234
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3235
    applyBlock := [:e|aBlock value: e change].
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3236
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3237
"/    selectionHolder value isEmptyOrNil ifTrue:[
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3238
"/        (self navigatorChangesetHolder value ? #()) do: aBlock
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3239
"/    ] ifFalse:[
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3240
        selection2Holder value isEmptyOrNil not
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3241
            ifTrue:[selection2Holder value do: applyBlock]
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3242
            ifFalse:[selection1Holder value do: applyBlock].
10467
d6bd6c9c5a1b oops - I messed it up, when resolving conflicts...
Claus Gittinger <cg@exept.de>
parents: 10453
diff changeset
  3243
"/    ].
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3244
    self redrawChangeListViews
10453
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3245
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3246
    "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
  3247
    "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
  3248
    "Modified: / 20-03-2012 / 17:16:40 / cg"
10453
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3249
!
94449763846b changed:
Claus Gittinger <cg@exept.de>
parents: 10450
diff changeset
  3250
12151
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3251
showProgress: label while: block
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3252
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3253
    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
  3254
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3255
    "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
  3256
!
ac18977416c2 Added (experimental) support for inline message panel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12144
diff changeset
  3257
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3258
showSource: aBoolean
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3259
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3260
    | panel |
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3261
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3262
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3263
    "Not yet implemented"
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3264
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3265
    ^self.
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3266
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3267
    sourceView ifNil:[^self].
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3268
    panel := builder componentAt: #VerticalPanel.
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3269
    aBoolean ifTrue:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3270
        (panel subViews includes: sourceView) ifTrue:[^self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3271
        panel addSubView: sourceView.
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3272
    ] ifFalse:[
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3273
        (panel subViews includes: sourceView) ifFalse:[^self].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3274
        panel removeSubView: sourceView.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3275
        sourceView setId: nil.
10309
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3276
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3277
    ]
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3278
05f375be3676 Few fixes
vrany
parents: 10065
diff changeset
  3279
    "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
  3280
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3281
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3282
targetPackage
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3283
    ^ targetPackage ? PackageId noProjectID
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3284
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3285
    "Created: / 07-09-2011 / 20:12:04 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3286
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3287
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3288
!ChangeSetBrowser2 methodsFor:'queries'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3289
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3290
canApplyChanges
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3291
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3292
    ^true
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3293
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3294
    "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
  3295
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3296
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3297
canDrop: somethign
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3298
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3299
    self breakPoint:#jv.
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3300
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3301
    "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
  3302
    "Modified: / 07-09-2011 / 20:21:15 / cg"
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3303
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3304
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3305
hasChangeSelectedAndNotRemoved: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3306
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3307
    | sel |
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3308
    sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3309
    sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3310
    ^(sel anySatisfy:[:each|each removed]) not
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3311
10380
f2a255ec6fc9 not ifTrue -> ifFalse (trying the rewrite tool ;-)
Claus Gittinger <cg@exept.de>
parents: 10370
diff changeset
  3312
    "Modified: / 24-07-2011 / 06:52:28 / cg"
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3313
    "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
  3314
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3315
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3316
hasSingleChangeSelectedAndCanBrowse: changeList
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3317
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3318
    | sel |
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3319
    sel := changeList selection.
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3320
    sel isEmptyOrNil ifTrue:[^false].
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3321
    ^true
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3322
10448
0a7159ffbd18 ChangeSetBrowser2 refactoring/cleanup
vrany
parents: 10380
diff changeset
  3323
    "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
  3324
! !
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3325
12213
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3326
!ChangeSetBrowser2 methodsFor:'testing'!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3327
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3328
isHierarchical
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3329
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3330
    ^self navigatorSpecHolder == #hierarchicalNavigatorSpec
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3331
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3332
    "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
  3333
    "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
  3334
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3335
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3336
isOneColumn
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3337
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3338
    ^self navigatorSpecHolder value == #oneColumnNavigatorSpec
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3339
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3340
    "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
  3341
    "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
  3342
!
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3343
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3344
isTwoColumn
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3345
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3346
    ^self navigatorSpecHolder == #twoColumnNavigatorSpec
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3347
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3348
    "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
  3349
    "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
  3350
! !
63694f12baba Improvements in ChangeSetBrowser2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12211
diff changeset
  3351
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3352
!ChangeSetBrowser2::ChangeEditor class methodsFor:'documentation'!
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
documentation
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3355
"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3356
    A simple, embeddable window to show a single change.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3357
    If readonlyHolder's value is false, then user is
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3358
    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
  3359
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3360
    [author:]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3361
        Jan Vrany <jan.vrany@fit.cvut.cz>
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3362
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3363
    [instance variables:]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3364
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3365
    [class variables:]
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
    [see also:]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3368
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3369
"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3370
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3371
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3372
examples
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3373
"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3374
  Starting the application:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3375
                                                                [exBegin]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3376
    Tools::ChangeEditor open
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3377
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3378
                                                                [exEnd]
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
  more examples to be added:
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3381
                                                                [exBegin]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3382
    ... add code fragment for 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3383
    ... executable example here ...
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3384
                                                                [exEnd]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3385
"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3386
! !
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
!ChangeSetBrowser2::ChangeEditor class methodsFor:'interface specs'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3389
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3390
windowSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3391
    "This resource specification was automatically generated
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3392
     by the UIPainter of ST/X."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3393
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3394
    "Do not manually edit this!! If it is corrupted,
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3395
     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
  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
     UIPainter new openOnClass:Tools::ChangeSetBrowser2::ChangeEditor andSelector:#windowSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3399
     Tools::ChangeSetBrowser2::ChangeEditor new openInterface:#windowSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3400
     Tools::ChangeSetBrowser2::ChangeEditor open
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
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3403
    <resource: #canvas>
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3404
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
     #(FullSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3407
        name: windowSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3408
        window: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3409
       (WindowSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3410
          label: 'Change Editor'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3411
          name: 'Change Editor'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3412
          min: (Point 10 10)
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3413
          bounds: (Rectangle 0 0 579 341)
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
        component: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3416
       (SpecCollection
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3417
          collection: (
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3418
           (SubCanvasSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3419
              name: 'TextDiffTool'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3420
              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
  3421
              hasHorizontalScrollBar: false
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3422
              hasVerticalScrollBar: false
12179
47f98e7d6de1 Improvments towards merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12154
diff changeset
  3423
              majorKey: #'Tools::TextDiff2Tool'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3424
              minorKey: windowSpecForEmbedding
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3425
              subAspectHolders: 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3426
             (Array
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
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3429
                  subAspect: classHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3430
                  aspect: classAspect
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
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3433
                  subAspect: codeAspectHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3434
                  aspect: codeAspect
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
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3438
                  subAspect: labelAHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3439
                  aspect: labelAHolder
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
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3442
                  subAspect: labelBHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3443
                  aspect: labelBHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3444
                )
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
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3447
                  subAspect: showDiffHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3448
                  aspect: showdiffHolder
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
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3451
                  subAspect: textAHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3452
                  aspect: sourceChangeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3453
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3454
                
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3455
               (SubChannelInfoSpec
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3456
                  subAspect: textBHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3457
                  aspect: sourceImageHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3458
                )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3459
              )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3460
              createNewApplication: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3461
              createNewBuilder: true
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3462
            )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3463
           )
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3464
         
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
      )
12179
47f98e7d6de1 Improvments towards merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12154
diff changeset
  3467
47f98e7d6de1 Improvments towards merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12154
diff changeset
  3468
    "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
  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
!ChangeSetBrowser2::ChangeEditor methodsFor:'accessing'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3472
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3473
sourceChangeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3474
    ^ sourceChangeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3475
!
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
sourceChangeHolder:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3478
    sourceChangeHolder := something.
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
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3481
sourceImageHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3482
    ^ sourceImageHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3483
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3484
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3485
sourceImageHolder:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3486
    sourceImageHolder := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3487
! !
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
!ChangeSetBrowser2::ChangeEditor methodsFor:'aspects'!
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
changeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3492
    "return/create the 'changeHolder' value holder (automatically generated)"
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
    changeHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3495
        changeHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3496
        changeHolder addDependent:self.
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
    ^ changeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3499
!
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
changeHolder:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3502
    "set the 'changeHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3503
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3504
    |oldValue newValue|
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
    changeHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3507
        oldValue := changeHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3508
        changeHolder removeDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3509
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3510
    changeHolder := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3511
    changeHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3512
        changeHolder addDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3513
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3514
    newValue := changeHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3515
    oldValue ~~ newValue ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3516
        self update:#value with:newValue from:changeHolder.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3517
    ].
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
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3520
classAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3521
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3522
    ^(AspectAdaptor forAspect: #changeClass) 
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3523
        subjectChannel: self changeHolder
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
    "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
  3526
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3527
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3528
codeAspect
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3529
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3530
    ^BlockValue
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3531
        with: [:change|
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3532
            change isMethodCodeChange
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3533
                ifTrue:[#method]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3534
                ifFalse:[#expression]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3535
        ] argument: self changeHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3536
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3537
    "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
  3538
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3539
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3540
labelAText
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3541
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3542
    ^'Change'
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
    "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
  3545
!
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
labelBText
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
    ^'Current (in image)'
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3550
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3551
    "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
  3552
!
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
readonlyHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3555
    "return/create the 'readonlyHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3556
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3557
    readonlyHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3558
        readonlyHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3559
        readonlyHolder addDependent:self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3560
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3561
    ^ readonlyHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3562
!
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
readonlyHolder:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3565
    "set the 'readonlyHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3566
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3567
    |oldValue newValue|
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
    readonlyHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3570
        oldValue := readonlyHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3571
        readonlyHolder removeDependent: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
    readonlyHolder := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3574
    readonlyHolder notNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3575
        readonlyHolder addDependent:self.
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
    newValue := readonlyHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3578
    oldValue ~~ newValue ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3579
        self update:#value with:newValue from:readonlyHolder.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3580
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3581
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3582
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3583
showdiffHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3584
    "return/create the 'showdiffHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3585
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3586
    showdiffHolder isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3587
        showdiffHolder := ValueHolder new.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3588
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3589
    ^ showdiffHolder
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3590
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3591
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3592
showdiffHolder:something
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3593
    "set the 'showdiffHolder' value holder (automatically generated)"
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3594
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3595
    showdiffHolder := something.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3596
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3597
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3598
!ChangeSetBrowser2::ChangeEditor methodsFor:'change & update'!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3599
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3600
changeChanged
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3601
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3602
    "changeHolder has changed, update sources etc..."
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3603
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3604
    | change |
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3605
    change := changeHolder value.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3606
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3607
    sourceChangeHolder value: change changeSource.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3608
    sourceImageHolder value: change imageSource.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3609
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3610
    "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
  3611
!
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3612
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3613
update:something with:aParameter from:changedObject
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3614
    "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
  3615
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3616
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3617
    changedObject == changeHolder ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3618
         self changeChanged.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3619
         ^ self.
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3620
    ].
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3621
    super update:something with:aParameter from:changedObject
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3622
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3623
    "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
  3624
! !
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3625
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3626
!ChangeSetBrowser2 class methodsFor:'documentation'!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3627
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  3628
version
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  3629
    ^ '$Id: Tools__ChangeSetBrowser2.st 7963 2012-04-03 12:32:03Z vranyj1 $'
10450
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  3630
!
4aa3a9ce20bf ChangeSetBrowser2 - fixes
vrany
parents: 10448
diff changeset
  3631
10028
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3632
version_CVS
12205
f210b6224ef0 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12201
diff changeset
  3633
    ^ '§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
  3634
!
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3635
e998faa655ab initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3636
version_SVN
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12214
diff changeset
  3637
    ^ '$Id: Tools__ChangeSetBrowser2.st 7963 2012-04-03 12:32:03Z vranyj1 $'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
  3638
! !