equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 'From Smalltalk/X, Version:3.1.9 on 8-sep-1997 at 12:46:24 am' ! |
|
14 |
12 |
15 Object subclass:#Project |
13 Object subclass:#Project |
16 instanceVariableNames:'name changeSet views directoryName properties packageName |
14 instanceVariableNames:'name changeSet views directoryName properties packageName |
17 repositoryDirectory repositoryModule defaultNameSpace |
15 repositoryDirectory repositoryModule defaultNameSpace |
18 overwrittenMethods' |
16 overwrittenMethods' |
731 createSourcefiles |
729 createSourcefiles |
732 "creates all Smalltalk-source files in the project directory" |
730 "creates all Smalltalk-source files in the project directory" |
733 |
731 |
734 |classes methods methodClasses dir stream| |
732 |classes methods methodClasses dir stream| |
735 |
733 |
736 dir := FileDirectory directoryNamed:self directory. |
734 dir := self directory asFilename. |
737 Transcript showCR:'creating sources in ' , dir pathName , ' ...'; endEntry. |
735 Transcript showCR:'creating sources in ' , dir pathName , ' ...'; endEntry. |
738 |
736 |
739 classes := self classes. |
737 classes := self classes. |
740 classes isNil ifTrue:[ |
738 classes isNil ifTrue:[ |
741 self warn:'no classes in current project' |
739 self warn:'no classes in current project' |
789 stream close. |
787 stream close. |
790 ]. |
788 ]. |
791 ]. |
789 ]. |
792 |
790 |
793 "Modified: 1.11.1996 / 16:37:15 / cg" |
791 "Modified: 1.11.1996 / 16:37:15 / cg" |
|
792 "Modified: 18.9.1997 / 18:50:34 / stefan" |
794 ! |
793 ! |
795 |
794 |
796 findTopFrom:directoryName |
795 findTopFrom:directoryName |
797 "returns the relative path from directoryName to the TOP |
796 "returns the relative path from directoryName to the TOP |
798 directory." |
797 directory." |
1006 ! ! |
1005 ! ! |
1007 |
1006 |
1008 !Project class methodsFor:'documentation'! |
1007 !Project class methodsFor:'documentation'! |
1009 |
1008 |
1010 version |
1009 version |
1011 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.55 1997-09-08 18:08:17 cg Exp $' |
1010 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.56 1997-09-18 23:03:17 stefan Exp $' |
1012 ! ! |
1011 ! ! |
1013 Project initialize! |
1012 Project initialize! |