--- 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|