--- a/ProjectBrowser.st Fri Mar 03 01:44:01 2000 +0100
+++ b/ProjectBrowser.st Tue Mar 21 20:50:03 2000 +0100
@@ -2415,6 +2415,12 @@
#enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
)
#(#MenuItem
+ #label: 'abbrev file (for autoload)'
+ #translateLabel: true
+ #value: #buildAbbrevFile
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
#label: 'Binary class library (non portable)'
#translateLabel: true
#value: #buildCompiledClassLibrary
@@ -5675,6 +5681,26 @@
!
+buildAbbrevFile
+ "generate an abbrev.stc file 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 createAbbrevFile.
+ ]
+ ]
+!
+
buildAll
"build all as specified in the deployment section"