Mercurial Mercurial > hg > stx-libbasic3 / 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>
Tue, 11 Aug 1998 23:06:07 +0200
changeset 705 6cdfc51d3195
parent 704 9644a88308bf
child 706 5149cb0621bd
checkin from browser
AbstrSCMgr.st file | annotate | diff | comparison | revisions
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstrSCMgr.st	Tue Aug 11 23:04:20 1998 +0200
+++ b/AbstrSCMgr.st	Tue Aug 11 23:06:07 1998 +0200
@@ -644,13 +644,11 @@
     container isNil ifTrue:[
         (newInfo includesKey:#directory) ifTrue:[
             (newInfo includesKey:#module) ifTrue:[
-                (newInfo includesKey:#module) ifTrue:[
-                    container := (newInfo at:#module)
-                                 , '/'
-                                 , (newInfo at:#directory)
-                                 , '/'
-                                 , classFileNameBase , '.st,v'.
-                ]
+                container := (newInfo at:#module)
+                             , '/'
+                             , (newInfo at:#directory)
+                             , '/'
+                             , classFileNameBase , '.st,v'.
             ]
         ]
     ].
@@ -683,7 +681,7 @@
      self sourceInfoOfClass:Array
     "
 
-    "Modified: / 11.8.1998 / 23:03:33 / cg"
+    "Modified: / 11.8.1998 / 23:05:05 / cg"
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'source code access'!
@@ -1088,7 +1086,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.87 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.88 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1424,6 +1422,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.87 1998-08-11 21:04:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.88 1998-08-11 21:06:07 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
--- a/AbstractSourceCodeManager.st	Tue Aug 11 23:04:20 1998 +0200
+++ b/AbstractSourceCodeManager.st	Tue Aug 11 23:06:07 1998 +0200
@@ -644,13 +644,11 @@
     container isNil ifTrue:[
         (newInfo includesKey:#directory) ifTrue:[
             (newInfo includesKey:#module) ifTrue:[
-                (newInfo includesKey:#module) ifTrue:[
-                    container := (newInfo at:#module)
-                                 , '/'
-                                 , (newInfo at:#directory)
-                                 , '/'
-                                 , classFileNameBase , '.st,v'.
-                ]
+                container := (newInfo at:#module)
+                             , '/'
+                             , (newInfo at:#directory)
+                             , '/'
+                             , classFileNameBase , '.st,v'.
             ]
         ]
     ].
@@ -683,7 +681,7 @@
      self sourceInfoOfClass:Array
     "
 
-    "Modified: / 11.8.1998 / 23:03:33 / cg"
+    "Modified: / 11.8.1998 / 23:05:05 / cg"
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'source code access'!
@@ -1088,7 +1086,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.87 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.88 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1424,6 +1422,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.87 1998-08-11 21:04:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.88 1998-08-11 21:06:07 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
hg/stx-libbasic3