--- a/ProjectBrowser.st Wed Sep 22 17:39:37 1999 +0200
+++ b/ProjectBrowser.st Wed Sep 22 17:57:16 1999 +0200
@@ -1,3 +1,18 @@
+"
+ COPYRIGHT (c) 1999 by eXept Software AG
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+
ToolApplicationModel subclass:#ProjectBrowser
instanceVariableNames:'projectTree modifiedChannel selectedTreeNodeHolder'
classVariableNames:'AlreadCheckedExistingModulesAndPackages'
@@ -19,6 +34,45 @@
privateIn:ProjectBrowser
!
+!ProjectBrowser class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1999 by eXept Software AG
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+!
+
+documentation
+"
+ The new project browser & builder.
+ This one will (eventually) make packaging of classLibraries and
+ applications easier.
+
+ EXPERIMENTAL: not finished.
+
+ [start with:]
+ ProjectBrowser open
+
+ [see also:]
+ Project
+
+ [author:]
+ Claus Gittinger, eXept Software AG
+"
+
+
+! !
!ProjectBrowser class methodsFor:'help specs'!
@@ -3593,6 +3647,48 @@
!
+buildClassLibrary
+ "compile a binary class library in the projects directory"
+ |p dir f|
+
+ p := self currentProject.
+ p isNil ifTrue:[
+ self information:'No project selected'.
+ ^ self
+ ].
+
+ "/ check for project directory ...
+ dir := p directory asFilename.
+ dir exists ifFalse:[
+ (self confirm:'Project directory does not exist\\Create ?' withCRs) ifFalse:[
+ ^ self
+ ].
+ dir recursiveMakeDirectory.
+ ].
+
+ "/ check for Make.proto ...
+ f := dir construct:'Make.proto'.
+ f exists ifFalse:[
+ (self confirm:'''Make.proto'' does not exist in project directory\\Create ?' withCRs) ifFalse:[
+ ^ self
+ ].
+ p buildMakefiles.
+ ].
+
+ "/ check for Makefile ...
+ f := dir construct:'Makefile'.
+ f exists ifFalse:[
+ (self confirm:'''Makefile'' does not exist in project directory\\Create ?' withCRs) ifFalse:[
+ ^ self
+ ].
+ p createMakefile.
+ ].
+
+
+
+
+!
+
buildLoadAllFile
|p |
@@ -3910,6 +4006,11 @@
!
+openDocumentation
+ self openHTMLDocument: 'tools/pbrowser/TOP.html'
+
+!
+
openProject
|fn|