NewChangesBrowser.st
author vrany
Thu, 07 Jul 2011 15:22:36 +0200
changeset 10247 8517600df5c5
parent 9180 ea28dedc13aa
child 10583 e2411142dc0c
permissions -rw-r--r--
Merged with JV's branch
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2740
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
     1
"{ Package: 'stx:libtool' }"
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
     2
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
     3
ToolApplicationModel subclass:#NewChangesBrowser
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
     4
	instanceVariableNames:'changes changeFileName skipSignal changeFileTimestamp
ffea21e237ed revised
tz
parents: 1545
diff changeset
     5
		autoUpdateBlock filterCompletionBlock editingClassSource modified'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
     6
	classVariableNames:'AutoUpdate CompressSnapshotInfo CategoryColumn DeltaInfoColumn
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
     7
		TypeColumn TimeStampColumn PositionsColumn PrivateAsSeparate
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
     8
		ClassNameColumn ClassAndSelectorColumn SelectorColumn'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
     9
	poolDictionaries:''
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    10
	category:'Interface-Browsers'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    11
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    12
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    13
Object subclass:#Change
1568
b37202441764 revised
tz
parents: 1556
diff changeset
    14
	instanceVariableNames:'delta string type timeStamp category chunk lastPosition position
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
    15
		className selector followUp'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    16
	classVariableNames:''
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    17
	poolDictionaries:''
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    18
	privateIn:NewChangesBrowser
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    19
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    20
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    21
!NewChangesBrowser class methodsFor:'documentation'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    22
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    23
documentation
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    24
"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    25
    The future Changes Browser.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    26
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    27
    [start with:]
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
    28
        NewChangesBrowser open
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
    29
        NewChangesBrowser openOnFile:aFileName
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    30
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    31
    [author:]
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
    32
        Thomas Zwick, eXept Software AG
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
    33
        enhanced by Felix Madrid, eXept Software AG
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    34
"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    35
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    36
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    37
!NewChangesBrowser class methodsFor:'instance creation'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    38
1938
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
    39
openOn:aFileName
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
    40
    "opens a Changes Browser with the changes of the aFileName"
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
    41
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
    42
    ^self openOnFile:aFileName
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
    43
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
    44
    "Created: / 17.10.1998 / 14:41:28 / cg"
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
    45
!
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
    46
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    47
openOnFile:aFileName
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
    48
    "opens a Changes Browser with the changes of the aFileName"
ffea21e237ed revised
tz
parents: 1545
diff changeset
    49
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
    50
    ^self new
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
    51
	changeFileName:aFileName;
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
    52
	open
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    53
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    54
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    55
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    56
!NewChangesBrowser class methodsFor:'accessing'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    57
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    58
autoSelectNext
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
    59
    "returns true here, makes a Delete operation automatically
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    60
     select the next change"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    61
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    62
    ^ true
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    63
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    64
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    65
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    66
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    67
label
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
    68
    "returns my label"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    69
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    70
    ^'Changes Browser'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    71
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    72
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    73
!NewChangesBrowser class methodsFor:'help specs'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    74
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
    75
flyByHelpSpec
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    76
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    77
     by the UIHelpTool of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    78
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    79
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    80
     the UIHelpTool may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    81
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    82
    "
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
    83
     UIHelpTool openOnClass:NewChangesBrowser
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    84
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    85
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    86
    <resource: #help>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    87
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
    88
    ^super flyByHelpSpec addPairsFrom:#(
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    89
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    90
#applyAll
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
    91
'Apply all changes.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    92
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    93
#applyForClassToEnd
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
    94
'Apply changes which affect this class to the end.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    95
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    96
#applyFromLastSnapshot
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
    97
'Apply changes from the last snapshot to the end.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    98
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
    99
#applyLine
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   100
'Apply the selected change.'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   101
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   102
#applyToEnd
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   103
'Apply all changes from the selected one to the end.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   104
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
   105
#deleteAll
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   106
'Deletes all changes.'
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
   107
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   108
#deleteCompress
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   109
'Deletes all obsolete changes.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   110
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   111
#deleteCompressForClass
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   112
'Deletes obsolete changes for this class, leaving the last one.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   113
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   114
#deleteForClassToEnd
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   115
'Deletes changes for this class from the selection to the end.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   116
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   117
#deleteLine
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   118
'Deletes the selected change.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   119
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   120
#deleteToEnd
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   121
'Deletes changes from the selected one to the end.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   122
1556
tz
parents: 1554
diff changeset
   123
#fileLoad
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   124
'Opens a dialog for selecting and loading another changes file.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   125
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   126
#fileReload
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   127
'Reloads the changes file (undo your modifications).'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   128
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   129
#fileSave
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   130
'Saves the list of changes into the current changes file.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   131
1556
tz
parents: 1554
diff changeset
   132
#filterField
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   133
'Matching patterns filtering the changes (separate patterns by blanks).'
1556
tz
parents: 1554
diff changeset
   134
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   135
#settingsAutoUpdate
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   136
'Toggle automatic update.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   137
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   138
#settingsColumns
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   139
'Configure which columns are shown in the list.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   140
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   141
#settingsColumnsCategory
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   142
'Toggle display of the changes category in the list.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   143
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   144
#settingsColumnsDeltaInfo
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   145
'Toggle display of the delta-info in the list.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   146
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   147
#settingsColumnsPosition
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   148
'Togle display of the changes file-position in the list.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   149
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   150
#settingsColumnsTimeStamp
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   151
'Toggle display of the changes time stamp in the list.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   152
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   153
#settingsColumnsType
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   154
'Toggle display of the change-type in the list.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   155
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
   156
#settingsPrivateAsSeparate
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   157
'Toggle if changes for private private are included when applying, deleting, or compressing for a class.'
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
   158
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   159
#testCompareWithCurrentVersion
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   160
'Opens a info dialog showing the difference between the changes code and the method current code.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   161
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   162
#testFindLastSnapshot
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   163
'Searches backward for the previous snapshot entry.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   164
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   165
#testFindNextSnapshot
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   166
'Searches forward for the next snapshot entry.'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   167
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   168
)
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   169
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
   170
    "Modified: / 19.5.1998 / 17:59:39 / cg"
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   171
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   172
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   173
helpSpec
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   174
    "This resource specification was automatically generated
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   175
     by the UIHelpTool of ST/X."
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   176
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   177
    "Do not manually edit this!! If it is corrupted,
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   178
     the UIHelpTool may not be able to read the specification."
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   179
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   180
    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   181
     UIHelpTool openOnClass:NewChangesBrowser    
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   182
    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   183
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   184
    <resource: #help>
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   185
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   186
    ^ super helpSpec addPairsFrom:#(
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   187
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   188
#applyAll
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   189
'Apply all changes.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   190
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   191
#applyForClassToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   192
'Apply changes to the end which affect this class.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   193
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   194
#applyFromLastSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   195
'Apply changes from the last snapshot to the end.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   196
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   197
#applyLine
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   198
'Apply the selected change.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   199
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   200
#applyToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   201
'Apply all changes from the selected one to the end.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   202
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   203
#deleteAll
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   204
'Deletes all changes.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   205
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   206
#deleteCompress
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   207
'Deletes all obsolete changes.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   208
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   209
#deleteCompressForClass
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   210
'Deletes obsolete changes for this class, leaving the last one.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   211
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   212
#deleteForClassToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   213
'Deletes changes for this class from the selection to the end.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   214
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   215
#deleteLine
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   216
'Deletes the selected change.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   217
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   218
#deleteToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   219
'Deletes changes from the selected one to the end.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   220
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   221
#fileLoad
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   222
'Opens a dialog for selecting and loading another changes file.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   223
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   224
#fileReload
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   225
'Reloads the changes file (undo your modifications).'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   226
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   227
#fileSave
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   228
'Saves the list of changes into the current changes file.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   229
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   230
#filterField
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   231
'Matching patterns filtering the changes (separate patterns by blanks).'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   232
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   233
#settingsAutoUpdate
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   234
'Toggle automatic update.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   235
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   236
#settingsColumns
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   237
'Configure which columns are shown in the list.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   238
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   239
#settingsColumnsCategory
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   240
'Toggle display of the changes category in the list.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   241
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   242
#settingsColumnsClassName
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   243
'Toggle display of the className in the list.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   244
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   245
#settingsColumnsDeltaInfo
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   246
'Toggle display of the delta-info in the list.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   247
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   248
#settingsColumnsPosition
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   249
'Togle display of the changes file-position in the list.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   250
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   251
#settingsColumnsTimeStamp
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   252
'Toggle display of the changes time stamp in the list.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   253
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   254
#settingsColumnsType
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   255
'Toggle display of the change-type in the list.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   256
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   257
#settingsPrivateAsSeparate
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   258
'Toggle if changes for private private are included when applying, deleting, or compressing for a class.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   259
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   260
#testCompareWithCurrentVersion
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   261
'Opens a info dialog showing the difference between the changes code and the method current code.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   262
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   263
#testFindLastSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   264
'Searches backward for the previous snapshot entry.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   265
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   266
#testFindNextSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   267
'Searches forward for the next snapshot entry.'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   268
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   269
)
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   270
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   271
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   272
!NewChangesBrowser class methodsFor:'image specs'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   273
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   274
applyFromLastSnapshotIcon
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   275
    ^ self applyFromLastSnapshotIcon2
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   276
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   277
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   278
applyFromLastSnapshotIcon1
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   279
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   280
     by the ImageEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   281
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   282
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   283
     the ImageEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   284
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   285
    "
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   286
     self applyFromLastSnapshotIcon inspect
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   287
     ImageEditor openOnClass:self andSelector:#applyFromLastSnapshotIcon
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   288
     Icon flushCachedIcons
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   289
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   290
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   291
    <resource: #image>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   292
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   293
    ^Icon
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   294
        constantNamed:#'NewChangesBrowser class applyFromLastSnapshotIcon'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   295
        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   296
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"H"H@@@@@@@@@H"H"H @@@@@@@@@@@@@B@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   297
@@;.;.; H@@@@@@@C.;.;.@@@@@@@@@@@@@@8@@N@@@@C?????C @@@N@@@O????<@@@8@@@@@@@@@C0@@@@8@@O????<O@@C @@@@?????0@@@@C @@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   298
@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]
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   299
!
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   300
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   301
applyFromLastSnapshotIcon2
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   302
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   303
     by the ImageEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   304
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   305
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   306
     the ImageEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   307
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   308
    "
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   309
     self applyFromLastSnapshotIcon1 inspect
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   310
     ImageEditor openOnClass:self andSelector:#applyFromLastSnapshotIcon1
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   311
     Icon flushCachedIcons
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   312
    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   313
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   314
    <resource: #image>
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   315
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   316
    ^Icon
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   317
        constantNamed:#'NewChangesBrowser class applyFromLastSnapshotIcon1'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   318
        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   319
@@@BH@@@@@@QDQ<@@BH @@@@@AH"H@@@H"@@@@@@D"H H H"@@@@@@@RH"@"H"@@@@@@@AH"H@H"H@@@@@@@<@@@@BH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   320
@@;.;.; @@@@@@@@C.;.;.@@@@@@@@@@@@@@8@@N@@@@C?????C @@@N@@@O????<@@@8@@@@@@@@@C0@@@@8@@O????<O@@C @@@@?????0@@@@C @@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   321
@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]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   322
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   323
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   324
applyIcon
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   325
    ^ self applyIcon2
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   326
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   327
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   328
applyIcon1
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   329
    "This resource specification was automatically generated
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   330
     by the ImageEditor of ST/X."
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   331
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   332
    "Do not manually edit this!! If it is corrupted,
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   333
     the ImageEditor may not be able to read the specification."
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   334
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   335
    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   336
     self applyIcon inspect
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   337
     ImageEditor openOnClass:self andSelector:#applyIcon
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   338
     Icon flushCachedIcons
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   339
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   340
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   341
    <resource: #image>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   342
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   343
    ^Icon
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   344
        constantNamed:#'NewChangesBrowser class applyIcon'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   345
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   346
UUUUUUUPUUUUUU?PUUUUUU?[UUUUUW=PP@@@@C<QQUUU=_4PQUUU?_4VQ**U_?TPQUUUW?TPQUUUW=TXQ***U=TPQ**UUUTPQ*****TPQ***%UTPQ****)TP
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   347
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:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   348
@@@@@@@8@@@8@@A0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   349
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   350
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   351
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   352
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   353
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   354
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   355
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   356
applyIcon2
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   357
    "This resource specification was automatically generated
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   358
     by the ImageEditor of ST/X."
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   359
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   360
    "Do not manually edit this!! If it is corrupted,
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   361
     the ImageEditor may not be able to read the specification."
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   362
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   363
    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   364
     self applyIcon2 inspect
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   365
     ImageEditor openOnClass:self andSelector:#applyIcon2
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   366
     Icon flushCachedIcons
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   367
    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   368
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   369
    <resource: #image>
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   370
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   371
    ^Icon
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   372
        constantNamed:#'NewChangesBrowser class applyIcon2'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   373
        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   374
DQDQDQDQDQDQP3PQDQDQDQDQDQECMADQDQDQDQDQECMADQDQDQEDPQDTL4DP@@@@@DL4@DL4@Q@QDQDQP3MAP3PADADQDQDTL3P3PPDPD"H"HQECL3MA@Q@Q
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   375
DQDQDQP3MADADADQDQDQDTL4DPDPD"H"H"HQEDDQ@Q@RH"H!!DQDQDQDADAH"H"H"H"H"DPDPD"H"H"H!!DQDQ@Q@RH"H"H"H"HQDADADQDQDQDQDQDPDPDQDQ
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   376
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:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   377
@@@<@@@<@@A8@C!!8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   378
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   379
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   380
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   381
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   382
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   383
!
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   384
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   385
applyToEndIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   386
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   387
     by the ImageEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   388
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   389
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   390
     the ImageEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   391
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   392
    "
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   393
     self applyToEndIcon inspect
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   394
     ImageEditor openOnClass:self andSelector:#applyToEndIcon
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   395
     Icon flushCachedIcons
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   396
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   397
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   398
    <resource: #image>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   399
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   400
    ^Icon
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   401
        constantNamed:#'NewChangesBrowser class applyToEndIcon'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   402
        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   403
