--- a/ChangeSetBrowser.st	Fri Aug 09 16:21:38 2002 +0200
+++ b/ChangeSetBrowser.st	Fri Aug 09 17:20:17 2002 +0200
@@ -737,6 +737,18 @@
     "Created: / 7.2.1998 / 19:58:02 / cg"
 !
 
+sourceOfChange:changeNr
+    "answer a changes source"
+
+    |change|
+
+    change := changeSet at:changeNr.
+    change isNil ifTrue:[^nil].
+    ^ change source
+
+    "Modified: / 7.2.1998 / 19:52:44 / cg"
+!
+
 streamForChange:changeNr
     "answer a stream for change"
 
@@ -779,5 +791,5 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.24 2002-06-19 12:13:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.25 2002-08-09 15:20:17 cg Exp $'
 ! !

--- a/ChangesBrowser.st	Fri Aug 09 16:21:38 2002 +0200
+++ b/ChangesBrowser.st	Fri Aug 09 17:20:17 2002 +0200
@@ -1568,6 +1568,22 @@
     "Modified: / 29.4.1999 / 22:36:54 / cg"
 !
 
+sourceOfChange:changeNr
+    |aStream sawExcla chunk|
+
+    aStream := self streamForChange:changeNr.
+    aStream isNil ifTrue:[
+        ^ nil
+    ].
+    sawExcla := aStream peekFor:(aStream class chunkSeparator).
+    chunk := aStream nextChunk.
+    sawExcla ifTrue:[
+        chunk := aStream nextChunk
+    ].
+    aStream close.
+    ^ chunk
+!
+
 unselect
     "common unselect"
 
@@ -3773,7 +3789,7 @@
 changeSelection:lineNrCollection
     "show a change in the codeView"
 
-    |aStream sawExcla chunk lineNr|
+    |chunk lineNr|
 
     lineNrCollection isInteger ifTrue:[
         lineNr := lineNrCollection
@@ -3795,17 +3811,11 @@
     ].
 
     "/ display the changes code
-    aStream := self streamForChange:lineNr.
-    aStream isNil ifTrue:[
+    chunk := self sourceOfChange:lineNr.
+    chunk isNil ifTrue:[
         codeView initializeDoITAction.
         ^ self
     ].
-    sawExcla := aStream peekFor:(aStream class chunkSeparator).
-    chunk := aStream nextChunk.
-    sawExcla ifTrue:[
-        chunk := aStream nextChunk
-    ].
-    aStream close.
     codeView contents:chunk.
     codeView acceptAction:[:theCode | self doApply "noChangesAllowed"].
     codeView doItAction:[:theCode |
@@ -5039,5 +5049,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.268 2002-08-02 17:27:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.269 2002-08-09 15:20:12 cg Exp $'
 ! !