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>
Fri, 23 Apr 1999 18:24:54 +0200
changeset 759 2d7e72bae18b
parent 758 14b304ca1d73
child 760 a65d8d4c9169
checkin from browser
AbstrSCMgr.st file | annotate | diff | comparison | revisions
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstrSCMgr.st	Fri Apr 23 16:45:36 1999 +0200
+++ b/AbstrSCMgr.st	Fri Apr 23 18:24:54 1999 +0200
@@ -203,6 +203,17 @@
     "Modified: 14.2.1997 / 21:18:48 / cg"
 !
 
+checkoutModule:aModule package:aPackage andDo:aBlock
+    "check out everything from a package into a temporary directory.
+     Then evaluate aBlock, passing the name of that temp-directory.
+     Afterwards, the tempDir is removed.
+     Return true, if OK, false if any error occurred."
+
+    ^ self subclassResponsibility
+
+    "Modified: 14.2.1997 / 21:18:35 / cg"
+!
+
 streamForClass:aClass fileName:classFileName revision:revision directory:packageDir module:moduleDir cache:doCache
     "extract a classes source code and return an open readStream on it.
      A revision of nil selects the current (in image) revision.
@@ -1125,7 +1136,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.93 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.94 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1461,6 +1472,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.93 1999-04-23 09:37:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.94 1999-04-23 16:24:54 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
--- a/AbstractSourceCodeManager.st	Fri Apr 23 16:45:36 1999 +0200
+++ b/AbstractSourceCodeManager.st	Fri Apr 23 18:24:54 1999 +0200
@@ -203,6 +203,17 @@
     "Modified: 14.2.1997 / 21:18:48 / cg"
 !
 
+checkoutModule:aModule package:aPackage andDo:aBlock
+    "check out everything from a package into a temporary directory.
+     Then evaluate aBlock, passing the name of that temp-directory.
+     Afterwards, the tempDir is removed.
+     Return true, if OK, false if any error occurred."
+
+    ^ self subclassResponsibility
+
+    "Modified: 14.2.1997 / 21:18:35 / cg"
+!
+
 streamForClass:aClass fileName:classFileName revision:revision directory:packageDir module:moduleDir cache:doCache
     "extract a classes source code and return an open readStream on it.
      A revision of nil selects the current (in image) revision.
@@ -1125,7 +1136,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.93 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.94 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1461,6 +1472,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.93 1999-04-23 09:37:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.94 1999-04-23 16:24:54 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
hg/stx-libbasic3