Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sun, 05 Jan 1997 03:22:50 +0100
changeset 908 927e36f25eac
parent 907 915c9573dc5c
child 909 ccbc84af922c
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Sun Jan 05 01:20:53 1997 +0100
+++ b/BrowserView.st	Sun Jan 05 03:22:50 1997 +0100
@@ -2517,9 +2517,6 @@
                 msg := 'extracting newest %1'.
                 aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
                 revString := '(newest)'.
-                (rev := mgr newestRevisionOf:currentClass) notNil ifTrue:[
-                    revString := '(newest is' , rev , ')'
-                ]
             ] ifFalse:[
                 msg := 'extracting previous %1'.
                 aStream := mgr getSourceStreamFor:currentClass revision:rev.
@@ -2551,6 +2548,13 @@
                 thisRevString isNil ifTrue:[
                     thisRevString := 'no revision'
                 ].
+
+                revString = '(newest)' ifTrue:[
+                    (rev := mgr newestRevisionOf:currentClass) notNil ifTrue:[
+                        revString := '(newest is' , rev , ')'
+                    ]
+                ].
+
                 v := DiffTextView 
                     openOn:currentSource label:'current: (based on: ' , thisRevString , ')'
                     and:comparedSource label:'repository: ' , revString.      
@@ -2561,7 +2565,7 @@
     ]
 
     "Created: 4.1.1997 / 15:48:20 / cg"
-    "Modified: 4.1.1997 / 15:55:04 / cg"
+    "Modified: 5.1.1997 / 03:20:46 / cg"
 !
 
 classCreateSourceContainerFor:aClass
@@ -9051,6 +9055,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.243 1997-01-05 00:20:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.244 1997-01-05 02:22:50 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Sun Jan 05 01:20:53 1997 +0100
+++ b/BrwsrView.st	Sun Jan 05 03:22:50 1997 +0100
@@ -2517,9 +2517,6 @@
                 msg := 'extracting newest %1'.
                 aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
                 revString := '(newest)'.
-                (rev := mgr newestRevisionOf:currentClass) notNil ifTrue:[
-                    revString := '(newest is' , rev , ')'
-                ]
             ] ifFalse:[
                 msg := 'extracting previous %1'.
                 aStream := mgr getSourceStreamFor:currentClass revision:rev.
@@ -2551,6 +2548,13 @@
                 thisRevString isNil ifTrue:[
                     thisRevString := 'no revision'
                 ].
+
+                revString = '(newest)' ifTrue:[
+                    (rev := mgr newestRevisionOf:currentClass) notNil ifTrue:[
+                        revString := '(newest is' , rev , ')'
+                    ]
+                ].
+
                 v := DiffTextView 
                     openOn:currentSource label:'current: (based on: ' , thisRevString , ')'
                     and:comparedSource label:'repository: ' , revString.      
@@ -2561,7 +2565,7 @@
     ]
 
     "Created: 4.1.1997 / 15:48:20 / cg"
-    "Modified: 4.1.1997 / 15:55:04 / cg"
+    "Modified: 5.1.1997 / 03:20:46 / cg"
 !
 
 classCreateSourceContainerFor:aClass
@@ -9051,6 +9055,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.243 1997-01-05 00:20:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.244 1997-01-05 02:22:50 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool