ProjectBrowser.st
changeset 1298 64cfa48905dc
parent 1293 b83aae064c4d
child 1303 9ed64bde6ff8
--- a/ProjectBrowser.st	Mon Jan 17 12:29:31 2000 +0100
+++ b/ProjectBrowser.st	Wed Jan 19 17:00:12 2000 +0100
@@ -2389,6 +2389,14 @@
                   #label: 'Makefile'
                   #translateLabel: true
                   #value: #buildMakefile
+                  #isVisible: #osIsUnix
+                  #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+                )
+               #(#MenuItem
+                  #label: 'Makefile for windows (nt.mak)'
+                  #translateLabel: true
+                  #value: #buildNTMakefile
+                  #isVisible: #osIsWindows
                   #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
                 )
                #(#MenuItem
@@ -2450,7 +2458,7 @@
         nil
       )
 
-    "Modified: / 16.12.1999 / 01:28:48 / cg"
+    "Modified: / 19.1.2000 / 16:52:31 / cg"
 !
 
 methodItemMenu
@@ -3470,6 +3478,19 @@
 
 !
 
+osIsUnix
+    ^ OperatingSystem isUNIXlike
+
+    "Created: / 19.1.2000 / 16:45:16 / cg"
+!
+
+osIsWindows
+    ^ OperatingSystem isMSWINDOWSlike
+
+    "Created: / 19.1.2000 / 16:37:33 / cg"
+    "Modified: / 19.1.2000 / 16:43:54 / cg"
+!
+
 patchesList
     "automatically generated by UIPainter ..."
 
@@ -5783,6 +5804,28 @@
     ].
 !
 
+buildNTMakefile
+    "generate an nt.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 createNTMakefile
+        ]
+    ].
+
+    "Created: / 19.1.2000 / 15:55:17 / cg"
+!
+
 checkInAllClasses
     "check in all classes"