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