@@@DP@@@@@@@@@@@@DQ@@@@@@@@@@@@@QD@@@"H"H"@@Q@QD@@@BH"H"H@ADQD@@@@@@@@@ @@QDP@@BH"H"HB@@@DP@@@H"H"H @@@@@@@@@@@@@B@@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   404
@@L3L3L0H@@@@@@@@3L3L3@@@@@@@@@@@@@@L@@B@@@@@3L3L3@0@@@B@@@CL3L3L@@@H@@@@@@@@@@0@@@@H@@ADQDQDC@@@ @@@@DQDQDP@@@@@ @@@@@@
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   405
@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]
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   406
!
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   407
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   408
compressIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   409
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   410
     by the ImageEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   411
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   412
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   413
     the ImageEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   414
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   415
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   416
     ImageEditor openOnClass:self andSelector:#compressIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   417
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   418
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   419
    <resource: #image>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   420
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   421
    ^Icon
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   422
	constantNamed:#'NewChangesBrowser compressIcon'
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   423
	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]
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   424
!
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   425
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   426
deleteIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   427
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   428
     by the ImageEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   429
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   430
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   431
     the ImageEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   432
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   433
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   434
     ImageEditor openOnClass:self andSelector:#deleteIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   435
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   436
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   437
    <resource: #image>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   438
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   439
    ^Icon
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   440
	constantNamed:#'NewChangesBrowser deleteIcon'
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   441
	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]
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   442
!
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   443
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   444
deleteToEndIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   445
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   446
     by the ImageEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   447
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   448
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   449
     the ImageEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   450
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   451
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   452
     ImageEditor openOnClass:self andSelector:#deleteToEndIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   453
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   454
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   455
    <resource: #image>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   456
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   457
    ^Icon
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   458
	constantNamed:#'NewChangesBrowser deleteToEndIcon'
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   459
	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]
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   460
!
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   461
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   462
findLastSnapshotIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   463
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   464
     by the ImageEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   465
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   466
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   467
     the ImageEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   468
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   469
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   470
     ImageEditor openOnClass:self andSelector:#findLastSnapshotIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   471
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   472
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   473
    <resource: #image>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   474
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   475
    ^Icon
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   476
	constantNamed:#'NewChangesBrowser findLastSnapshotIcon'
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   477
	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]
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   478
!
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   479
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   480
findNextSnapshotIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   481
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   482
     by the ImageEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   483
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   484
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   485
     the ImageEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   486
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   487
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   488
     ImageEditor openOnClass:self andSelector:#findNextSnapshotIcon
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   489
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   490
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   491
    <resource: #image>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   492
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   493
    ^Icon
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   494
	constantNamed:#'NewChangesBrowser findNextSnapshotIcon'
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   495
	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]
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   496
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   497
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   498
findPreviousForClassIcon
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   499
    "This resource specification was automatically generated
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   500
     by the ImageEditor of ST/X."
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   501
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   502
    "Do not manually edit this!! If it is corrupted,
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   503
     the ImageEditor may not be able to read the specification."
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   504
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   505
    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   506
     self findPreviousForClassIcon inspect
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   507
     ImageEditor openOnClass:self andSelector:#findPreviousForClassIcon
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   508
     Icon flushCachedIcons
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   509
    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   510
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   511
    <resource: #image>
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   512
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   513
    ^Icon
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   514
        constantNamed:#'NewChangesBrowser class findPreviousForClassIcon'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   515
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   516
@EUUUW@A@G???<@@@G???<@@@G???<@@@G???<@@@G???<@@@G???<@@@G???<@A@G???<@M@G???<@H@G???<@@@G???<@@@G???<@I@L@@@@@@@@@@@@@A
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   517
@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]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   518
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   519
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   520
findPreviousSnapshotIcon
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   521
    "This resource specification was automatically generated
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   522
     by the ImageEditor of ST/X."
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   523
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   524
    "Do not manually edit this!! If it is corrupted,
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   525
     the ImageEditor may not be able to read the specification."
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   526
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   527
    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   528
     self findPreviousSnapshotIcon inspect
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   529
     ImageEditor openOnClass:self andSelector:#findPreviousSnapshotIcon
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   530
     Icon flushCachedIcons
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   531
    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   532
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   533
    <resource: #image>
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   534
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   535
    ^Icon
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   536
        constantNamed:#'NewChangesBrowser class findPreviousSnapshotIcon'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   537
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   538
@EUUUW@A@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@A@F***(@M@F***(@H@F***(@@@F***(@@@F***(@I@L@@@@@@@@@@@@@A
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   539
@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]
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
   540
! !
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   541
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   542
!NewChangesBrowser class methodsFor:'interface specs'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   543
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   544
windowSpec
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   545
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   546
     by the UIPainter of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   547
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   548
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   549
     the UIPainter may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   550
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   551
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   552
     UIPainter new openOnClass:NewChangesBrowser andSelector:#windowSpec
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   553
     NewChangesBrowser new openInterface:#windowSpec
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   554
     NewChangesBrowser open
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   555
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   556
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   557
    <resource: #canvas>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   558
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   559
    ^
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
   560
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   561
       #(#FullSpec
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
   562
	  #window:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   563
	   #(#WindowSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   564
	      #name: 'Changes Browser'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   565
	      #layout: #(#LayoutFrame 53 0 92 0 687 0 583 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   566
	      #label: 'Changes Browser'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   567
	      #min: #(#Point 10 10)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   568
	      #max: #(#Point 1152 900)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   569
	      #bounds: #(#Rectangle 53 92 688 584)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   570
	      #menu: #menu
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   571
	      #usePreferredExtent: false
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   572
	  )
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
   573
	  #component:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   574
	   #(#SpecCollection
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
   575
	      #collection:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   576
	       #(
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   577
		 #(#MenuPanelSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   578
		    #name: 'menuToolbarView'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   579
		    #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   580
		    #menu: #menuToolbar
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   581
		    #style: #(#FontDescription #helvetica #medium #roman 10)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   582
		    #showSeparatingLines: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   583
		)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   584
		 #(#VariableVerticalPanelSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   585
		    #name: 'variableVerticalPanel1'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   586
		    #layout: #(#LayoutFrame 0 0.0 34 0 0 1.0 -26 1.0)
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
   587
		    #component:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   588
		     #(#SpecCollection
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
   589
			#collection:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   590
			 #(
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   591
			   #(#ViewSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   592
			      #name: 'Box1'
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
   593
			      #component:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   594
			       #(#SpecCollection
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
   595
				  #collection:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   596
				   #(
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   597
				     #(#DataSetSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   598
					#name: 'changesDataSetView'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   599
					#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -28 1.0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   600
					#model: #selectionOfChange
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   601
					#menu: #menuTable
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   602
					#hasHorizontalScrollBar: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   603
					#hasVerticalScrollBar: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   604
					#miniScrollerHorizontal: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   605
					#dataList: #listOfChanges
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   606
					#useIndex: false
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   607
					#has3Dsepartors: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   608
					#doubleClickSelector: #doBrowseClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   609
					#columnHolder: #listOfChangeColumns
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   610
					#valueChangeSelector: #changeSelected:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   611
				    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   612
				     #(#ViewSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   613
					#name: 'Box2'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   614
					#layout: #(#LayoutFrame 0 0.0 -28 1 0 1.0 0 1.0)
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
   615
					#component:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   616
					 #(#SpecCollection
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
   617
					    #collection:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   618
					     #(
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   619
					       #(#LabelSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   620
						  #name: 'filterLabel'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   621
						  #layout: #(#AlignmentOrigin 37 0 13 0.0 1 0.5)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   622
						  #label: 'Filter:'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   623
						  #style: #(#FontDescription #helvetica #medium #roman 10)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   624
						  #adjust: #left
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   625
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   626
					       #(#InputFieldSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   627
						  #name: 'filterField'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   628
						  #layout: #(#LayoutFrame 41 0.0 3 0 250 0 25 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   629
						  #activeHelpKey: #filterField
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   630
						  #model: #valueOfFilter
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   631
						  #immediateAccept: false
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   632
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   633
					       #(#ProgressIndicatorSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   634
						  #name: 'readProgressIndicator'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   635
						  #layout: #(#LayoutFrame 41 0 3 0 250 0 25 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   636
						  #model: #valueOfReadProgress
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   637
						  #foregroundColor: #(#Color 0.0 60.0 60.0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   638
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   639
					       #(#ActionButtonSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   640
						  #name: 'allButton'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   641
						  #layout: #(#LayoutFrame 258 0.0 2 0.0 268 0 13 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   642
						  #label: ' '
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   643
						  #model: #doFilter:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   644
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   645
					       #(#LabelSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   646
						  #name: 'allLabel'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   647
						  #layout: #(#LayoutFrame 273 0 0 0.0 310 0 14 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   648
						  #label: '= all'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   649
						  #translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   650
						  #style: #(#FontDescription #helvetica #medium #roman 10)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   651
						  #adjust: #left
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   652
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   653
					       #(#ActionButtonSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   654
						  #name: 'methodChangesButton'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   655
						  #layout: #(#LayoutFrame 359 0.0 2 0.0 369 0 13 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   656
						  #label: ' '
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   657
						  #backgroundColor: #(#Color 100.0 100.0 100.0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   658
						  #model: #doFilterType:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   659
						  #actionValue: 'method'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   660
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   661
					       #(#LabelSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   662
						  #name: 'methodChangesLabel'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   663
						  #layout: #(#LayoutFrame 373 0 0 0.0 458 0 14 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   664
						  #label: '= method'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   665
						  #translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   666
						  #style: #(#FontDescription #helvetica #medium #roman 10)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   667
						  #adjust: #left
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   668
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   669
					       #(#ActionButtonSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   670
						  #name: 'classChangesButton'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   671
						  #layout: #(#LayoutFrame 455 0.0 2 0.0 465 0 13 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   672
						  #label: ' '
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   673
						  #backgroundColor: #(#Color 50.0008 50.0008 50.0008)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   674
						  #model: #doFilterType:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   675
						  #actionValue: 'class'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   676
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   677
					       #(#LabelSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   678
						  #name: 'classChangesLabel'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   679
						  #layout: #(#LayoutFrame 470 0 0 0.0 580 0 14 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   680
						  #label: '= class change'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   681
						  #translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   682
						  #style: #(#FontDescription #helvetica #medium #roman 10)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   683
						  #adjust: #left
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   684
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   685
					       #(#ActionButtonSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   686
						  #name: 'snapshotButton'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   687
						  #layout: #(#LayoutFrame 258 0.0 16 0.0 268 0 27 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   688
						  #label: ' '
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   689
						  #backgroundColor: #(#Color 100.0 0.0 0.0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   690
						  #model: #doFilterType:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   691
						  #actionValue: 'image'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   692
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   693
					       #(#LabelSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   694
						  #name: 'snapshotLabel'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   695
						  #layout: #(#LayoutFrame 273 0 14 0.0 355 0 28 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   696
						  #label: '= snapshot'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   697
						  #translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   698
						  #style: #(#FontDescription #helvetica #medium #roman 10)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   699
						  #adjust: #left
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   700
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   701
					       #(#ActionButtonSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   702
						  #name: 'fileInButton'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   703
						  #layout: #(#LayoutFrame 359 0.0 16 0.0 369 0 27 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   704
						  #label: ' '
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   705
						  #backgroundColor: #(#Color 0.0 80.0 80.0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   706
						  #model: #doFilterSourceType:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   707
						  #actionValue: '* file*'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   708
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   709
					       #(#LabelSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   710
						  #name: 'fileInLabel'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   711
						  #layout: #(#LayoutFrame 374 0 14 0.0 440 0 28 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   712
						  #label: '= fileIn'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   713
						  #translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   714
						  #style: #(#FontDescription #helvetica #medium #roman 10)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   715
						  #adjust: #left
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   716
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   717
					       #(#ActionButtonSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   718
						  #name: 'checkInButton'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   719
						  #layout: #(#LayoutFrame 455 0.0 16 0.0 465 0 27 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   720
						  #label: ' '
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   721
						  #backgroundColor: #(#Color 0.0 0.0 100.0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   722
						  #model: #doFilterSourceType:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   723
						  #actionValue: '* checkin*'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   724
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   725
					       #(#LabelSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   726
						  #name: 'checkInLabel'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   727
						  #layout: #(#LayoutFrame 470 0 14 0.0 550 0 28 0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   728
						  #label: '= checkIn'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   729
						  #translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   730
						  #style: #(#FontDescription #helvetica #medium #roman 10)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   731
						  #adjust: #left
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   732
					      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   733
					    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   734
					)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   735
				    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   736
				  )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   737
			      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   738
			  )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   739
			   #(#WorkspaceSpec
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   740
			      #name: 'changeTextEditor'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   741
			      #model: #valueOfChangeText
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   742
			      #hasHorizontalScrollBar: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   743
			      #hasVerticalScrollBar: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   744
			      #miniScrollerHorizontal: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   745
			      #isReadOnly: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   746
			  )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   747
			)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   748
		    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   749
		    #handles: #(#Any 0.5 1.0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   750
		)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   751
		 #(#UISubSpecification
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   752
		    #name: 'windowSpecForInfoBar'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   753
		    #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   754
		    #majorKey: #ToolApplicationModel
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   755
		    #minorKey: #windowSpecForInfoBar
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   756
		)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   757
	      )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
   758
	  )
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   759
      )
