# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 945687242 -3600
# Node ID b9769689b45c3a9342ca5fc20dfd4aef17ff2d46
# Parent  a3faeff213ece2af1de9591b0bee86a3bf64d6c9
checkin from browser

diff -r a3faeff213ec -r b9769689b45c ProjectBrowser.st
--- a/ProjectBrowser.st	Fri Dec 17 21:48:47 1999 +0100
+++ b/ProjectBrowser.st	Mon Dec 20 11:54:02 1999 +0100
@@ -2355,6 +2355,12 @@
                   #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
                 )
                #(#MenuItem
+                  #label: 'Makefile'
+                  #translateLabel: true
+                  #value: #buildMakefile
+                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+                )
+               #(#MenuItem
                   #label: 'LoadAll file'
                   #translateLabel: true
                   #value: #buildLoadAllFile
@@ -2412,6 +2418,8 @@
         nil
         nil
       )
+
+    "Modified: / 16.12.1999 / 01:28:48 / cg"
 !
 
 methodItemMenu
@@ -5531,6 +5539,28 @@
     ]
 !
 
+buildMakefile
+    "generate a Makefile/nt.mak/vms.mak in the projects directory"
+
+    |p |
+
+    p := self currentProject.
+    p isNil ifTrue:[
+        self information:'No project selected'.
+        ^ self
+    ].
+
+    self withCursor:Cursor wait do:[
+        self makeTranscriptVisible.
+        TextCollector transcriptQuerySignal answer:self transcript
+        do:[
+            p createMakefile
+        ]
+    ].
+
+    "Created: / 16.12.1999 / 01:29:30 / cg"
+!
+
 buildMakefiles
     "generate a Make.proto and Makefile in the projects directory"