--- a/BrowserView.st	Tue Nov 14 10:22:25 1995 +0100
+++ b/BrowserView.st	Tue Nov 14 20:02:34 1995 +0100
@@ -28,7 +28,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.36 1995-11-11 15:39:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.37 1995-11-14 19:02:34 cg Exp $'
 !
 
 documentation
@@ -994,12 +994,14 @@
 				   'hierarchy' 
 				   'definition' 
 				   'comment' 
+				   'revision info' 
 				   'class instvars' 
 				 ).
 		    selectors := #(
 				   classHierarchy
 				   classDefinition
 				   classComment
+				   classRevisionInfo
 				   classClassInstVars
 				  ).
 		] ifFalse:[
@@ -1033,6 +1035,7 @@
 				   'hierarchy' 
 				   'definition' 
 				   'comment' 
+				   'revision info' 
 				   'class instvars' 
 		   "/              'protocols' 
 				   '-'
@@ -1041,6 +1044,7 @@
 				   classHierarchy
 				   classDefinition
 				   classComment
+				   classRevisionInfo
 				   classClassInstVars
 		   "/              classProtocols 
 				   nil
@@ -1101,6 +1105,8 @@
 
     ^ PopUpMenu labels:(resources array:labels)
 	     selectors:selectors
+
+    "Created: 14.11.1995 / 19:36:30 / cg"
 !
 
 classFileOut
@@ -1123,6 +1129,46 @@
     ]
 !
 
+classRevisionInfo
+    "show current classes revision info in codeView"
+
+    self doClassMenu:[:currentClass |
+	|aStream info s|
+
+	aStream := WriteStream on:(String new:200).
+	currentClass notNil ifTrue:[
+	    info := currentClass revisionInfo.
+	    info notNil ifTrue:[
+		s := info at:#repositoryPath ifAbsent:nil.
+		s notNil ifTrue:[
+		    aStream nextPut:'Source repository : ' , s; cr
+		].
+		aStream nextPutAll:'Filename ........ : ' , (info at:#fileName); cr.
+		aStream nextPutAll:'Revision ........ : ' , (info at:#revision); cr.
+		aStream nextPutAll:'Checkin date .... : ' , (info at:#date) , ' ' , (info at:#time); cr.
+		aStream nextPutAll:'Checkin user .... : ' , (info at:#user); cr.
+		aStream cr.
+		SourceCodeManager notNil ifTrue:[
+		    aStream nextPutAll:'Revision log:'; cr; cr.
+		    SourceCodeManager writeRevisionLogTo:aStream.
+		]
+	    ]
+	].
+	codeView contents:(aStream contents).
+
+	codeView modified:false.
+	codeView acceptAction:nil.
+	codeView explainAction:nil.
+	methodListView notNil ifTrue:[
+	    methodListView deselect
+	].
+	aspect := #revision. 
+	self normalLabel
+    ]
+
+    "Created: 14.11.1995 / 16:43:15 / cg"
+!
+
 doClassMenuWithSelection:aBlock
     "a helper - if there is a selection, which represents a classes name,
      evaluate aBlock, passing that class and optional selector as arguments.
@@ -3764,7 +3810,7 @@
     self checkMethodSelected ifFalse:[^ self].
     currentMethod isPublic ifFalse:[
 	currentMethod privacy:how.
-	actualClass updateVersionString.
+	actualClass updateRevisionString.
 	actualClass addChangeRecordForMethodPrivacy:currentMethod.
 	self updateMethodListWithScroll:false keepSelection:true.
     ]
@@ -3936,7 +3982,7 @@
 		    currentMethod category:aString asSymbol.
 		    actualClass changed.
 		    currentMethod changed:#category.
-		    actualClass updateVersionString.
+		    actualClass updateRevisionString.
 		    actualClass addChangeRecordForMethodCategory:currentMethod category:aString.
 		    self updateMethodCategoryListWithScroll:false.
 		    self updateMethodListWithScroll:false