1647
44936f6d17ed geometry
Claus Gittinger <cg@exept.de>
parents: 1644
diff changeset
   760
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
   761
    "Modified: / 19.5.1998 / 18:58:47 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   762
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   763
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   764
!NewChangesBrowser class methodsFor:'list specs'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   765
1641
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   766
tableColumnsForChangeAttributes
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   767
    "This resource specification was automatically generated
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   768
     by the DataSetBuilder of ST/X."
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   769
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   770
    "Do not manually edit this!! If it is corrupted,
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   771
     the DataSetBuilder may not be able to read the specification."
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   772
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   773
    "
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   774
     DataSetBuilder new openOnClass:NewChangesBrowser andSelector:#tableColumnsForChangeAttributes
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   775
    "
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   776
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   777
    <resource: #tableColumns>
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   778
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   779
    ^#(
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   780
      (DataSetColumnSpec
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   781
         labelButtonType: Button
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   782
         rendererType: rowSelector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   783
         backgroundSelector: listColor
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   784
         showSelectionHighLighted: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   785
       )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   786
      (DataSetColumnSpec
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   787
         label: 'Change'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   788
         id: change
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   789
         labelAlignment: left
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   790
         labelButtonType: Button
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   791
         model: string
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   792
         canSelect: false
1641
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   793
       )
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   794
      (DataSetColumnSpec
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   795
         label: 'Class'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   796
         id: 'className'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   797
         labelAlignment: left
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   798
         activeHelpKey: ''
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   799
         labelButtonType: Button
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   800
         model: className
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   801
         canSelect: false
1641
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   802
       )
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   803
      (DataSetColumnSpec
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   804
         label: 'Selector'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   805
         id: 'selector'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   806
         labelAlignment: left
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   807
         activeHelpKey: ''
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   808
         labelButtonType: Button
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   809
         model: selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   810
         canSelect: false
1641
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   811
       )
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   812
      (DataSetColumnSpec
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   813
         label: 'Category'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   814
         id: category
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   815
         labelAlignment: left
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   816
         labelButtonType: Button
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   817
         model: category
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   818
         canSelect: false
1641
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   819
       )
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   820
      (DataSetColumnSpec
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   821
         label: 'Delta Info'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   822
         id: deltaInfo
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   823
         labelAlignment: left
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   824
         labelButtonType: Button
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   825
         model: delta
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   826
         canSelect: false
1641
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   827
       )
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   828
      (DataSetColumnSpec
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   829
         label: 'Time Stamp'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   830
         id: timeStamp
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   831
         labelAlignment: left
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   832
         labelButtonType: Button
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   833
         model: timeStamp
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   834
         canSelect: false
1641
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   835
       )
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   836
      (DataSetColumnSpec
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   837
         label: 'Type'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   838
         id: type
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   839
         labelAlignment: left
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   840
         labelButtonType: Button
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   841
         model: type
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   842
         canSelect: false
1641
4c430e7eb617 table columns formatted
tz
parents: 1636
diff changeset
   843
       )
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   844
      (DataSetColumnSpec
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   845
         label: 'Position'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   846
         id: position
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   847
         labelAlignment: left
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   848
         labelButtonType: Button
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   849
         model: positions
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   850
         canSelect: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   851
       )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   852
      )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   853
    
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   854
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   855
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   856
!NewChangesBrowser class methodsFor:'menu specs'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   857
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   858
menu
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   859
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   860
     by the MenuEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   861
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   862
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   863
     the MenuEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   864
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   865
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   866
     MenuEditor new openOnClass:NewChangesBrowser andSelector:#menu
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   867
     (Menu new fromLiteralArrayEncoding:(NewChangesBrowser menu)) startUp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   868
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   869
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   870
    <resource: #menu>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
   871
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   872
    ^ 
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   873
     #(Menu
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   874
        (
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   875
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   876
            activeHelpKey: file
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   877
            label: 'File'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   878
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   879
            submenu: 
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   880
           (Menu
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   881
              (
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   882
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   883
                  activeHelpKey: fileReload
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   884
                  enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   885
                  label: 'Reload'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   886
                  itemValue: doReload
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   887
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   888
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   889
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   890
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   891
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   892
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   893
                  activeHelpKey: fileLoad
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   894
                  enabled: valueOfNotSaving
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   895
                  label: 'Load...'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   896
                  itemValue: doLoad
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   897
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   898
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   899
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   900
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   901
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   902
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   903
                  activeHelpKey: fileSave
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   904
                  enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   905
                  label: 'Save'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   906
                  itemValue: doSave
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   907
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   908
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   909
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   910
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   911
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   912
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   913
                  activeHelpKey: fileBrowseClass
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   914
                  enabled: valueOfHavingChangeSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   915
                  label: 'Browse Class'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   916
                  itemValue: doBrowseClass
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   917
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   918
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   919
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   920
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   921
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   922
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   923
                  activeHelpKey: fileExit
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   924
                  enabled: valueOfNotSaving
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   925
                  label: 'Exit'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   926
                  itemValue: closeRequest
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   927
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   928
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   929
               )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   930
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   931
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   932
            )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   933
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   934
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   935
            label: 'Apply'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   936
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   937
            submenu: 
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   938
           (Menu
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   939
              (
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   940
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   941
                  activeHelpKey: applyLine
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   942
                  enabled: valueOfHavingChangeSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   943
                  label: 'Change'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   944
                  itemValue: doApply
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   945
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   946
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   947
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   948
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   949
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   950
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   951
                  activeHelpKey: applyAll
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   952
                  enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   953
                  label: 'All'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   954
                  itemValue: doApplyAll
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   955
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   956
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   957
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   958
                  activeHelpKey: applyToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   959
                  enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   960
                  label: 'To End'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   961
                  itemValue: doApplyToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   962
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   963
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   964
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   965
                  activeHelpKey: applyForClassToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   966
                  enabled: valueOfHavingChangeSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   967
                  label: 'All for Class'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   968
                  itemValue: doApplyAllForClass
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   969
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   970
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   971
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   972
                  activeHelpKey: applyForClassToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   973
                  enabled: valueOfHavingChangeSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   974
                  label: 'For Class to End'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   975
                  itemValue: doApplyForClassToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   976
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   977
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   978
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   979
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   980
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   981
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   982
                  activeHelpKey: applyFromLastSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   983
                  enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   984
                  label: 'From Last Snapshot'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   985
                  itemValue: doApplyFromLastSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   986
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   987
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   988
               )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   989
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   990
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   991
            )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   992
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   993
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   994
            activeHelpKey: edit
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   995
            label: 'Delete'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   996
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   997
            submenu: 
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   998
           (Menu
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
   999
              (
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1000
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1001
                  activeHelpKey: deleteLine
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1002
                  enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1003
                  label: 'Change'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1004
                  itemValue: doDelete
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1005
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1006
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1007
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1008
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1009
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1010
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1011
                  activeHelpKey: deleteAll
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1012
                  enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1013
                  label: 'All'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1014
                  itemValue: doDeleteAll
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1015
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1016
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1017
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1018
                  activeHelpKey: deleteToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1019
                  enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1020
                  label: 'To End'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1021
                  itemValue: doDeleteToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1022
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1023
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1024
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1025
                  activeHelpKey: applyForClassToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1026
                  enabled: valueOfHavingChangeSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1027
                  label: 'All for Class'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1028
                  itemValue: doDeleteAllForClass
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1029
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1030
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1031
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1032
                  activeHelpKey: deleteForClassToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1033
                  enabled: valueOfHavingChangeSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1034
                  label: 'For Class to End'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1035
                  itemValue: doDeleteForClassToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1036
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1037
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1038
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1039
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1040
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1041
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1042
                  activeHelpKey: deleteCompress
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1043
                  enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1044
                  label: 'Compress'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1045
                  itemValue: doCompress
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1046
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1047
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1048
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1049
                  activeHelpKey: deleteCompressForClass
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1050
                  enabled: valueOfHavingChangeSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1051
                  label: 'Compress for Class'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1052
                  itemValue: doCompressForClass
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1053
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1054
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1055
               )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1056
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1057
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1058
            )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1059
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1060
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1061
            activeHelpKey: test
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1062
            label: 'Search'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1063
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1064
            submenu: 
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1065
           (Menu
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1066
              (
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1067
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1068
                  activeHelpKey: testFindPreviousSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1069
                  enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1070
                  label: 'Find Previous Snapshot'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1071
                  itemValue: doFindSnapshot:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1072
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1073
                  argument: 'previous'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1074
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1075
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1076
                  activeHelpKey: testFindNextSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1077
                  enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1078
                  label: 'Find Next Snapshot'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1079
                  itemValue: doFindSnapshot:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1080
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1081
                  argument: 'next'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1082
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1083
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1084
                  activeHelpKey: testFindLastSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1085
                  enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1086
                  label: 'Find Last Snapshot'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1087
                  itemValue: doFindSnapshot:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1088
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1089
                  argument: 'last'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1090
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1091
               )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1092
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1093
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1094
            )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1095
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1096
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1097
            activeHelpKey: test
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1098
            label: 'Test'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1099
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1100
            submenu: 
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1101
           (Menu
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1102
              (
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1103
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1104
                  activeHelpKey: testCompareWithCurrentVersion
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1105
                  enabled: valueOfHavingChangeSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1106
                  label: 'Compare with Current Version'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1107
                  itemValue: doCompare
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1108
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1109
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1110
               )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1111
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1112
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1113
            )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1114
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1115
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1116
            activeHelpKey: settings
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1117
            label: 'Settings'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1118
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1119
            submenu: 
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1120
           (Menu
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1121
              (
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1122
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1123
                  activeHelpKey: settingsAutoUpdate
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1124
                  enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1125
                  label: 'Auto Update'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1126
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1127
                  indication: autoUpdateMode:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1128
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1129
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1130
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1131
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1132
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1133
                  activeHelpKey: settingsPrivateAsSeparate
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1134
                  enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1135
                  label: 'Private Classes as Separate'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1136
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1137
                  indication: privateAsSeparate:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1138
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1139
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1140
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1141
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1142
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1143
                  activeHelpKey: settingsColumns
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1144
                  label: 'Columns'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1145
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1146
                  submenu: 
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1147
                 (Menu
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1148
                    (
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1149
                     (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1150
                        activeHelpKey: settingsColumnsClassName
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1151
                        label: 'Class'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1152
                        translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1153
                        isVisible: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1154
                        hideMenuOnActivated: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1155
                        indication: classNameColumn:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1156
                      )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1157
                     (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1158
                        activeHelpKey: settingsColumnsCategory
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1159
                        label: 'Selector'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1160
                        translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1161
                        isVisible: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1162
                        hideMenuOnActivated: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1163
                        indication: selectorColumn:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1164
                      )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1165
                     (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1166
                        activeHelpKey: settingsColumnsCategory
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1167
                        label: 'Category'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1168
                        translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1169
                        hideMenuOnActivated: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1170
                        indication: categoryColumn:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1171
                      )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1172
                     (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1173
                        activeHelpKey: settingsColumnsDeltaInfo
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1174
                        label: 'Delta Info'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1175
                        translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1176
                        hideMenuOnActivated: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1177
                        indication: deltaInfoColumn:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1178
                      )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1179
                     (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1180
                        activeHelpKey: settingsColumnsType
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1181
                        label: 'Type'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1182
                        translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1183
                        hideMenuOnActivated: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1184
                        indication: typeColumn:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1185
                      )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1186
                     (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1187
                        activeHelpKey: settingsColumnsTimeStamp
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1188
                        label: 'Time Stamp'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1189
                        translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1190
                        hideMenuOnActivated: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1191
                        indication: timeStampColumn:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1192
                      )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1193
                     (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1194
                        activeHelpKey: settingsColumnsPosition
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1195
                        label: 'Positions'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1196
                        translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1197
                        hideMenuOnActivated: false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1198
                        indication: positionsColumn:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1199
                      )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1200
                     )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1201
                    nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1202
                    nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1203
                  )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1204
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1205
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1206
                  label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1207
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1208
               (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1209
                  enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1210
                  label: 'Fonts'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1211
                  translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1212
                  submenuChannel: menuFont
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1213
                )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1214
               )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1215
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1216
              nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1217
            )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1218
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1219
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1220
            activeHelpKey: help
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1221
            label: 'MENU_Help'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1222
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1223
            startGroup: conditionalRight
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1224
            submenuChannel: menuHelp
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1225
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1226
         )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1227
        nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1228
        nil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1229
      )
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1230
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1231
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1232
menuTable
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1233
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1234
     by the MenuEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1235
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1236
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1237
     the MenuEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1238
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1239
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1240
     MenuEditor new openOnClass:NewChangesBrowser andSelector:#menuTable
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1241
     (Menu new fromLiteralArrayEncoding:(NewChangesBrowser menuTable)) startUp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1242
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1243
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1244
    <resource: #menu>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1245
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1246
    ^
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1247
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1248
       #(#Menu
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1249
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1250
	   #(
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1251
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1252
		#label: 'Apply'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1253
		#translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1254
		#value: #doApply
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1255
		#activeHelpKey: #applyLine
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1256
		#enabled: #valueOfHavingChangeSelection
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1257
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1258
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1259
		#label: 'Apply To End'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1260
		#translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1261
		#value: #doApplyToEnd
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1262
		#activeHelpKey: #applyToEnd
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1263
		#enabled: #valueOfHavingSelection
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1264
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1265
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1266
		#label: 'Apply All For Class'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1267
		#translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1268
		#value: #doApplyAllForClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1269
		#activeHelpKey: #applyForClassToEnd
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1270
		#enabled: #valueOfHavingChangeSelection
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1271
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1272
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1273
		#label: 'Apply For Class To End'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1274
		#translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1275
		#value: #doApplyForClassToEnd
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1276
		#activeHelpKey: #applyForClassToEnd
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1277
		#enabled: #valueOfHavingChangeSelection
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1278
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1279
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1280
		#label: '-'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1281
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1282
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1283
		#label: 'Delete'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1284
		#translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1285
		#value: #doDelete
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1286
		#activeHelpKey: #deleteLine
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1287
		#enabled: #valueOfHavingSelection
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1288
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1289
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1290
		#label: 'Delete To End'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1291
		#translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1292
		#value: #doDeleteToEnd
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1293
		#activeHelpKey: #deleteToEnd
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1294
		#enabled: #valueOfHavingSelection
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1295
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1296
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1297
		#label: 'Delete All For Class'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1298
		#translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1299
		#value: #doDeleteAllForClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1300
		#activeHelpKey: #applyForClassToEnd
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1301
		#enabled: #valueOfHavingChangeSelection
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1302
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1303
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1304
		#label: 'Delete For Class To End'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1305
		#translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1306
		#value: #doDeleteForClassToEnd
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1307
		#activeHelpKey: #deleteForClassToEnd
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1308
		#enabled: #valueOfHavingChangeSelection
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1309
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1310
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1311
		#label: '-'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1312
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1313
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1314
		#label: 'Browse Class'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1315
		#translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1316
		#value: #doBrowseClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1317
		#activeHelpKey: #fileBrowseClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1318
		#enabled: #valueOfHavingChangeSelection
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1319
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1320
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1321
		#label: '-'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1322
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1323
	     #(#MenuItem
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1324
		#label: 'Compress For Class'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1325
		#translateLabel: true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1326
		#value: #doCompressForClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1327
		#activeHelpKey: #deleteCompressForClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1328
		#enabled: #valueOfHavingChangeSelection
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1329
	    )
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1330
	  ) nil
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1331
	  nil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1332
      )
1650
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
  1333
c0c3fb153fc7 help texts;
Claus Gittinger <cg@exept.de>
parents: 1647
diff changeset
  1334
    "Modified: / 19.5.1998 / 18:03:59 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1335
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1336
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1337
menuToolbar
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1338
    "This resource specification was automatically generated
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1339
     by the MenuEditor of ST/X."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1340
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1341
    "Do not manually edit this!! If it is corrupted,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1342
     the MenuEditor may not be able to read the specification."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1343
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1344
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1345
     MenuEditor new openOnClass:NewChangesBrowser andSelector:#menuToolbar
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1346
     (Menu new fromLiteralArrayEncoding:(NewChangesBrowser menuToolbar)) startUp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1347
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1348
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1349
    <resource: #menu>
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1350
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1351
    ^ 
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1352
     #(Menu
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1353
        (
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1354
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1355
            activeHelpKey: fileLoad
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1356
            enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1357
            label: 'Load'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1358
            itemValue: doLoad
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1359
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1360
            isButton: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1361
            labelImage: (ResourceRetriever XPToolbarIconLibrary loadFromFileIcon)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1362
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1363
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1364
            activeHelpKey: fileSave
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1365
            enabled: valueOfNotSaving
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1366
            label: 'Save'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1367
            itemValue: doSave
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1368
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1369
            isButton: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1370
            labelImage: (ResourceRetriever XPToolbarIconLibrary saveToFileIcon)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1371
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1372
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1373
            label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1374
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1375
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1376
            activeHelpKey: applyLine
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1377
            enabled: valueOfHavingChangeSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1378
            label: 'Apply'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1379
            itemValue: doApply
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1380
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1381
            isButton: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1382
            labelImage: (ResourceRetriever nil applyIcon)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1383
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1384
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1385
            activeHelpKey: applyToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1386
            enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1387
            label: 'Apply To End'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1388
            itemValue: doApplyToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1389
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1390
            isButton: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1391
            labelImage: (ResourceRetriever nil applyToEndIcon)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1392
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1393
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1394
            activeHelpKey: applyFromLastSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1395
            enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1396
            label: 'Apply From Last Snapshot'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1397
            itemValue: doApplyFromLastSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1398
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1399
            isButton: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1400
            labelImage: (ResourceRetriever nil applyFromLastSnapshotIcon)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1401
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1402
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1403
            label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1404
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1405
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1406
            activeHelpKey: deleteLine
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1407
            enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1408
            label: 'Delete'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1409
            itemValue: doDelete
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1410
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1411
            isButton: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1412
            labelImage: (ResourceRetriever nil deleteIcon)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1413
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1414
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1415
            activeHelpKey: deleteToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1416
            enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1417
            label: 'Delete To End'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1418
            itemValue: doDeleteToEnd
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1419
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1420
            isButton: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1421
            labelImage: (ResourceRetriever nil deleteToEndIcon)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1422
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1423
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1424
            activeHelpKey: deleteCompress
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1425
            enabled: valueOfNotReading
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1426
            label: 'Compress'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1427
            itemValue: doCompress
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1428
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1429
            isButton: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1430
            labelImage: (ResourceRetriever nil compressIcon)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1431
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1432
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1433
            label: '-'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1434
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1435
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1436
            activeHelpKey: testFindPreviousSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1437
            enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1438
            label: 'Find Previous Snapshot'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1439
            itemValue: doFindSnapshot:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1440
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1441
            isButton: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1442
            labelImage: (ResourceRetriever nil findPreviousSnapshotIcon)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1443
            argument: 'previous'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1444
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1445
         (MenuItem
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1446
            activeHelpKey: testFindNextSnapshot
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1447
            enabled: valueOfHavingSelection
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1448
            label: 'Find Next Snapshot'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1449
            itemValue: doFindSnapshot:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1450
            translateLabel: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1451
            isButton: true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1452
            labelImage: (ResourceRetriever nil findNextSnapshotIcon)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1453
            argument: 'next'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1454
          )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1455
         )
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1456
        nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1457
        nil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1458
      )
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1459
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1460
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1461
!NewChangesBrowser methodsFor:'accesssing - columns'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1462
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1463
categoryColumn
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1464
    "returns whether the column for the category attribute of the changes is shown"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1465
1553
eaeafd6f8cbe checkin from browser
tz
parents: 1546
diff changeset
  1466
    ^CategoryColumn ? (CategoryColumn := false)
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1467
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1468
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1469
categoryColumn: aBoolean
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1470
    "sets whether the column for the category attribute of the changes is shown"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1471
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1472
    self changeColumn: #category add: (CategoryColumn := aBoolean)
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1473
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1474
    "Modified: / 19.5.1998 / 20:30:13 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1475
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1476
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1477
classAndSelectorColumn
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1478
    "returns whether the column for the category attribute of the changes is shown"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1479
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1480
    ^ClassAndSelectorColumn ? (ClassAndSelectorColumn := false)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1481
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1482
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1483
classAndSelectorColumn: aBoolean
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1484
    "sets whether the column for the category attribute of the changes is shown"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1485
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1486
    self changeColumn: #classAndSelector add: (ClassAndSelectorColumn := aBoolean)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1487
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1488
    "Modified: / 19.5.1998 / 20:30:13 / cg"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1489
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1490
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1491
classNameColumn
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1492
    "returns whether the column for the category attribute of the changes is shown"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1493
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1494
    ^ClassNameColumn ? (ClassNameColumn := false)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1495
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1496
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1497
classNameColumn: aBoolean
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1498
    "sets whether the column for the className attribute of the changes is shown"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1499
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1500
    self changeColumn: #className add: (ClassNameColumn := aBoolean)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1501
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1502
    "Modified: / 19.5.1998 / 20:30:13 / cg"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1503
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1504
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1505
deltaInfoColumn
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1506
    "returns whether the column for the delta info attribute of the changes is shown"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1507
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1508
    ^DeltaInfoColumn ? (DeltaInfoColumn := false)
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1509
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1510
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1511
deltaInfoColumn: aBoolean
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1512
    "sets whether the column for the delta info attribute of the changes is shown; and updates"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1513
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1514
    self changeColumn: #deltaInfo add: (DeltaInfoColumn := aBoolean).
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1515
    (self window notNil and: [DeltaInfoColumn]) ifTrue: [self doReload]
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1516
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1517
    "Modified: / 19.5.1998 / 20:30:21 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1518
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1519
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1520
positionsColumn
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1521
    "returns whether the column for the position attribute of the changes is shown"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1522
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1523
    ^PositionsColumn ? (PositionsColumn := false)
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1524
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1525
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1526
positionsColumn: aBoolean
b37202441764 revised
tz
parents: 1556
diff changeset
  1527
    "sets whether the column for the positions attribute of the changes is shown"
