--- 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!