--- 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"