b37202441764 revised
tz
parents: 1556
diff changeset
  1528
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1529
    self changeColumn: #position add: (PositionsColumn := aBoolean)
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1530
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1531
    "Modified: / 19.5.1998 / 20:30:37 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1532
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1533
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1534
selectorColumn
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1535
    "returns whether the column for the category attribute of the changes is shown"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1536
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1537
    ^SelectorColumn ? (SelectorColumn := false)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1538
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1539
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1540
selectorColumn: aBoolean
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1541
    "sets whether the column for the category attribute of the changes is shown"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1542
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1543
    self changeColumn: #selector add: (SelectorColumn := aBoolean)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1544
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1545
    "Modified: / 19.5.1998 / 20:30:13 / cg"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1546
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1547
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1548
timeStampColumn
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1549
    "returns whether the column for the time stamp attribute of the changes is shown"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1550
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1551
    ^TimeStampColumn ? (TimeStampColumn := false)
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1552
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1553
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1554
timeStampColumn: aBoolean
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1555
    "sets whether the column for the time stamp attribute of the changes is shown"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1556
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1557
    self changeColumn: #timeStamp add: (TimeStampColumn := aBoolean)
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1558
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1559
    "Modified: / 19.5.1998 / 20:30:42 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1560
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1561
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1562
typeColumn
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1563
    "returns whether the column for the type attribute of the changes is shown"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1564
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1565
    ^TypeColumn ? (TypeColumn := false)
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1566
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1567
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1568
typeColumn: aBoolean
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1569
    "sets whether the column for the type attribute of the changes is shown"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1570
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1571
    self changeColumn: #type add: (TypeColumn := aBoolean)
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1572
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1573
    "Modified: / 19.5.1998 / 20:30:46 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1574
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1575
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1576
!NewChangesBrowser methodsFor:'accesssing - views'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1577
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1578
changeTextEditor
b37202441764 revised
tz
parents: 1556
diff changeset
  1579
    "returns the view of the changeTextEditor"
b37202441764 revised
tz
parents: 1556
diff changeset
  1580
b37202441764 revised
tz
parents: 1556
diff changeset
  1581
    ^builder componentAt: #changeTextEditor
b37202441764 revised
tz
parents: 1556
diff changeset
  1582
b37202441764 revised
tz
parents: 1556
diff changeset
  1583
b37202441764 revised
tz
parents: 1556
diff changeset
  1584
b37202441764 revised
tz
parents: 1556
diff changeset
  1585
!
b37202441764 revised
tz
parents: 1556
diff changeset
  1586
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1587
filterField
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1588
    "returns the view of the filterField"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1589
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1590
    ^builder componentAt: #filterField
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1591
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1592
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1593
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1594
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1595
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1596
filterLabel
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1597
    "returns the view of the filterLabel"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1598
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1599
    ^builder componentAt: #filterLabel
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1600
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1601
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1602
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1603
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1604
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1605
readProgressIndicator
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1606
    "returns the view of the readProgressIndicator"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1607
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1608
    ^builder componentAt: #readProgressIndicator
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1609
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1610
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1611
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1612
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1613
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1614
!NewChangesBrowser methodsFor:'aspects'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1615
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1616
listOfChangeColumns
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1617
    "initializes (during the startup) and returns the value holder for the columns"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1618
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1619
    |holder|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1620
    (holder := builder bindingAt:#listOfChangeColumns) isNil ifTrue:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1621
        builder aspectAt:#listOfChangeColumns put:(holder := List new).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1622
        self changeColumn: nil add: true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1623
        self changeColumn: #change add: true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1624
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1625
        self classNameColumn: self classNameColumn.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1626
        self classAndSelectorColumn: self classAndSelectorColumn.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1627
        self selectorColumn: self selectorColumn.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1628
        self categoryColumn: self categoryColumn.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1629
        self timeStampColumn: self timeStampColumn.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1630
        self typeColumn: self typeColumn.
2740
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  1631
"/        self deltaInfoColumn: self deltaInfoColumn.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1632
        self positionsColumn: self positionsColumn.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1633
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1634
    ^ holder
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1635
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  1636
    "Modified: / 19.5.1998 / 20:30:31 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1637
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1638
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1639
listOfChanges
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1640
    "returns the value holder for the changes"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1641
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1642
    |holder|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1643
    (holder := builder bindingAt:#listOfChanges) isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1644
	builder aspectAt:#listOfChanges put:(holder := List new)
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1645
    ].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1646
    ^ holder
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1647
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1648
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1649
selectionOfChange
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1650
    "returns the value holder for the selected change"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1651
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1652
    |holder|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1653
    (holder := builder bindingAt:#selectionOfChange) isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1654
	builder aspectAt:#selectionOfChange put:(holder :=  ValueHolder new).
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1655
    ].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1656
    ^ holder
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1657
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1658
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1659
valueOfChangeText
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1660
    "returns the value holder for the source code of the selected change"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1661
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1662
    |holder|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1663
    (holder := builder bindingAt:#valueOfChangeText) isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1664
	builder aspectAt:#valueOfChangeText put:(holder :=  ValueHolder new).
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1665
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1666
    ^ holder
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1667
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1668
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1669
valueOfFilter
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1670
    "returns the value holder for the string of the filter"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1671
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1672
    |holder|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1673
    (holder := builder bindingAt:#valueOfFilter) isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1674
	builder aspectAt:#valueOfFilter put:(holder :=  ValueHolder new).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1675
	holder addDependent: self
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1676
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1677
    ^ holder
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1678
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1679
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1680
valueOfHavingChangeSelection
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1681
    "returns whether the selected change can be applied as value holder"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1682
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1683
    |holder|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1684
    (holder := builder bindingAt:#valueOfHavingChangeSelection) isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1685
	builder aspectAt:#valueOfHavingChangeSelection put:(holder :=  false asValue).
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1686
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1687
    ^ holder
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1688
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1689
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1690
valueOfHavingSelection
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1691
    "returns whether a change is selected as value holder"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1692
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1693
    |holder|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1694
    (holder := builder bindingAt:#valueOfHavingSelection) isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1695
	builder aspectAt:#valueOfHavingSelection put:(holder :=  false asValue).
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1696
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1697
    ^ holder
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1698
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1699
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1700
valueOfNotReading
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1701
    "returns whether it is not reading or compressing as value holder"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1702
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1703
    |holder|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1704
    (holder := builder bindingAt:#valueOfReading) isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1705
	builder aspectAt:#valueOfReading put:(holder :=  true asValue).
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1706
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1707
    ^ holder
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1708
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1709
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1710
valueOfNotSaving
b37202441764 revised
tz
parents: 1556
diff changeset
  1711
    "returns whether it is not saving as value holder"
b37202441764 revised
tz
parents: 1556
diff changeset
  1712
b37202441764 revised
tz
parents: 1556
diff changeset
  1713
    |holder|
b37202441764 revised
tz
parents: 1556
diff changeset
  1714
    (holder := builder bindingAt:#valueOfNotSaving) isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1715
	builder aspectAt:#valueOfNotSaving put:(holder :=  true asValue).
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1716
    ].
b37202441764 revised
tz
parents: 1556
diff changeset
  1717
    ^ holder
b37202441764 revised
tz
parents: 1556
diff changeset
  1718
!
b37202441764 revised
tz
parents: 1556
diff changeset
  1719
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1720
valueOfReadProgress
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1721
    "returns the stage of reading or compressing as value holder"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1722
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1723
    |holder|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1724
    (holder := builder bindingAt:#valueOfReadProgress) isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1725
	builder aspectAt:#valueOfReadProgress put:(holder :=  ValueHolder with: 0).
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1726
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1727
    ^ holder
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1728
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1729
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1730
!NewChangesBrowser methodsFor:'callbacks'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1731
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1732
changeSelected: lineNr
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1733
    "fetches the source code of the change and shows it in the codeView"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1734
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1735
    |aStream sawExcla chunk selectedRow changeNr|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1736
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1737
    lineNr == 0 ifTrue: [^nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1738
    changeNr := changes indexOf: (self listOfChanges at: lineNr).
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1739
    aStream := self streamForChange: (changes at: changeNr).
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1740
    aStream isNil ifTrue:[^ self].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1741
    sawExcla := aStream peekFor:(aStream class chunkSeparator).
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1742
    chunk := aStream nextChunk.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1743
    sawExcla ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1744
	chunk := aStream nextChunk
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1745
    ].
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1746
    aStream close.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1747
    self valueOfChangeText value:chunk.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1748
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1749
    self updateChannels
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1750
! !
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1751
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1752
!NewChangesBrowser methodsFor:'change & update'!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1753
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1754
update:something with:aParameter from:changedObject
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1755
    "evaluates the filterCompletionBlock after returning the filter string"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1756
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1757
    super update:something with:aParameter from:changedObject.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1758
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1759
    changedObject == self valueOfFilter ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1760
        filterCompletionBlock value: changedObject value.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1761
        self listOfChanges size > 0 ifTrue: [self addToHistory: changedObject value -> #doFilter:]
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1762
    ]
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1763
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1764
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1765
updateChannels
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1766
    "updates my channels"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1767
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1768
    |change|
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1769
    (change := self selectionOfChange value) notNil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1770
    ifTrue:
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1771
    [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1772
	self valueOfHavingSelection value: true.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1773
	self valueOfHavingChangeSelection value:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1774
	    ((change type = 'method') or: [(change type = 'class')])
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1775
    ]
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1776
    ifFalse:
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1777
    [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1778
	self valueOfHavingSelection value: false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1779
	self valueOfHavingChangeSelection value: false
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1780
    ]
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1781
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1782
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1783
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1784
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1785
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1786
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1787
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1788
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1789
!NewChangesBrowser methodsFor:'compiler interface'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1790
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1791
correctableSelectorWarning:aText position:smallInteger1 to:smallInteger2 from:aByteCodeCompiler
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1792
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1793
    ^false
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1794
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1795
    "Created: / 16-11-2010 / 16:04:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1796
!
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1797
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1798
correctableWarning:aText position:smallInteger1 to:smallInteger2 from:aByteCodeCompiler
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1799
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1800
    ^false
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1801
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1802
    "Created: / 16-11-2010 / 16:03:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1803
!
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1804
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1805
wantChangeLog
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1806
    "sent by the compiler to ask if a changeLog entry should
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1807
     be written. Return false here."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1808
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1809
    ^ false
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1810
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1811
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1812
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1813
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1814
!NewChangesBrowser methodsFor:'error handling'!
b37202441764 revised
tz
parents: 1556
diff changeset
  1815
b37202441764 revised
tz
parents: 1556
diff changeset
  1816
correctableError:aString position:relPos to:relEndPos from:aCompiler
b37202441764 revised
tz
parents: 1556
diff changeset
  1817
    "compiler notifys us of an error - this should really not happen since
b37202441764 revised
tz
parents: 1556
diff changeset
  1818
     changes ought to be correct (did someone edit the changes file ??).
b37202441764 revised
tz
parents: 1556
diff changeset
  1819
     Show the bad change in the codeView and let codeView hilight the error;
b37202441764 revised
tz
parents: 1556
diff changeset
  1820
     no corrections allowed here therefore return false"
b37202441764 revised
tz
parents: 1556
diff changeset
  1821
b37202441764 revised
tz
parents: 1556
diff changeset
  1822
    self error:aString position:relPos to:relEndPos from:aCompiler.
b37202441764 revised
tz
parents: 1556
diff changeset
  1823
    ^ false
b37202441764 revised
tz
parents: 1556
diff changeset
  1824
!
b37202441764 revised
tz
parents: 1556
diff changeset
  1825
b37202441764 revised
tz
parents: 1556
diff changeset
  1826
error:aString position:relPos to:relEndPos from:aCompiler
b37202441764 revised
tz
parents: 1556
diff changeset
  1827
    "compiler notifys us of an error - this should really not happen since
b37202441764 revised
tz
parents: 1556
diff changeset
  1828
     changes ought to be correct (did someone edit the changes file ??).
b37202441764 revised
tz
parents: 1556
diff changeset
  1829
     Show the bad change in the codeView and let codeView hilight the error"
b37202441764 revised
tz
parents: 1556
diff changeset
  1830
b37202441764 revised
tz
parents: 1556
diff changeset
  1831
    |action|
b37202441764 revised
tz
parents: 1556
diff changeset
  1832
b37202441764 revised
tz
parents: 1556
diff changeset
  1833
    (skipSignal notNil) ifTrue:[
b37202441764 revised
tz
parents: 1556
diff changeset
  1834
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1835
        self changeTextEditor highlightingErrorPosition:relPos to:relEndPos do:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1836
            |box|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1837
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1838
            "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1839
             start dialog - make certain cleanup is done
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1840
            "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1841
            action := OptionBox
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1842
                          request:aString
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1843
                          label:'Error'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1844
                          image:(WarningBox iconBitmap)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1845
                          buttonLabels:#('cancel' 'skip' 'continue')
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1846
                          values:#(#abort #skip #continue)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1847
                          default:#continue.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1848
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1849
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1850
        action == #abort ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1851
            Object abortSignal raise.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1852
            ^ false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1853
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1854
        action == #skip ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1855
            skipSignal raise.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1856
            ^ false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1857
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1858
        ^  false
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1859
    ].
b37202441764 revised
tz
parents: 1556
diff changeset
  1860
    ^self changeTextEditor error:aString position:relPos to:relEndPos from:aCompiler
b37202441764 revised
tz
parents: 1556
diff changeset
  1861
!
b37202441764 revised
tz
parents: 1556
diff changeset
  1862
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1863
unusedVariableWarning:aText position:smallInteger1 to:smallInteger2 from:aByteCodeCompiler
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1864
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1865
    ^false
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1866
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1867
    "Created: / 24-02-2011 / 22:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1868
!
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  1869
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1870
warning:aString position:relPos to:relEndPos from:aCompiler
b37202441764 revised
tz
parents: 1556
diff changeset
  1871
    "compiler notifys us of a warning - ignore it"
b37202441764 revised
tz
parents: 1556
diff changeset
  1872
b37202441764 revised
tz
parents: 1556
diff changeset
  1873
    ^ self
b37202441764 revised
tz
parents: 1556
diff changeset
  1874
b37202441764 revised
tz
parents: 1556
diff changeset
  1875
! !
b37202441764 revised
tz
parents: 1556
diff changeset
  1876
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1877
!NewChangesBrowser methodsFor:'help'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1878
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1879
defaultInfoLabel
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1880
    "returns the default label for the info bar"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1881
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1882
    changeFileName asFilename exists ifTrue: [^changeFileName].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1883
    ^'No change file name defined.'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1884
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1885
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1886
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1887
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1888
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1889
openDocumentation
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1890
   self openHTMLDocument:'tools/cbrowser/TOP.html'.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1891
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1892
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1893
!NewChangesBrowser methodsFor:'initialization'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1894
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1895
initialize
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1896
    "initializes the instance variables"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1897
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1898
    super initialize.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1899
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1900
    changes           := List new.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1901
    self changeFileName: ObjectMemory nameForChanges.
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1902
    AutoUpdate        := AutoUpdate ? false.
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1903
    PrivateAsSeparate := PrivateAsSeparate ? false.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1904
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1905
    ObjectMemory addDependent:self.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1906
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1907
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1908
!NewChangesBrowser methodsFor:'menu modes'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1909
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1910
autoUpdateMode
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1911
    "returns whether autoUpdate is on/off"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1912
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1913
    ^AutoUpdate
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1914
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1915
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1916
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1917
autoUpdateMode: aMode
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1918
    "sets the autoUpdate to aMode"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1919
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1920
    AutoUpdate := aMode
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1921
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1922
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1923
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1924
privateAsSeparate
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1925
    "returns whether private classes are handled as separate changes"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1926
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1927
    ^PrivateAsSeparate
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1928
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1929
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1930
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1931
privateAsSeparate: aMode
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1932
    "sets the PrivateAsSeparate to aMode"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1933
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1934
    PrivateAsSeparate := aMode
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1935
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1936
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1937
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1938
!NewChangesBrowser methodsFor:'private'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1939
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1940
applyChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1941
    "applies aChange"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1942
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1943
    |aStream nm applyAction changeNr|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1944
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1945
    aStream := self streamForChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1946
    aStream isNil ifTrue:[^ self].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1947
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1948
    nm := self classNameOfChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1949
    nm notNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1950
	|cls|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1951
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1952
	cls := Smalltalk at:(nm asSymbol) ifAbsent:[].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1953
	cls notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1954
	    cls isLoaded ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1955
		cls autoload
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1956
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1957
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1958
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1959
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1960
    applyAction := [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1961
	|sig|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1962
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1963
	(skipSignal notNil) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1964
	    sig := skipSignal
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1965
	] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1966
	    sig := Object abortSignal
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1967
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1968
	sig catch:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1969
	    |reader doItChunk methodsForChunk|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1970
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1971
	    "/ a followup methodsFor: chunk...
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1972
	    aChange followUp ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1973
		methodsForChunk := aChange chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1974
	    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1975
		doItChunk := aStream nextChunk.   "/ an empty chunk sometimes...
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1976
		doItChunk notEmpty ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1977
		    Compiler evaluate:doItChunk notifying:self.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1978
		] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1979
		    methodsForChunk := aStream nextChunk.   "/ the real one
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1980
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1981
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1982
	    methodsForChunk notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1983
		Class methodRedefinitionSignal handle:[:ex |
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1984
		    ex proceedWith:#keep
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1985
		] do:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1986
		    reader := Compiler evaluate:methodsForChunk notifying:self.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1987
		    reader fileInFrom:aStream notifying:self passChunk:false single:true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1988
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1989
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1990
	].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1991
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1992
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1993
    "/
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1994
    "/ if I am showing the changes file, dont update it
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1995
    "/
1877
f0dbf0801e4d care for pathName being the same, where the change-fileName is not
Claus Gittinger <cg@exept.de>
parents: 1798
diff changeset
  1996
    changeFileName asFilename pathName = ObjectMemory nameForChanges asFilename pathName ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1997
	Class withoutUpdatingChangesDo:applyAction
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1998
    ] ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1999
	applyAction value
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2000
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2001
    aStream close
1877
f0dbf0801e4d care for pathName being the same, where the change-fileName is not
Claus Gittinger <cg@exept.de>
parents: 1798
diff changeset
  2002
f0dbf0801e4d care for pathName being the same, where the change-fileName is not
Claus Gittinger <cg@exept.de>
parents: 1798
diff changeset
  2003
    "Modified: / 8.9.1998 / 12:48:01 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2004
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2005
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2006
autoSelectChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2007
    "selects aChange"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2008
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2009
    self class autoSelectNext ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2010
	((self listOfChanges indexOf: aChange) <= self listOfChanges size) ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2011
	    self selectionOfChange value: aChange.
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2012
	    self changeSelected:(self listOfChanges indexOf: aChange).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2013
	    self updateChannels.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2014
	    ^ self
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2015
	]
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2016
    ].
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2017
    self updateChannels.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2018
    self unselectChange
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  2019
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2020
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2021
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2022
autoSelectLast
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2023
    "selects the last change"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2024
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2025
    self autoSelectChange: (self listOfChanges at: self listOfChanges size ifAbsent: nil).
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2026
    self updateChannels.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2027
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2028
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2029
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2030
autoSelectOrEnd:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2031
    "selects aChange or the last"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2032
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2033
    |last|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2034
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2035
    last := self listOfChanges size.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2036
    aChange notNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2037
	self autoSelectChange:aChange
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2038
    ] ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2039
	self selectionOfChange value: (self listOfChanges at: last ifAbsent: nil).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2040
	self changeSelected: last
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2041
    ].
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2042
    self updateChannels
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2043
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2044
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  2045
changeColumn: aColumnId add: addOrRemove
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2046
    "adds or removes a attribute column to the table"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2047
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  2048
    |newListOfChangeColumns|
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  2049
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  2050
    newListOfChangeColumns := self listOfChangeColumns asOrderedCollection.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2051
    addOrRemove ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2052
        newListOfChangeColumns add:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2053
            ((self class tableColumnsForChangeAttributes
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2054
                collect: [:i| i decodeAsLiteralArray])
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2055
                    detect: [:column| column id = aColumnId])
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2056
    ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2057
        newListOfChangeColumns remove:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2058
            (self listOfChangeColumns detect: [:column| column id = aColumnId] ifNone: nil) ifAbsent: nil
