--- a/ProjectBrowser.st	Mon Sep 20 09:55:53 1999 +0200
+++ b/ProjectBrowser.st	Mon Sep 20 16:28:43 1999 +0200
@@ -3578,6 +3578,19 @@
 
 !
 
+buildMakefiles
+    |p |
+
+    p := self currentProject.
+    p isNil ifTrue:[
+        self information:'No project selected'.
+        ^ self
+    ].
+
+    p createProtoMakefile.
+    p createMakefile
+!
+
 checkInProject
     |p classes methods anyMethodMissing|