--- a/FileBrowser.st	Fri Jan 28 08:04:01 2000 +0100
+++ b/FileBrowser.st	Mon Jan 31 14:49:56 2000 +0100
@@ -558,6 +558,18 @@
                   #enabled: #hasSelection
                 )
                #(#MenuItem
+                  #label: 'Create Smalltalk Project'
+                  #translateLabel: true
+                  #value: #createProjectAndOpenProjectBrowser
+                  #enabled: #canCreateNewProject
+                )
+               #(#MenuItem
+                  #label: 'Install autoloaded'
+                  #translateLabel: true
+                  #value: #readAbbrevFile
+                  #enabled: #canReadAbbrevFile
+                )
+               #(#MenuItem
                   #label: 'Editor'
                   #translateLabel: true
                   #value: #openEditor
@@ -671,6 +683,8 @@
         nil
         nil
       )
+
+    "Modified: / 29.1.2000 / 13:04:43 / cg"
 !
 
 menuSpec
@@ -1012,6 +1026,12 @@
                   #enabled: #canCreateNewProject
                 )
                #(#MenuItem
+                  #label: 'Install autoloaded'
+                  #translateLabel: true
+                  #value: #readAbbrevFile
+                  #enabled: #canReadAbbrevFile
+                )
+               #(#MenuItem
                   #label: 'Editor'
                   #translateLabel: true
                   #value: #openEditor
@@ -1170,6 +1190,8 @@
         nil
         nil
       )
+
+    "Modified: / 29.1.2000 / 12:59:41 / cg"
 ! !
 
 !FileBrowser class methodsFor:'queries'!
@@ -1246,6 +1268,26 @@
     "Modified: / 28.4.1999 / 11:54:17 / cg"
 !
 
+canReadAbbrevFile
+    ^ [|sel f fn suff|
+
+        sel := fileListView selection.
+        sel size == 1 ifTrue:[
+            f := fileList at:sel first ifAbsent:nil.
+            f notNil ifTrue:[
+                f = 'abbrev.stc'.
+            ] ifFalse:[
+                false
+            ]
+        ] ifFalse:[
+            false
+        ]
+      ]
+
+    "Modified: / 30.1.1999 / 19:05:59 / cg"
+    "Created: / 29.1.2000 / 13:00:57 / cg"
+!
+
 canRemoveCVSContainer
     ^ [ |cvsDir|
 
@@ -1413,6 +1455,22 @@
     "Created: / 14.8.1998 / 14:15:44 / cg"
 !
 
+singleSelectedFile
+    |f sel|
+
+    sel := fileListView selection.
+    sel size ~~ 1 ifTrue:[
+        ^ nil
+    ].
+    f := fileList at:sel first ifAbsent:nil.
+    f notNil ifTrue:[
+        ^ currentDirectory asFilename construct:f
+    ].
+    ^ nil
+
+    "Created: / 29.1.2000 / 13:09:09 / cg"
+!
+
 singleSelectedFileOrCurrentDirectory
     |f sel|
 
@@ -3060,6 +3118,18 @@
     "Modified: / 25.5.1999 / 16:30:54 / cg"
 !
 
+readAbbrevFile
+    |sel|
+
+    sel := self singleSelectedFile.
+    sel notNil ifTrue:[
+        Smalltalk installAutoloadedClassesFrom:sel
+    ].
+
+    "Created: / 4.2.1999 / 17:40:42 / cg"
+    "Modified: / 29.1.2000 / 13:10:01 / cg"
+!
+
 showOrHideTabView
     "depending on the showLongList setting, show or hde the tabSpec view"
 
@@ -6982,5 +7052,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.362 2000-01-22 17:53:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.363 2000-01-31 13:49:56 cg Exp $'
 ! !