--- a/ChangesBrowser.st	Thu Dec 07 12:40:08 2017 +0100
+++ b/ChangesBrowser.st	Thu Dec 07 13:31:49 2017 +0100
@@ -23,10 +23,11 @@
 		showingDiffs diffViewBox autoloadAsRequired
 		classesNotToBeAutoloaded encodingIfKnown
 		ignorePublicPrivateCategories changeListSelectionHolder
-		defaultApplicationForVAGEClasses infoHolder'
-	classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs
-		DefaultAutoCompare DefaultShowingDiffs LastEnforcedNameSpace
-		KeepEnforcedNameSpace'
+		defaultApplicationForVAGEClasses infoHolder leftCodeLabelHolder
+		rightCodeLabelHolder'
+	classVariableNames:'CompressSnapshotInfo DefaultAutoCompare DefaultShowingDiffs
+		KeepEnforcedNameSpace LastEnforcedNameSpace NoColoring
+		ShowWarningDialogs'
 	poolDictionaries:''
 	category:'Interface-Browsers'
 !
@@ -1044,6 +1045,14 @@
     "Created: / 23-09-2011 / 19:42:46 / cg"
 !
 
+leftCodeLabelHolder
+    "holds the string shown above the left codeView (defaults to: 'Current')"
+
+    ^ leftCodeLabelHolder
+
+    "Created: / 07-12-2017 / 12:28:31 / cg"
+!
+
 notEditingClassSource
     ^ self editingClassSource not
 !
@@ -1060,6 +1069,14 @@
     readOnly := aBoolean
 !
 
+rightCodeLabelHolder
+    "holds the string shown above the right codeView (defaults to: 'Change')"
+    
+    ^ rightCodeLabelHolder
+
+    "Created: / 07-12-2017 / 12:28:37 / cg"
+!
+
 showingDiffs
     showingDiffs isNil ifTrue:[
 	showingDiffs := self showingDiffsDefault asValue.
@@ -1507,6 +1524,9 @@
     |panel infoLabel v upperFrame buttonPanel menuPanel mH toolbarMenu tmH
      checkBox oldStyle codeViewBox lbl applyInOriginal|
 
+    leftCodeLabelHolder := 'Current' asValue.
+    rightCodeLabelHolder := 'Change' asValue.    
+
     "/ oldStyle := true.
     oldStyle := false.
 
@@ -1646,13 +1666,15 @@
     diffViewBox := View in:codeViewBox.
     diffViewBox origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
 
-    lbl := Label label:'Current' in:diffViewBox.
+    lbl := Label label:leftCodeLabelHolder value in:diffViewBox.
+    lbl labelChannel:leftCodeLabelHolder.
     lbl layout:(LayoutFrame
                         leftFraction:0.0 offset:0
                         rightFraction:0.5 offset:0
                         topFraction:0.0 offset:0
                         bottomFraction:0.0 offset:20).
-    lbl := Label label:'Change' in:diffViewBox.
+    lbl := Label label:rightCodeLabelHolder value in:diffViewBox.
+    lbl labelChannel:rightCodeLabelHolder.
     lbl layout:(LayoutFrame
                         leftFraction:0.5 offset:0
                         rightFraction:1.0 offset:0
@@ -1688,7 +1710,7 @@
     tabSpec align:    #(#left  #left     #left  #left).
 
     "Modified: / 27-03-1997 / 11:07:07 / stefan"
-    "Modified: / 03-01-2012 / 15:28:45 / cg"
+    "Modified: / 07-12-2017 / 12:28:09 / cg"
 !
 
 postRealize