diff -r 4dcf819ffd59 -r 90dee52628ec ProjectBrowser.st --- a/ProjectBrowser.st Wed Sep 22 17:57:16 1999 +0200 +++ b/ProjectBrowser.st Wed Sep 22 18:26:18 1999 +0200 @@ -1652,7 +1652,7 @@ #(#MenuItem #label: 'Save Project File' #translateLabel: true - #value: #saveProject + #value: #saveProjectFile #enabled: #hasProjectSelectedAndProjectFilenameHolder ) #(#MenuItem @@ -3649,7 +3649,7 @@ buildClassLibrary "compile a binary class library in the projects directory" - |p dir f| + |p dir f diagnosticFile diagnostic error textBox| p := self currentProject. p isNil ifTrue:[ @@ -3672,7 +3672,7 @@ (self confirm:'''Make.proto'' does not exist in project directory\\Create ?' withCRs) ifFalse:[ ^ self ]. - p buildMakefiles. + self buildMakefiles. ]. "/ check for Makefile ... @@ -3684,7 +3684,36 @@ p createMakefile. ]. - + "/ now, execute the makefile found there ... + diagnosticFile := Filename newTemporary. + diagnostic := diagnosticFile writeStream. + error := false. + + [ + self withCursor:Cursor wait do:[ + OperatingSystem + executeCommand:'make' + inputFrom:nil + outputTo:diagnostic + errorTo:diagnostic + inDirectory:(dir pathName) + onError:[error := true]. + ]. + + diagnostic close. + + textBox := TextBox new. + textBox initialText:(diagnosticFile readStream contents). + textBox title:'Make Diagnostic output:'. + textBox readOnly:true. + textBox noCancel. + textBox label:'Make Diagnostic output'. + textBox extent:(600@250); sizeFixed:true. + textBox showAtPointer. + + ] valueNowOrOnUnwindDo:[ + diagnosticFile delete + ]. ! @@ -4061,7 +4090,7 @@ ] ! -saveProject +saveProjectFile |d p| self modifiedChannel value ifTrue:[