--- a/NewChangesBrowser.st Tue May 19 19:46:42 1998 +0200
+++ b/NewChangesBrowser.st Tue May 19 21:18:02 1998 +0200
@@ -406,6 +406,7 @@
#name: 'allLabel'
#layout: #(#LayoutFrame 273 0 0 0.0 310 0 14 0)
#label: '= all'
+ #translateLabel: true
#style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
)
@@ -420,7 +421,8 @@
#(#LabelSpec
#name: 'methodChangesLabel'
#layout: #(#LayoutFrame 373 0 0 0.0 458 0 14 0)
- #label: '= methods'
+ #label: '= method'
+ #translateLabel: true
#style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
)
@@ -435,7 +437,8 @@
#(#LabelSpec
#name: 'classChangesLabel'
#layout: #(#LayoutFrame 470 0 0 0.0 580 0 14 0)
- #label: '= class changes'
+ #label: '= class change'
+ #translateLabel: true
#style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
)
@@ -450,7 +453,8 @@
#(#LabelSpec
#name: 'snapshotLabel'
#layout: #(#LayoutFrame 273 0 14 0.0 355 0 28 0)
- #label: '= snapshots'
+ #label: '= snapshot'
+ #translateLabel: true
#style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
)
@@ -465,7 +469,8 @@
#(#LabelSpec
#name: 'fileInLabel'
#layout: #(#LayoutFrame 374 0 14 0.0 440 0 28 0)
- #label: '= filings'
+ #label: '= fileIn'
+ #translateLabel: true
#style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
)
@@ -480,7 +485,8 @@
#(#LabelSpec
#name: 'checkInLabel'
#layout: #(#LayoutFrame 470 0 14 0.0 550 0 28 0)
- #label: '= check ins'
+ #label: '= checkIn'
+ #translateLabel: true
#style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
)
@@ -512,7 +518,7 @@
)
)
- "Modified: / 18.5.1998 / 13:18:27 / cg"
+ "Modified: / 19.5.1998 / 18:58:47 / cg"
! !
!NewChangesBrowser class methodsFor:'list specs'!
@@ -537,42 +543,56 @@
#backgroundSelector: #listColor
)
#(#DataSetColumnSpec
+ #id: #change
#label: 'Change'
+ #translateLabel: true
#labelAlignment: #left
#model: #string
#canSelect: false
)
#(#DataSetColumnSpec
+ #id: #category
#label: 'Category'
+ #translateLabel: true
#labelAlignment: #left
#model: #category
#canSelect: false
)
#(#DataSetColumnSpec
+ #id: #deltaInfo
#label: 'Delta Info'
+ #translateLabel: true
#labelAlignment: #left
#model: #delta
#canSelect: false
)
#(#DataSetColumnSpec
+ #id: #timeStamp
#label: 'Time Stamp'
+ #translateLabel: true
#labelAlignment: #left
#model: #timeStamp
#canSelect: false
)
#(#DataSetColumnSpec
+ #id: #type
#label: 'Type'
+ #translateLabel: true
#labelAlignment: #left
#model: #type
#canSelect: false
)
#(#DataSetColumnSpec
- #label: 'Positions'
+ #id: #position
+ #label: 'Position'
+ #translateLabel: true
#labelAlignment: #left
#model: #positions
#canSelect: false
)
)
+
+ "Modified: / 19.5.1998 / 20:34:14 / cg"
! !
!NewChangesBrowser class methodsFor:'menu specs'!
@@ -694,14 +714,14 @@
#enabled: #valueOfHavingSelection
)
#(#MenuItem
- #label: 'All For Class'
+ #label: 'All for Class'
#translateLabel: true
#value: #doApplyAllForClass
#activeHelpKey: #applyForClassToEnd
#enabled: #valueOfHavingChangeSelection
)
#(#MenuItem
- #label: 'For Class To End'
+ #label: 'For Class to End'
#translateLabel: true
#value: #doApplyForClassToEnd
#activeHelpKey: #applyForClassToEnd
@@ -711,7 +731,7 @@
#label: '-'
)
#(#MenuItem
- #label: 'From Last Snapshot'
+ #label: 'From last Snapshot'
#translateLabel: true
#value: #doApplyFromLastSnapshot
#activeHelpKey: #applyFromLastSnapshot
@@ -754,14 +774,14 @@
#enabled: #valueOfHavingSelection
)
#(#MenuItem
- #label: 'All For Class'
+ #label: 'All for Class'
#translateLabel: true
#value: #doDeleteAllForClass
#activeHelpKey: #applyForClassToEnd
#enabled: #valueOfHavingChangeSelection
)
#(#MenuItem
- #label: 'For Class To End'
+ #label: 'For Class to End'
#translateLabel: true
#value: #doDeleteForClassToEnd
#activeHelpKey: #deleteForClassToEnd
@@ -778,7 +798,7 @@
#enabled: #valueOfNotReading
)
#(#MenuItem
- #label: 'Compress For Class'
+ #label: 'Compress for Class'
#translateLabel: true
#value: #doCompressForClass
#activeHelpKey: #deleteCompressForClass
@@ -797,7 +817,7 @@
#(
#(#MenuItem
- #label: 'Find Last Snapshot'
+ #label: 'Find last Snapshot'
#translateLabel: true
#value: #doFindSnapshot:
#activeHelpKey: #testFindLastSnapshot
@@ -805,7 +825,7 @@
#argument: 'last'
)
#(#MenuItem
- #label: 'Find Next Snapshot'
+ #label: 'Find next Snapshot'
#translateLabel: true
#value: #doFindSnapshot:
#activeHelpKey: #testFindNextSnapshot
@@ -816,7 +836,7 @@
#label: '-'
)
#(#MenuItem
- #label: 'Compare With Current Version'
+ #label: 'Compare with Current Version'
#translateLabel: true
#value: #doCompare
#activeHelpKey: #testCompareWithCurrentVersion
@@ -845,7 +865,7 @@
#label: '-'
)
#(#MenuItem
- #label: 'Private As Separate'
+ #label: 'Private Classes as Separate'
#translateLabel: true
#activeHelpKey: #settingsPrivateAsSeparate
#enabled: #valueOfNotReading
@@ -920,7 +940,7 @@
nil
)
- "Modified: / 19.5.1998 / 18:03:22 / cg"
+ "Modified: / 19.5.1998 / 18:17:27 / cg"
!
menuTable
@@ -1157,7 +1177,9 @@
categoryColumn: aBoolean
"sets whether the column for the category attribute of the changes is shown"
- self changeColumn: 'Category' add: (CategoryColumn := aBoolean)
+ self changeColumn: #category add: (CategoryColumn := aBoolean)
+
+ "Modified: / 19.5.1998 / 20:30:13 / cg"
!
deltaInfoColumn
@@ -1169,8 +1191,10 @@
deltaInfoColumn: aBoolean
"sets whether the column for the delta info attribute of the changes is shown; and updates"
- self changeColumn: 'Delta Info' add: (DeltaInfoColumn := aBoolean).
+ self changeColumn: #deltaInfo add: (DeltaInfoColumn := aBoolean).
(self window notNil and: [DeltaInfoColumn]) ifTrue: [self doReload]
+
+ "Modified: / 19.5.1998 / 20:30:21 / cg"
!
positionsColumn
@@ -1182,7 +1206,9 @@
positionsColumn: aBoolean
"sets whether the column for the positions attribute of the changes is shown"
- self changeColumn: 'Positions' add: (PositionsColumn := aBoolean)
+ self changeColumn: #position add: (PositionsColumn := aBoolean)
+
+ "Modified: / 19.5.1998 / 20:30:37 / cg"
!
timeStampColumn
@@ -1194,8 +1220,9 @@
timeStampColumn: aBoolean
"sets whether the column for the time stamp attribute of the changes is shown"
- self changeColumn: 'Time Stamp' add: (TimeStampColumn := aBoolean)
-
+ self changeColumn: #timeStamp add: (TimeStampColumn := aBoolean)
+
+ "Modified: / 19.5.1998 / 20:30:42 / cg"
!
typeColumn
@@ -1207,8 +1234,9 @@
typeColumn: aBoolean
"sets whether the column for the type attribute of the changes is shown"
- self changeColumn: 'Type' add: (TypeColumn := aBoolean)
-
+ self changeColumn: #type add: (TypeColumn := aBoolean)
+
+ "Modified: / 19.5.1998 / 20:30:46 / cg"
! !
!NewChangesBrowser methodsFor:'accesssing - views'!
@@ -1258,7 +1286,7 @@
(holder := builder bindingAt:#listOfChangeColumns) isNil ifTrue:[
builder aspectAt:#listOfChangeColumns put:(holder := List new).
self changeColumn: nil add: true.
- self changeColumn: 'Change' add: true.
+ self changeColumn: #change add: true.
self categoryColumn: self categoryColumn.
self timeStampColumn: self timeStampColumn.
self typeColumn: self typeColumn.
@@ -1267,10 +1295,7 @@
].
^ holder
-
-
-
-
+ "Modified: / 19.5.1998 / 20:30:31 / cg"
!
listOfChanges
@@ -1661,7 +1686,7 @@
self updateChannels
!
-changeColumn: aColumnLabel add: addOrRemove
+changeColumn: aColumnId add: addOrRemove
"adds or removes a attribute column to the table"
|newListOfChangeColumns|
@@ -1671,17 +1696,19 @@
ifTrue:
[
newListOfChangeColumns add:
- ((self class tableColumnsForChangeAttributes collect: [:i| i decodeAsLiteralArray]) detect: [:column| column label = aColumnLabel])
+ ((self class tableColumnsForChangeAttributes
+ collect: [:i| i decodeAsLiteralArray])
+ detect: [:column| column id = aColumnId])
]
ifFalse:
[
newListOfChangeColumns remove:
- (self listOfChangeColumns detect: [:column| column label = aColumnLabel] ifNone: nil) ifAbsent: nil
+ (self listOfChangeColumns detect: [:column| column id = aColumnId] ifNone: nil) ifAbsent: nil
].
self listOfChangeColumns contents: newListOfChangeColumns.
self autoSelectLast
-
+ "Modified: / 19.5.1998 / 20:32:53 / cg"
!
changeFileName:aFileName
@@ -2353,7 +2380,7 @@
aStream := f readStream.
aStream isNil ifTrue:[^ nil].
- self newLabel:'updating...'.
+ self newLabel:(resources string:'updating...').
i := f info.
changeFileTimestamp := i modified.
@@ -2686,8 +2713,9 @@
self filterField raise.
self filterLabel label: 'Filter:'.
- self checkIfFileHasChanged.
-
+ self checkIfFileHasChanged.
+
+ "Modified: / 19.5.1998 / 18:57:29 / cg"
!
selectorOfMethodChange:aChange
@@ -3448,5 +3476,5 @@
!NewChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.13 1998-05-19 16:04:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.14 1998-05-19 19:18:02 cg Exp $'
! !