--- a/NewChangesBrowser.st Fri Apr 17 21:00:31 1998 +0200
+++ b/NewChangesBrowser.st Sat Apr 18 15:54:46 1998 +0200
@@ -110,7 +110,7 @@
#deleteToEnd
'Deletes all changes from the selected one up to the last made change.'
-#fileLoadFrom
+#fileLoad
'Opens a dialog for selecting and loading another changes files.'
#fileReload
@@ -119,6 +119,9 @@
#fileSave
'Saves the list of changes into current changes file name.'
+#filterField
+'Matching patterns filtering the changes (separate several patterns by spaces).'
+
#settingsAutoUpdate
'Turns on/off whether the Changes Browser makes automatically an update after a change done while running.'
@@ -315,12 +318,12 @@
#(#FullSpec
#window:
#(#WindowSpec
- #name: ''
- #layout: #(#LayoutFrame 257 0 290 0 756 0 689 0)
- #label: ''
+ #name: 'Changes Browser'
+ #layout: #(#LayoutFrame 86 0 338 0 585 0 737 0)
+ #label: 'Changes Browser'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 257 290 757 690)
+ #bounds: #(#Rectangle 86 338 586 738)
#menu: #menu
#usePreferredExtent: false
)
@@ -380,6 +383,7 @@
#(#InputFieldSpec
#name: 'filterField'
#layout: #(#LayoutFrame 41 0.0 3 0 285 0 25 0)
+ #activeHelpKey: #filterField
#model: #valueOfFilter
#immediateAccept: false
)
@@ -582,9 +586,9 @@
#label: '-'
)
#(#MenuItem
- #label: 'Load From...'
- #value: #doLoadFrom
- #activeHelpKey: #fileLoadFrom
+ #label: 'Load...'
+ #value: #doLoad
+ #activeHelpKey: #fileLoad
#enabled: #valueOfNotReading
)
#(#MenuItem
@@ -921,6 +925,15 @@
#label: '-'
)
#(#MenuItem
+ #label: 'Browse Class'
+ #value: #doBrowseClass
+ #activeHelpKey: #fileBrowseClass
+ #enabled: #valueOfHavingChangeSelection
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
#label: 'Compress For Class'
#value: #doCompressForClass
#activeHelpKey: #deleteCompressForClass
@@ -951,10 +964,10 @@
#(
#(#MenuItem
- #label: 'Load From'
+ #label: 'Load'
#isButton: true
- #value: #doLoadFrom
- #activeHelpKey: #fileLoadFrom
+ #value: #doLoad
+ #activeHelpKey: #fileLoad
#enabled: #valueOfNotReading
#labelImage: #(#ResourceRetriever nil #loadIcon)
)
@@ -1412,11 +1425,11 @@
sig catch:[
|reader doItChunk methodsForChunk|
- "/ a followup methodsFor: chunk ...
+ "/ a followup methodsFor: chunk...
aChange followUp ifTrue:[
methodsForChunk := aChange chunk.
] ifFalse:[
- doItChunk := aStream nextChunk. "/ an empty chunk sometimes ...
+ doItChunk := aStream nextChunk. "/ an empty chunk sometimes...
doItChunk notEmpty ifTrue:[
Compiler evaluate:doItChunk notifying:self.
] ifFalse:[
@@ -1657,7 +1670,7 @@
] ifFalse:[
"/
"/ compare for tabulator <-> space changes
- "/ before showing diff ...
+ "/ before showing diff...
"/
t1 := oldSource asCollectionOfLines collect:[:s | s withTabsExpanded].
t2 := newSource asCollectionOfLines collect:[:s | s withTabsExpanded].
@@ -1993,10 +2006,10 @@
].
(aParseTree isNil or:[aParseTree == #Error]) ifTrue:[
- ^ nil "seems strange ... (could be a comment)"
+ ^ nil "seems strange... (could be a comment)"
].
aParseTree isMessage ifFalse:[
- ^ nil "very strange ... (whats that ?)"
+ ^ nil "very strange... (whats that ?)"
].
"
@@ -2137,7 +2150,7 @@
"sets the label"
how size = 0 ifTrue: [^self window label:self class label].
- self window label:self class label, '(', how, ')'
+ self window label:self class label, ' (', how, ')'
!
readChangesFileInBackground:inBackground
@@ -2174,7 +2187,7 @@
aStream := f readStream.
aStream isNil ifTrue:[^ nil].
- self newLabel:'updating ...'.
+ self newLabel:'updating...'.
i := f info.
changeFileTimestamp := i modified.
@@ -2188,7 +2201,7 @@
"
this is a time consuming operation (especially, if reading an
- NFS-mounted directory; therefore lower my priority ...
+ NFS-mounted directory; therefore lower my priority...
"
inBackground ifTrue:[
myProcess := Processor activeProcess.
@@ -2229,7 +2242,7 @@
] ifFalse:[
"
- only first line is saved in changeChunks ...
+ only first line is saved in changeChunks...
"
index := chunkText indexOf:(Character cr).
(index ~~ 0) ifTrue:[
@@ -2276,7 +2289,7 @@
headerLine := chunkText , ' (doIt)'.
"
- first, assume doIt - then lets have a more detailed look ...
+ first, assume doIt - then lets have a more detailed look...
"
((chunkText startsWith:'''---- file')
or:[(chunkText startsWith:'''---- check')]) ifTrue:[
@@ -2361,7 +2374,7 @@
two (or more) chunks; skip next chunk(s)
up to an empty one.
The system only writes one chunk,
- and we cannot handle more in this ChangesBrowser ....
+ and we cannot handle more in this ChangesBrowser....
"
className := nil.
p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
@@ -2958,7 +2971,7 @@
ifFalse:
[
snapshotNr := snapshotNr + 1.
- snapshotNr == self listOfChanges size ifTrue: [snapshotNr := 0].
+ snapshotNr > self listOfChanges size ifTrue: [snapshotNr := 1].
].
(self listOfChanges at: snapshotNr ifAbsent: [^self autoSelectChange: (what = 'last' ifTrue: [self listOfChanges last] ifFalse: [self listOfChanges first])]) type = 'image'
ifTrue:
@@ -2970,13 +2983,13 @@
]
!
-doLoadFrom
+doLoad
"opens a dialog for loading changes from a file"
|fileName|
(fileName :=
(FileSelectionBrowser
- request: 'Load Changes List From'
+ request: 'Load Changes List'
fileName: changeFileName
withFileFilters: #('c*'))) notNil
ifTrue:
@@ -3209,6 +3222,5 @@
!NewChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.4 1998-04-17 16:54:32 tz Exp $'
-
+ ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.5 1998-04-18 13:54:46 tz Exp $'
! !