NewChangesBrowser.st
author Claus Gittinger <cg@exept.de>
Thu, 10 Feb 2011 16:58:13 +0100
changeset 9756 5a1787bbf85e
parent 9180 ea28dedc13aa
child 10247 8517600df5c5
permissions -rw-r--r--
added: #classMenuGenerateSingletonPatternInstanceCreationMethods
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
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1791
wantChangeLog
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1792
    "sent by the compiler to ask if a changeLog entry should
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1793
     be written. Return false here."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1794
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1795
    ^ false
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1796
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1797
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1798
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1799
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1800
!NewChangesBrowser methodsFor:'error handling'!
b37202441764 revised
tz
parents: 1556
diff changeset
  1801
b37202441764 revised
tz
parents: 1556
diff changeset
  1802
correctableError:aString position:relPos to:relEndPos from:aCompiler
b37202441764 revised
tz
parents: 1556
diff changeset
  1803
    "compiler notifys us of an error - this should really not happen since
b37202441764 revised
tz
parents: 1556
diff changeset
  1804
     changes ought to be correct (did someone edit the changes file ??).
b37202441764 revised
tz
parents: 1556
diff changeset
  1805
     Show the bad change in the codeView and let codeView hilight the error;
b37202441764 revised
tz
parents: 1556
diff changeset
  1806
     no corrections allowed here therefore return false"
b37202441764 revised
tz
parents: 1556
diff changeset
  1807
b37202441764 revised
tz
parents: 1556
diff changeset
  1808
    self error:aString position:relPos to:relEndPos from:aCompiler.
b37202441764 revised
tz
parents: 1556
diff changeset
  1809
    ^ false
b37202441764 revised
tz
parents: 1556
diff changeset
  1810
!
b37202441764 revised
tz
parents: 1556
diff changeset
  1811
b37202441764 revised
tz
parents: 1556
diff changeset
  1812
error:aString position:relPos to:relEndPos from:aCompiler
b37202441764 revised
tz
parents: 1556
diff changeset
  1813
    "compiler notifys us of an error - this should really not happen since
b37202441764 revised
tz
parents: 1556
diff changeset
  1814
     changes ought to be correct (did someone edit the changes file ??).
b37202441764 revised
tz
parents: 1556
diff changeset
  1815
     Show the bad change in the codeView and let codeView hilight the error"
b37202441764 revised
tz
parents: 1556
diff changeset
  1816
b37202441764 revised
tz
parents: 1556
diff changeset
  1817
    |action|
b37202441764 revised
tz
parents: 1556
diff changeset
  1818
b37202441764 revised
tz
parents: 1556
diff changeset
  1819
    (skipSignal notNil) ifTrue:[
b37202441764 revised
tz
parents: 1556
diff changeset
  1820
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1821
        self changeTextEditor highlightingErrorPosition:relPos to:relEndPos do:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1822
            |box|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1823
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1824
            "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1825
             start dialog - make certain cleanup is done
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1826
            "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1827
            action := OptionBox
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1828
                          request:aString
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1829
                          label:'Error'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1830
                          image:(WarningBox iconBitmap)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1831
                          buttonLabels:#('cancel' 'skip' 'continue')
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1832
                          values:#(#abort #skip #continue)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1833
                          default:#continue.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1834
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1835
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1836
        action == #abort ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1837
            Object abortSignal raise.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1838
            ^ false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1839
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1840
        action == #skip ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1841
            skipSignal raise.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1842
            ^ false
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1843
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1844
        ^  false
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  1845
    ].
b37202441764 revised
tz
parents: 1556
diff changeset
  1846
    ^self changeTextEditor error:aString position:relPos to:relEndPos from:aCompiler
b37202441764 revised
tz
parents: 1556
diff changeset
  1847
!
b37202441764 revised
tz
parents: 1556
diff changeset
  1848
b37202441764 revised
tz
parents: 1556
diff changeset
  1849
warning:aString position:relPos to:relEndPos from:aCompiler
b37202441764 revised
tz
parents: 1556
diff changeset
  1850
    "compiler notifys us of a warning - ignore it"
b37202441764 revised
tz
parents: 1556
diff changeset
  1851
b37202441764 revised
tz
parents: 1556
diff changeset
  1852
    ^ self
b37202441764 revised
tz
parents: 1556
diff changeset
  1853
b37202441764 revised
tz
parents: 1556
diff changeset
  1854
! !
b37202441764 revised
tz
parents: 1556
diff changeset
  1855
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1856
!NewChangesBrowser methodsFor:'help'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1857
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1858
defaultInfoLabel
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1859
    "returns the default label for the info bar"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1860
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1861
    changeFileName asFilename exists ifTrue: [^changeFileName].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1862
    ^'No change file name defined.'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1863
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1864
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1865
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1866
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1867
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1868
openDocumentation
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  1869
   self openHTMLDocument:'tools/cbrowser/TOP.html'.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1870
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1871
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1872
!NewChangesBrowser methodsFor:'initialization'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1873
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1874
initialize
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1875
    "initializes the instance variables"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1876
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1877
    super initialize.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1878
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1879
    changes           := List new.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1880
    self changeFileName: ObjectMemory nameForChanges.
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1881
    AutoUpdate        := AutoUpdate ? false.
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1882
    PrivateAsSeparate := PrivateAsSeparate ? false.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1883
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1884
    ObjectMemory addDependent:self.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1885
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1886
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1887
!NewChangesBrowser methodsFor:'menu modes'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1888
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1889
autoUpdateMode
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1890
    "returns whether autoUpdate is on/off"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1891
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1892
    ^AutoUpdate
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1893
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1894
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1895
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1896
autoUpdateMode: aMode
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1897
    "sets the autoUpdate to aMode"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1898
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1899
    AutoUpdate := aMode
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1900
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1901
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1902
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1903
privateAsSeparate
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1904
    "returns whether private classes are handled as separate changes"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1905
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1906
    ^PrivateAsSeparate
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1907
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1908
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1909
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1910
privateAsSeparate: aMode
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1911
    "sets the PrivateAsSeparate to aMode"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1912
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1913
    PrivateAsSeparate := aMode
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1914
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1915
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1916
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1917
!NewChangesBrowser methodsFor:'private'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1918
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1919
applyChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1920
    "applies aChange"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1921
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1922
    |aStream nm applyAction changeNr|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1923
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1924
    aStream := self streamForChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1925
    aStream isNil ifTrue:[^ self].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1926
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1927
    nm := self classNameOfChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1928
    nm notNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1929
	|cls|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1930
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1931
	cls := Smalltalk at:(nm asSymbol) ifAbsent:[].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1932
	cls notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1933
	    cls isLoaded ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1934
		cls autoload
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1935
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1936
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1937
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1938
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1939
    applyAction := [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1940
	|sig|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1941
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1942
	(skipSignal notNil) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1943
	    sig := skipSignal
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1944
	] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1945
	    sig := Object abortSignal
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1946
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1947
	sig catch:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1948
	    |reader doItChunk methodsForChunk|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1949
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1950
	    "/ a followup methodsFor: chunk...
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1951
	    aChange followUp ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1952
		methodsForChunk := aChange chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1953
	    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1954
		doItChunk := aStream nextChunk.   "/ an empty chunk sometimes...
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1955
		doItChunk notEmpty ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1956
		    Compiler evaluate:doItChunk notifying:self.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1957
		] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1958
		    methodsForChunk := aStream nextChunk.   "/ the real one
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1959
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1960
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1961
	    methodsForChunk notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1962
		Class methodRedefinitionSignal handle:[:ex |
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1963
		    ex proceedWith:#keep
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1964
		] do:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1965
		    reader := Compiler evaluate:methodsForChunk notifying:self.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1966
		    reader fileInFrom:aStream notifying:self passChunk:false single:true.
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
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1969
	].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1970
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1971
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1972
    "/
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1973
    "/ if I am showing the changes file, dont update it
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1974
    "/
1877
f0dbf0801e4d care for pathName being the same, where the change-fileName is not
Claus Gittinger <cg@exept.de>
parents: 1798
diff changeset
  1975
    changeFileName asFilename pathName = ObjectMemory nameForChanges asFilename pathName ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1976
	Class withoutUpdatingChangesDo:applyAction
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1977
    ] ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1978
	applyAction value
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1979
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1980
    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
  1981
