--- a/ProjectBrowser.st	Wed Sep 22 13:24:33 1999 +0200
+++ b/ProjectBrowser.st	Wed Sep 22 17:39:37 1999 +0200
@@ -1504,6 +1504,12 @@
                 #enabled: #hasClassesSelectedHolder
             )
              #(#MenuItem
+                #label: 'Add Classes found in image'
+                #translateLabel: true
+                #value: #addClassesImage
+                #enabled: #hasClassesSelectedHolder
+            )
+             #(#MenuItem
                 #label: 'Add Classes from files found in directory'
                 #translateLabel: true
                 #value: #addClassesFromFilesInDirectory
@@ -3506,6 +3512,29 @@
     ]
 !
 
+addClassesImage
+    |project|
+
+    project := self currentProject.
+    Smalltalk allClassesDo:[:aClass |
+        aClass isMeta ifFalse:[
+            (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[
+                aClass package = project package ifTrue:[
+                    (project classInfoFor:aClass) isNil ifTrue:[
+                        project 
+                            addClass:aClass name
+                            classFileName:(aClass classFilename 
+                                            ? ((Smalltalk fileNameForClass:aClass) , '.st')).
+                    ]
+                 ]
+             ]
+        ]
+    ].                 
+
+    self updateClassListForProject:project
+
+!
+
 browseClasses
     |ns p classes nBad uniqueClasses|