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.
prject filename interface changed
authorclaus
Wed, 24 Aug 1994 01:49:31 +0200
changeset 41 91017644c8f2
parent 40 a9ae39be7004
child 42 0af362f7b879
prject filename interface changed
SBrowser.st file | annotate | diff | comparison | revisions
SystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/SBrowser.st	Wed Aug 24 01:49:19 1994 +0200
+++ b/SBrowser.st	Wed Aug 24 01:49:31 1994 +0200
@@ -32,7 +32,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.11 1994-08-22 18:07:28 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.12 1994-08-23 23:49:31 claus Exp $
 '!
 
 !SystemBrowser class methodsFor:'documentation'!
@@ -53,7 +53,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.11 1994-08-22 18:07:28 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.12 1994-08-23 23:49:31 claus Exp $
 "
 !
 
@@ -2351,11 +2351,11 @@
 
     fileName := currentClassCategory asString.
     fileName replaceAll:Character space by:$_.
+    "
+     this test allows a smalltalk to be built without Projects/ChangeSets
+    "
     Project notNil ifTrue:[
-        project := Project current.
-        project notNil ifTrue:[
-            fileName := project directory , Filename separator asString , fileName.
-        ].
+        fileName := Project currentProjectDirectory , fileName.
     ].
 
     aStream := FileStream newFileNamed:fileName.
@@ -3430,11 +3430,11 @@
     ].
     fileName := currentMethodCategory , '.st'.
     fileName replaceAll:Character space by:$_.
+    "
+     this test allows a smalltalk to be built without Projects/ChangeSets
+    "
     Project notNil ifTrue:[
-        project := Project current.
-        project notNil ifTrue:[
-            fileName := project directory , Filename separator asString , fileName.
-        ].
+        fileName := Project currentProjectDirectory , fileName.
     ].
     outStream := FileStream newFileNamed:fileName.
     outStream isNil ifTrue:[
--- a/SystemBrowser.st	Wed Aug 24 01:49:19 1994 +0200
+++ b/SystemBrowser.st	Wed Aug 24 01:49:31 1994 +0200
@@ -32,7 +32,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.11 1994-08-22 18:07:28 claus Exp $
+$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.12 1994-08-23 23:49:31 claus Exp $
 '!
 
 !SystemBrowser class methodsFor:'documentation'!
@@ -53,7 +53,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.11 1994-08-22 18:07:28 claus Exp $
+$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.12 1994-08-23 23:49:31 claus Exp $
 "
 !
 
@@ -2351,11 +2351,11 @@
 
     fileName := currentClassCategory asString.
     fileName replaceAll:Character space by:$_.
+    "
+     this test allows a smalltalk to be built without Projects/ChangeSets
+    "
     Project notNil ifTrue:[
-        project := Project current.
-        project notNil ifTrue:[
-            fileName := project directory , Filename separator asString , fileName.
-        ].
+        fileName := Project currentProjectDirectory , fileName.
     ].
 
     aStream := FileStream newFileNamed:fileName.
@@ -3430,11 +3430,11 @@
     ].
     fileName := currentMethodCategory , '.st'.
     fileName replaceAll:Character space by:$_.
+    "
+     this test allows a smalltalk to be built without Projects/ChangeSets
+    "
     Project notNil ifTrue:[
-        project := Project current.
-        project notNil ifTrue:[
-            fileName := project directory , Filename separator asString , fileName.
-        ].
+        fileName := Project currentProjectDirectory , fileName.
     ].
     outStream := FileStream newFileNamed:fileName.
     outStream isNil ifTrue:[
hg/stx-libtool