f0dbf0801e4d care for pathName being the same, where the change-fileName is not
Claus Gittinger <cg@exept.de>
parents: 1798
diff changeset
  1982
    "Modified: / 8.9.1998 / 12:48:01 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1983
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1984
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1985
autoSelectChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1986
    "selects aChange"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1987
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1988
    self class autoSelectNext ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1989
	((self listOfChanges indexOf: aChange) <= self listOfChanges size) ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1990
	    self selectionOfChange value: aChange.
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1991
	    self changeSelected:(self listOfChanges indexOf: aChange).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1992
	    self updateChannels.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1993
	    ^ self
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  1994
	]
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  1995
    ].
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1996
    self updateChannels.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  1997
    self unselectChange
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  1998
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  1999
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2000
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2001
autoSelectLast
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2002
    "selects the last change"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2003
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2004
    self autoSelectChange: (self listOfChanges at: self listOfChanges size ifAbsent: nil).
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2005
    self updateChannels.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2006
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2007
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2008
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2009
autoSelectOrEnd:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2010
    "selects aChange or the last"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2011
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2012
    |last|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2013
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2014
    last := self listOfChanges size.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2015
    aChange notNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2016
	self autoSelectChange:aChange
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2017
    ] ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2018
	self selectionOfChange value: (self listOfChanges at: last ifAbsent: nil).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2019
	self changeSelected: last
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2020
    ].
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2021
    self updateChannels
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2022
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2023
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  2024
changeColumn: aColumnId add: addOrRemove
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2025
    "adds or removes a attribute column to the table"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2026
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  2027
    |newListOfChangeColumns|
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  2028
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  2029
    newListOfChangeColumns := self listOfChangeColumns asOrderedCollection.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2030
    addOrRemove ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2031
        newListOfChangeColumns add:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2032
            ((self class tableColumnsForChangeAttributes
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2033
                collect: [:i| i decodeAsLiteralArray])
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2034
                    detect: [:column| column id = aColumnId])
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2035
    ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2036
        newListOfChangeColumns remove:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2037
            (self listOfChangeColumns detect: [:column| column id = aColumnId] ifNone: nil) ifAbsent: nil
1553
eaeafd6f8cbe checkin from browser
tz
parents: 1546
diff changeset
  2038
    ].
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  2039
    self listOfChangeColumns contents: newListOfChangeColumns.
1553
eaeafd6f8cbe checkin from browser
tz
parents: 1546
diff changeset
  2040
    self autoSelectLast
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2041
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  2042
    "Modified: / 19.5.1998 / 20:32:53 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2043
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2044
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2045
changeFileName:aFileName
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2046
    "sets the name of the file with the changes"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2047
1938
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
  2048
    changeFileName := aFileName asFilename name.
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
  2049
"/ (Filename currentDirectory asAbsoluteFilename construct: aFileName) name.
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
  2050
