--- a/BrowserView.st	Thu Dec 07 11:16:43 1995 +0100
+++ b/BrowserView.st	Thu Dec 07 11:18:13 1995 +0100
@@ -1784,12 +1784,20 @@
     "show current classes revision info in codeView"
 
     self doClassMenu:[:currentClass |
-	|aStream info info2 s|
+	|aStream info info2 s rv|
 
 	aStream := WriteStream on:(String new:200).
 	currentClass notNil ifTrue:[
 	    self busyLabel:'extracting revision info' with:nil.
 	    info := currentClass revisionInfo.
+
+	    rv := currentClass binaryRevision.
+	    rv notNil ifTrue:[
+		aStream nextPutAll:'**** Loaded classes binary information ****'; cr; cr.
+		aStream nextPutAll:'  Binary based upon : ' , rv; cr.
+		aStream cr.
+	    ].
+
 	    info notNil ifTrue:[
 		aStream nextPutAll:'**** Loaded classes source information ****'; cr; cr.
 		s := info at:#repositoryPath ifAbsent:nil.
@@ -1829,7 +1837,7 @@
     ]
 
     "Created: 14.11.1995 / 16:43:15 / cg"
-    "Modified: 25.11.1995 / 12:00:57 / cg"
+    "Modified: 7.12.1995 / 11:00:56 / cg"
 !
 
 classLoadRevision
@@ -3062,7 +3070,7 @@
 
     self createCodeViewIn:vpanel.
 
-    l := aList collect:[:entry | entry name].
+    l := (aList collect:[:entry | entry name]) asOrderedCollection.
     classListView list:(l sort).
 
     self updateMethodCategoryList.
@@ -6007,5 +6015,5 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.56 1995-12-06 12:38:01 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.57 1995-12-07 10:17:26 cg Exp $'! !
 BrowserView initialize!

--- a/BrwsrView.st	Thu Dec 07 11:16:43 1995 +0100
+++ b/BrwsrView.st	Thu Dec 07 11:18:13 1995 +0100
@@ -1784,12 +1784,20 @@
     "show current classes revision info in codeView"
 
     self doClassMenu:[:currentClass |
-	|aStream info info2 s|
+	|aStream info info2 s rv|
 
 	aStream := WriteStream on:(String new:200).
 	currentClass notNil ifTrue:[
 	    self busyLabel:'extracting revision info' with:nil.
 	    info := currentClass revisionInfo.
+
+	    rv := currentClass binaryRevision.
+	    rv notNil ifTrue:[
+		aStream nextPutAll:'**** Loaded classes binary information ****'; cr; cr.
+		aStream nextPutAll:'  Binary based upon : ' , rv; cr.
+		aStream cr.
+	    ].
+
 	    info notNil ifTrue:[
 		aStream nextPutAll:'**** Loaded classes source information ****'; cr; cr.
 		s := info at:#repositoryPath ifAbsent:nil.
@@ -1829,7 +1837,7 @@
     ]
 
     "Created: 14.11.1995 / 16:43:15 / cg"
-    "Modified: 25.11.1995 / 12:00:57 / cg"
+    "Modified: 7.12.1995 / 11:00:56 / cg"
 !
 
 classLoadRevision
@@ -3062,7 +3070,7 @@
 
     self createCodeViewIn:vpanel.
 
-    l := aList collect:[:entry | entry name].
+    l := (aList collect:[:entry | entry name]) asOrderedCollection.
     classListView list:(l sort).
 
     self updateMethodCategoryList.
@@ -6007,5 +6015,5 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.56 1995-12-06 12:38:01 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.57 1995-12-07 10:17:26 cg Exp $'! !
 BrowserView initialize!

--- a/Launcher.st	Thu Dec 07 11:16:43 1995 +0100
+++ b/Launcher.st	Thu Dec 07 11:18:13 1995 +0100
@@ -380,9 +380,13 @@
 			    cls isNil ifTrue:[
 				listEntry colAt:2 put:'(class removed)'.
 			    ] ifFalse:[
-				rev := cls revision.
+				rev := cls binaryRevision.
 				rev notNil ifTrue:[
-				    listEntry colAt:2 put:'(rev' , rev , ')'
+				    entry :='(bin: ' , rev.
+				    cls revision ~= rev ifTrue:[
+					entry := entry , ' / src: ' , cls revision    
+				    ].
+				    listEntry colAt:2 put:entry , ')'
 				].    
 			    ].
 			    listEntry
@@ -466,6 +470,7 @@
     box destroy.
 
     "Modified: 17.9.1995 / 16:47:50 / claus"
+    "Modified: 7.12.1995 / 11:04:22 / cg"
 !
 
 snapshot
@@ -1920,5 +1925,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.61 1995-12-06 12:39:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.62 1995-12-07 10:18:13 cg Exp $'
 ! !