1553
eaeafd6f8cbe checkin from browser
tz
parents: 1546
diff changeset
  2059
    ].
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  2060
    self listOfChangeColumns contents: newListOfChangeColumns.
1553
eaeafd6f8cbe checkin from browser
tz
parents: 1546
diff changeset
  2061
    self autoSelectLast
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2062
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  2063
    "Modified: / 19.5.1998 / 20:32:53 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2064
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2065
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2066
changeFileName:aFileName
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2067
    "sets the name of the file with the changes"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2068
1938
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
  2069
    changeFileName := aFileName asFilename name.
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
  2070
"/ (Filename currentDirectory asAbsoluteFilename construct: aFileName) name.
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
  2071
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
  2072
    "Modified: / 17.10.1998 / 14:43:01 / cg"
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2073
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2074
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2075
checkClassIsLoaded:aClass
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2076
    "returns true if aClass is loaded"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2077
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2078
    |cls|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2079
    aClass isMeta ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2080
	cls := aClass soleInstance
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2081
    ] ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2082
	cls := aClass
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2083
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2084
    cls isLoaded ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2085
	(self confirm:(cls name , ' is an autoloaded class.\I can only compare the methods texts if its loaded first.\\Load the class first ?') withCRs)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2086
	ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2087
	    cls autoload
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2088
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2089
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2090
    ^ cls isLoaded
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2091
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2092
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2093
checkIfFileHasChanged
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2094
    "checks if changes file has changed"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2095
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2096
    |f info|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2097
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2098
    Processor removeTimedBlock:autoUpdateBlock.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2099
    f := changeFileName asFilename.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2100
    (info := f info) isNil ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2101
	self newLabel:'unaccessable'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2102
    ] ifFalse:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2103
	(info modificationTime) > changeFileTimestamp ifTrue:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2104
	    self newLabel:'outdated'.
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2105
	    AutoUpdate ifTrue:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2106
		self doReload
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2107
	    ]
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2108
	] ifFalse:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2109
	    self newLabel:''
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2110
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2111
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2112
    Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2113
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2114
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2115
classNameOfChange:aChange
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2116
    "returns the classname of aChange
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2117
     (for classChanges (i.e. xxx class), the non-metaClassName (i.e. xxx) is returned)"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2118
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2119
    |name|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2120
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2121
    name := self fullClassNameOfChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2122
    name isNil ifTrue:[^ nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2123
    (name endsWith:' class') ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2124
	^ name copyWithoutLast:6
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2125
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2126
    ^ name
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2127
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2128
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2129
compareChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2130
    "compares aChange with the current version"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2131
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2132
    |aStream chunk sawExcla parseTree thisClass cat oldSource newSource
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2133
     parser sel oldMethod outcome showDiff d t1 t2 selector isLoaded
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2134
     method beep|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2135
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2136
    aStream := self streamForChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2137
    aStream isNil ifTrue:[^ self].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2138
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2139
    showDiff := false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2140
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2141
    aChange followUp ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2142
	sawExcla := aStream peekFor:(aStream class chunkSeparator).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2143
	chunk := aStream nextChunk.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2144
    ] ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2145
	chunk := aChange chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2146
	sawExcla := true.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2147
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2148
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2149
    beep := false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2150
    sawExcla ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2151
	outcome := 'Cannot compare this change\(i.e. this is not a method change)!!'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2152
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2153
	parseTree := Parser parseExpression:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2154
	(parseTree notNil and:[parseTree isMessage]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2155
	    ((selector := parseTree selector) == #removeSelector:) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2156
		thisClass := (parseTree receiver evaluate).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2157
		thisClass isBehavior ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2158
		    (self checkClassIsLoaded:thisClass) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2159
			selector := (parseTree arg1 evaluate).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2160
			(thisClass includesSelector:selector) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2161
			    outcome := 'Change removes the #' , selector , ' method from ' , thisClass name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2162
			] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2163
			    outcome := 'Change has no effect\(there is no method for #' , selector , ' in ' , thisClass name , ')'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2164
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2165
		    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2166
			beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2167
			outcome := 'Cannot compare this change (compare requires class to be loaded)!!'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2168
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2169
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2170
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2171
	    selector == #category: ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2172
		parseTree receiver isMessage ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2173
		    parseTree receiver selector == #compiledMethodAt: ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2174
			(method := parseTree receiver evaluate) isMethod ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2175
			    method category = parseTree arg1 evaluate ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2176
				outcome := 'Change has no effect\(same category)'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2177
			    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2178
				outcome := 'Category is different (''' , method category , ''' vs. ''' , parseTree arg1 evaluate , ''')'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2179
			    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2180
			] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2181
			    beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2182
			    outcome := 'There is no such method!!'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2183
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2184
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2185
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2186
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2187
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2188
    ] ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2189
	parseTree := Parser parseExpression:chunk.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2190
	(parseTree notNil
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2191
	 and:[parseTree ~~ #Error
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2192
	 and:[parseTree isMessage]]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2193
	    (parseTree selector == #methodsFor:) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2194
		thisClass := (parseTree receiver evaluate).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2195
		thisClass isBehavior ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2196
		    (isLoaded := self checkClassIsLoaded:thisClass) ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2197
			outcome := 'Cannot compare this change\(compare requires class to be loaded)!!'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2198
		    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2199
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2200
		    cat := parseTree arg1 evaluate.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2201
		    newSource := aStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2202
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2203
		    parser := Parser parseMethod:newSource in:thisClass.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2204
		    (parser notNil and:[parser ~~ #Error]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2205
			sel := parser selector.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2206
			oldMethod := thisClass compiledMethodAt:sel.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2207
			oldMethod notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2208
			    (oldMethod category = cat) ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2209
				Transcript showCR:'Category changed.'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2210
			    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2211
			    oldSource := oldMethod source.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2212
			    (oldSource = newSource) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2213
				outcome := 'Same source.'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2214
			    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2215
				oldSource isNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2216
				    beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2217
				    outcome := 'No source for compare.'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2218
				] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2219
				    "/
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2220
				    "/ compare for tabulator <-> space changes
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2221
				    "/ before showing diff...
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2222
				    "/
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2223
				    t1 := oldSource asCollectionOfLines collect:[:s | s withTabsExpanded].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2224
				    t2 := newSource asCollectionOfLines collect:[:s | s withTabsExpanded].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2225
				    t1 = t2 ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2226
					outcome := 'Same source.'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2227
				    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2228
					outcome := 'Source changed!!'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2229
					showDiff := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2230
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2231
					"/
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2232
					"/ check if only historyLine diffs
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2233
					"/
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2234
					(HistoryManager notNil
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2235
					and:[HistoryManager isActive]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2236
					    (HistoryManager withoutHistoryLines:newSource)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2237
					    =
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2238
					    (HistoryManager withoutHistoryLines:oldSource)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2239
					    ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2240
						outcome := 'Same source (history only).'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2241
						showDiff := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2242
					    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2243
					].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2244
				    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2245
				]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2246
			    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2247
			] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2248
			    isLoaded ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2249
				beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2250
				outcome := 'Method does not exist!!'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2251
			    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2252
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2253
		    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2254
			outcome := 'Change unparsable!!'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2255
		    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2256
		    (showDiff and:[oldSource notNil and:[newSource notNil]]) ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2257
			d := DiffTextView
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2258
				openOn:oldSource label:'Current version (in image)'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2259
				and:newSource label:'Change version'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2260
			d label:'method differences'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2261
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2262
		] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2263
		    beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2264
		    outcome := 'Class does not exist!!'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2265
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2266
	    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2267
		beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2268
		outcome := 'Not comparable!!'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2269
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2270
	] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2271
	    beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2272
	    outcome := 'Not comparable!!'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2273
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2274
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2275
    aStream close.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2276
    showDiff ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2277
	beep ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2278
	    self warn:outcome withCRs.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2279
	] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2280
	    self information:outcome withCRs.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2281
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2282
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2283
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2284
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2285
compressForClass:aClassNameOrNil
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2286
    "compresses the list of changes;
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2287
     this replaces multiple method-changes by the last (i.e. the most recent) change.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2288
     If the class argument is nil, compress for all classes.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2289
     otherwise, only changes for that class are compressed."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2290
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2291
    |aStream searchIndex anyMore deleteSet index
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2292
     str snapshotProto snapshotPrefix snapshotNameIndex fileName|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2293
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2294
    aStream := FileStream readonlyFileNamed:changeFileName.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2295
    aStream isNil ifTrue:[^ self].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2296
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2297
    aClassNameOrNil isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2298
	self newLabel:'compressing...'.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2299
    ] ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2300
	self newLabel:'compressing for ' , aClassNameOrNil.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2301
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2302
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2303
    CompressSnapshotInfo == true ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2304
	"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2305
	 get a prototype snapshot record (to be independent of
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2306
	 the actual format ..
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2307
	"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2308
	str := WriteStream on:String new.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2309
	Class addChangeRecordForSnapshot:'foo' to:str.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2310
	snapshotProto := str contents.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2311
	snapshotPrefix := snapshotProto copyTo:10.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2312
	snapshotNameIndex := snapshotProto findString:'foo'.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2313
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2314
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2315
    self valueOfNotReading value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2316
    self valueOfHavingSelection value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2317
    self valueOfHavingChangeSelection value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2318
    self valueOfReadProgress value: 0.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2319
    self readProgressIndicator raise.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2320
    self filterLabel label: 'Comp:'; redraw.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2321
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2322
    self withExecuteCursorDo:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2323
	|numChanges classes selectors types excla sawExcla
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2324
	 changeNr chunk aParseTree parseTreeChunk
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2325
	 thisClass thisSelector codeChunk codeParser
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2326
	 compressThis oldValue|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2327
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2328
	numChanges := changes size.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2329
	classes := Array new:numChanges.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2330
	selectors := Array new:numChanges.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2331
	types := Array new:numChanges.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2332
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2333
	"starting at the end, get the change class and change selector;
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2334
	 collect all in classes / selectors"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2335
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2336
	changeNr := numChanges.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2337
	excla := aStream class chunkSeparator.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2338
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2339
	[changeNr >= 1] whileTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2340
	    oldValue := self valueOfReadProgress value.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2341
		self valueOfReadProgress value: (100 - ((aStream position/aStream size) * 100) rounded).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2342
		oldValue ~~ self valueOfReadProgress value
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2343
		    ifTrue: [self readProgressIndicator redrawEdges;redraw].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2344
	    aStream position:(changes at: changeNr) position.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2345
	    sawExcla := aStream peekFor:excla.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2346
	    chunk := aStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2347
	    sawExcla ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2348
		"optimize a bit if multiple methods for same category arrive"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2349
		(chunk = parseTreeChunk) ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2350
		    aParseTree := Parser parseExpression:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2351
		    parseTreeChunk := chunk
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2352
		].
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2353
		(aParseTree notNil
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2354
		and:[(aParseTree ~~ #Error)
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2355
		and:[aParseTree isMessage]]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2356
		    (aParseTree selector == #methodsFor:) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2357
			thisClass := (aParseTree receiver evaluate).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2358
			codeChunk := aStream nextChunk.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2359
			codeParser := Parser
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2360
					  parseMethodSpecification:codeChunk
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2361
					  in:thisClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2362
					  ignoreErrors:true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2363
					  ignoreWarnings:true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2364
			(codeParser notNil and:[codeParser ~~ #Error]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2365
			    selectors at:changeNr put:(codeParser selector).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2366
			    classes at:changeNr put:thisClass.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2367
			    types at:changeNr put:#methodsFor
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2368
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2369
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2370
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2371
	    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2372
		aParseTree := Parser parseExpression:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2373
		parseTreeChunk := chunk.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2374
		(aParseTree notNil
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2375
		and:[(aParseTree ~~ #Error)
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2376
		and:[aParseTree isMessage]]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2377
		    (aParseTree selector == #removeSelector:) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2378
			selectors at:changeNr put:(aParseTree arg1 value ).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2379
			classes at:changeNr put:(aParseTree receiver evaluate).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2380
			types at:changeNr put:#removeSelector
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2381
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2382
		] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2383
		    CompressSnapshotInfo == true ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2384
			(chunk startsWith:snapshotPrefix) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2385
			    str := chunk readStream position:snapshotNameIndex.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2386
			    fileName := str upTo:(Character space).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2387
			    "
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2388
			     kludge to allow use of match-check below
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2389
			    "
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2390
			    selectors at:changeNr put:snapshotPrefix.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2391
			    classes at:changeNr put:fileName.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2392
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2393
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2394
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2395
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2396
	    changeNr := changeNr - 1
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2397
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2398
	aStream close.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2399
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2400
	"for all changes, look for another class/selector occurrence later
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2401
	 in the list and, if there is one, add change number to the delete set"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2402
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2403
	deleteSet := OrderedCollection new.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2404
	changeNr := 1.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2405
	[changeNr < changes size] whileTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2406
	    thisClass := classes at:changeNr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2407
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2408
	    compressThis := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2409
	    aClassNameOrNil isNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2410
		compressThis := true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2411
	    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2412
		"/ skipping unloaded/unknown classes
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2413
		thisClass isBehavior ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2414
		    thisClass isMeta ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2415
			compressThis := aClassNameOrNil = thisClass soleInstance name.
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2416
		    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2417
			compressThis := aClassNameOrNil = thisClass name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2418
			(PrivateAsSeparate not and: [thisClass isPrivate])
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2419
			    ifTrue:[compressThis := aClassNameOrNil = thisClass owningClass name]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2420
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2421
		 ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2422
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2423
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2424
	    compressThis ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2425
		thisSelector := selectors at:changeNr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2426
		searchIndex := changeNr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2427
		anyMore := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2428
		[anyMore] whileTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2429
		    searchIndex := classes indexOf:thisClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2430
					startingAt:(searchIndex + 1).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2431
		    (searchIndex ~~ 0) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2432
			((selectors at:searchIndex) == thisSelector) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2433
			    thisClass notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2434
				deleteSet add:changeNr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2435
				anyMore := false
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2436
			    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2437
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2438
		    ] ifFalse:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2439
			anyMore := false
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2440
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2441
		].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2442
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2443
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2444
	    changeNr := changeNr + 1
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2445
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2446
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2447
	"finally delete what has been found"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2448
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2449
	(deleteSet size > 0) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2450
	    index := deleteSet size.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2451
	    [index > 0] whileTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2452
		self silentDeleteChange: (changes at: (deleteSet at:index)).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2453
		index := index - 1
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2454
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2455
	    self setChangeList
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2456
	].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2457
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2458
    self valueOfNotReading value: true.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2459
    self filterField raise.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2460
    self filterLabel label: 'Filter:'.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2461
    self newLabel: ''
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2462
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2463
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2464
contractClass:className selector:selector to:maxLen
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2465
    |s l|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2466
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2467
    s := className , ' ', selector.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2468
    s size > maxLen ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2469
	l := maxLen - 1 - selector size max:20.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2470
	s := (className contractTo:l) , ' ' , selector.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2471
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2472
	s size > maxLen ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2473
	    l := maxLen - 1 - className size max:20.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2474
	    s := className , ' ', (selector contractTo:l).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2475
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2476
	    s size > maxLen ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2477
		s := (className contractTo:(maxLen // 2 - 1)) , ' ' , (selector contractTo:maxLen // 2)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2478
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2479
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2480
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2481
    ^ s
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2482
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2483
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2484
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2485
deleteChangesFrom:start to:stop
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2486
    "deletes a range of changes"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2487
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2488
    self unselectChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2489
    stop to:start by:-1 do:[:changeNr|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2490
	self silentDeleteChange:(self listOfChanges at: changeNr)
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2491
    ].
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2492
    self setChangeList
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2493
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2494
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2495
fullClassNameOfChange:aChange
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2496
    "returns the full classname of aChange
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2497
     (for classChanges (i.e. xxx class), a string ending in ' class' is returned.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2498
     - since parsing ascii methods is slow, keep result cached in
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2499
       changeClassNames for the next query"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2500
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2501
    |chunk aParseTree recTree sel name arg1Tree isMeta prevMethodDefNr
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2502
     words changeStream fullParseTree ownerTree ownerName oldDollarSetting|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2503
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2504
    aChange isNil ifTrue:[^ nil].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2505
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2506
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2507
     first look, if not already known
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2508
    "
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2509
    name := aChange className.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2510
    name notNil ifTrue:[^ name].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2511
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2512
    prevMethodDefNr := changes indexOf: aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2513
    [(changes at:prevMethodDefNr) followUp] whileTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2514
	prevMethodDefNr := prevMethodDefNr - 1.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2515
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2516
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2517
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2518
     get the chunk
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2519
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2520
    chunk := (changes at:prevMethodDefNr) chunk.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2521
    chunk isNil ifTrue:[^ nil].       "mhmh - empty"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2522
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2523
    (chunk startsWith:'''---') ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2524
	words := chunk asCollectionOfWords.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2525
	words size > 2 ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2526
	    (words at:2) = 'checkin' ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2527
		name := words at:3.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2528
		aChange className: name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2529
		^ name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2530
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2531
	].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2532
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2533
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2534
    "/ fix it - otherwise, it cannot be parsed
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2535
    (chunk endsWith:'primitiveDefinitions:') ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2536
	chunk := chunk , ''''''
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2537
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2538
    (chunk endsWith:'primitiveFunctions:') ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2539
	chunk := chunk , ''''''
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2540
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2541
    (chunk endsWith:'primitiveVariables:') ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2542
	chunk := chunk , ''''''
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2543
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2544
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2545
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2546
     use parser to construct a parseTree
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2547
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2548
    oldDollarSetting := Parser allowDollarInIdentifier.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2549
    [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2550
	Parser allowDollarInIdentifier:true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2551
	aParseTree := Parser parseExpression:chunk.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2552
    ] valueNowOrOnUnwindDo:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2553
	Parser allowDollarInIdentifier:oldDollarSetting
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2554
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2555
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2556
    (aParseTree isNil or:[aParseTree == #Error]) ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2557
	^ nil        "seems strange... (could be a comment)"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2558
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2559
    aParseTree isMessage ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2560
	^ nil        "very strange... (whats that ?)"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2561
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2562
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2563
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2564
     ask parser for selector
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2565
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2566
    sel := aParseTree selector.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2567
    recTree := aParseTree receiver.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2568
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2569
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2570
     is it a method-change, methodRemove or comment-change ?
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2571
    "
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2572
    (#(#'methodsFor:'
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2573
       #'privateMethodsFor:'
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2574
       #'protectedMethodsFor:'
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2575
       #'publicMethodsFor:'
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2576
       #'removeSelector:'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2577
       #'comment:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2578
       #'primitiveDefinitions:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2579
       #'primitiveFunctions:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2580
       #'primitiveVariables:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2581
       #'renameCategory:to:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2582
       #'instanceVariableNames:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2583
    ) includes:sel) ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2584
	"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2585
	 yes, the className is the receiver
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2586
	"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2587
	(recTree notNil and:[recTree ~~ #Error]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2588
	    isMeta := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2589
	    recTree isUnaryMessage ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2590
		(recTree selector ~~ #class) ifTrue:[^ nil].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2591
		"id class methodsFor:..."
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2592
		recTree := recTree receiver.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2593
		isMeta := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2594
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2595
	    recTree isPrimary ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2596
		name := recTree name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2597
		isMeta ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2598
		    name := name , ' class'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2599
		].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2600
		aChange className: name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2601
		^ name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2602
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2603
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2604
	"more strange things"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2605
	^ nil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2606
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2607
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2608
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2609
     is it a change in a class-description ?
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2610
    "
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2611
    (('subclass:*' match:sel)
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2612
    or:[('variable*subclass:*' match:sel)]) ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2613
	"/ must parse the full changes text, to get
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2614
	"/ privacy information.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2615
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2616
	changeStream := self streamForChange:aChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2617
	changeStream notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2618
	    chunk := changeStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2619
	    changeStream close.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2620
	    fullParseTree := Parser parseExpression:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2621
	    (fullParseTree isNil or:[fullParseTree == #Error]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2622
		fullParseTree := nil
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2623
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2624
	    fullParseTree isMessage ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2625
		fullParseTree := nil
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2626
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2627
	    "/ actually, the nil case cannot happen
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2628
	    fullParseTree notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2629
		aParseTree := fullParseTree.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2630
		sel := aParseTree selector.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2631
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2632
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2633
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2634
	arg1Tree := aParseTree arg1.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2635
	(arg1Tree notNil and:[arg1Tree isConstant]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2636
	    name := arg1Tree value asString.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2637
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2638
	    "/ is it a private-class ?
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2639
	    ('*privateIn:' match:sel) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2640
		ownerTree := aParseTree args last.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2641
		ownerName := ownerTree name asString.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2642
		name := ownerName , '::' , name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2643
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2644
	    aChange className: name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2645
	    ^ name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2646
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2647
	"very strange"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2648
	^ nil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2649
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2650
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2651
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2652
     is it a class remove ?
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2653
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2654
    (sel == #removeClass:) ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2655
	(recTree notNil
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2656
	and:[recTree ~~ #Error
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2657
	and:[recTree isPrimary
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2658
	and:[recTree name = 'Smalltalk']]]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2659
	    arg1Tree := aParseTree arg1.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2660
	    (arg1Tree notNil and:[arg1Tree isPrimary]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2661
		name := arg1Tree name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2662
		aChange className: name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2663
		^ name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2664
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2665
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2666
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2667
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2668
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2669
     is it a method category change ?
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2670
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2671
    ((sel == #category:)
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2672
    or:[sel == #privacy:]) ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2673
	(recTree notNil
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2674
	and:[recTree ~~ #Error
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2675
	and:[recTree isMessage
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2676
	and:[recTree selector == #compiledMethodAt:]]]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2677
	    isMeta := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2678
	    recTree := recTree receiver.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2679
	    recTree isUnaryMessage ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2680
		(recTree selector ~~ #class) ifTrue:[^ nil].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2681
		"id class "
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2682
		recTree := recTree receiver
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2683
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2684
	    recTree isPrimary ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2685
		isMeta ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2686
		    name := name , ' class'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2687
		].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2688
		name := recTree name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2689
		aChange className: name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2690
		^ name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2691
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2692
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2693
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2694
    ^ nil
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2695
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2696
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2697
newLabel:how
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2698
    "sets the label"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2699
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2700
    how size = 0 ifTrue: [^self window label:self class label].
1556
tz
parents: 1554
diff changeset
  2701
    self window label:self class label, ' (', how, ')'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2702
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2703
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2704
readChangesFileInBackground:inBackground
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2705
    "reads the changes file, creates a list of header-lines (changeChunks)
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2706
     and a list of chunk-positions (changePositions).
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2707
     Starting with 2.10.3, the entries are multi-col entries;
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2708
     the cols are:
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2709
        1   delta (only if comparing)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2710
                '+' -> new method (w.r.t. current state)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2711
                '-' -> removed method (w.r.t. current state)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2712
                '?' -> class does not exist currently
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2713
                '=' -> change is same as current methods source
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2714
        2   class/selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2715
        3   type of change
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2716
                doit
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2717
                method
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2718
                category change
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2719
        4   timestamp
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2720
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2721
     since comparing slows down startup time, it is now disabled by
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2722
     default and can be enabled via a toggle."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2723
2740
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2724
    |aStream maxLen i f v|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2725
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2726
    self valueOfNotReading value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2727
    self valueOfHavingSelection value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2728
    self valueOfHavingChangeSelection value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2729
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2730
    editingClassSource := false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2731
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2732
    maxLen := 60.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2733
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2734
    f := changeFileName asFilename.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2735
    aStream :=  f readStream.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2736
    aStream isNil ifTrue:[^ nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2737
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  2738
    self newLabel:(resources string:'updating...').
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2739
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2740
    i := f info.
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2741
    changeFileTimestamp := i modificationTime.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2742
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2743
    self valueOfReadProgress value: 0.
2740
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2744
    v := self readProgressIndicator.
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2745
    v notNil ifTrue:[v raise].
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2746
    v := self filterLabel.
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2747
    v notNil ifTrue:[v label: 'Read:'; redraw].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2748
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2749
    self withReadCursorDo:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2750
        |myProcess myPriority|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2751
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2752
        "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2753
         this is a time consuming operation (especially, if reading an
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2754
         NFS-mounted directory; therefore lower my priority...
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2755
        "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2756
        inBackground ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2757
            myProcess := Processor activeProcess.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2758
            myPriority := myProcess priority.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2759
            myProcess priority:(Processor userBackgroundPriority).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2760
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2761
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2762
        [
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2763
            |excla timeStampInfo lastChange|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2764
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2765
            excla := aStream class chunkSeparator.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2766
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2767
            [aStream atEnd] whileFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2768
                |change changeDelta changeString changeType changeCategory
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2769
                 line s l changeClass sawExcla category className selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2770
                 chunkText chunkPos sel oldValue|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2771
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2772
                change := Change new.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2773
                "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2774
                 get a chunk (separated by excla)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2775
                "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2776
                oldValue := self valueOfReadProgress value.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2777
                self valueOfReadProgress value: (((aStream position/aStream size) * 100) rounded).
2740
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2778
"/                oldValue ~~ self valueOfReadProgress value
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2779
"/                    ifTrue: [self readProgressIndicator redrawEdges;redraw].
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2780
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2781
                aStream skipSeparators.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2782
                chunkPos := aStream position.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2783
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2784
                sawExcla := aStream peekFor:excla.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2785
                chunkText := aStream nextChunk.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2786
                chunkText notNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2787
                    |index headerLine cls|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2788
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2789
                    (chunkText startsWith:'''---- timestamp ') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2790
                        timeStampInfo := (chunkText copyFrom:16 to:(chunkText size - 6)) withoutSpaces.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2791
                    ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2792
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2793
                        "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2794
                         only first line is saved in changeChunks...
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2795
                        "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2796
                        index := chunkText indexOf:(Character cr).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2797
                        (index ~~ 0) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2798
                            chunkText := chunkText copyTo:(index - 1).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2799
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2800
                            "take care for comment changes - must still be a
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2801
                             valid expression for classNameOfChange: to work"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2802
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2803
                            (chunkText endsWith:'comment:''') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2804
                                chunkText := chunkText , '...'''
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2805
                            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2806
                            (chunkText endsWith:'primitiveDefinitions:''') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2807
                                sel := 'primitiveDefinitions:'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2808
                                chunkText := chunkText copyWithoutLast:1
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2809
                            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2810
                            (chunkText endsWith:'primitiveVariables:''') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2811
                                sel := 'primitiveVariables:'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2812
                                chunkText := chunkText copyWithoutLast:1
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2813
                            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2814
                            (chunkText endsWith:'primitiveFunctions:''') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2815
                                sel := 'primitiveFunctions:'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2816
                                chunkText := chunkText copyWithoutLast:1
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2817
                            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2818
                        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2819
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2820
                        change chunk: chunkText.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2821
                        change position: chunkPos.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2822
                        lastChange notNil ifTrue: [lastChange lastPosition: chunkPos - 1].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2823
                        lastChange := change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2824
                        change timeStamp: timeStampInfo.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2825
                        change followUp: false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2826
                        headerLine := nil.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2827
                        changeDelta := ' '.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2828
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2829
                        sawExcla ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2830
                            (chunkText startsWith:'''---- snap') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2831
                                changeType := ''.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2832
                                headerLine := chunkText.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2833
                                changeString := (chunkText contractTo:maxLen).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2834
                                timeStampInfo := nil.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2835
                            ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2836
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2837
                                |p cls|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2838
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2839
                                headerLine := chunkText , ' (doIt)'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2840
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2841
                                "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2842
                                 first, assume doIt - then lets have a more detailed look...
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2843
                                "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2844
                                ((chunkText startsWith:'''---- file')
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2845
                                or:[(chunkText startsWith:'''---- check')]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2846
                                    changeType := ''.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2847
                                    timeStampInfo := nil.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2848
                                ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2849
                                    changeType := 'doIt'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2850
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2851
                                changeString := (chunkText contractTo:maxLen).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2852
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2853
                                p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2854
                                (p notNil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2855
                                 and:[p ~~ #Error
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2856
                                 and:[p isMessage]]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2857
                                    sel := p selector.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2858
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2859
                                (sel == #removeSelector:) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2860
                                    p receiver isUnaryMessage ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2861
                                        cls := p receiver receiver name.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2862
                                        changeClass := (Smalltalk classNamed:cls) class.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2863
                                        cls := cls , ' class'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2864
                                    ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2865
                                        cls := p receiver name.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2866
                                        changeClass := (Smalltalk classNamed:cls)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2867
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2868
                                    sel := (p args at:1) evaluate.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2869
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2870
                                    DeltaInfoColumn ifTrue:[
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2871
                                        (changeClass isNil or:[changeClass isLoaded not]) ifTrue:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2872
                                            changeDelta := '?'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2873
                                        ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2874
                                            (changeClass implements:sel asSymbol) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2875
                                                changeDelta := '-'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2876
                                            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2877
                                        ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2878
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2879
                                    changeType := 'remove'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2880
                                    changeString := self contractClass:cls selector:sel to:maxLen.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2881
                                    className := cls.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2882
                                    selector := sel.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2883
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2884
                                (p notNil and:[p ~~ #Error
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2885
                                and:[p isMessage
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2886
                                and:[p receiver isMessage
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2887
                                and:[p receiver selector == #compiledMethodAt:]]]]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2888
                                    p receiver receiver isUnaryMessage ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2889
                                        cls := p receiver receiver receiver name.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2890
                                        changeClass := (Smalltalk classNamed:cls) class.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2891
                                        cls := cls , ' class'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2892
                                    ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2893
                                        cls := p receiver receiver name.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2894
                                        changeClass := (Smalltalk classNamed:cls)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2895
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2896
                                    (sel == #category:) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2897
                                        sel := (p receiver args at:1) evaluate.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2898
                                        changeType := '(category change)'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2899
                                        changeString := self contractClass:cls selector:sel to:maxLen.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2900
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2901
                                    (sel == #privacy:) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2902
                                        sel := (p receiver args at:1) evaluate.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2903
                                        changeType := 'privacy change'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2904
                                        changeString := self contractClass:cls selector:sel to:maxLen.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2905
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2906
                                    className := cls.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2907
                                    selector := sel.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2908
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2909
                                (#(#'subclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2910
                                  #'variableSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2911
                                  #'variableByteSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2912
                                  #'variableWordSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2913
                                  #'variableLongSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2914
                                  #'variableFloatSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2915
                                  #'variableDoubleSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2916
                                  #'primitiveDefinitions:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2917
                                  #'primitiveFunctions:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2918
                                  #'primitiveVariables:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2919
                                 ) includes:sel) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2920
                                    changeType := 'class definition'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2921
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2922
                            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2923
                        ] ifTrue:[
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2924
                            |done first p className cls text methodPos|
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2925
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2926
                            "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2927
                             method definitions actually consist of
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2928
                             two (or more) chunks; skip next chunk(s)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2929
                             up to an empty one.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2930
                             The system only writes one chunk,
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2931
                             and we cannot handle more in this ChangesBrowser....
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2932
                            "
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2933
                            className := nil.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2934
                            p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2935
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2936
                            (p notNil and:[p ~~ #Error]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2937
                                sel := p selector.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2938
                                (sel == #methodsFor:) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2939
                                    p receiver isUnaryMessage ifTrue:[
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2940
                                        className := p receiver receiver name.
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2941
                                        changeClass := (Smalltalk classNamed:className) class.
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2942
                                        className := className , ' class'.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2943
                                    ] ifFalse:[
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2944
                                        (p receiver type == #Nil) 
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2945
                                            ifTrue: 
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2946
                                                [className := 'nil'.
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2947
                                                changeClass := nil] 
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2948
                                            ifFalse:
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2949
                                                [className := p receiver name.
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2950
                                                changeClass := Smalltalk classNamed:className]
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2951
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2952
                                    category := (p args at:1) evaluate.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2953
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2954
                            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2955
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2956
                            done := false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2957
                            first := true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2958
                            [done] whileFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2959
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2960
                                changeDelta := ' '.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2961
                                methodPos := aStream position.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2962
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2963
                                text := aStream nextChunk.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2964
                                text isNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2965
                                    done := true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2966
                                ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2967
                                    done := text isEmpty
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2968
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2969
                                done ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2970
                                    first ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2971
                                        change := Change new.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2972
                                        change chunk: chunkText.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2973
                                        change string:changeString.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2974
                                        change position: methodPos.
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2975
                                        change className: className.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2976
                                        lastChange notNil ifTrue: [lastChange lastPosition: methodPos - 1].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2977
                                        lastChange := change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2978
                                        change timeStamp: timeStampInfo.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2979
                                        change followUp: true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2980
                                        editingClassSource := true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2981
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2982
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2983
                                    first := false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2984
                                    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2985
                                     try to find the selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2986
                                    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2987
                                    sel := nil.
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  2988
                                    className notNil ifTrue:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2989
                                        p := Parser
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2990
                                                 parseMethodSpecification:text
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2991
                                                 in:nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2992
                                                 ignoreErrors:true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2993
                                                 ignoreWarnings:true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2994
                                        (p notNil and:[p ~~ #Error]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2995
                                            sel := p selector.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2996
                                        ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2997
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2998
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2999
                                    sel isNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3000
                                        changeString := (chunkText contractTo:maxLen).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3001
                                        changeType := 'change'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3002
                                        headerLine := chunkText , ' (change)'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3003
                                    ] ifFalse:[
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3004
                                        changeString :=  self contractClass:className selector:sel to:maxLen.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3005
                                        changeType := 'method definition'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3006
                                        changeCategory := category.
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3007
                                        headerLine := className , ' ' , sel , ' ' , '(change category: ''' , category , ''')'.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3008
                                        change selector:sel.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3009
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3010
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3011
                                    DeltaInfoColumn ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3012
                                        changeClass isNil ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3013
                                            changeClass isMeta ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3014
                                                cls := changeClass soleInstance
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3015
                                            ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3016
                                                cls := changeClass
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3017
                                            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3018
                                        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3019
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3020
                                        (changeClass isNil or:[cls isLoaded not]) ifTrue:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3021
                                            changeDelta := '?'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3022
                                        ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3023
                                            (changeClass implements:sel asSymbol) ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3024
                                                changeDelta := '+'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3025
                                            ] ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3026
                                                |m currentText t1 t2|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3027
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3028
                                                m := changeClass compiledMethodAt:sel asSymbol.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3029
                                                currentText := m source.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3030
                                                currentText notNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3031
                                                    text asString = currentText asString ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3032
                                                        changeDelta := '='
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3033
                                                    ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3034
                                                        t1 := currentText asCollectionOfLines collect:[:s | s withTabsExpanded].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3035
                                                        t2 := text asCollectionOfLines collect:[:s | s withTabsExpanded].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3036
                                                        t1 = t2 ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3037
                                                            changeDelta := '='
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3038
                                                        ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3039
                                                    ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3040
                                                ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3041
                                            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3042
                                        ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3043
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3044
                                    change delta:changeDelta.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3045
                                    change string:changeString.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3046
                                    change type:changeType.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3047
                                    change category: changeCategory.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3048
                                    change timeStamp:timeStampInfo.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3049
                                    changes add:change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3050
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3051
                                changeString := nil.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3052
                                headerLine := nil.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3053
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3054
                            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3055
                        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3056
                        changeString notNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3057
                            change delta:changeDelta.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3058
                            change string:changeString.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3059
                            change type:changeType.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3060
                            change timeStamp:timeStampInfo.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3061
                            changes add:change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3062
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3063
                        ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3064
                            headerLine notNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3065
                                changes add: change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3066
                            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3067
                        ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3068
                    ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3069
                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3070
                change lastPosition: aStream position.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3071
            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3072
            modified := false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3073
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3074
        ] valueNowOrOnUnwindDo:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3075
            aStream close.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3076
            inBackground ifTrue:[myProcess priority:myPriority].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3077
        ].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3078
    ].
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3079
    changes removeLast.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3080
    self setChangeList.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3081
    self valueOfNotReading value: true.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3082
    self filterField raise.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3083
    self filterLabel label: 'Filter:'.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3084
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  3085
    self checkIfFileHasChanged.
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  3086
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3087
    "Modified: / 30-07-1998 / 11:39:58 / cg"
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3088
    "Modified: / 16-11-2010 / 15:52:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3089
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3090
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3091
selectorOfMethodChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3092
    "returns the selector of the method change, or nil if it is not a method change"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3093
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3094
    |source parser sel|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3095
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3096
    source := self sourceOfMethodChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3097
    source isNil ifTrue:[^ nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3098
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3099
    parser := Parser
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3100
		parseMethod:source
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3101
		in:nil
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3102
		ignoreErrors:true
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3103
		ignoreWarnings:true.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3104
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3105
    (parser notNil and:[parser ~~ #Error]) ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3106
	sel := parser selector.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3107
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3108
    ^ sel
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3109
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3110
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3111
setChangeList
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3112
    "sets the list of changes into the list for the table by evaluating filterCompletionBlock"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3113
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3114
    self unselectChange.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3115
    filterCompletionBlock value: self valueOfFilter value.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3116
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3117
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3118
silentDeleteChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3119
    "delete aChange do not update changeListView"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3120
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3121
    modified := true.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3122
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3123
    changes remove:aChange
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3124
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3125
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3126
silentDeleteChangesFor:aClassName from:start to:stop
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3127
    "deletes changes for aChange in the range [start,stop]
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3128
     and returns the number of the deleted changes"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3129
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3130
    |index numDeleted clsName|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3131
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3132
    numDeleted := 0.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3133
    index := stop.
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3134
    [index >= start] whileTrue:
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3135
    [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3136
	((clsName := self classNameOfChange:(self listOfChanges at: index)) notNil and:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3137
	[(clsName = aClassName or: [PrivateAsSeparate not and: [(clsName upTo: $:) = aClassName]])])
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3138
	ifTrue:
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3139
	[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3140
	    self silentDeleteChange:(self listOfChanges at: index).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3141
	    numDeleted := numDeleted + 1.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3142
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3143
	index := index - 1
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3144
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3145
    ^ numDeleted
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3146
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3147
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3148
sourceOfMethodChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3149
    "returns the source code of the method change, or nil if it is not a method change."
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3150
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3151
    |aStream chunk sawExcla parseTree sourceChunk|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3152
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3153
    aStream := self streamForChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3154
    aStream isNil ifTrue:[^ nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3155
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3156
    aChange followUp ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3157
	sawExcla := aStream peekFor:(aStream class chunkSeparator).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3158
	chunk := aStream nextChunk.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3159
    ] ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3160
	chunk := aChange chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3161
	sawExcla := true.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3162
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3163
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3164
    sawExcla ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3165
	parseTree := Parser parseExpression:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3166
	(parseTree notNil and:[parseTree isMessage]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3167
	    (parseTree selector == #methodsFor:) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3168
		sourceChunk := aStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3169
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3170
	].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3171
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3172
    aStream close.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3173
    ^ sourceChunk
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3174
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3175
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3176
streamForChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3177
    "returns the stream for aChange"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3178
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3179
    |aStream|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3180
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3181
    aStream := FileStream readonlyFileNamed:changeFileName.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3182
    aStream isNil ifTrue:[^ nil].
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3183
    aStream position:aChange position.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3184
    ^ aStream
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3185
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3186
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3187
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3188
unselectChange
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3189
    "unselects the current change"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3190
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3191
    self selectionOfChange value: nil.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3192
    self valueOfChangeText value: nil
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3193
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3194
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3195
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3196
withSelectedChangeDo:aBlock
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3197
    "just a helper, check for a selected change and evaluate aBlock
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3198
     with busy cursor"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3199
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3200
    |change|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3201
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3202
    (change := self selectionOfChange value) notNil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3203
    ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3204
	self withExecuteCursorDo:[aBlock value:change]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3205
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3206
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3207
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3208
!NewChangesBrowser methodsFor:'startup / release'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3209
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3210
closeRequest
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3211
    "asks for saving before closing"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3212
5395
ff5fc88d4a4b Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 3220
diff changeset
  3213
    self valueOfNotSaving value ifFalse: [^ self].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3214
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3215
    modified == true ifTrue:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3216
        (OptionBox
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3217
              request:(resources string:'Change list was modified. Exit anyway?') withCRs
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3218
              label:'Changes Browser'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3219
              image:(WarningBox iconBitmap)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3220
              buttonLabels:(resources array:#('Cancel' 'Discard Modifications and Exit'))
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3221
              values:#(abort ignore)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3222
              default:#save
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3223
        ) == #abort ifTrue:[^ self].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3224
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3225
    super closeRequest
1656
fee64a2c7c7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1653
diff changeset
  3226
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3227
    "Modified: / 20-05-1998 / 03:53:47 / cg"
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3228
    "Modified: / 08-04-2011 / 10:22:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3229
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3230
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3231
postOpenWith:aBuilder
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3232
    "starts reading the changes from the file and
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3233
     builds entryCompletionBlock for the filterField before opening"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3234
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3235
    super postOpenWith:aBuilder.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3236
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3237
    builder namedComponents do:
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3238
    [:aView|
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3239
        aView allSubViewsDo:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3240
        [:v|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3241
            v redraw
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3242
        ]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3243
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3244
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3245
    autoUpdateBlock := [self checkIfFileHasChanged].
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3246
    Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3247
    self updateInfoLabel.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3248
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3249
    self filterField entryCompletionBlock:
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3250
    (filterCompletionBlock := [:value|
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3251
        |filter filters i changesCopy|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3252
        self unselectChange.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3253
        filter := self filterField contents.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3254
        (filters := filter asArrayOfSubstrings) size > 0 ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3255
            changesCopy := changes copy.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3256
            i := 0.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3257
            filters do:[:filter|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3258
                i := i + 1.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3259
                changesCopy contents:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3260
                    (changesCopy select: [:row|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3261
                        filter match: (row string asArrayOfSubstrings at: i ifAbsent: [''''])])
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3262
            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3263
            self listOfChanges contents: changesCopy
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3264
        ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3265
            self listOfChanges contents: changes
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3266
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3267
        self autoSelectLast.
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3268
    ]).
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3269
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3270
    Object errorSignal handle: [:ex |
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3271
        ex signal == HaltSignal ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3272
            ex reject
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3273
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3274
        ex signal == MessageTracer breakpointSignal ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3275
            ex reject
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3276
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3277
        self warn:'Error while reading changes file:\\' , ex errorString.
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3278
    ] do: [
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3279
        self readChangesFileInBackground:true
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3280
    ].
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3281
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3282
    "Modified: / 30.7.1998 / 11:37:51 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3283
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3284
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3285
uninitialize
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3286
    "removes the autoUpdateBlock from the Processor and myself from the ObjectMemory"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3287
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3288
    Processor removeTimedBlock:autoUpdateBlock.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3289
    ObjectMemory removeDependent:self
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3290
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3291
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3292
!NewChangesBrowser methodsFor:'user actions'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3293
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3294
doApply
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3295
    "applies the selected change"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3296
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3297
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3298
	skipSignal := nil.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3299
	self applyChange:change.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3300
	self autoSelectChange: (self listOfChanges at: (self listOfChanges indexOf: change) + 1 ifAbsent: [^self autoSelectLast])
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3301
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3302
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3303
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3304
doApplyAll
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3305
    "applies all changes"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3306
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3307
    self withExecuteCursorDo:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3308
	|change|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3309
	self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3310
	skipSignal isNil ifTrue:[skipSignal := Signal new].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3311
	1 to:self listOfChanges size do:[:changeNr |
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3312
	    self selectionOfChange value:(change := self listOfChanges at: changeNr).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3313
	    self applyChange:change
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3314
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3315
	self autoSelectLast
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3316
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3317
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3318
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3319
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3320
doApplyAllForClass
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3321
    "applies all changes having the same class like the selected one"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3322
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3323
    self doApplyForClassToEndFrom: 1
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3324
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3325
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3326
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3327
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3328
doApplyForClassToEnd
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3329
    "applies all changes having the same class like the selected one from the selected to the end"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3330
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3331
    self doApplyForClassToEndFrom: (self listOfChanges indexOf: self selectionOfChange value)
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3332
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3333
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3334
doApplyForClassToEndFrom: start
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3335
    "applies changes with same class like the selected one from start to end"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3336
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3337
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3338
	|classNameToApply thisClassName lastChange change2|
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3339
	(classNameToApply := self classNameOfChange:change) notNil
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3340
	ifTrue:
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3341
	[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3342
	    self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3343
	    skipSignal isNil ifTrue:[skipSignal := Signal new].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3344
	    start to:self listOfChanges size do:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3345
	    [:changeNr|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3346
		change2 := self listOfChanges at: changeNr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3347
		((thisClassName := self classNameOfChange:change2) notNil and:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3348
		[thisClassName = classNameToApply or:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3349
		[PrivateAsSeparate not and: [(thisClassName upTo: $:) = classNameToApply]]])
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3350
		ifTrue:
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3351
		[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3352
		    self selectionOfChange value: change2.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3353
		    self applyChange:change2.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3354
		    lastChange := change2
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3355
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3356
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3357
	    self autoSelectChange:lastChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3358
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3359
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3360
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3361
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3362
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3363
doApplyFromLastSnapshot
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3364
    "applies all changes made since the last snapshot"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3365
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3366
    self autoSelectLast.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3367
    (self doFindSnapshot: 'last') ifTrue: [self doApplyToEnd]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3368
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3369
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3370
doApplyToEnd
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3371
    "applies all changes from selected one to be end"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3372
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3373
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3374
	self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3375
	skipSignal isNil ifTrue:[skipSignal := Signal new].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3376
	(self listOfChanges indexOf: change) to: self listOfChanges size do:[:changeNr|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3377
	    self selectionOfChange value:(self listOfChanges at: changeNr).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3378
	    self applyChange:(self listOfChanges at: changeNr)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3379
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3380
	self autoSelectChange:self listOfChanges last
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3381
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3382
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3383
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3384
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3385
doBrowseClass
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3386
    "opens a System Browser on the class of a change (and selector)"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3387
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3388
    |className cls isMeta|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3389
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3390
    className := self fullClassNameOfChange:self selectionOfChange value.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3391
    className notNil ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3392
	isMeta := false.
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3393
	(className endsWith:' class') ifTrue:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3394
	    className := className copyWithoutLast:6.
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3395
	    isMeta := true.
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3396
	].
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3397
	(cls := Smalltalk classNamed:className) notNil ifTrue:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3398
	    isMeta ifTrue:[cls := cls class].
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3399
	    cls browserClass
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3400
		openInClass:cls
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3401
		selector:(self selectorOfMethodChange:self selectionOfChange value)
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3402
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3403
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3404
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
  3405
    "Modified: / 26.9.2001 / 17:35:50 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3406
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3407
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3408
doCompare
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3409
    "compares a change with the current system version"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3410
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3411
    |change|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3412
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3413
    (change := self selectionOfChange value) notNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3414
	self withExecuteCursorDo:[self compareChange:change]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3415
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3416
    self newLabel:''
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3417
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3418
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3419
doCompress
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3420
    "compresses the changes, i.e. replaces multiple changes by the last change"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3421
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3422
    |changesSizeBefore|
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3423
    (changesSizeBefore := changes size) == 0 ifTrue: [^self warn: 'Nothing to compress!!'].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3424
    self setChangeList.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3425
    self unselectChange.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3426
    self compressForClass:nil.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3427
    self setChangeList.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3428
    self updateInfoLabel.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3429
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3430
    self information:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3431
	'Compression Rate:   ', (((changesSizeBefore - changes size)/changesSizeBefore) * 100) rounded printString, '%\' withCRs,
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3432
	'Obsolete Changes: ', (changesSizeBefore - changes size) printString, ' from ', changesSizeBefore printString
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3433
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3434
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3435
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3436
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3437
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3438
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3439
doCompressForClass
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3440
    "compresses changes for the selected class.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3441
     this replaces multiple method-changes by the last (i.e. the most recent) change."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3442
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3443
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3444
	| classNameToCompress |
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3445
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3446
	(classNameToCompress := self classNameOfChange:change) notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3447
	    self compressForClass:classNameToCompress.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3448
	    filterCompletionBlock value: self valueOfFilter value.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3449
	    self autoSelectLast
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3450
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3451
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3452
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3453
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3454
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3455
doDelete
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3456
    "deletes the selected change"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3457
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3458
    |change selectionIndex|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3459
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3460
    (change := self selectionOfChange value) notNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3461
	selectionIndex := self listOfChanges indexOf: change.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3462
	self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3463
	self silentDeleteChange:change.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3464
	self listOfChanges remove:change.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3465
	self autoSelectOrEnd: (self listOfChanges at: selectionIndex ifAbsent: [nil]).
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3466
    ]
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3467
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3468
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3469
doDeleteAll
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3470
    "deletes all changes"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3471
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3472
    self deleteChangesFrom:1 to: self listOfChanges size.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3473
    self autoSelectOrEnd: nil
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3474
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3475
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3476
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3477
doDeleteAllForClass
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3478
    "deletes all changes having the same class like the selected one"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3479
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3480
    self doDeleteForClassToEndFrom: 1
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3481
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3482
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3483
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3484
doDeleteForClassToEnd
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3485
    "deletes all changes having the same class like the selected one from the selected to the end"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3486
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3487
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3488
	self doDeleteForClassToEndFrom: (self listOfChanges indexOf: change)
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3489
    ]
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3490
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3491
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3492
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3493
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3494
doDeleteForClassToEndFrom: start
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3495
    "deletes changes with same class like the selected one from start to end"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3496
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3497
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3498
	|classNameToDelete|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3499
	(classNameToDelete := self classNameOfChange:change) notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3500
	    self unselectChange.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3501
	    self silentDeleteChangesFor:classNameToDelete
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3502
				   from:start
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3503
				     to:self listOfChanges size.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3504
	    self setChangeList.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3505
	    self autoSelectOrEnd: nil
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3506
	]
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3507
    ].
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3508
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3509
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3510
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3511
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3512
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3513
doDeleteToEnd
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3514
    "deletes all changes from selected one to be end"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3515
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3516
    |changeNr|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3517
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3518
    changeNr := (self listOfChanges indexOf: self selectionOfChange value).
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3519
    changeNr ~~ 0 ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3520
	self deleteChangesFrom:changeNr to: self listOfChanges size.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3521
	self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3522
	self autoSelectOrEnd: nil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3523
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3524
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3525
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3526
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3527
doFilter: aFilterString
b37202441764 revised
tz
parents: 1556
diff changeset
  3528
    "filter the changes with aFilterString"
b37202441764 revised
tz
parents: 1556
diff changeset
  3529
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3530
    self selectionOfChange value: nil.
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3531
    self valueOfFilter value: aFilterString withoutNotifying: self.
b37202441764 revised
tz
parents: 1556
diff changeset
  3532
    self valueOfFilter changed.
b37202441764 revised
tz
parents: 1556
diff changeset
  3533
    self autoSelectLast
b37202441764 revised
tz
parents: 1556
diff changeset
  3534
!
b37202441764 revised
tz
parents: 1556
diff changeset
  3535
1644
16586a2c52b2 filter problems fixed
tz
parents: 1642
diff changeset
  3536
doFilterSourceType: aFilterStringTypeString
16586a2c52b2 filter problems fixed
tz
parents: 1642
diff changeset
  3537
    "filter the source changes with aFilterStringTypeString"
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3538
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3539
    self selectionOfChange value: nil.
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3540
    self listOfChanges contents: #().
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3541
    self valueOfFilter value: '' withoutNotifying: self.
1644
16586a2c52b2 filter problems fixed
tz
parents: 1642
diff changeset
  3542
    self listOfChanges contents: (changes select: [:change| change type = 'source' and: [aFilterStringTypeString match: change string]]).
16586a2c52b2 filter problems fixed
tz
parents: 1642
diff changeset
  3543
    self autoSelectLast
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3544
b37202441764 revised
tz
parents: 1556
diff changeset
  3545
!
b37202441764 revised
tz
parents: 1556
diff changeset
  3546
b37202441764 revised
tz
parents: 1556
diff changeset
  3547
doFilterType: aFilterTypeString
b37202441764 revised
tz
parents: 1556
diff changeset
  3548
    "filter the changes with aFilterTypeString"
b37202441764 revised
tz
parents: 1556
diff changeset
  3549
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3550
    self selectionOfChange value: nil.
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3551
    self valueOfFilter value: '' withoutNotifying: self.
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3552
    self listOfChanges contents: (changes select: [:change| change type = aFilterTypeString]).
b37202441764 revised
tz
parents: 1556
diff changeset
  3553
    self autoSelectLast
b37202441764 revised
tz
parents: 1556
diff changeset
  3554
b37202441764 revised
tz
parents: 1556
diff changeset
  3555
!
b37202441764 revised
tz
parents: 1556
diff changeset
  3556
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3557
doFindSnapshot: what
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3558
    "finds the last made snapshot and selects it. what is one of last, prvious or next"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3559
1887
332f146981fc find last snapshot error fixed
tz
parents: 1877
diff changeset
  3560
    |snapshotNr snapshotFound|
332f146981fc find last snapshot error fixed
tz
parents: 1877
diff changeset
  3561
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3562
    (self listOfChanges contains: [:change| change type = 'image']) ifFalse: [
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3563
        self warn: 'No snapshot found!!'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3564
        ^ false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3565
    ].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3566
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3567
    self withSelectedChangeDo:[:change|
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3568
        what = 'last' ifTrue:[            
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3569
            snapshotNr := self listOfChanges size+1.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3570
        ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3571
            snapshotNr := self listOfChanges indexOf: change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3572
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3573
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3574
        snapshotFound := false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3575
        [snapshotNr > 0 and: [snapshotFound not]] whileTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3576
            (what = 'last' or:[what = 'previous']) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3577
                snapshotNr := snapshotNr - 1.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3578
                snapshotNr == 0 ifTrue: [snapshotNr := self listOfChanges size].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3579
            ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3580
                snapshotNr := snapshotNr + 1.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3581
                snapshotNr > self listOfChanges size ifTrue: [snapshotNr := 1].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3582
            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3583
            (self listOfChanges at: snapshotNr ifAbsent: [^self autoSelectChange: (what = 'last' ifTrue: [self listOfChanges last] ifFalse: [self listOfChanges first])]) type = 'image'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3584
            ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3585
                snapshotFound := true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3586
                self autoSelectChange:(self listOfChanges at: snapshotNr)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3587
            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3588
        ]
1887
332f146981fc find last snapshot error fixed
tz
parents: 1877
diff changeset
  3589
    ].
332f146981fc find last snapshot error fixed
tz
parents: 1877
diff changeset
  3590
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3591
    ^ snapshotFound
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3592
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3593
1556
tz
parents: 1554
diff changeset
  3594
doLoad
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3595
    "opens a dialog for loading changes from a file"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3596
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3597
    |fileName|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3598
    (fileName :=
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3599
        "
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3600
        FileSelectionBrowser
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3601
            request: 'Load Changes List'
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3602
            fileName: changeFileName
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3603
            withFileFilters: #('c*'))"
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3604
        Dialog
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3605
            requestFileName:'Load Changes List'
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3606
            default: changeFileName
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3607
            pattern:'*.chg;*.st'  
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3608
        ) notNil
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3609
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3610
    ifTrue:
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3611
    [
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3612
        changeFileName := fileName.
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3613
        changes removeAll.
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3614
        self readChangesFileInBackground:true.
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3615
        self unselectChange.
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3616
        Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3617
        self updateInfoLabel.
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3618
        self autoSelectLast
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3619
    ]
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3620
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3621
    "Modified: / 11-10-2010 / 20:35:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3622
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3623
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3624
doReload
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3625
    "reloads the changes from the file"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3626
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3627
    changes removeAll.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3628
    self unselectChange.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3629
    self readChangesFileInBackground:true.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3630
    self autoSelectLast
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3631
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3632
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3633
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3634
doSave
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3635
    "write back the changes file. To avoid problems when the disk is full
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3636
     or a crash occurs while writing (well, or someone kills us),
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3637
     first write the stuff to a new temporary file. If this works ok,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3638
     rename the old change-file to a .bak file and finally rename the
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3639
     tempfile back to the change-file.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3640
     That way, if anything happens, either the original file is left unchanged,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3641
     or we have at least a backup of the previous change file."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3642
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3643
    |inStream outStream tempfile stamp f|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3644
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3645
    self valueOfNotReading value ifFalse: [^nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3646
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3647
    editingClassSource ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3648
	(self confirm:'You are editing a classes sourceFile (not a changeFile) !!\Are you certain, you want to overwrite it ?' withCRs)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3649
	ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3650
	    ^ false
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3651
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3652
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3653
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3654
    tempfile := Filename newTemporaryIn:nil.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3655
    tempfile exists ifTrue:[tempfile remove].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3656
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3657
    outStream := tempfile writeStream.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3658
    outStream isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3659
	self warn:'Cannot create temporary file in current directory.'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3660
	^ false
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3661
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3662
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3663
    inStream := FileStream readonlyFileNamed:changeFileName.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3664
    inStream isNil ifTrue:[^ false].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3665
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3666
    self withCursor:(Cursor write) do:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3667
	|excla sawExcla done first chunk
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3668
	 nChanges "{Class:SmallInteger}" |
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3669
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3670
	Stream writeErrorSignal handle:[:ex |
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3671
	    self warn:('Could not update the changes file.\\' , ex errorString) withCRs.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3672
	    ^ false
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3673
	] do:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3674
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3675
	    self valueOfNotSaving value: false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3676
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3677
	    excla := inStream class chunkSeparator.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3678
	    nChanges := changes size.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3679
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3680
	    1 to:nChanges do:[:index |
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3681
		inStream position: (changes at: index) position.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3682
		sawExcla := inStream peekFor:excla.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3683
		chunk := inStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3684
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3685
		(chunk notNil
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3686
		and:[(chunk startsWith:'''---- snap') not]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3687
		    (stamp := (changes at:index) timeStamp) notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3688
			outStream nextPutAll:'''---- timestamp ' , stamp , ' ----'''.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3689
			outStream nextPut:excla; cr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3690
		    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3691
		].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3692
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3693
		sawExcla ifTrue:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3694
		    outStream nextPut:excla.
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3695
		    outStream nextChunkPut:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3696
		    outStream cr; cr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3697
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3698
		    "
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3699
		     a method-definition chunk - skip followups
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3700
		    "
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3701
		    done := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3702
		    first := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3703
		    [done] whileFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3704
			chunk := inStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3705
			chunk isNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3706
			    outStream cr; cr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3707
			    done := true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3708
			] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3709
			    chunk isEmpty ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3710
				outStream space; nextChunkPut:chunk; cr; cr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3711
				done := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3712
			    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3713
				first ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3714
				    outStream cr; cr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3715
				].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3716
				outStream nextChunkPut:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3717
			    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3718
			].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3719
			first := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3720
		    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3721
		] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3722
		    outStream nextChunkPut:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3723
		    outStream cr
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3724
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3725
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3726
	    outStream close.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3727
	    inStream close.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3728
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3729
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3730
	f := changeFileName asFilename.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3731
	f renameTo:(f withSuffix:'bak').
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3732
	tempfile renameTo:changeFileName.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3733
	self doReload.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3734
	modified := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3735
	self valueOfNotSaving value: true.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3736
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3737
    ^ true
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3738
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3739
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3740
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3741
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3742
!NewChangesBrowser::Change methodsFor:'accessing'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3743
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3744
category
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3745
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3746
    ^category
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3747
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3748
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3749
category: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3750
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3751
    category := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3752
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3753
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3754
chunk
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3755
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3756
    ^chunk
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3757
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3758
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3759
chunk: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3760
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3761
    chunk := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3762
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3763
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3764
className
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3765
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3766
    ^className
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3767
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3768
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3769
className: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3770
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3771
    className := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3772
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3773
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3774
delta
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3775
    |cls|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3776
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3777
    delta size = 0 ifTrue: [^''].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3778
    delta = '='    ifTrue: [^'Current'].
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3779
    delta = '?'    ifTrue: [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3780
	(className notNil and:[className knownAsSymbol]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3781
	    (cls := Smalltalk at:className asSymbol ifAbsent:nil) notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3782
		cls isBehavior ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3783
		    cls isLoaded ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3784
			^ 'Not loaded'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3785
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3786
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3787
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3788
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3789
	^'No class'
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3790
    ].
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3791
    delta = '-'    ifTrue: [^'Remove'].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3792
    delta = '+'    ifTrue: [^'New'].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3793
    ^delta
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3794
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3795
    "Modified: / 29.7.1998 / 23:08:10 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3796
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3797
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3798
delta: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3799
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3800
    delta := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3801
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3802
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3803
followUp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3804
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3805
    ^followUp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3806
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3807
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3808
followUp: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3809
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3810
    followUp := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3811
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3812
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3813
lastPosition: aValue
b37202441764 revised
tz
parents: 1556
diff changeset
  3814
b37202441764 revised
tz
parents: 1556
diff changeset
  3815
    lastPosition := aValue
b37202441764 revised
tz
parents: 1556
diff changeset
  3816
!
b37202441764 revised
tz
parents: 1556
diff changeset
  3817
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3818
listColor
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3819
    ((string size < 3) or:[(string at: 3) ~~ $-]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3820
        (self type = 'class') ifTrue: [^Color gray].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3821
        ^ Color white
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3822
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3823
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3824
    (string includesMatchString: '---- s') ifTrue: [^Color red].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3825
    (string includesMatchString: '---- f') ifTrue: [^Color cyan: 100 magenta: 20 yellow: 20].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3826
    (string includesMatchString: '---- c') ifTrue: [^Color blue].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3827
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3828
    ^Color white
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3829
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3830
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3831
position
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3832
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3833
    ^position
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3834
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3835
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3836
position: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3837
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3838
    position := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3839
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3840
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3841
positions
b37202441764 revised
tz
parents: 1556
diff changeset
  3842
b37202441764 revised
tz
parents: 1556
diff changeset
  3843
    ^position printString, ' - ', lastPosition printString
b37202441764 revised
tz
parents: 1556
diff changeset
  3844
!
b37202441764 revised
tz
parents: 1556
diff changeset
  3845
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3846
selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3847
    ^ selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3848
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3849
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3850
selector:something
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3851
    selector := something.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3852
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3853
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3854
string
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3855
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3856
    ^string
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3857
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3858
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3859
string: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3860
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3861
    string := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3862
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3863
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3864
timeStamp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3865
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3866
    ^timeStamp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3867
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3868
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3869
timeStamp: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3870
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3871
    timeStamp := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3872
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3873
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3874
type
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3875
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3876
    (type = 'doIt' or: [type = 'remove']) ifTrue: [^'class'].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3877
    (type size = 0) ifTrue: [(string includesMatchString: '---- s') ifTrue: [^'image'] ifFalse: [^'source']].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3878
    (self category = nil) ifTrue: [^'class'].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3879
    ^'method'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3880
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3881
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3882
type: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3883
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3884
    type := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3885
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3886
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3887
!NewChangesBrowser class methodsFor:'documentation'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3888
9179
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  3889
version_CVS
10247
8517600df5c5 Merged with JV's branch
vrany
parents: 9180
diff changeset
  3890
    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.33 2011-07-07 13:22:36 vrany Exp $'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3891
! !