--- a/ChangeSetBrowser.st Mon Oct 10 04:15:21 1994 +0100
+++ b/ChangeSetBrowser.st Mon Oct 10 04:16:24 1994 +0100
@@ -2,7 +2,7 @@
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -13,17 +13,17 @@
"
ChangesBrowser subclass:#ChangeSetBrowser
- instanceVariableNames:'changeSet originalChangeSet'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Browsers'
+ instanceVariableNames:'changeSet originalChangeSet'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Browsers'
!
ChangeSetBrowser comment:'
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.2 1994-08-23 23:48:28 claus Exp $
+$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.3 1994-10-10 03:15:18 claus Exp $
'!
!ChangeSetBrowser class methodsFor:'documentation'!
@@ -31,7 +31,7 @@
copyright
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.2 1994-08-23 23:48:28 claus Exp $
+$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.3 1994-10-10 03:15:18 claus Exp $
"
!
@@ -59,7 +59,7 @@
openOn:aChangeSet
"create c changes browser on a change set"
- ^ ((self new label:'ChangeSet Browser') changeSet:aChangeSet) realize
+ ^ ((self new label:'ChangeSet Browser') changeSet:aChangeSet) open
! !
!ChangeSetBrowser methodsFor:'initialize / release'!
@@ -68,53 +68,53 @@
|labels|
labels := resources array:#(
- 'apply change'
- 'apply changes to end'
- 'apply all changes'
- '-'
- 'delete'
- 'delete to end'
- 'delete changes for this class to end'
- 'delete all changes for this class'
- '-'
- 'update'
- 'compress'
- 'compare with current version'
- '-'
- 'make change a patch'
- 'update sourcefile from change'
- '-'
- 'saveback changeSet').
+ 'apply change'
+ 'apply changes to end'
+ 'apply all changes'
+ '-'
+ 'delete'
+ 'delete to end'
+ 'delete changes for this class to end'
+ 'delete all changes for this class'
+ '-'
+ 'update'
+ 'compress'
+ 'compare with current version'
+ '-'
+ 'make change a patch'
+ 'update sourcefile from change'
+ '-'
+ 'saveback changeSet').
changeListView
- middleButtonMenu:(PopUpMenu
- labels:labels
- selectors:#(
- doApply
- doApplyRest
- doApplyAll
- nil
- doDelete
- doDeleteRest
- doDeleteClassRest
- doDeleteClassAll
- nil
- doUpdate
- doCompress
- doCompare
- nil
- doMakePatch
- doMakePermanent
- nil
- doSaveBack)
- receiver:self
- for:changeListView)
+ middleButtonMenu:(PopUpMenu
+ labels:labels
+ selectors:#(
+ doApply
+ doApplyRest
+ doApplyAll
+ nil
+ doDelete
+ doDeleteRest
+ doDeleteClassRest
+ doDeleteClassAll
+ nil
+ doUpdate
+ doCompress
+ doCompare
+ nil
+ doMakePatch
+ doMakePermanent
+ nil
+ doSaveBack)
+ receiver:self
+ for:changeListView)
! !
!ChangeSetBrowser methodsFor:'private'!
queryCloseText
- ^ 'Quit without updating changeSet ?'
+ ^ 'Quit without updating changeSet ?'
!
streamForChange:changeNr
@@ -131,23 +131,25 @@
originalChangeSet := aChangeSet.
changeSet := OrderedCollection new.
originalChangeSet do:[:aChange |
- changeSet add:aChange
+ changeSet add:aChange
].
!
-readChangesFile
+readChangesFileInBackground:dummy
"read the changeSet, create a list of header-lines"
changeSet size == 0 ifTrue:[^ nil].
self withCursor:(Cursor read) do:[
- changeChunks := VariableArray new.
+ changeChunks := OrderedCollection new.
+ changeHeaderLines := OrderedCollection new.
- changeSet do:[:aChange |
- changeChunks add:(aChange printString)
- ].
- changeClassNames := VariableArray new:(changeChunks size).
- anyChanges := false
+ changeSet do:[:aChange |
+ changeChunks add:(aChange printString).
+ changeHeaderLines add:(aChange printString)
+ ].
+ changeClassNames := OrderedCollection new:(changeChunks size).
+ anyChanges := false
]
!
@@ -155,10 +157,10 @@
"save back the change set"
[originalChangeSet isEmpty] whileFalse:[
- originalChangeSet removeLast
+ originalChangeSet removeLast
].
changeSet do:[:aChange |
- originalChangeSet add:aChange
+ originalChangeSet add:aChange
]
!
@@ -175,7 +177,7 @@
doSaveBack
anyChanges ifTrue:[
- self saveBackChanges.
- self doUpdate
+ self saveBackChanges.
+ self doUpdate
]
! !