--- a/ChangesBrowser.st	Mon Jan 02 16:02:17 2012 +0100
+++ b/ChangesBrowser.st	Tue Jan 03 15:34:57 2012 +0100
@@ -22,7 +22,7 @@
 		readOnly enforcedPackage enforcedNameSpace updateChangeSet
 		showingDiffs diffViewBox autoloadAsRequired
 		classesNotToBeAutoloaded encodingIfKnown
-		ignorePublicPrivateCategories'
+		ignorePublicPrivateCategories changeListSelectionHolder'
 	classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs
 		DefaultAutoCompare DefaultShowingDiffs LastEnforcedNameSpace
 		KeepEnforcedNameSpace'
@@ -847,6 +847,15 @@
     ^ autoloadAsRequired
 !
 
+changeListSelectionHolder
+    changeListSelectionHolder isNil ifTrue:[
+        changeListSelectionHolder := nil asValue.
+    ].
+    ^ changeListSelectionHolder
+
+    "Created: / 03-01-2012 / 15:19:25 / cg"
+!
+
 editingClassSource
     ^ editingClassSource ? false
 !
@@ -879,6 +888,14 @@
     ^ changeListView hasSelection
 !
 
+hasSelectionHolder
+    ^ BlockValue
+        with:[:v | v notEmptyOrNil ]
+        argument:(self changeListSelectionHolder)
+
+    "Created: / 03-01-2012 / 15:15:47 / cg"
+!
+
 hasSingleSelection
     changeListView multipleSelectOk ifTrue:[
 	^ changeListView selection size == 1
@@ -1509,7 +1526,7 @@
     tabSpec align:    #(#left  #left     #left  #left).
 
     "Modified: / 27-03-1997 / 11:07:07 / stefan"
-    "Modified: / 23-09-2011 / 19:43:07 / cg"
+    "Modified: / 03-01-2012 / 15:28:45 / cg"
 !
 
 postRealize
@@ -1582,11 +1599,12 @@
         ].
         ^ self
     ].
+
     super update:what with:aParameter from:changedObject
 
-    "Created: / 15.6.1996 / 15:26:30 / cg"
-    "Modified: / 7.1.1997 / 23:03:47 / cg"
-    "Modified: / 24.8.1999 / 09:45:06 / stefan"
+    "Created: / 15-06-1996 / 15:26:30 / cg"
+    "Modified: / 24-08-1999 / 09:45:06 / stefan"
+    "Modified: / 03-01-2012 / 15:23:13 / cg"
 ! !
 
 !ChangesBrowser methodsFor:'menu actions'!
@@ -4112,10 +4130,11 @@
 changeSelection:lineNrCollection
     "show a change in the codeView"
 
-    |chunk lineNr|
+    |chunk lineNr lineNumbers|
 
     lineNrCollection isInteger ifTrue:[
-        lineNr := lineNrCollection
+        lineNr := lineNrCollection.
+        lineNumbers := Array with:lineNr.
     ] ifFalse:[
         changeListView multipleSelectOk ifTrue:[
             lineNrCollection size == 1 ifTrue:[
@@ -4124,7 +4143,10 @@
         ] ifFalse:[
             lineNr := lineNrCollection
         ].
-    ].
+        lineNumbers := lineNrCollection.
+    ].
+
+    self changeListSelectionHolder value:lineNumbers.
 
     lineNr isNil ifTrue:[
         codeView contents:nil.
@@ -4170,7 +4192,7 @@
         ]
     ].
 
-    "Modified: / 28.2.1999 / 15:26:46 / cg"
+    "Modified: / 03-01-2012 / 15:30:23 / cg"
 !
 
 classOfChange:changeNr
@@ -5579,6 +5601,12 @@
     "Modified: / 27-10-2010 / 11:31:06 / cg"
 !
 
+selectionCanged
+self halt
+
+    "Created: / 03-01-2012 / 15:26:36 / cg"
+!
+
 setEnforcedNameSpace
     |nsName listOfKnownNameSpaces keepAsDefaultHolder|
 
@@ -6313,9 +6341,9 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.415 2011-12-25 10:38:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.416 2012-01-03 14:34:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.415 2011-12-25 10:38:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.416 2012-01-03 14:34:57 cg Exp $'
 ! !