BrowserView.st
changeset 2403 ac9e48e91f17
parent 2402 1b1143acfaca
child 2406 6024a857c66a
--- a/BrowserView.st	Mon Sep 20 09:56:19 1999 +0200
+++ b/BrowserView.st	Mon Sep 20 16:37:58 1999 +0200
@@ -4200,9 +4200,10 @@
 
         rev notNil ifTrue:[
             rev withoutSpaces isEmpty ifTrue:[
-                msg := 'extracting newest %1'.
-                aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
-                revString := '(newest)'.
+                msg := 'extracting newest %1 (' , newestRev , ')'.
+                "/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
+                aStream := mgr getSourceStreamFor:currentClass revision:newestRev.
+                revString := '(newest: ' , newestRev , ')'.
             ] ifFalse:[
                 msg := 'extracting previous %1'.
                 aStream := mgr getSourceStreamFor:currentClass revision:rev.
@@ -13908,6 +13909,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.557 1999-09-20 07:56:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.558 1999-09-20 14:37:58 cg Exp $'
 ! !
 BrowserView initialize!