ce74385df068 added #openOn:;
Claus Gittinger <cg@exept.de>
parents: 1888
diff changeset
  2051
    "Modified: / 17.10.1998 / 14:43:01 / cg"
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2052
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2053
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2054
checkClassIsLoaded:aClass
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2055
    "returns true if aClass is loaded"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2056
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2057
    |cls|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2058
    aClass isMeta ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2059
	cls := aClass soleInstance
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2060
    ] ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2061
	cls := aClass
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2062
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2063
    cls isLoaded ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2064
	(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
  2065
	ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2066
	    cls autoload
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2067
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2068
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2069
    ^ cls isLoaded
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2070
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2071
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2072
checkIfFileHasChanged
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2073
    "checks if changes file has changed"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2074
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2075
    |f info|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2076
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2077
    Processor removeTimedBlock:autoUpdateBlock.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2078
    f := changeFileName asFilename.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2079
    (info := f info) isNil ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2080
	self newLabel:'unaccessable'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2081
    ] ifFalse:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2082
	(info modificationTime) > changeFileTimestamp ifTrue:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2083
	    self newLabel:'outdated'.
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2084
	    AutoUpdate ifTrue:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2085
		self doReload
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2086
	    ]
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2087
	] ifFalse:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2088
	    self newLabel:''
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2089
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2090
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2091
    Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2092
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2093
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2094
classNameOfChange:aChange
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2095
    "returns the classname of aChange
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2096
     (for classChanges (i.e. xxx class), the non-metaClassName (i.e. xxx) is returned)"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2097
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2098
    |name|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2099
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2100
    name := self fullClassNameOfChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2101
    name isNil ifTrue:[^ nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2102
    (name endsWith:' class') ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2103
	^ name copyWithoutLast:6
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2104
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2105
    ^ name
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2106
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2107
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2108
compareChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2109
    "compares aChange with the current version"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2110
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2111
    |aStream chunk sawExcla parseTree thisClass cat oldSource newSource
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2112
     parser sel oldMethod outcome showDiff d t1 t2 selector isLoaded
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2113
     method beep|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2114
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2115
    aStream := self streamForChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2116
    aStream isNil ifTrue:[^ self].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2117
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2118
    showDiff := false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2119
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2120
    aChange followUp ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2121
	sawExcla := aStream peekFor:(aStream class chunkSeparator).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2122
	chunk := aStream nextChunk.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2123
    ] ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2124
	chunk := aChange chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2125
	sawExcla := true.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2126
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2127
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2128
    beep := false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2129
    sawExcla ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2130
	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
  2131
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2132
	parseTree := Parser parseExpression:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2133
	(parseTree notNil and:[parseTree isMessage]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2134
	    ((selector := parseTree selector) == #removeSelector:) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2135
		thisClass := (parseTree receiver evaluate).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2136
		thisClass isBehavior ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2137
		    (self checkClassIsLoaded:thisClass) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2138
			selector := (parseTree arg1 evaluate).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2139
			(thisClass includesSelector:selector) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2140
			    outcome := 'Change removes the #' , selector , ' method from ' , thisClass name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2141
			] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2142
			    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
  2143
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2144
		    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2145
			beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2146
			outcome := 'Cannot compare this change (compare requires class to be loaded)!!'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2147
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2148
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2149
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2150
	    selector == #category: ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2151
		parseTree receiver isMessage ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2152
		    parseTree receiver selector == #compiledMethodAt: ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2153
			(method := parseTree receiver evaluate) isMethod ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2154
			    method category = parseTree arg1 evaluate ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2155
				outcome := 'Change has no effect\(same category)'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2156
			    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2157
				outcome := 'Category is different (''' , method category , ''' vs. ''' , parseTree arg1 evaluate , ''')'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2158
			    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2159
			] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2160
			    beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2161
			    outcome := 'There is no such method!!'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2162
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2163
		    ]
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
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2166
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2167
    ] ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2168
	parseTree := Parser parseExpression:chunk.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2169
	(parseTree notNil
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2170
	 and:[parseTree ~~ #Error
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2171
	 and:[parseTree isMessage]]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2172
	    (parseTree selector == #methodsFor:) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2173
		thisClass := (parseTree receiver evaluate).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2174
		thisClass isBehavior ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2175
		    (isLoaded := self checkClassIsLoaded:thisClass) ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2176
			outcome := 'Cannot compare this change\(compare requires class to be loaded)!!'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2177
		    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2178
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2179
		    cat := parseTree arg1 evaluate.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2180
		    newSource := aStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2181
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2182
		    parser := Parser parseMethod:newSource in:thisClass.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2183
		    (parser notNil and:[parser ~~ #Error]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2184
			sel := parser selector.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2185
			oldMethod := thisClass compiledMethodAt:sel.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2186
			oldMethod notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2187
			    (oldMethod category = cat) ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2188
				Transcript showCR:'Category changed.'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2189
			    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2190
			    oldSource := oldMethod source.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2191
			    (oldSource = newSource) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2192
				outcome := 'Same source.'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2193
			    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2194
				oldSource isNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2195
				    beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2196
				    outcome := 'No source for compare.'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2197
				] ifFalse:[
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
				    "/ compare for tabulator <-> space changes
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2200
				    "/ before showing diff...
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2201
				    "/
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2202
				    t1 := oldSource asCollectionOfLines collect:[:s | s withTabsExpanded].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2203
				    t2 := newSource asCollectionOfLines collect:[:s | s withTabsExpanded].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2204
				    t1 = t2 ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2205
					outcome := 'Same source.'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2206
				    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2207
					outcome := 'Source changed!!'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2208
					showDiff := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2209
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
					"/ check if only historyLine diffs
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2212
					"/
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2213
					(HistoryManager notNil
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2214
					and:[HistoryManager isActive]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2215
					    (HistoryManager withoutHistoryLines:newSource)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2216
					    =
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2217
					    (HistoryManager withoutHistoryLines:oldSource)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2218
					    ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2219
						outcome := 'Same source (history only).'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2220
						showDiff := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2221
					    ]
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
				    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2224
				]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2225
			    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2226
			] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2227
			    isLoaded ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2228
				beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2229
				outcome := 'Method does not exist!!'
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
		    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2233
			outcome := 'Change unparsable!!'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2234
		    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2235
		    (showDiff and:[oldSource notNil and:[newSource notNil]]) ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2236
			d := DiffTextView
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2237
				openOn:oldSource label:'Current version (in image)'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2238
				and:newSource label:'Change version'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2239
			d label:'method differences'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2240
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2241
		] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2242
		    beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2243
		    outcome := 'Class does not exist!!'
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
	    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2246
		beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2247
		outcome := 'Not comparable!!'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2248
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2249
	] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2250
	    beep := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2251
	    outcome := 'Not comparable!!'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2252
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2253
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2254
    aStream close.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2255
    showDiff ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2256
	beep ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2257
	    self warn:outcome withCRs.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2258
	] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2259
	    self information:outcome withCRs.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2260
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2261
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2262
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2263
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2264
compressForClass:aClassNameOrNil
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2265
    "compresses the list of changes;
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2266
     this replaces multiple method-changes by the last (i.e. the most recent) change.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2267
     If the class argument is nil, compress for all classes.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2268
     otherwise, only changes for that class are compressed."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2269
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2270
    |aStream searchIndex anyMore deleteSet index
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2271
     str snapshotProto snapshotPrefix snapshotNameIndex fileName|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2272
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2273
    aStream := FileStream readonlyFileNamed:changeFileName.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2274
    aStream isNil ifTrue:[^ self].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2275
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2276
    aClassNameOrNil isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2277
	self newLabel:'compressing...'.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2278
    ] ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2279
	self newLabel:'compressing for ' , aClassNameOrNil.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2280
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2281
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2282
    CompressSnapshotInfo == true ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2283
	"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2284
	 get a prototype snapshot record (to be independent of
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2285
	 the actual format ..
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2286
	"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2287
	str := WriteStream on:String new.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2288
	Class addChangeRecordForSnapshot:'foo' to:str.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2289
	snapshotProto := str contents.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2290
	snapshotPrefix := snapshotProto copyTo:10.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2291
	snapshotNameIndex := snapshotProto findString:'foo'.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2292
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2293
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2294
    self valueOfNotReading value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2295
    self valueOfHavingSelection value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2296
    self valueOfHavingChangeSelection value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2297
    self valueOfReadProgress value: 0.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2298
    self readProgressIndicator raise.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2299
    self filterLabel label: 'Comp:'; redraw.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2300
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2301
    self withExecuteCursorDo:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2302
	|numChanges classes selectors types excla sawExcla
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2303
	 changeNr chunk aParseTree parseTreeChunk
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2304
	 thisClass thisSelector codeChunk codeParser
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2305
	 compressThis oldValue|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2306
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2307
	numChanges := changes size.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2308
	classes := Array new:numChanges.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2309
	selectors := Array new:numChanges.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2310
	types := Array new:numChanges.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2311
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2312
	"starting at the end, get the change class and change selector;
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2313
	 collect all in classes / selectors"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2314
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2315
	changeNr := numChanges.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2316
	excla := aStream class chunkSeparator.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2317
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2318
	[changeNr >= 1] whileTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2319
	    oldValue := self valueOfReadProgress value.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2320
		self valueOfReadProgress value: (100 - ((aStream position/aStream size) * 100) rounded).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2321
		oldValue ~~ self valueOfReadProgress value
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2322
		    ifTrue: [self readProgressIndicator redrawEdges;redraw].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2323
	    aStream position:(changes at: changeNr) position.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2324
	    sawExcla := aStream peekFor:excla.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2325
	    chunk := aStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2326
	    sawExcla ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2327
		"optimize a bit if multiple methods for same category arrive"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2328
		(chunk = parseTreeChunk) ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2329
		    aParseTree := Parser parseExpression:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2330
		    parseTreeChunk := chunk
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2331
		].
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2332
		(aParseTree notNil
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2333
		and:[(aParseTree ~~ #Error)
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2334
		and:[aParseTree isMessage]]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2335
		    (aParseTree selector == #methodsFor:) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2336
			thisClass := (aParseTree receiver evaluate).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2337
			codeChunk := aStream nextChunk.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2338
			codeParser := Parser
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2339
					  parseMethodSpecification:codeChunk
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2340
					  in:thisClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2341
					  ignoreErrors:true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2342
					  ignoreWarnings:true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2343
			(codeParser notNil and:[codeParser ~~ #Error]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2344
			    selectors at:changeNr put:(codeParser selector).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2345
			    classes at:changeNr put:thisClass.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2346
			    types at:changeNr put:#methodsFor
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2347
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2348
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2349
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2350
	    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2351
		aParseTree := Parser parseExpression:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2352
		parseTreeChunk := chunk.
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 == #removeSelector:) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2357
			selectors at:changeNr put:(aParseTree arg1 value ).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2358
			classes at:changeNr put:(aParseTree receiver evaluate).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2359
			types at:changeNr put:#removeSelector
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2360
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2361
		] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2362
		    CompressSnapshotInfo == true ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2363
			(chunk startsWith:snapshotPrefix) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2364
			    str := chunk readStream position:snapshotNameIndex.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2365
			    fileName := str upTo:(Character space).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2366
			    "
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2367
			     kludge to allow use of match-check below
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
			    selectors at:changeNr put:snapshotPrefix.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2370
			    classes at:changeNr put:fileName.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2371
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2372
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2373
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2374
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2375
	    changeNr := changeNr - 1
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2376
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2377
	aStream close.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2378
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2379
	"for all changes, look for another class/selector occurrence later
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2380
	 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
  2381
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2382
	deleteSet := OrderedCollection new.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2383
	changeNr := 1.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2384
	[changeNr < changes size] whileTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2385
	    thisClass := classes at:changeNr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2386
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2387
	    compressThis := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2388
	    aClassNameOrNil isNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2389
		compressThis := true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2390
	    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2391
		"/ skipping unloaded/unknown classes
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2392
		thisClass isBehavior ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2393
		    thisClass isMeta ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2394
			compressThis := aClassNameOrNil = thisClass soleInstance name.
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2395
		    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2396
			compressThis := aClassNameOrNil = thisClass name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2397
			(PrivateAsSeparate not and: [thisClass isPrivate])
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2398
			    ifTrue:[compressThis := aClassNameOrNil = thisClass owningClass name]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2399
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2400
		 ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2401
	    ].
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
	    compressThis ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2404
		thisSelector := selectors at:changeNr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2405
		searchIndex := changeNr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2406
		anyMore := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2407
		[anyMore] whileTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2408
		    searchIndex := classes indexOf:thisClass
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2409
					startingAt:(searchIndex + 1).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2410
		    (searchIndex ~~ 0) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2411
			((selectors at:searchIndex) == thisSelector) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2412
			    thisClass notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2413
				deleteSet add:changeNr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2414
				anyMore := false
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2415
			    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2416
			]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2417
		    ] ifFalse:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2418
			anyMore := false
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2419
		    ]
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
	    changeNr := changeNr + 1
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2424
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2425
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2426
	"finally delete what has been found"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2427
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2428
	(deleteSet size > 0) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2429
	    index := deleteSet size.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2430
	    [index > 0] whileTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2431
		self silentDeleteChange: (changes at: (deleteSet at:index)).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2432
		index := index - 1
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2433
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2434
	    self setChangeList
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2435
	].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2436
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2437
    self valueOfNotReading value: true.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2438
    self filterField raise.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2439
    self filterLabel label: 'Filter:'.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2440
    self newLabel: ''
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2441
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2442
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2443
contractClass:className selector:selector to:maxLen
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2444
    |s l|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2445
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2446
    s := className , ' ', selector.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2447
    s size > maxLen ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2448
	l := maxLen - 1 - selector size max:20.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2449
	s := (className contractTo:l) , ' ' , selector.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2450
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2451
	s size > maxLen ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2452
	    l := maxLen - 1 - className size max:20.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2453
	    s := className , ' ', (selector contractTo:l).
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
	    s size > maxLen ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2456
		s := (className contractTo:(maxLen // 2 - 1)) , ' ' , (selector contractTo:maxLen // 2)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2457
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2458
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2459
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2460
    ^ s
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2461
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2462
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2463
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2464
deleteChangesFrom:start to:stop
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2465
    "deletes a range of changes"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2466
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2467
    self unselectChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2468
    stop to:start by:-1 do:[:changeNr|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2469
	self silentDeleteChange:(self listOfChanges at: changeNr)
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2470
    ].
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2471
    self setChangeList
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2472
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2473
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2474
fullClassNameOfChange:aChange
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2475
    "returns the full classname of aChange
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2476
     (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
  2477
     - since parsing ascii methods is slow, keep result cached in
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2478
       changeClassNames for the next query"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2479
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2480
    |chunk aParseTree recTree sel name arg1Tree isMeta prevMethodDefNr
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2481
     words changeStream fullParseTree ownerTree ownerName oldDollarSetting|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2482
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2483
    aChange isNil ifTrue:[^ nil].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2484
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2485
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2486
     first look, if not already known
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2487
    "
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2488
    name := aChange className.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2489
    name notNil ifTrue:[^ name].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2490
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2491
    prevMethodDefNr := changes indexOf: aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2492
    [(changes at:prevMethodDefNr) followUp] whileTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2493
	prevMethodDefNr := prevMethodDefNr - 1.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2494
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2495
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2496
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2497
     get the chunk
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2498
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2499
    chunk := (changes at:prevMethodDefNr) chunk.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2500
    chunk isNil ifTrue:[^ nil].       "mhmh - empty"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2501
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2502
    (chunk startsWith:'''---') ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2503
	words := chunk asCollectionOfWords.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2504
	words size > 2 ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2505
	    (words at:2) = 'checkin' ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2506
		name := words at:3.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2507
		aChange className: name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2508
		^ name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2509
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2510
	].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2511
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2512
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2513
    "/ fix it - otherwise, it cannot be parsed
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2514
    (chunk endsWith:'primitiveDefinitions:') ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2515
	chunk := chunk , ''''''
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2516
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2517
    (chunk endsWith:'primitiveFunctions:') ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2518
	chunk := chunk , ''''''
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2519
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2520
    (chunk endsWith:'primitiveVariables:') ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2521
	chunk := chunk , ''''''
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2522
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2523
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2524
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2525
     use parser to construct a parseTree
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2526
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2527
    oldDollarSetting := Parser allowDollarInIdentifier.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2528
    [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2529
	Parser allowDollarInIdentifier:true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2530
	aParseTree := Parser parseExpression:chunk.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2531
    ] valueNowOrOnUnwindDo:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2532
	Parser allowDollarInIdentifier:oldDollarSetting
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2533
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2534
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2535
    (aParseTree isNil or:[aParseTree == #Error]) ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2536
	^ nil        "seems strange... (could be a comment)"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2537
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2538
    aParseTree isMessage ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2539
	^ nil        "very strange... (whats that ?)"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2540
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2541
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2542
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2543
     ask parser for selector
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2544
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2545
    sel := aParseTree selector.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2546
    recTree := aParseTree receiver.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2547
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2548
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2549
     is it a method-change, methodRemove or comment-change ?
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2550
    "
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2551
    (#(#'methodsFor:'
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2552
       #'privateMethodsFor:'
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2553
       #'protectedMethodsFor:'
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2554
       #'publicMethodsFor:'
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2555
       #'removeSelector:'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2556
       #'comment:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2557
       #'primitiveDefinitions:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2558
       #'primitiveFunctions:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2559
       #'primitiveVariables:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2560
       #'renameCategory:to:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2561
       #'instanceVariableNames:'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2562
    ) includes:sel) ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2563
	"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2564
	 yes, the className is the receiver
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2565
	"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2566
	(recTree notNil and:[recTree ~~ #Error]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2567
	    isMeta := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2568
	    recTree isUnaryMessage ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2569
		(recTree selector ~~ #class) ifTrue:[^ nil].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2570
		"id class methodsFor:..."
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2571
		recTree := recTree receiver.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2572
		isMeta := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2573
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2574
	    recTree isPrimary ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2575
		name := recTree name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2576
		isMeta ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2577
		    name := name , ' class'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2578
		].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2579
		aChange className: name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2580
		^ name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2581
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2582
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2583
	"more strange things"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2584
	^ nil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2585
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2586
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2587
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2588
     is it a change in a class-description ?
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2589
    "
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2590
    (('subclass:*' match:sel)
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2591
    or:[('variable*subclass:*' match:sel)]) ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2592
	"/ must parse the full changes text, to get
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2593
	"/ privacy information.
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
	changeStream := self streamForChange:aChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2596
	changeStream notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2597
	    chunk := changeStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2598
	    changeStream close.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2599
	    fullParseTree := Parser parseExpression:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2600
	    (fullParseTree isNil or:[fullParseTree == #Error]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2601
		fullParseTree := nil
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
	    fullParseTree isMessage ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2604
		fullParseTree := nil
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2605
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2606
	    "/ actually, the nil case cannot happen
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2607
	    fullParseTree notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2608
		aParseTree := fullParseTree.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2609
		sel := aParseTree selector.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2610
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2611
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2612
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2613
	arg1Tree := aParseTree arg1.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2614
	(arg1Tree notNil and:[arg1Tree isConstant]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2615
	    name := arg1Tree value asString.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2616
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2617
	    "/ is it a private-class ?
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2618
	    ('*privateIn:' match:sel) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2619
		ownerTree := aParseTree args last.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2620
		ownerName := ownerTree name asString.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2621
		name := ownerName , '::' , name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2622
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2623
	    aChange className: name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2624
	    ^ name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2625
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2626
	"very strange"
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2627
	^ nil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2628
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2629
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2630
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2631
     is it a class remove ?
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2632
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2633
    (sel == #removeClass:) ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2634
	(recTree notNil
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2635
	and:[recTree ~~ #Error
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2636
	and:[recTree isPrimary
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2637
	and:[recTree name = 'Smalltalk']]]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2638
	    arg1Tree := aParseTree arg1.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2639
	    (arg1Tree notNil and:[arg1Tree isPrimary]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2640
		name := arg1Tree name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2641
		aChange className: name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2642
		^ 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
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2645
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2646
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2647
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2648
     is it a method category change ?
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2649
    "
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2650
    ((sel == #category:)
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2651
    or:[sel == #privacy:]) ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  2652
	(recTree notNil
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2653
	and:[recTree ~~ #Error
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2654
	and:[recTree isMessage
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2655
	and:[recTree selector == #compiledMethodAt:]]]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2656
	    isMeta := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2657
	    recTree := recTree receiver.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2658
	    recTree isUnaryMessage ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2659
		(recTree selector ~~ #class) ifTrue:[^ nil].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2660
		"id class "
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2661
		recTree := recTree receiver
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2662
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2663
	    recTree isPrimary ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2664
		isMeta ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2665
		    name := name , ' class'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2666
		].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2667
		name := recTree name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2668
		aChange className: name.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2669
		^ name
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2670
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  2671
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2672
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2673
    ^ nil
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2674
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2675
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2676
newLabel:how
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2677
    "sets the label"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2678
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2679
    how size = 0 ifTrue: [^self window label:self class label].
1556
tz
parents: 1554
diff changeset
  2680
    self window label:self class label, ' (', how, ')'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2681
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2682
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2683
readChangesFileInBackground:inBackground
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  2684
    "reads the changes file, creates a list of header-lines (changeChunks)
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2685
     and a list of chunk-positions (changePositions).
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2686
     Starting with 2.10.3, the entries are multi-col entries;
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2687
     the cols are:
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2688
        1   delta (only if comparing)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2689
                '+' -> new method (w.r.t. current state)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2690
                '-' -> removed method (w.r.t. current state)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2691
                '?' -> class does not exist currently
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2692
                '=' -> change is same as current methods source
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2693
        2   class/selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2694
        3   type of change
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2695
                doit
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2696
                method
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2697
                category change
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2698
        4   timestamp
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2699
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2700
     since comparing slows down startup time, it is now disabled by
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2701
     default and can be enabled via a toggle."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2702
2740
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2703
    |aStream maxLen i f v|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2704
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2705
    self valueOfNotReading value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2706
    self valueOfHavingSelection value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2707
    self valueOfHavingChangeSelection value: false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2708
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2709
    editingClassSource := false.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2710
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2711
    maxLen := 60.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2712
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2713
    f := changeFileName asFilename.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2714
    aStream :=  f readStream.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2715
    aStream isNil ifTrue:[^ nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2716
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  2717
    self newLabel:(resources string:'updating...').
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2718
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2719
    i := f info.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2720
    changeFileTimestamp := i modified.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2721
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2722
    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
  2723
    v := self readProgressIndicator.
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2724
    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
  2725
    v := self filterLabel.
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2726
    v notNil ifTrue:[v label: 'Read:'; redraw].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2727
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  2728
    self withReadCursorDo:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2729
        |myProcess myPriority|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2730
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2731
        "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2732
         this is a time consuming operation (especially, if reading an
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2733
         NFS-mounted directory; therefore lower my priority...
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2734
        "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2735
        inBackground ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2736
            myProcess := Processor activeProcess.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2737
            myPriority := myProcess priority.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2738
            myProcess priority:(Processor userBackgroundPriority).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2739
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2740
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2741
        [
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2742
            |excla timeStampInfo lastChange|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2743
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2744
            excla := aStream class chunkSeparator.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2745
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2746
            [aStream atEnd] whileFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2747
                |change changeDelta changeString changeType changeCategory
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2748
                 line s l changeClass sawExcla category className selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2749
                 chunkText chunkPos sel oldValue|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2750
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2751
                change := Change new.
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
                 get a chunk (separated by excla)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2754
                "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2755
                oldValue := self valueOfReadProgress value.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2756
                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
  2757
"/                oldValue ~~ self valueOfReadProgress value
6b8666356abb oops - dont try to redraw components which are not there
Claus Gittinger <cg@exept.de>
parents: 2250
diff changeset
  2758
"/                    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
  2759
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2760
                aStream skipSeparators.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2761
                chunkPos := aStream position.
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
                sawExcla := aStream peekFor:excla.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2764
                chunkText := aStream nextChunk.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2765
                chunkText notNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2766
                    |index headerLine cls|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2767
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2768
                    (chunkText startsWith:'''---- timestamp ') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2769
                        timeStampInfo := (chunkText copyFrom:16 to:(chunkText size - 6)) withoutSpaces.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2770
                    ] ifFalse:[
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
                        "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2773
                         only first line is saved in changeChunks...
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2774
                        "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2775
                        index := chunkText indexOf:(Character cr).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2776
                        (index ~~ 0) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2777
                            chunkText := chunkText copyTo:(index - 1).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2778
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2779
                            "take care for comment changes - must still be a
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2780
                             valid expression for classNameOfChange: to work"
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2781
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2782
                            (chunkText endsWith:'comment:''') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2783
                                chunkText := chunkText , '...'''
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2784
                            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2785
                            (chunkText endsWith:'primitiveDefinitions:''') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2786
                                sel := 'primitiveDefinitions:'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2787
                                chunkText := chunkText copyWithoutLast:1
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 endsWith:'primitiveVariables:''') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2790
                                sel := 'primitiveVariables:'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2791
                                chunkText := chunkText copyWithoutLast:1
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
                            (chunkText endsWith:'primitiveFunctions:''') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2794
                                sel := 'primitiveFunctions:'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2795
                                chunkText := chunkText copyWithoutLast:1
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2796
                            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2797
                        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2798
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2799
                        change chunk: chunkText.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2800
                        change position: chunkPos.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2801
                        lastChange notNil ifTrue: [lastChange lastPosition: chunkPos - 1].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2802
                        lastChange := change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2803
                        change timeStamp: timeStampInfo.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2804
                        change followUp: false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2805
                        headerLine := nil.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2806
                        changeDelta := ' '.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2807
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2808
                        sawExcla ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2809
                            (chunkText startsWith:'''---- snap') ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2810
                                changeType := ''.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2811
                                headerLine := chunkText.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2812
                                changeString := (chunkText contractTo:maxLen).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2813
                                timeStampInfo := nil.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2814
                            ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2815
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2816
                                |p cls|
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
                                headerLine := chunkText , ' (doIt)'.
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
                                "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2821
                                 first, assume doIt - then lets have a more detailed look...
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2822
                                "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2823
                                ((chunkText startsWith:'''---- file')
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2824
                                or:[(chunkText startsWith:'''---- check')]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2825
                                    changeType := ''.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2826
                                    timeStampInfo := nil.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2827
                                ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2828
                                    changeType := 'doIt'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2829
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2830
                                changeString := (chunkText contractTo:maxLen).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2831
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2832
                                p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2833
                                (p notNil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2834
                                 and:[p ~~ #Error
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2835
                                 and:[p isMessage]]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2836
                                    sel := p selector.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2837
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2838
                                (sel == #removeSelector:) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2839
                                    p receiver isUnaryMessage ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2840
                                        cls := p receiver receiver name.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2841
                                        changeClass := (Smalltalk classNamed:cls) class.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2842
                                        cls := cls , ' class'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2843
                                    ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2844
                                        cls := p receiver name.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2845
                                        changeClass := (Smalltalk classNamed:cls)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2846
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2847
                                    sel := (p args at:1) evaluate.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2848
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2849
                                    DeltaInfoColumn ifTrue:[
9180
ea28dedc13aa changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 9179
diff changeset
  2850
                                        (changeClass isNil or:[changeClass isLoaded not or:[sel isNil]]) ifTrue:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2851
                                            changeDelta := '?'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2852
                                        ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2853
                                            (changeClass implements:sel asSymbol) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2854
                                                changeDelta := '-'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2855
                                            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2856
                                        ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2857
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2858
                                    changeType := 'remove'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2859
                                    changeString := self contractClass:cls selector:sel to:maxLen.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2860
                                    className := cls.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2861
                                    selector := sel.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2862
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2863
                                (p notNil and:[p ~~ #Error
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2864
                                and:[p isMessage
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2865
                                and:[p receiver isMessage
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2866
                                and:[p receiver selector == #compiledMethodAt:]]]]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2867
                                    p receiver receiver isUnaryMessage ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2868
                                        cls := p receiver receiver receiver name.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2869
                                        changeClass := (Smalltalk classNamed:cls) class.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2870
                                        cls := cls , ' class'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2871
                                    ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2872
                                        cls := p receiver receiver name.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2873
                                        changeClass := (Smalltalk classNamed:cls)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2874
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2875
                                    (sel == #category:) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2876
                                        sel := (p receiver args at:1) evaluate.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2877
                                        changeType := '(category change)'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2878
                                        changeString := self contractClass:cls selector:sel to:maxLen.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2879
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2880
                                    (sel == #privacy:) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2881
                                        sel := (p receiver args at:1) evaluate.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2882
                                        changeType := 'privacy change'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2883
                                        changeString := self contractClass:cls selector:sel to:maxLen.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2884
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2885
                                    className := cls.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2886
                                    selector := sel.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2887
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2888
                                (#(#'subclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2889
                                  #'variableSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2890
                                  #'variableByteSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2891
                                  #'variableWordSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2892
                                  #'variableLongSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2893
                                  #'variableFloatSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2894
                                  #'variableDoubleSubclass:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2895
                                  #'primitiveDefinitions:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2896
                                  #'primitiveFunctions:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2897
                                  #'primitiveVariables:'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2898
                                 ) includes:sel) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2899
                                    changeType := 'class definition'.
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
                            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2902
                        ] ifTrue:[
9179
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2903
                            |done first p className2 cls text methodPos|
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2904
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
                             method definitions actually consist of
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2907
                             two (or more) chunks; skip next chunk(s)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2908
                             up to an empty one.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2909
                             The system only writes one chunk,
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2910
                             and we cannot handle more in this ChangesBrowser....
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2911
                            "
9179
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2912
                            className2 := nil.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2913
                            p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2914
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2915
                            (p notNil and:[p ~~ #Error]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2916
                                sel := p selector.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2917
                                (sel == #methodsFor:) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2918
                                    p receiver isUnaryMessage ifTrue:[
9179
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2919
                                        className2 := p receiver receiver name.
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2920
                                        changeClass := (Smalltalk classNamed:className2) class.
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2921
                                        className2 := className2 , ' class'.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2922
                                    ] ifFalse:[
9179
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2923
                                        className2 := p receiver name.
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2924
                                        changeClass := Smalltalk classNamed:className2
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
                                    category := (p args at:1) evaluate.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2927
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2928
                            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2929
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2930
                            done := false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2931
                            first := true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2932
                            [done] whileFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2933
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2934
                                changeDelta := ' '.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2935
                                methodPos := aStream position.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2936
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2937
                                text := aStream nextChunk.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2938
                                text isNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2939
                                    done := true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2940
                                ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2941
                                    done := text isEmpty
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2942
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2943
                                done ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2944
                                    first ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2945
                                        change := Change new.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2946
                                        change chunk: chunkText.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2947
                                        change string:changeString.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2948
                                        change position: methodPos.
9179
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2949
                                        change className: className2.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2950
                                        lastChange notNil ifTrue: [lastChange lastPosition: methodPos - 1].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2951
                                        lastChange := change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2952
                                        change timeStamp: timeStampInfo.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2953
                                        change followUp: true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2954
                                        editingClassSource := true.
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
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2957
                                    first := false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2958
                                    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2959
                                     try to find the selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2960
                                    "
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2961
                                    sel := nil.
9179
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2962
                                    className2 notNil ifTrue:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2963
                                        p := Parser
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2964
                                                 parseMethodSpecification:text
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2965
                                                 in:nil
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2966
                                                 ignoreErrors:true
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2967
                                                 ignoreWarnings:true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2968
                                        (p notNil and:[p ~~ #Error]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2969
                                            sel := p selector.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2970
                                        ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2971
                                    ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2972
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2973
                                    sel isNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2974
                                        changeString := (chunkText contractTo:maxLen).
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2975
                                        changeType := 'change'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2976
                                        headerLine := chunkText , ' (change)'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2977
                                    ] ifFalse:[
9179
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2978
                                        changeString :=  self contractClass:className2 selector:sel to:maxLen.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2979
                                        changeType := 'method definition'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2980
                                        changeCategory := category.
9179
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  2981
                                        headerLine := className2 , ' ' , sel , ' ' , '(change category: ''' , category , ''')'.
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2982
                                        change selector:sel.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2983
                                    ].
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
                                    DeltaInfoColumn ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2986
                                        changeClass isNil ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2987
                                            changeClass isMeta ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2988
                                                cls := changeClass soleInstance
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2989
                                            ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2990
                                                cls := changeClass
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2991
                                            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2992
                                        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2993
9180
ea28dedc13aa changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 9179
diff changeset
  2994
                                        (changeClass isNil or:[cls isLoaded not or:[sel isNil]]) ifTrue:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2995
                                            changeDelta := '?'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2996
                                        ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2997
                                            (changeClass implements:sel asSymbol) ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2998
                                                changeDelta := '+'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  2999
                                            ] ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3000
                                                |m currentText t1 t2|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3001
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3002
                                                m := changeClass compiledMethodAt:sel asSymbol.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3003
                                                currentText := m source.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3004
                                                currentText notNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3005
                                                    text asString = currentText asString ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3006
                                                        changeDelta := '='
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3007
                                                    ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3008
                                                        t1 := currentText asCollectionOfLines collect:[:s | s withTabsExpanded].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3009
                                                        t2 := text asCollectionOfLines collect:[:s | s withTabsExpanded].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3010
                                                        t1 = t2 ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3011
                                                            changeDelta := '='
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3012
                                                        ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3013
                                                    ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3014
                                                ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3015
                                            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3016
                                        ]
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
                                    change delta:changeDelta.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3019
                                    change string:changeString.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3020
                                    change type:changeType.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3021
                                    change category: changeCategory.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3022
                                    change timeStamp:timeStampInfo.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3023
                                    changes add:change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3024
                                ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3025
                                changeString := nil.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3026
                                headerLine := nil.
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
                            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3029
                        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3030
                        changeString notNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3031
                            change delta:changeDelta.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3032
                            change string:changeString.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3033
                            change type:changeType.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3034
                            change timeStamp:timeStampInfo.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3035
                            changes add:change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3036
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3037
                        ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3038
                            headerLine notNil ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3039
                                changes add: change.
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 lastPosition: aStream position.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3045
            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3046
            modified := false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3047
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3048
        ] valueNowOrOnUnwindDo:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3049
            aStream close.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3050
            inBackground ifTrue:[myProcess priority:myPriority].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3051
        ].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3052
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3053
    self setChangeList.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3054
    self valueOfNotReading value: true.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3055
    self filterField raise.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3056
    self filterLabel label: 'Filter:'.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3057
1653
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  3058
    self checkIfFileHasChanged.
5994b3c5207c national strings
Claus Gittinger <cg@exept.de>
parents: 1650
diff changeset
  3059
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3060
    "Modified: / 30.7.1998 / 11:39:58 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3061
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3062
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3063
selectorOfMethodChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3064
    "returns the selector of the method change, or nil if it is not a method change"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3065
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3066
    |source parser sel|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3067
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3068
    source := self sourceOfMethodChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3069
    source isNil ifTrue:[^ nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3070
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3071
    parser := Parser
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3072
		parseMethod:source
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3073
		in:nil
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3074
		ignoreErrors:true
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3075
		ignoreWarnings:true.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3076
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3077
    (parser notNil and:[parser ~~ #Error]) ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3078
	sel := parser selector.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3079
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3080
    ^ sel
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3081
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3082
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3083
setChangeList
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3084
    "sets the list of changes into the list for the table by evaluating filterCompletionBlock"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3085
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3086
    self unselectChange.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3087
    filterCompletionBlock value: self valueOfFilter value.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3088
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3089
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3090
silentDeleteChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3091
    "delete aChange do not update changeListView"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3092
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3093
    modified := true.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3094
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3095
    changes remove:aChange
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3096
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3097
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3098
silentDeleteChangesFor:aClassName from:start to:stop
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3099
    "deletes changes for aChange in the range [start,stop]
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3100
     and returns the number of the deleted changes"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3101
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3102
    |index numDeleted clsName|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3103
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3104
    numDeleted := 0.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3105
    index := stop.
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3106
    [index >= start] whileTrue:
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3107
    [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3108
	((clsName := self classNameOfChange:(self listOfChanges at: index)) notNil and:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3109
	[(clsName = aClassName or: [PrivateAsSeparate not and: [(clsName upTo: $:) = aClassName]])])
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3110
	ifTrue:
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3111
	[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3112
	    self silentDeleteChange:(self listOfChanges at: index).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3113
	    numDeleted := numDeleted + 1.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3114
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3115
	index := index - 1
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3116
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3117
    ^ numDeleted
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3118
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3119
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3120
sourceOfMethodChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3121
    "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
  3122
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3123
    |aStream chunk sawExcla parseTree sourceChunk|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3124
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3125
    aStream := self streamForChange:aChange.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3126
    aStream isNil ifTrue:[^ nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3127
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3128
    aChange followUp ifFalse:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3129
	sawExcla := aStream peekFor:(aStream class chunkSeparator).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3130
	chunk := aStream nextChunk.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3131
    ] ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3132
	chunk := aChange chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3133
	sawExcla := true.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3134
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3135
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3136
    sawExcla ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3137
	parseTree := Parser parseExpression:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3138
	(parseTree notNil and:[parseTree isMessage]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3139
	    (parseTree selector == #methodsFor:) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3140
		sourceChunk := aStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3141
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3142
	].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3143
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3144
    aStream close.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3145
    ^ sourceChunk
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
streamForChange:aChange
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3149
    "returns the stream for aChange"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3150
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3151
    |aStream|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3152
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3153
    aStream := FileStream readonlyFileNamed:changeFileName.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3154
    aStream isNil ifTrue:[^ nil].
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3155
    aStream position:aChange position.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3156
    ^ aStream
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3157
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3158
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3159
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3160
unselectChange
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3161
    "unselects the current change"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3162
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3163
    self selectionOfChange value: nil.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3164
    self valueOfChangeText value: nil
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3165
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3166
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3167
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3168
withSelectedChangeDo:aBlock
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3169
    "just a helper, check for a selected change and evaluate aBlock
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3170
     with busy cursor"
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3171
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3172
    |change|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3173
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3174
    (change := self selectionOfChange value) notNil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3175
    ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3176
	self withExecuteCursorDo:[aBlock value:change]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3177
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3178
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3179
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3180
!NewChangesBrowser methodsFor:'startup / release'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3181
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3182
closeRequest
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3183
    "asks for saving before closing"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3184
5395
ff5fc88d4a4b Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 3220
diff changeset
  3185
    self valueOfNotSaving value ifFalse: [^ self].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3186
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3187
    modified ifTrue:[
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3188
        (OptionBox
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3189
              request:(resources string:'Change list was modified. Exit anyway?') withCRs
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3190
              label:'Changes Browser'
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3191
              image:(WarningBox iconBitmap)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3192
              buttonLabels:(resources array:#('Cancel' 'Discard Modifications and Exit'))
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3193
              values:#(abort ignore)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3194
              default:#save
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3195
        ) == #abort ifTrue:[^ self].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3196
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3197
    super closeRequest
1656
fee64a2c7c7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1653
diff changeset
  3198
fee64a2c7c7d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1653
diff changeset
  3199
    "Modified: / 20.5.1998 / 03:53:47 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3200
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3201
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3202
postOpenWith:aBuilder
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3203
    "starts reading the changes from the file and
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3204
     builds entryCompletionBlock for the filterField before opening"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3205
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3206
    super postOpenWith:aBuilder.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3207
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3208
    builder namedComponents do:
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3209
    [:aView|
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3210
        aView allSubViewsDo:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3211
        [:v|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3212
            v redraw
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3213
        ]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3214
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3215
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3216
    autoUpdateBlock := [self checkIfFileHasChanged].
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3217
    Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3218
    self updateInfoLabel.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3219
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3220
    self filterField entryCompletionBlock:
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3221
    (filterCompletionBlock := [:value|
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3222
        |filter filters i changesCopy|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3223
        self unselectChange.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3224
        filter := self filterField contents.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3225
        (filters := filter asArrayOfSubstrings) size > 0 ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3226
            changesCopy := changes copy.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3227
            i := 0.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3228
            filters do:[:filter|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3229
                i := i + 1.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3230
                changesCopy contents:
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3231
                    (changesCopy select: [:row|
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3232
                        filter match: (row string asArrayOfSubstrings at: i ifAbsent: [''''])])
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3233
            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3234
            self listOfChanges contents: changesCopy
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3235
        ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3236
            self listOfChanges contents: changes
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3237
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3238
        self autoSelectLast.
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3239
    ]).
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3240
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3241
    Object errorSignal handle: [:ex |
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3242
        ex signal == HaltSignal ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3243
            ex reject
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3244
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3245
        ex signal == MessageTracer breakpointSignal ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3246
            ex reject
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3247
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3248
        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
  3249
    ] do: [
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3250
        self readChangesFileInBackground:true
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3251
    ].
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3252
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3253
    "Modified: / 30.7.1998 / 11:37:51 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3254
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3255
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3256
uninitialize
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3257
    "removes the autoUpdateBlock from the Processor and myself from the ObjectMemory"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3258
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3259
    Processor removeTimedBlock:autoUpdateBlock.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3260
    ObjectMemory removeDependent:self
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3261
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3262
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3263
!NewChangesBrowser methodsFor:'user actions'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3264
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3265
doApply
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3266
    "applies the selected change"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3267
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3268
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3269
	skipSignal := nil.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3270
	self applyChange:change.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3271
	self autoSelectChange: (self listOfChanges at: (self listOfChanges indexOf: change) + 1 ifAbsent: [^self autoSelectLast])
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3272
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3273
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3274
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3275
doApplyAll
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3276
    "applies all changes"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3277
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3278
    self withExecuteCursorDo:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3279
	|change|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3280
	self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3281
	skipSignal isNil ifTrue:[skipSignal := Signal new].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3282
	1 to:self listOfChanges size do:[:changeNr |
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3283
	    self selectionOfChange value:(change := self listOfChanges at: changeNr).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3284
	    self applyChange:change
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3285
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3286
	self autoSelectLast
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3287
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3288
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3289
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3290
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3291
doApplyAllForClass
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3292
    "applies all changes having the same class like the selected one"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3293
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3294
    self doApplyForClassToEndFrom: 1
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3295
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3296
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3297
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3298
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3299
doApplyForClassToEnd
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3300
    "applies all changes having the same class like the selected one from the selected to the end"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3301
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3302
    self doApplyForClassToEndFrom: (self listOfChanges indexOf: self selectionOfChange value)
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3303
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3304
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3305
doApplyForClassToEndFrom: start
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3306
    "applies changes with same class like the selected one from start to end"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3307
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3308
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3309
	|classNameToApply thisClassName lastChange change2|
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3310
	(classNameToApply := self classNameOfChange:change) notNil
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3311
	ifTrue:
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3312
	[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3313
	    self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3314
	    skipSignal isNil ifTrue:[skipSignal := Signal new].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3315
	    start to:self listOfChanges size do:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3316
	    [:changeNr|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3317
		change2 := self listOfChanges at: changeNr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3318
		((thisClassName := self classNameOfChange:change2) notNil and:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3319
		[thisClassName = classNameToApply or:
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3320
		[PrivateAsSeparate not and: [(thisClassName upTo: $:) = classNameToApply]]])
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3321
		ifTrue:
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3322
		[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3323
		    self selectionOfChange value: change2.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3324
		    self applyChange:change2.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3325
		    lastChange := change2
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3326
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3327
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3328
	    self autoSelectChange:lastChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3329
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3330
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3331
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3332
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3333
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3334
doApplyFromLastSnapshot
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3335
    "applies all changes made since the last snapshot"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3336
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3337
    self autoSelectLast.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3338
    (self doFindSnapshot: 'last') ifTrue: [self doApplyToEnd]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3339
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3340
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3341
doApplyToEnd
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3342
    "applies all changes from selected one to be end"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3343
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3344
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3345
	self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3346
	skipSignal isNil ifTrue:[skipSignal := Signal new].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3347
	(self listOfChanges indexOf: change) to: self listOfChanges size do:[:changeNr|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3348
	    self selectionOfChange value:(self listOfChanges at: changeNr).
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3349
	    self applyChange:(self listOfChanges at: changeNr)
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3350
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3351
	self autoSelectChange:self listOfChanges last
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3352
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3353
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3354
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3355
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3356
doBrowseClass
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3357
    "opens a System Browser on the class of a change (and selector)"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3358
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3359
    |className cls isMeta|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3360
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3361
    className := self fullClassNameOfChange:self selectionOfChange value.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3362
    className notNil ifTrue:[
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3363
	isMeta := false.
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3364
	(className endsWith:' class') ifTrue:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3365
	    className := className copyWithoutLast:6.
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3366
	    isMeta := true.
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3367
	].
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3368
	(cls := Smalltalk classNamed:className) notNil ifTrue:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3369
	    isMeta ifTrue:[cls := cls class].
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3370
	    cls browserClass
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3371
		openInClass:cls
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3372
		selector:(self selectorOfMethodChange:self selectionOfChange value)
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3373
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3374
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3375
3220
2838a2b22947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2740
diff changeset
  3376
    "Modified: / 26.9.2001 / 17:35:50 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3377
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3378
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3379
doCompare
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3380
    "compares a change with the current system version"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3381
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3382
    |change|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3383
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3384
    (change := self selectionOfChange value) notNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3385
	self withExecuteCursorDo:[self compareChange:change]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3386
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3387
    self newLabel:''
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3388
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3389
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3390
doCompress
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3391
    "compresses the changes, i.e. replaces multiple changes by the last change"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3392
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3393
    |changesSizeBefore|
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3394
    (changesSizeBefore := changes size) == 0 ifTrue: [^self warn: 'Nothing to compress!!'].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3395
    self setChangeList.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3396
    self unselectChange.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3397
    self compressForClass:nil.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3398
    self setChangeList.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3399
    self updateInfoLabel.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3400
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3401
    self information:
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3402
	'Compression Rate:   ', (((changesSizeBefore - changes size)/changesSizeBefore) * 100) rounded printString, '%\' withCRs,
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3403
	'Obsolete Changes: ', (changesSizeBefore - changes size) printString, ' from ', changesSizeBefore printString
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3404
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3405
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3406
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3407
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3408
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3409
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3410
doCompressForClass
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3411
    "compresses changes for the selected class.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3412
     this replaces multiple method-changes by the last (i.e. the most recent) change."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3413
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3414
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3415
	| classNameToCompress |
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3416
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3417
	(classNameToCompress := self classNameOfChange:change) notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3418
	    self compressForClass:classNameToCompress.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3419
	    filterCompletionBlock value: self valueOfFilter value.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3420
	    self autoSelectLast
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3421
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3422
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3423
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3424
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3425
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3426
doDelete
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3427
    "deletes the selected change"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3428
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3429
    |change selectionIndex|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3430
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3431
    (change := self selectionOfChange value) notNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3432
	selectionIndex := self listOfChanges indexOf: change.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3433
	self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3434
	self silentDeleteChange:change.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3435
	self listOfChanges remove:change.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3436
	self autoSelectOrEnd: (self listOfChanges at: selectionIndex ifAbsent: [nil]).
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3437
    ]
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3438
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3439
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3440
doDeleteAll
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3441
    "deletes all changes"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3442
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3443
    self deleteChangesFrom:1 to: self listOfChanges size.
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3444
    self autoSelectOrEnd: nil
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3445
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3446
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3447
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3448
doDeleteAllForClass
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3449
    "deletes all changes having the same class like the selected one"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3450
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3451
    self doDeleteForClassToEndFrom: 1
1545
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
doDeleteForClassToEnd
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3456
    "deletes all changes having the same class like the selected one from the selected to the end"
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3457
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3458
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3459
	self doDeleteForClassToEndFrom: (self listOfChanges indexOf: change)
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3460
    ]
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3461
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3462
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3463
!
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3464
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3465
doDeleteForClassToEndFrom: start
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3466
    "deletes changes with same class like the selected one from start to end"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3467
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3468
    self withSelectedChangeDo:[:change|
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3469
	|classNameToDelete|
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3470
	(classNameToDelete := self classNameOfChange:change) notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3471
	    self unselectChange.
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3472
	    self silentDeleteChangesFor:classNameToDelete
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3473
				   from:start
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3474
				     to:self listOfChanges size.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3475
	    self setChangeList.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3476
	    self autoSelectOrEnd: nil
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3477
	]
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3478
    ].
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3479
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3480
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
doDeleteToEnd
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3485
    "deletes all changes from selected one to be end"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3486
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3487
    |changeNr|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3488
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3489
    changeNr := (self listOfChanges indexOf: self selectionOfChange value).
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3490
    changeNr ~~ 0 ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3491
	self deleteChangesFrom:changeNr to: self listOfChanges size.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3492
	self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3493
	self autoSelectOrEnd: nil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3494
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3495
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3496
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3497
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3498
doFilter: aFilterString
b37202441764 revised
tz
parents: 1556
diff changeset
  3499
    "filter the changes with aFilterString"
b37202441764 revised
tz
parents: 1556
diff changeset
  3500
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3501
    self selectionOfChange value: nil.
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3502
    self valueOfFilter value: aFilterString withoutNotifying: self.
b37202441764 revised
tz
parents: 1556
diff changeset
  3503
    self valueOfFilter changed.
b37202441764 revised
tz
parents: 1556
diff changeset
  3504
    self autoSelectLast
b37202441764 revised
tz
parents: 1556
diff changeset
  3505
!
b37202441764 revised
tz
parents: 1556
diff changeset
  3506
1644
16586a2c52b2 filter problems fixed
tz
parents: 1642
diff changeset
  3507
doFilterSourceType: aFilterStringTypeString
16586a2c52b2 filter problems fixed
tz
parents: 1642
diff changeset
  3508
    "filter the source changes with aFilterStringTypeString"
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3509
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3510
    self selectionOfChange value: nil.
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3511
    self listOfChanges contents: #().
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3512
    self valueOfFilter value: '' withoutNotifying: self.
1644
16586a2c52b2 filter problems fixed
tz
parents: 1642
diff changeset
  3513
    self listOfChanges contents: (changes select: [:change| change type = 'source' and: [aFilterStringTypeString match: change string]]).
16586a2c52b2 filter problems fixed
tz
parents: 1642
diff changeset
  3514
    self autoSelectLast
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3515
b37202441764 revised
tz
parents: 1556
diff changeset
  3516
!
b37202441764 revised
tz
parents: 1556
diff changeset
  3517
b37202441764 revised
tz
parents: 1556
diff changeset
  3518
doFilterType: aFilterTypeString
b37202441764 revised
tz
parents: 1556
diff changeset
  3519
    "filter the changes with aFilterTypeString"
b37202441764 revised
tz
parents: 1556
diff changeset
  3520
1569
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3521
    self selectionOfChange value: nil.
96d29b2efc76 revised
tz
parents: 1568
diff changeset
  3522
    self valueOfFilter value: '' withoutNotifying: self.
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3523
    self listOfChanges contents: (changes select: [:change| change type = aFilterTypeString]).
b37202441764 revised
tz
parents: 1556
diff changeset
  3524
    self autoSelectLast
b37202441764 revised
tz
parents: 1556
diff changeset
  3525
b37202441764 revised
tz
parents: 1556
diff changeset
  3526
!
b37202441764 revised
tz
parents: 1556
diff changeset
  3527
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3528
doFindSnapshot: what
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3529
    "finds the last made snapshot and selects it. what is one of last, prvious or next"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3530
1887
332f146981fc find last snapshot error fixed
tz
parents: 1877
diff changeset
  3531
    |snapshotNr snapshotFound|
332f146981fc find last snapshot error fixed
tz
parents: 1877
diff changeset
  3532
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3533
    (self listOfChanges contains: [:change| change type = 'image']) ifFalse: [
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3534
        self warn: 'No snapshot found!!'.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3535
        ^ false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3536
    ].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3537
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3538
    self withSelectedChangeDo:[:change|
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3539
        what = 'last' ifTrue:[            
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3540
            snapshotNr := self listOfChanges size+1.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3541
        ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3542
            snapshotNr := self listOfChanges indexOf: change.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3543
        ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3544
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3545
        snapshotFound := false.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3546
        [snapshotNr > 0 and: [snapshotFound not]] whileTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3547
            (what = 'last' or:[what = 'previous']) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3548
                snapshotNr := snapshotNr - 1.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3549
                snapshotNr == 0 ifTrue: [snapshotNr := self listOfChanges size].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3550
            ] ifFalse:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3551
                snapshotNr := snapshotNr + 1.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3552
                snapshotNr > self listOfChanges size ifTrue: [snapshotNr := 1].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3553
            ].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3554
            (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
  3555
            ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3556
                snapshotFound := true.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3557
                self autoSelectChange:(self listOfChanges at: snapshotNr)
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3558
            ]
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3559
        ]
1887
332f146981fc find last snapshot error fixed
tz
parents: 1877
diff changeset
  3560
    ].
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
    ^ snapshotFound
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3563
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3564
1556
tz
parents: 1554
diff changeset
  3565
doLoad
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3566
    "opens a dialog for loading changes from a file"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3567
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3568
    |fileName|
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3569
    (fileName :=
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3570
	(FileSelectionBrowser
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3571
	    request: 'Load Changes List'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3572
	    fileName: changeFileName
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3573
	    withFileFilters: #('c*'))) notNil
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3574
    ifTrue:
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3575
    [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3576
	changeFileName := fileName.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3577
	changes removeAll.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3578
	self readChangesFileInBackground:true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3579
	self unselectChange.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3580
	Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3581
	self updateInfoLabel.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3582
	self autoSelectLast
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3583
    ]
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3584
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3585
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3586
doReload
1546
ffea21e237ed revised
tz
parents: 1545
diff changeset
  3587
    "reloads the changes from the file"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3588
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3589
    changes removeAll.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3590
    self unselectChange.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3591
    self readChangesFileInBackground:true.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3592
    self autoSelectLast
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3593
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3594
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3595
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3596
doSave
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3597
    "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
  3598
     or a crash occurs while writing (well, or someone kills us),
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3599
     first write the stuff to a new temporary file. If this works ok,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3600
     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
  3601
     tempfile back to the change-file.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3602
     That way, if anything happens, either the original file is left unchanged,
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3603
     or we have at least a backup of the previous change file."
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3604
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3605
    |inStream outStream tempfile stamp f|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3606
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3607
    self valueOfNotReading value ifFalse: [^nil].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3608
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3609
    editingClassSource ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3610
	(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
  3611
	ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3612
	    ^ false
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3613
	]
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3614
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3615
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3616
    tempfile := Filename newTemporaryIn:nil.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3617
    tempfile exists ifTrue:[tempfile remove].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3618
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3619
    outStream := tempfile writeStream.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3620
    outStream isNil ifTrue:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3621
	self warn:'Cannot create temporary file in current directory.'.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3622
	^ false
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3623
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3624
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3625
    inStream := FileStream readonlyFileNamed:changeFileName.
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3626
    inStream isNil ifTrue:[^ false].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3627
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3628
    self withCursor:(Cursor write) do:[
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3629
	|excla sawExcla done first chunk
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3630
	 nChanges "{Class:SmallInteger}" |
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3631
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3632
	Stream writeErrorSignal handle:[:ex |
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3633
	    self warn:('Could not update the changes file.\\' , ex errorString) withCRs.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3634
	    ^ false
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3635
	] do:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3636
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3637
	    self valueOfNotSaving value: false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3638
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3639
	    excla := inStream class chunkSeparator.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3640
	    nChanges := changes size.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3641
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3642
	    1 to:nChanges do:[:index |
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3643
		inStream position: (changes at: index) position.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3644
		sawExcla := inStream peekFor:excla.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3645
		chunk := inStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3646
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3647
		(chunk notNil
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3648
		and:[(chunk startsWith:'''---- snap') not]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3649
		    (stamp := (changes at:index) timeStamp) notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3650
			outStream nextPutAll:'''---- timestamp ' , stamp , ' ----'''.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3651
			outStream nextPut:excla; cr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3652
		    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3653
		].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3654
6288
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3655
		sawExcla ifTrue:[
4767ba5caf5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5396
diff changeset
  3656
		    outStream nextPut:excla.
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3657
		    outStream nextChunkPut:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3658
		    outStream cr; cr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3659
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3660
		    "
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3661
		     a method-definition chunk - skip followups
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3662
		    "
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3663
		    done := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3664
		    first := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3665
		    [done] whileFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3666
			chunk := inStream nextChunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3667
			chunk isNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3668
			    outStream cr; cr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3669
			    done := true
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3670
			] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3671
			    chunk isEmpty ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3672
				outStream space; nextChunkPut:chunk; cr; cr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3673
				done := true.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3674
			    ] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3675
				first ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3676
				    outStream cr; cr.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3677
				].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3678
				outStream nextChunkPut:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3679
			    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3680
			].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3681
			first := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3682
		    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3683
		] ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3684
		    outStream nextChunkPut:chunk.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3685
		    outStream cr
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3686
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3687
	    ].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3688
	    outStream close.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3689
	    inStream close.
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
	f := changeFileName asFilename.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3693
	f renameTo:(f withSuffix:'bak').
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3694
	tempfile renameTo:changeFileName.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3695
	self doReload.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3696
	modified := false.
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3697
	self valueOfNotSaving value: true.
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3698
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3699
    ^ true
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3700
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3701
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3702
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3703
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3704
!NewChangesBrowser::Change methodsFor:'accessing'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3705
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3706
category
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3707
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3708
    ^category
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3709
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3710
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3711
category: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3712
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3713
    category := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3714
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3715
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3716
chunk
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3717
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3718
    ^chunk
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3719
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3720
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3721
chunk: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3722
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3723
    chunk := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3724
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3725
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3726
className
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3727
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3728
    ^className
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3729
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3730
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3731
className: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3732
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3733
    className := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3734
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3735
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3736
delta
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3737
    |cls|
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3738
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3739
    delta size = 0 ifTrue: [^''].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3740
    delta = '='    ifTrue: [^'Current'].
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3741
    delta = '?'    ifTrue: [
2250
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3742
	(className notNil and:[className knownAsSymbol]) ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3743
	    (cls := Smalltalk at:className asSymbol ifAbsent:nil) notNil ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3744
		cls isBehavior ifTrue:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3745
		    cls isLoaded ifFalse:[
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3746
			^ 'Not loaded'
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3747
		    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3748
		]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3749
	    ]
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3750
	].
dc7a9ae0d6bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1938
diff changeset
  3751
	^'No class'
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3752
    ].
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3753
    delta = '-'    ifTrue: [^'Remove'].
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3754
    delta = '+'    ifTrue: [^'New'].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3755
    ^delta
1771
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3756
6d6c2bde9615 dont catch halts and breakpoints while reading;
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3757
    "Modified: / 29.7.1998 / 23:08:10 / cg"
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3758
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3759
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3760
delta: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3761
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3762
    delta := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3763
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3764
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3765
followUp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3766
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3767
    ^followUp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3768
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3769
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3770
followUp: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3771
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3772
    followUp := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3773
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3774
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3775
lastPosition: aValue
b37202441764 revised
tz
parents: 1556
diff changeset
  3776
b37202441764 revised
tz
parents: 1556
diff changeset
  3777
    lastPosition := aValue
b37202441764 revised
tz
parents: 1556
diff changeset
  3778
!
b37202441764 revised
tz
parents: 1556
diff changeset
  3779
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3780
listColor
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3781
    ((string size < 3) or:[(string at: 3) ~~ $-]) ifTrue:[
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3782
        (self type = 'class') ifTrue: [^Color gray].
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3783
        ^ Color white
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3784
    ].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3785
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3786
    (string includesMatchString: '---- s') ifTrue: [^Color red].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3787
    (string includesMatchString: '---- f') ifTrue: [^Color cyan: 100 magenta: 20 yellow: 20].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3788
    (string includesMatchString: '---- c') ifTrue: [^Color blue].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3789
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3790
    ^Color white
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3791
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3792
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3793
position
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3794
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3795
    ^position
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3796
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3797
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3798
position: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3799
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3800
    position := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3801
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3802
1568
b37202441764 revised
tz
parents: 1556
diff changeset
  3803
positions
b37202441764 revised
tz
parents: 1556
diff changeset
  3804
b37202441764 revised
tz
parents: 1556
diff changeset
  3805
    ^position printString, ' - ', lastPosition printString
b37202441764 revised
tz
parents: 1556
diff changeset
  3806
!
b37202441764 revised
tz
parents: 1556
diff changeset
  3807
7957
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3808
selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3809
    ^ selector
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3810
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3811
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3812
selector:something
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3813
    selector := something.
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3814
!
55841733ff69 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6288
diff changeset
  3815
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3816
string
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3817
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3818
    ^string
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3819
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3820
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3821
string: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3822
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3823
    string := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3824
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3825
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3826
timeStamp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3827
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3828
    ^timeStamp
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3829
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3830
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3831
timeStamp: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3832
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3833
    timeStamp := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3834
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3835
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3836
type
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3837
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3838
    (type = 'doIt' or: [type = 'remove']) ifTrue: [^'class'].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3839
    (type size = 0) ifTrue: [(string includesMatchString: '---- s') ifTrue: [^'image'] ifFalse: [^'source']].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3840
    (self category = nil) ifTrue: [^'class'].
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3841
    ^'method'
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3842
!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3843
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3844
type: aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3845
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3846
    type := aValue
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3847
! !
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3848
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3849
!NewChangesBrowser class methodsFor:'documentation'!
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3850
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3851
version
9180
ea28dedc13aa changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 9179
diff changeset
  3852
    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.32 2009-11-04 15:44:32 cg Exp $'
9179
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  3853
!
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  3854
20f04cffb483 changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 7957
diff changeset
  3855
version_CVS
9180
ea28dedc13aa changed: #readChangesFileInBackground:
Claus Gittinger <cg@exept.de>
parents: 9179
diff changeset
  3856
    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.32 2009-11-04 15:44:32 cg Exp $'
1545
e2d6f6ca36ef initial checkin
tz
parents:
diff changeset
  3857
! !